PSEPRODG;Produtos Disponiveis;sys_tbbrow; 8; 0;20;79;pseprodg;XPSQ(D_OB);
:TBMT
 43;psq_prod("P",D_oB);+-Psq_Cod_Nome;
 13;prdgara();Enter-Seleciona;
:TBFI
Cod;Pcod;N;99999;  5;N;
D;DV(PCOD);N;9; 1;N;
Nome;Pdesc;C;@s24; 24;;
Complemento;pfornece;C;@s15; 15;;
Laboratorio;pfantasia;C;@s20; 20;;
Est;Peatual;N;999;  3;;
Prt;IIF(PFGCONTROL$"/7/8","P2"+PFGCONTROL,"   ");N;999;  3;N;
Pr Venda;pvluvenda;N;9999.99; 07;;
Pr Prom;iif(pvluven2>0 .and. s_datual<= pdataprog,pvluven2,0);N;9999.99; 07;;
