outroarq se_prod seip_c pcod 
 
filtro day(datatrn) > 0 
 
 
comando durante zpcod = pcod 
comando durante se_prod->(DbSeek(zpcod)) 
comando durante zpdesc = se_prod->pdesc 
 
CLancamentos de Entrada de [zde] a [zate] 
C==================================================================== 
CCodigo     RegMs   Descricao                                                Qtde  Lote    DataTrans 
C==================================================================== 
D[pcod 999999] [pregms] [zpdesc] [mquant 9999] [plote] [datatrn] 
 
ultpag 
 