TV_PIGN3;("Semelhantes a "+Se_Prod->Pdesc);sys_tbbrow; 7;0;21;79;bulas_g3;;
:TBMT
 13;tv_pedq(.f.,d_ob,pcod);Enter-Quant ;
 79;Tb_Index(D_OB);O-Ordena ;
 32;Tb_Filter(d_ob,"peatual>0",.t.);Barra-Com_Estoque ;
:TBFI
QPed;quant_vped(pcod);N;9999;4;N;
Descricao;PDESC;C;@s30; 30;;
E Atual;peatual;N;99999;5;;
Pr Vend;pvluvenda;N;9999.99;7;;
UltVnd;PdataVend;D;99.99.99;8;;
UltComp;PdataComp;D;99.99.99;8;;
Laboratorio;cp_fantasi;C;@S15; 15;;
