Valor TAM y Aculumado: Variables e valor para Update Rules

**************Variables*****************************************

ACUMULADO

Clear:  mes_ini, mes_fin, year_ini, year_fin, mes_year_ini, mes_year_fin.

mes_fin  =   COMM_STRUCTURE-CALMONTH+4(2).
year_fin =   COMM_STRUCTURE-CALMONTH(4).

mes_ini  =   '01'.
year_ini =   COMM_STRUCTURE-CALMONTH(4).

concatenate  year_ini mes_ini into mes_year_ini.
concatenate  year_fin mes_fin into mes_year_fin.

    SELECT SUM( /BIC/ZHIG_080 )
    FROM /BIC/AZOHIG_0100
    INTO RESULT
    WHERE COMP_CODE = COMM_STRUCTURE-COMP_CODE
    AND ( CALMONTH => mes_year_ini and CALMONTH =< mes_year_fin ).



TAM

Clear:  mes_ini, mes_fin, year_ini, year_fin, mes_year_ini, mes_year_fin.
mes_fin  =   COMM_STRUCTURE-CALMONTH+4(2).
year_fin =   COMM_STRUCTURE-CALMONTH(4).

mes_ini  =   mes_fin + 1.
year_ini =   year_fin - 1.

concatenate  year_ini mes_ini into mes_year_ini.
concatenate  year_fin mes_fin into mes_year_fin.
 if mes_fin eq 13.
 concatenate year_ini '01' into mes_year_fin.
 endif.


    SELECT SUM( /BIC/ZHIG_080 )
    FROM /BIC/AZOHIG_0100
    INTO RESULT
    WHERE COMP_CODE = COMM_STRUCTURE-COMP_CODE
    AND ( CALMONTH => mes_year_ini and CALMONTH =< mes_year_fin ).



*****************************************************************************