outroarq se_prod seip_c pcod 
outroarq sngpc_sa
 
variavel zde=date() 
variavel zate=date() 


variavel ztp = 0 
 
t8,10,14,60,Parametros 
t2,2,Data Entrada Inicial,8,zde, 
t3,2,Data Entrad Final..,8,zate, 
 
filtro pfdatache>=zde.and.pfdatache<=zate 
 
comando durante zpcod = pcod 
comando durante se_prod->(DbSeek(zpcod)) 
comando durante zpdesc = se_prod->pdesc 
comando durante ztp = ztp +1 
 
CLancamentos de Entrada e Saidas de [zde] a [zate] 
C==================================================================== 
CCodigo     RegMs   Descricao          Qtde          Lote  DtaCad.  DtaSaid.
C==================================================================== 
D[pcod 999999] [pregms] [zpdesc] [mquant 9999] [plote] [pfdatache] [sngpc_sa->mdata] 
 
ultpag 
ultpag *** Listados : [ztp 99999] lancamentos 
 
