SE_PROMG;Tabela de Descontos por Grupos de Preco;sys_tbbrow; 7; 14;18;69;se_prom;;
:SKEL
VARIAVEL Z_NIL = ( zSelect:=Select(),ABRA("0NOIDX",r_siga,"se_gpre","Se_Gpre","Se_Gpre","Grupo"), DbSelectArea(zSelect) )
VARIAVEL zGrpDesc = { |cGpre| Se_Gpre->( DbSeek(cGpre) ), se_Gpre->Descricao+" %Markup: "+ Str(se_gpre->Markup,6,2)+"%"}
COMANDO SAIDA Z_NIL = Se_Gpre->(DbCloseArea())
:TBMT
13;doget(d_ob);Enter-Altera ;
22;tb_insert(d_ob);Ins-Inclui ;
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;Grupo;C;XXXXXX;6;S;
Descricao;Eval(zGrpDesc,Grupo);C;@s32;32;N;
%Desc;pdescprom;N;999.99;5;S;
Tabela;cr_tabela;N;99999;6;S;