TV_PIGN;("Produtos de "+Alltrim(tv_Ign->descricao));skip_blk(x); 7;08;21;77;bulas_g;;
:SKEL
VARIAVEL Z_BLKprd = {|x_prd| se_prod->(DbSetOrder(2)),se_prod->(dbseek(x_prd)),se_prod->pdesc }
VARIAVEL Z_BLKforn = {|x_forn| sccpfor->(dbGoto(x_forn)), sccpfor->CP_FANTASI }
:TBMT
 22;tv_bulinsprd(D_oB);Ins-Inclui ;
  7;tb_del(D_Ob);Del-Exclui ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
CodP;PCOD;N;999999;6;;
Produto;eval(z_blkprd,pcod);C;@s30;30;N;
Laboratorio;eval(z_blkforn,se_prod->pprincforn);C;@s15;15;N;
