SE_PROD;Relacao de Produtos;sys_tbbrow; 5;12;21;79;pseprod;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
// 22;ins_prd(D_oB,"P",.T.,.t.);Ins-Inclui ;
//Function InsPrdSm(D_oB,x_oper,.t.,.t.,x_fg_append,,,xFgJaNoPcod)
:TBMT
 13;psq_enter();Enter-Aceita Campo;
 80;tb_pesq(d_ob);P-Pesquisa Campo;
 43;PF_PEDQ(D_OB,,"R");+-Quantidade ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 65;DOGET(D_OB);A-Altera ;
 22;tb_insert(D_OB);Ins-Inclui ;
:TBFI
Cod.Barras;pdic6;C;@s13; 13;S;
Descricao;PDESC;C;@s27; 27;N;
Cod;PCOD;N;99999; 5;N;
Frc;pitens;N;9999;4;S;
Ped;quant_ped(pcod,5);N;99999;5;N;
VlComp;quant_ped(pcod,4);N;9999.99;7;N;
VlVend;quant_ped(pcod,3);N;9999.99;7;N;
