TV_PIGN;("Similares de "+Alltrim(tv_Ign->descricao));skip_blk(x); 6;0;21;79;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
 93;disp_sdse(pcod);]-Demanda ;
 -5;vb_prdfalta();F6-Lanca_Falta ;
:TBFI
CodP;PCOD;N;9999;4;;
Produto;eval(z_blkprd,pcod);C;@s30;30;N;
Est;se_prod->Peatual;N;999999;6;;
Pr Venda;se_prod->pvluvenda;N;99999.99; 8;;
Pr Dinh;se_prod->(if(pdescbon>0,"d"+str(pvluvenda*(1-pdescbon/100),6,2),if(Se_Prod->PvluVen2>0.and.s_datual<=se_prod->pdataprog,"p"+str(PVLUVEN2,6,2),if(PBLOQVENDA="S","b",""))));C;x999.99; 7;;
UltVnd;se_prod->PdataVend;D;8;;
UltComp;se_prod->PdataComp;D;8;;
Laboratorio;eval(z_blkforn,se_prod->pprincforn);C;@s15;15;N;
Frac;se_prod->(pgpreco+lower(pabcfisica)+str(Pitens,4));N;xx9999;6;;
Ref;se_prod->pref;C;@s15;15;;
%Marg;se_prod->pdescvar;N;99.99%;6;N;
