ALIAS SE_PROD
INDEX SEIP_N PDESC
VARIAVEL Z_NP = 0
VARIAVEL Z_DE = DATe()
VARIAVEL Z_ATE = DATE()

T10,15,15,70,Produtos com Alteracoes de Precos
T2,2,Precos Alterados a Partir da Data: ,8,z_de,99.99.99
T3,2,Precos Alterados Ate a Data......: ,8,z_ate,99.99.99

COMANDO ANTES #TEXTO_FONTE
 
   oLst:cAlias_DataCols := '_precos'
   oLst:cAliasMaster := '_precos'
   oLst:lPortrait := .t.
   
   oLst:lGeraDbTmp := .f.
   oLst:lOutputFr3 := .f.
   oLst:lOutputPdf := .t.
   
   // oLst:lOutputFr3 := .t.

   oLst:Cab1( "Produtos com Precos Alterados entre "+dtoc(z_de)+" e "+Dtoc(z_Ate) )
   oLst:Cab4( "Impressao em "+Dtoc(s_datual)+" as "+time() )
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('Codigo;pCod;N;999999;6;;')
   oLst:AddCol('Descricao;pDesc;C;@s35;35;;') 
   oLst:AddCol('DataAlter;PdataAlter;D;99.99.9999;10;;') 
   oLst:AddCol('Pr.Venda;pVluVenda;N;@e 99,999.99;9;;;Direita;NaoSome;') 
   oLst:AddCol('PrCompra;pVluVen3;N;@e 99,999.99;9;;;Direita;NaoSome;') 

   oLst:AddCol('Margem;(pvluvenda-pvluven3)/pvluvenda*100;P;@e 999.99;6;;;Direita;NaoSome;') 
   oLst:AddCol('MkupGP;(MarkupPrd(PgPreco)-1)*100;P;@e 999.99;6;;;Direita;NaoSome;') 
   oLst:AddCol('MkupCV;If(Pvluven3>0,PVLUVENDA/PVLUVEN3*100-100,0);P;@e 999.99;6;;;Direita;NaoSome;') 

   debugalert('1')

   oLst:DbEval({||++Z_NP}, {||Pdataalter>=z_de.and.Pdataalter<=z_ate} ) 

   oLst:PrtD( '_LINHA_GROSSA_' )
   oLst:PrtD( 'Produtos Listados: '+Transform(z_np,'@E 999,999') )

   debugalert('3')

#FIM_TEXTO_FONTE