outroarq se_prod seip_c pcod 
 
variavel zde=date() 
variavel zate=date() 
variavel ztp = 0 
 
t10,10,14,60,Parametros 
t2,2,Data Inicial,8,zde, 
t3,2,Data Final..,8,zate, 
 
filtro pfdatache>=zde.and.pfdatache<=zate 
filtro datatrn > 0 
 
comando durante zpcod = pcod 
comando durante se_prod->(DbSeek(zpcod)) 
comando durante zpdesc = se_prod->pdesc 
comando durante ztp = ztp +1 
 
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 
ultpag *** Listados : [ztp 99999] lancamentos 
 