Code: Alles auswählen.
IF NO_ENQUEUE IS INITIAL.
IF PSPAR-PERNR NE SPACE OR PSPAR-PERNR NE '00000000'.
PERFORM ENQUEUE_PERNR(SAPFP50G)
USING PSPAR-PERNR ' '.
Code: Alles auswählen.
CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'
EXPORTING
PERNR = NUMBER
ACTIO = OPERATION
TCLAS = TCLAS
BEGDA = VALIDITYBEGIN
ENDDA = VALIDITYEND
OBJPS = OBJECTID
SEQNR = RECORDNUMBER
SPRPS = LOCKINDICATOR
SUBTY = SUBTYPE
LUW_MODE = LUW_MODE
DIALOG_MODE = DIALOG_MODE
NO_ENQUEUE = 'X'
Code: Alles auswählen.
PERFORM ENQUEUE_PERNR(SAPFP50G)
USING PSPAR-PERNR ' '.
Code: Alles auswählen.
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = wa_data-pernr
IMPORTING
return = lv_return_struc.
Code: Alles auswählen.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = wa_data-pernr.
* IMPORTING
* RETURN =