SE_PROMS;Tabela de Descontos por Grupos de Preco;sys_tbbrow; 7; 12;18;69;se_prom;;
:SKEL
VARIAVEL Z_NIL = ABRA("0RO",r_siga,"se_gpre","Se_Gpre","Se_Gpre","Grupo")
VARIAVEL Z_blkprd = { |x_pcod| Se_Gpre->( DbSeek(x_pcod) ), se_Gpre->Descricao+" %Compra:"+Str(if(se_gpre->Markup>0,100*(1-100/Se_Gpre->Markup),0),6,2)+"%"}
COMANDO DEPOIS Z_NIL = Se_Gpre->(DbCloseArea())
:TBMT
13;AnexaProm("PGP");Enter-Anexa_Grp ;
22;tb_insert(d_ob);Ins-Inclui ;
32;doget(d_ob);Barra-Altera ;
7;tb_del(d_ob);Del-Deleta ;
79;tb_index(d_ob);O-Ordena ;
80;tb_pesq(d_ob);P-Pesquisa ;
73;lst_alias(d_ob);I-Imprime ;
:TBFI
GPreco;PGpreco;C;XXXXXX;6;S;
Descricao;Eval(z_blkprd,PgPreco);C;@s35;35;N;
%Desc;pdescprom;N;999.99;5;S;
