Loop at it_pa2003 into wa_pa2003." where pernr = wa_pa2001-pernr.
move-corresponding wa_pa2003 to wa_p2003.
wa_final-begda = wa_p2003-begda.
wa_final-pernr = wa_p2003-pernr.
* WA_FINAL-ST = WA_PA2001-BEGDA.
* WA_FINAL-EN = WA_PA2001-ENDDA.
wa_p2003-infty = '2003'.
call function 'HR_EMPLOYEE_ENQUEUE'
exporting
number = wa_p2003-pernr
importing
return = bapireturn.
call function 'HR_INFOTYPE_OPERATION'
exporting
infty = '2003'
number = wa_p2003-pernr
subtype = wa_p2003-subty
validityend = wa_p2003-endda
validitybegin = wa_p2003-begda
record = wa_p2003
operation = 'DEL'
importing
return = bapireturn.
call function 'HR_EMPLOYEE_DEQUEUE'
exporting
number = wa_p2003-pernr
importing
return = bapireturn.
append wa_final to it_final.
clear : wa_pa2001 , wa_final, wa_pa2003, wa_p2003.
endloop.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
4 | |
3 | |
3 | |
3 | |
2 | |
2 | |
2 | |
2 | |
1 | |
1 |