PF_CONDF;Condicoes de Compra de Fornecedores;sys_tbbrow; 5;10;20;79;padrao;;
:SKEL
VARIAVEL Z_BLkFor = {|x_forn| sccpfor->(dbgoto(x_forn)), sccpfor->cp_fantasi }
VARIAVEL Z_BLkFab = {|x_fabr| sccpfab->(dbgoto(x_fabr)), sccpfab->cp_fantasi }
COMANDO ANTES abra_arq("sccpfor")
COMANDO ANTES abra_arq("sccpfab")
COMANDO ANTES DbSelectArea("pf_condf")
COMANDO DEPOIS sccpfor->(DbCloseArea())
COMANDO DEPOIS sccpfab->(DbCloseArea())
:TBFI
Forn;PFFOR;N;9999;  4;;
Fant_Fornecedor;eval(Z_BLkFor,pffor);C;@s15;15;N;
Fabricante;Pprincforn;N;9999;  4;;
Fant_Fabricant;eval(Z_BLkFab,Pprincforn);C;@s15;15;N;
%Desconto;PFDESCONTO;N;999.99%;10;S;
