VARIAVEL Z_ZONA = 0
VARIAVEL Z_DE = CTOD("01."+RIGHT(DTOC(S_DATUAL),5))
VARIAVEL Z_ATE = S_DATUAL
VARIAVEL Z_PROD = 0
T10,20,17,70,Parametros
T2,2,Vendedor......:,2,z_zona,99
T3,2,Data Inicial..:,8,z_de,99.99.99
T4,2,Data Final....:,8,z_ate,99.99.99
T5,2,Produto.......:,4,z_prod,9999

FILTRO MFGES="S" .AND. PCOD=Z_PROD
FILTRO VAL(MVENDEDOR)=Z_ZONA .AND. MDATA>=Z_DE .AND. MDATA<=Z_ATE 

OUTROARQ SF_VEND
OUTROARQ SCCRCLI
OUTROARQ SE_PROD SEIP_C PCOD

VARIAVEL Z_TUNID = 0
VARIAVEL Z_FAT = 0

COMANDO ANTES SF_VEND->( DBGOTO( Z_ZONA ) )
COMANDO ANTES SE_PROD->( DBSEEK( Z_PROD ))

COMANDO DURANTE Z_CLI = MCODFORC
COMANDO DURANTE SCCRCLI->( DBGOTO( Z_CLI ) )
COMANDO DURANTE Z_TUNID = Z_TUNID + MQUANT
COMANDO DURANTE Z_FAT = Z_FAT + MVALOR

ULTPAG[EMPRESA]
ULTPAG[SISTEMA]
ULTPAGVendas do Produto [Z_PROD]-[SE_PROD->PDESC]
ULTPAGVendedor [z_zona 99]-[SF_vEND->NOME], De [z_de]  Ate [z_ate]
ULTPAG[repl("=",80)]
ULTPAG *** Valor Total Vendido ..........: [z_fat @E 999,999,999.99]
ULTPAG *** Numero de Unidades Vendidas ..: [z_tunid @E 999,999,999]