Hello vijay,
Our development server is up .
This is the piece of code in the BADI and the method BEFORE_OUTPUT.. Any suggestions
IF sy-tcode = 'PA40'.
CLEAR: w_innn,w_p0105,w_infty,w_pernr, w_subty.
w_innn = INNNN.
w_infty = '0105'.
w_subty2 = '0001'.
w_subty = '0003'.
IF w_innn-infty = '0105'.
w_number = w_innn-pernr.
SELECT * from pa0105 INTO table t_pa0105 WHERE pernr = w_number.
IF sy-subrc = 0.
read table t_pa0105 into wa_pa0105 index 1.
*
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = w_number
* IMPORTING
* return =
.
*
*** ***** for subtype 0105.
MOVE-CORRESPONDING WA_PA0105 TO W_P0105.
* w_p0105-pernr = w_innn-pernr.
* w_p0105-infty = w_innn-infty.
* w_p0105-infty = w_infty.
w_p0105-subty = w_subty.
* w_p0105-objps = w_innn-objps.
* w_p0105-endda = w_innn-endda.
* w_p0105-begda = w_innn-begda.
w_p0105-usrty = '0003'.
* w_p0105-usrid = w_innn-data1+4(15).
* w_pernr = w_innn-pernr.
* w_number = w_innn-pernr.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = w_infty
number = w_pernr
subtype = w_subty
* objectid =
* lockindicator =
validityend = wa_pa0105-endda
validitybegin = wa_pa0105-begda
* recordnumber =
record = w_p0105
operation = 'INS'
* tclas = 'A'
dialog_mode = '0'
nocommit = ' '
* view_identifier =
* secondary_record =
IMPORTING
return = w_return
key = w_empkey .
*
*
**** for subtype 0010.
w_infty = '0105'.
w_subty1 = '0010'.
w_usrid = w_innn-data1+4(15).
CONCATENATE w_usrid '@' 'mail.ad.ge.com' INTO w_mailid.
w_p0105-pernr = w_innn-pernr.
w_p0105-infty = w_innn-infty.
w_p0105-subty = w_subty1.
w_p0105-objps = w_innn-objps.
w_p0105-endda = w_innn-endda.
w_p0105-begda = w_innn-begda.
w_p0105-usrty = '0010'.
w_p0105-usrid_long = w_mailid.
w_p0105-usrid = w_innn-data1+4(15).
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = w_infty
number = w_pernr
subtype = w_subty1
* objectid =
* lockindicator =
* validityend =
* validitybegin =
* recordnumber =
record = w_p0105
operation = 'INS'
* tclas = 'A'
* dialog_mode = '0'
nocommit = ' '
* view_identifier =
* secondary_record =
IMPORTING
return = w_return
key = w_empkey
.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = w_number
* IMPORTING
* return =
.
*
ENDIF.
ENDIF.
ENDIF.