VARIAVEL Z_ZONA = 0
VARIAVEL Z_DE = CTOD("01."+RIGHT(DTOC(S_DATUAL),5))
VARIAVEL Z_ATE = S_DATUAL
T10,20,17,70,Parametros
T2,2,Numero da Zona:,2,z_zona,99
T3,2,Data Inicial..:,8,z_de,99.99.99
T4,2,Data Final....:,8,z_ate,99.99.99

FILTRO FVENDEDOR=Z_ZONA .AND. FDATAEMI>=Z_DE .AND. FDATAEMI<=Z_ATE

OUTROARQ SCCRCLI

VARIAVEL Z_TOT = 0
VARIAVEL Z_FAT = 0
COMANDO DURANTE Z_CLI = FCLI
COMANDO DURANTE SCCRCLI->( DBGOTO( Z_CLI ) )
COMANDO DURANTE Z_TOT = Z_TOT + FCOMISSAO
COMANDO DURANTE Z_FAT = Z_FAT + FVAL
ULTPAG[EMPRESA]
ULTPAG[SISTEMA]
ULTPAGTotal das Comissoes do Vendedor [z_zona 99], De [z_de]  Ate [z_ate]
ULTPAG[repl("-",80)]
ULTPAG
ULTPAG *** Valor Total das Vendas do Vendedor [z_zona 99] : [z_fat @E 999,999,999.99]
ULTPAG *** Total das Comissoes do Vendedor .. [z_zona 99] : [z_tot @E 999,999,999.99]