PROD_T1;Relacao de Produtos;sys_tbbrow; 0; 5;22;79;pseprod;;
:SKEL
variavel zbQatend:={|npCod| sp_movf->( if(npCod<>pCod,(OrdSetFocus(1),DbSeek(npCod)),npCod), MQATEND) }
variavel zbPvluCpa:={|npCod| sp_movf->( if(npCod<>pCod,(OrdSetFocus(1),DbSeek(npCod)),npCod), if(MQATEND>0,mValor3/MQATEND,pVluVen3) ) }
variavel znil = se_prod->(OrdSetFocus(2))
// 13;ret_pcod();Enter-Aceita Produto;
// 32;doget(D_ob);Barra-Edita ;
:TBMT
 13;doget(D_ob);Enter-Confirma ;
 80;psq_prod("P",D_oB);P-Psq_Cod_Nome;
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
 67;tb_locate(D_OB);C-Continua_Busca ;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
:TBFI
UndCpa;Quant_Ped(se_prod->pCod,5);N;999999;6;S;;;wbDoGetQuant;
Descricao;PDESC;C;@s30;30;N;
Und;pUnidade;C;XXXXX; 5;;
ItensUnCpa;pItens;N;99999.999;9;S;
PrUnidCpa;pItens*pVluVen3;P;9999999.99;10;S;
PrCpaUnVda;pVluVen3;N;9999999.99;10;S;
PrVdaUnVda;pVluVenda;N;9999999.99;10;N;
Saldo;pEatual;N;9999999.99;10;N;
Cod Barra;Pdic6;N;9999999999999;13;;
Cod;PCOD;N;99999; 5;;
Fab;PprincForn;N;9999;4;;