2012 Dec 03 9:30 AM
Hi expert,
I try to use with the function HR_INFOTYPE_OPERATION
according to example:
FORM INSERT_0037.
DATA: WA_RETURN TYPE BAPIRETURN1.
DATA: LV_RECORD TYPE P0037.
CLEAR: WA_RETURN, LV_RECORD.
* *1. Lock employee
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
NUMBER = <FS_PA0037>-PERNR
IMPORTING
RETURN = WA_RETURN.
IF WA_RETURN-TYPE NE 'E'.
*2. create to infotype 0037
MOVE-CORRESPONDING <FS_PA0037> TO LV_RECORD .
LV_RECORD-INFTY = '0037'.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
INFTY = '0037'
NUMBER = <FS_PA0037>-PERNR
SUBTYPE = <FS_PA0037>-SUBTY
VALIDITYEND = <FS_PA0037>-ENDDA
VALIDITYBEGIN = <FS_PA0037>-BEGDA
RECORD = LV_RECORD
OPERATION = 'INS'
DIALOG_MODE = '0'
IMPORTING
RETURN = WA_RETURN.
IF WA_RETURN-TYPE NE 'E'.
COUNT_PA0037 = COUNT_PA0037 + 1.
ENDIF.
*3. Unlock employee
CLEAR WA_RETURN.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
NUMBER = <FS_PA0037>-PERNR
IMPORTING
RETURN = WA_RETURN.
CALL FUNCTION 'HR_PSBUFFER_INITIALIZE'.
ENDIF.
ENDFORM. " INSERT_0037
the wa_return is return "000"
but Some data record LV_RECORD are not saved
2012 Dec 04 4:47 AM
Hi Ami,
In the function module,
pass the value,
OPERATION = 'INSERT'
Thanks,
Anoop S
2012 Dec 04 4:47 AM
Hi Ami,
In the function module,
pass the value,
OPERATION = 'INSERT'
Thanks,
Anoop S