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

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  
C====================================================================
D[pcod 999999] [pregms] [zpdesc] [mquant 9999] [plote]

ultpag 
ultpag *** Listados : [ztp 99999] lancamentos
