INDEX SEIP_N PDESC 
OUTROARQ SE_MOV C PCOD
VARIAVEL z_de = date()
VARIAVEL z_ate = date()
VARIAVEL TOTUNI = 0
VARIAVEL TOTVAL = 0
VARIAVEL TOTfab = 0
VARIAVEL Z_TOTUNI = 0
VARIAVEL Z_TOTVAL = 0
VARIAVEL Z_TOTfab = 0
VARIAVEL TOTDSC = 0
VARIAVEL Z_TOTDSC = 0

T10,10,16,60,Parametros
T2,2,Data Inicial:,8,z_de,99.99.99
T3,2,Data Final..:,8,z_ate,99.99.99

C
C[Empresa]
CProdutos Vendidos                       Data do Relatorio: [date()]  Pag [Pag 9999]
C[repl("-",80)]
C   Cod Descricao                         Quant Pr.Unit SubTotal Vl.Desc Vl.Liqd
C[repl("-",80)]

SUBLIST SE_MOV
COMANDO ANTES DBSEEK(SE_PROD->PCOD)
REPITA ENQUANTO PCOD=SE_PROD->PCOD

FILTRO MFGES="S".and.mtipoven$"123456Z".and.fnumped<>0.and.mdata>=z_de.and.mdata<=z_ate

COMANDO ANTES TOTUNI = 0
COMANDO ANTES TOTVAL = 0
COMANDO ANTES TOTDSC = 0
COMANDO ANTES TOTfab = 0


COMANDO DURANTE TOTUNI = TOTUNI + MQUANT
COMANDO DURANTE TOTVAL = TOTVAL + MVALOR
COMANDO DURANTE TOTFAB = TOTFAB + MVALOR3
COMANDO DURANTE Z_TOTUNI = Z_TOTUNI + MQUANT
COMANDO DURANTE Z_TOTVAL = Z_TOTVAL + MVALOR
COMANDO DURANTE Z_TOTFAB = Z_TOTFAB + MVALOR3
COMANDO DURANTE TOTDSC = TOTDSC + MVALOR*MDESCONTO/100
COMANDO DURANTE Z_TOTDSC = Z_TOTDSC + MVALOR*MDESCONTO/100

*D[PCOD 99999] [SE_PROD->PDESC] [MQUANT @E 999,999]
FILTROIMP TOTUNI>0
ULTPAG[SE_PROD->PCOD] [SE_PROD->PDESC @S32][TOTUNI @E 999,999][TOTVAL/TOTUNI @E 9,999.99][TOTVAL @E 99,999.99][TOTdsc @E 9,999.99][TOTVAL-TOTdsc @E 99,999.99]
FIM SUBLIST
ULTPAG[REPL("-",80)]
ULTPAG                        TOTAL VENDIDO: [Z_TOTUNI @E 999,999]       [Z_TOTVAL @E 999,999.99][z_TOTdsc @E 9,999.99][z_TOTVAL-z_TOTdsc @E 99,999.99]
ULTPAG
