Hierarchy
⤷ PY-ZA (Application Component) South Africa
⤷ P16C (Package) Human resources department customizing: South Africa
IMG Activity
ID | PY_ZA_ITA88_002 | BAdI: Upload data to Infotypes 14 and 15 |
Transaction Code | S_L7D_24002842 | (empty) |
Created on | 20110617 | |
Customizing Attributes | PY_ZA_ITA88_002 | BAdI: Upload data to Infotypes 14 and 15 |
Customizing Activity | PY_ZA_ITA88_002 | BAdI: Upload data to Infotypes 14 and 15 |
Document
Document Class | SIMG | Hypertext: Object Class - Class to which a document belongs. |
Document Name | HR_ZA_BADI_BDC_INFTY |
Title
BAdI: Upload Data
Use
This Business Add-In is used in the South African Reports (PY-ZA) component.
This Add-In enables you to upload ITA88 relevant data of the employee to infotypes 14 and 15.
This BAdI definition has the following implementations:
- Sample Implementation : Upload data for Infotype 14 (HR_ZA_BADI_BDC_IMP)
This implementation enables you to upload data to infotype 14.
- Sample Implementation : Upload data for Infotype 15 (HR_ZA_BADI_BDC_IMP1)
This implementation enables you to upload data to infotype 15.
You can use the method GET_BDC to upload data from these infotypes. This method has the following parameters:
- Structure of IT0011
- Name of batch input session
- Parameter FLT_VAL
Sample code:
HR_ZA_BADI_BDC_IMP
METHOD IF_EX_HR_ZA_BADI_BDC_INFTY~GET_BDC.
*********************************************************************
** Data declaration
*********************************************************************
DATA : IT_BDCDATA TYPE TABLE OF BDCDATA,
WA_BDCDATA TYPE BDCDATA,
RETURN TYPE BAPIRETURN1,
REC_KEY TYPE BAPIPAKEY.
DATA : WA_UPDATE_IT0011 TYPE UPDATE_IT0011,
S_SNAME TYPE RPTAXXXX-MAP_NAME. "BDC SESSION NAME
DATA : VAR(15) TYPE C.
CLEAR VAR.
*********************************************************************
** BDC Session Name
*********************************************************************
IF P_SNAME IS INITIAL.
S_SNAME = SY-REPID.
ELSE.
S_SNAME = P_SNAME.
ENDIF.
*********************************************************************
*Recording IT14
*********************************************************************
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
CLIENT = SY-MANDT
GROUP = S_SNAME
* HOLDDATE = HOLDDATE
KEEP = 'X'
USER = SY-UNAME
EXCEPTIONS
CLIENT_INVALID = 1
DESTINATION_INVALID = 2
GROUP_INVALID = 3
GROUP_IS_LOCKED = 4
HOLDDATE_INVALID = 5
INTERNAL_ERROR = 6
QUEUE_ERROR = 7
RUNNING = 8
SYSTEM_LOCK_ERROR = 9
USER_INVALID = 10
OTHERS = 11.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT IT_UPDATE_IT0011 INTO WA_UPDATE_IT0011.
CLEAR WA_BDCDATA.
WA_BDCDATA-PROGRAM = 'SAPMP50A'.
WA_BDCDATA-DYNPRO = '1000'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=INS'.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = 'RP50G-PERNR'.
WA_BDCDATA-FVAL = WA_UPDATE_IT0011-I_PERNR.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = 'RP50G-CHOIC'.
WA_BDCDATA-FVAL = '0014'.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
WA_BDCDATA-PROGRAM = 'MP001400'.
WA_BDCDATA-DYNPRO = '2010'.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = 'P0014-BEGDA'.
WA_BDCDATA-FVAL = WA_UPDATE_IT0011-I_SDATE.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '/00'.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = 'P0014-LGART'.
WA_BDCDATA-FVAL = WA_UPDATE_IT0011-I_LGART.
APPEND WA_BDCDATA TO IT_BDCDATA.
WRITE WA_UPDATE_IT0011-I_MODED TO VAR.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = 'Q0014-BETRG'.
WA_BDCDATA-FVAL = VAR.
APPEND WA_BDCDATA TO IT_BDCDATA.
** CLEAR WA_BDCDATA.
* wa_bdcdata-program = 'MP001400' .
* wa_bdcdata-dynpro = '2010'.
* wa_bdcdata-dynbegin = 'X'.
* APPEND wa_bdcdata TO it_bdcdata.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = 'BDC_OKCODE'.
WA_BDCDATA-FVAL = '=UPD'.
APPEND WA_BDCDATA TO IT_BDCDATA.
*********************************************************************
* BDC_INSERT
*********************************************************************
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TCODE = 'PA30'
TABLES
DYNPROTAB = IT_BDCDATA
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
PRINTING_INVALID = 5
POSTING_INVALID = 6
OTHERS = 7.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REFRESH IT_BDCDATA.
*********************************************************************
* BDC close group
*********************************************************************
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
"'Session was created successfully'.
MESSAGE S000(3W) WITH TEXT-065 .
ENDIF.
Business Attributes
ASAP Roadmap ID | 257 | Create User Exits |
Mandatory / Optional | 2 | Optional activity |
Critical / Non-Critical | 2 | Non-critical |
Country-Dependency | I | Valid for countries specified |
Customizing Attributes | Country Key | Country Name |
---|---|---|
PY_ZA_ITA88_002 | ZA | South Africa |
Maintenance Objects
Maintenance object type | E | Business Add-In - Definition |
History
Last changed by/on | SAP | 20110617 |
SAP Release Created in |