INDEX SC_RESUL CT_CODIGO

VARIAVEL Z_LEN = 4
VARIAVEL Z_M1 = STRZERO( MONTH(S_DATUAL)-2 ,2)
VARIAVEL Z_M2 = STRZERO( VAL(Z_M1)+1, 2)

T4,30,20,60,Parametros
T08,2,Mes Inicial.:,2,z_m1,99
T09,2,Mes Final...:,2,z_m2,99

COMANDO ANTES Z_VAR1 = "CT_VAL"+Z_M1
COMANDO ANTES Z_VAR2 = "CT_VAL"+Z_M2

COMANDO DURANTE Z_VAL1 = &Z_VAR1
COMANDO DURANTE Z_VAL2 = &Z_VAR2
COMANDO DURANTE Z_DIF = Z_VAL2 - Z_VAL1
COMANDO DURANTE Z_SINAL = IF(Z_DIF>0,IF(CT_DC="D","+","-"),IF(CT_DC="C","+","-"))
COMANDO DURANTE Z_DIF = ABS(Z_DIF)
COMANDO DURANTE Z_CRLFa = IF( LEN(ALLTRIM(CT_CODIGO))<Z_LEN, CHR(13)+CHR(10), "")
COMANDO DURANTE Z_CRLFd = IF( LEN(ALLTRIM(CT_CODIGO))<Z_LEN, CHR(13)+CHR(10), "")

* FILTRO ABS(&Z_VAR1)+ABS(&Z_VAR2)>0

CAnalise da Variacao Patrimonial
C
C                                                 MES[Z_M1]       MES[Z_M2]         Dif
D[Z_CRLFa][CT_CODIGO] [CT_TITULO @s35] [Z_VAL1 @E 99,999,999]  [Z_VAL2 @E 99,999,999]  [Z_DIF @E 99,999,999] [z_sinal][Z_CRLFd]
