LICIT;Produtos de Licitacao;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL Z_NIL = ABRA("0NOIDX",r_siga,"SE_LABS","SCCPFOR")
VARIAVEL Z_NIL = ABRA("0NOIDX",r_siga,se_prod,"Se_prod",seip_c,"pcod",seip_n,"pdesc")
VARIAVEL Z_blkfor = { |x_forn| Sccpfor->( DbGoto(x_forn) ), sccpfor->cp_fantasi}
VARIAVEL Z_blkprd = { |x_pcod| Se_Prod->( DbSeek(x_pcod) ), se_prod->Pdesc}
COMANDO DEPOIS Z_NIL = Se_Prod->(DbCloseArea())
COMANDO DEPOIS Z_NIL = Sccpfor->(DbCloseArea())
// Fabric;Eval(z_blkfor,se_Prod->pprincforn);C;@s10;10;N;
:TBFI
Licit;CODIGO;N;999999;  6;;
CodCli;CR_COD_CLI;N;999999;  6;;
CodPrd;PCOD;N;999999; 6;;
Descricao Produto;Eval(z_blkprd,pcod);C;@s20;20;N;
Pr.Licit;PVLUVEN2;N;9999999.99; 12;;
A Faturar;MQUANT;N;9999999.99; 12;;
Saldo;PEATUAL;N;99999999;  8;;
