VARIAVEL LST_TP = 50
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
C[EMPRESA]
C[SISTEMA] [crh(27)+"@"]
CListagem com as Comissoes do Vendedor [z_zona 99], De [z_de]  Ate [z_ate]
C[repl("-",80)]
CCliente                                Pedido  Emissao     Valor  Comissao  
C[repl("=",80)]
*zz.zzzz xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy 999999 dd.mm.aa 99,999.99 99,999.99
D[sccrcli->cr_zona 99].[sccrcli->(recno()) 9999] [sccrcli->cr_nome @s30] [fnumped 999999] [fdataemi] [fval @E 99,999.99] [fcomissao @E 99,999.99]
ULTPAG[REPL("=",80)]
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]