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_LABS","SCCPFOR"),DbSelectArea(zSelect) )
VARIAVEL Z_blkfor := { |x_forn| Sccpfor->( DbGoto(x_forn), if(empty(cp_fantasi),cp_nome,cp_fantasi) }
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
Fabr;pPrincForn;N;999999;6;S;
Fabricante;Eval(z_blkfor,pprincforn);C;@s30;30;N;
%Desc;pdescprom;N;999.99;5;S;
Tabela;cr_tabela;N;99999;6;S;