Thursday, July 28, 2005

Arma inicio y fin mes anterior para cargar

* Calcula el Primer y Ultimo día del mes anterior a la fecha del sistema
WHEN 'ZMESANT'.
IF I_STEP = 0.
L_DATE = sy-datum.
L_YEAR = sy-datum(4).
L_MONTH = sy-datum+4(2).
L_MONTH = L_MONTH - 1.
IF L_MONTH < l_month =" '12'." l_year =" L_YEAR" low =" L_DATE." day_in =" L_DATE" last_day_of_month =" L_DATE" day_in_not_valid =" 1" others =" 2."> 0.
MESSAGE E002(ZENAP).
ENDIF.
L_S_RANGE-SIGN = 'I'.
L_S_RANGE-OPT = 'BT'.
L_S_RANGE-HIGH = L_DATE.
APPEND L_S_RANGE TO E_T_RANGE.
ENDIF.

0 Comments:

Post a Comment

<< Home