*——————————————————————————-
*LV_DATE_ENT : Fecha de entrada a la que le calculo los meses
*LV_MES: Cantidad de meses que le sumo a LV_DATE_ENT
*LV_DATE_SAL : Fecha que me devuelve la función
*——————————————————————————-
DATA: LV_DATE_ENT TYPE D,
LV_MES TYPE i,
LV_DATE_SAL TYPE D.
LV_DATE_ENT = sy-datum.
LV_MES = 2.
CALL FUNCTION 'HR_PSD_DATES_ADD_MONTHS'
EXPORTING
V_DATE = LV_DATE_ENT
V_MONTHS = LV_MES
IMPORTING
E_DATE = LV_DATE_SAL
EXCEPTIONS
NOT_POSITIVE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Ejemplo:
DATA: LV_DATE_ENT TYPE D,
LV_MES TYPE i,
LV_DATE_SAL TYPE D.
LV_DATE_ENT = sy-datum.
LV_MES = 10.
CALL FUNCTION 'HR_PSD_DATES_ADD_MONTHS'
EXPORTING
V_DATE = LV_DATE_ENT
V_MONTHS = LV_MES
IMPORTING
E_DATE = LV_DATE_SAL
EXCEPTIONS
NOT_POSITIVE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
No hay comentarios:
Publicar un comentario