VARIAVEL Z_AAMM = "" 
VARIAVEL Z_FAT  = ""

*COMANDO ANTES DBGOTO(Z_NUMCXA)

VARIAVEL Z_DE = DATAOPEN
VARIAVEL Z_ATE = DATAFECH
VARIAVEL Z_hini = HORAOPEN
VARIAVEL z_hfim = HORAFECH

FILTRO (DATAOPEN=Z_DE).AND.(DATAFECH=Z_ATE)

COMANDO DEPOIS Z_AAMM = RIght( str(year(DATAOPEN),4), 2) + strzero( month(DATAOPEN) ,2)
COMANDO DEPOIS Z_FAT  = "FAT"+Z_AAMM

ARQUIVO (Z_FAT)

FILTRO (FDATAEMI>=Z_DE).AND.(FDATAEMI<=Z_ATE).AND.(FHORA>=Z_HINI).AND.(FHORA<=Z_HFIM)

VARIAVEL ZT1 = 0
VARIAVEL ZT2 = 0
VARIAVEL ZT3 = 0
VARIAVEL Z_CLI  = 0

OUTROARQ SCCRCLI

COMANDO DURANTE Z_CLI = FCLI
COMANDO DURANTE SCCRCLI->(DBGOTO(Z_CLI))

COMANDO DURANTE ZT1 = ZT1 + IF(SCCRCLI->CR_TIP_CLI = "1", FVAL,0)
COMANDO DURANTE ZT2 = ZT2 + IF(SCCRCLI->CR_TIP_CLI = "2", FVAL,0)
COMANDO DURANTE ZT3 = ZT1 + ZT2

ULTPAG  
ULTPAG  *** Evolucao das Vendas em Convenio  ***
ULTPAG    
ULTPAG
ULTPAG    Vendas em Crediario...:[ZT1 999999.99]
ULTPAG    Vendas em Convenio....:[ZT2 999999.99]
ULTPAG
ULTPAG    Total.................:[ZT3 999999.99]
ULTPAG
ULTPAG
