SEPRODPR;Precos de Venda, Promocional, Grupo de Preco, Descontos e %Comissao;sys_tbbrow; 7; 0;17;79;se_prod;;eval(zBlSay);
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)

VARIAVEL zNIL =        'DevPos(0,1),DevOut("(Cod:"+Str(pcod,5)+") "+alltrim(Pdesc)+" (Saldo: "+ltrim(Str(peatual,4))+")"),'
VARIAVEL zNIL = zNIL + 'DevPos(1,1),DevOut("Desconto So para o Gerente..? "+if(PBLOQVENDA="S".or.pdesconto=0,"Sim","Nao. Para o Vendedor.")),'
VARIAVEL zNIL = zNIL + 'DevPos(2,1),DevOut("%Desconto Permitido na Venda: "+Str(pdesconto,5,2)+"% ")'
variavel zBlSay1 =_createblock(zNIL)

VARIAVEL zNIL =        'DevPos(3,1),DevOut("%Desc Adicional da Gerencia.: "+Str(pdescfarm,5,2)+"% "),'
VARIAVEL zNIL = zNIL + 'DevPos(4,1),DevOut("%Desc Minimo em Planos Pagto: "+Str(pdscminimo,5,2)+"% "),'
VARIAVEL zNIL = zNIL + 'DevPos(5,1),DevOut("%Desc para Venda em Dinheiro: "+Str(PDESCBON,5,2)+"% ")'
variavel zBlSay2 =_createblock(zNIL)

variavel zNIL =     'DevPos(2,43),DevOut("%Marg Ult.C (Ultima Compra):"+str((pvluvenda-pvluven3)/pvluvenda*100,5,2)+"%"),'
variavel zNIL =zNIL+'DevPos(3,43),DevOut("%Marg Ult.C Apos Descontos :"+str((pvluvenda-pvluven3)/pvluvenda*100-PDESCONTO-pdescfarm,5,2)+"%"),'
variavel zNIL =zNIL+'DevPos(4,43),DevOut("%Marg Pr.Aq (Pr. Aquisicao):"+str((pvluvenda-pvlu)/pvluvenda*100,5,2)+"%"),'
variavel zNIL =zNIL+'DevPos(5,43),DevOut("%Marg Pr.Aq Apos Descontos :"+str((pvluvenda-pvlu)/pvluvenda*100-PDESCONTO-pdescfarm,5,2)+"%"),.t.'
variavel zBlSay3 =_createblock(zNIL)

variavel zNIL =     'DevPos(3,43),DevOut("Produto sem Preco de Venda..."),'
variavel zNIL =zNIL+'DevPos(4,43),DevOut("Sera solicitado p/ cada venda!")'
variavel zBlSay4 =_createblock(zNIL)

VARIAVEL zSayTela = SaveScreen(0,0,6,79)
VARIAVEL zNIL = "Z_COR:=SetColor('B/W'),"
VARIAVEL zNIL = zNIL + "Scroll(0,0,6,79,0),DispBox(0,0,6,79),"
VARIAVEL zNIL = zNIL + "eval(zBlSay1),eval(zBlSay2),if(pvluvenda>0,eval(zBlSay3),eval(zBlSay4)),"
VARIAVEL zNIL = zNIL + "SetColor(Z_COR)"
VARIAVEL zBlSay = _CreateBlock( zNIL )
variavel zNIL = ''
COMANDO DEPOIS RestScreen(0,0,6,79,zSayTela)

:TBMT
 13;se_doget(D_ob);Enter-Edita ;
 32;tb_update(D_OB);Barra-Altera ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Cod;PCOD;N;99999;5;N;
Descricao;PDESC;C;@S25;25;N;
PrCompr;pvluven3;N;9999.99;7;S;
PrVenda;pvluvenda;N;9999.99;7;S;
Margem;(pvluvenda-pvluven3)/pvluvenda*100;C;999.99%;7;N;
Markup;(MarkupPrd(PgPreco)-1)*100;N;999.99%;7;N;
Gp;pgpreco;C;!!;2;S;
%DMax;pdesconto;N;99.99%;6;S;
%Gere;pdescfarm;N;99.99%;6;S;
%dinhe;pdescbon;N;99.99%;6;S;
PrPromo;Pvluven2;N;999.99;6;S;
DtPromo;Pdataprog;D;;8;S;
BloqueiaDesconto;pbloqvenda;C;!;7;S;
Lista;PnegPos;C;!;5;S;
PrecoLb;pPrecoLib;C;!;7;S;
%ComVis;pcomisvis;N;99.99%;6;S;
