CALL FUNCTION 'BKK_GET_NEXT_WORKDAY'
EXPORTING
i_date = p_fecha
i_calendar1 = 'SI'
IMPORTING
e_workday = p_vto
EXCEPTIONS
calendar_error = 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.