Code: Alles auswählen.
CALL FUNCTION 'ISU_O_BUDBILPLAN_OPEN'
EXPORTING
x_opbel = opbel
x_wmode = '2' "Ändern
x_upd_online = 'X'
x_no_dialog = 'X'
IMPORTING
y_obj = ls_budbilplan.
CALL FUNCTION 'ISU_BBP_CHANGE_CUM_AMOUNT'
EXPORTING
x_kumamount = kumbetrag_new
CHANGING
xy_obj = ls_budbilplan
xy_abanpdatum = faedat
EXCEPTIONS
no_valid_date = 1
limit_reached = 2
OTHERS = 3.
IF sy-subrc <> 0.
CALL FUNCTION 'ISU_O_BUDBILPLAN_CLOSE'
CHANGING
xy_obj = ls_budbilplan.
ENDIF.
ls_budbilplan-ieabps[] = ls_budbilplan-eabpsd[].
CALL FUNCTION 'ISU_O_BUDBILPLAN_ACTION'
EXPORTING
x_okcode = 'SAVE'
x_no_message = 'X'
CHANGING
xy_obj = ls_budbilplan
EXCEPTIONS
cancelled = 1
open_error = 2
action_not_supported = 3
OTHERS = 4.
IF sy-subrc <> 0.
ENDIF.
CALL FUNCTION 'ISU_O_BUDBILPLAN_CLOSE'
CHANGING
xy_obj = ls_budbilplan.