INDEX SCCRNOM CR_NOME
OUTROARQ SE_MOV CLI MCODFORC
VARIAVEL z_de = date()
VARIAVEL z_ate = date()
VARIAVEL TOTUNI = 0
VARIAVEL TOTVAL = 0
VARIAVEL Z_TOTUNI = 0
VARIAVEL Z_TOTVAL = 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  Vl.Total
C[repl("-",80)]

SUBLIST SE_MOV
COMANDO ANTES DBSEEK(SCCRCLI->CR_COD_CLI)
REPITA ENQUANTO MCODFORC=SCCRCLI->CR_COD_CLI

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 DURANTE TOTUNI = TOTUNI + MQUANT
COMANDO DURANTE TOTVAL = TOTVAL + MVALOR
COMANDO DURANTE Z_TOTUNI = Z_TOTUNI + MQUANT
COMANDO DURANTE Z_TOTVAL = Z_TOTVAL + MVALOR

FILTROIMP TOTUNI>0
ULTPAG[SCCRCLI->CR_COD_CLI] [SCCRCLI->CR_NOME @S40] [TOTUNI @E 999,999] [TOTVAL/TOTUNI @E 99,999.99] [TOTVAL @E 99,999.99]
FIM SUBLIST
ULTPAG[REPL("-",80)]
ULTPAG                                 TOTAL VENDIDO: [Z_TOTUNI @E 999,999]          [Z_TOTVAL @E 999,999.99] 
ULTPAG
