Code: Alles auswählen.
MOVE-CORRESPONDING as_9005 TO ls_9005.
ls_9005-endda = sy-datum.
MODIFY pa9005 FROM ls_9005.
Code: Alles auswählen.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '9005'
number = as_9005-pernr
subtype = as_9005-subty
validitybegin = as_9005-begda
validityend = as_9005-endda
record = ls_9005
operation = 'LIS9'
IMPORTING
return = ls_return.
Code: Alles auswählen.
call function 'HR_INFOTYPE_OPERATION'
exporting
infty = '9005'
number = as_9005-pernr
subtype = as_9005-subty
validitybegin = as_9005-begda
validityend = as_9005-endda
record = as_9005
operation = 'DEL'
importing
return = ls_return.
if ls_return-type <> ' '.
raise ex_error.
endif.
move-corresponding as_9005 to ls_9005.
ls_9005-endda = sy-datum.
call function 'HR_INFOTYPE_OPERATION'
exporting
infty = '9005'
number = as_9005-pernr
subtype = as_9005-subty
validitybegin = as_9005-begda
validityend = as_9005-endda
record = ls_9005
* recordnumber = '001'
operation = 'INS'
importing
return = ls_return.