TV_BULAP;("Selecionando Produtos de "+Alltrim(tv_Ign->descricao));sys_tbbrow; 9;14;19;78;bulas_g2;;
:SKEL
VARIAVEL Z_BLKforn = {|x_forn| sccpfor->(dbGoto(x_forn)), sccpfor->cp_fantasi }
:TBMT
 13;tv_bul2insprd(D_oB);Enter-Confirma ;
 80;tb_pesq(D_oB);P-Pesquisa ;
:TBFI
 Cod;PCod;N;999999;6;N;
Produto;PDESC;C;@S35;35;N;
Laboratorio;eval(z_blkforn,pprincforn);C;@s15;15;N;
