Hi there.
I am doing an enhancement in userexit PBAS0001 for CE using the enhancement framework.Whenever I am trying to change the payroll area in IT0001 by PA30 it has to give a message saying that 'all the assignments will change to new payroll areas do you want to continue?'if i say yes then the payroll areas for all the assignments should be chnaged to the current payroll area which I am trying to change.So after the pop up I am looping at all the assignments and calling the function module hr_infotype_operation.It gives an error Complex Application error.I debugged and saw that when it calls the function module the user exit gets triggered again and goes to the starting within the function call and hits the function module again and keep going like this.I checked the structure and all the parameters.looks fine below is the code where I am using the function module.I am trying to update IT0001 when somebody tries to change the IT0001(is that an issue??) i tried by submitting a program by calling the function module in the program.Didnt work too.Is there any way we can do it by BDC??
Check if the payroll areas are equal
IF ls_i0001-abkrs NE new_p0001-abkrs.
*
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'Warning'
text_question = 'Payroll Area specified is different with other assignments.Do you want to move all the other assignments to the same payroll area?'
text_button_1 = 'Yes'
icon_button_1 = ' '
text_button_2 = 'No'
icon_button_2 = ' '
default_button = '1'
start_column = 25
start_row = 6
IMPORTING
answer = lv_case
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
CASE lv_case.
WHEN '2'. "For 'NO' button
LEAVE TO SCREEN '2010'.
WHEN 'A'. "For 'CANCEL' button
LEAVE TO SCREEN '2010'.
WHEN '1'. "For 'YES' button
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'Warning'
text_question = 'System will update all other assignments to the new payroll area'
text_button_1 = 'Yes'
icon_button_1 = ' '
text_button_2 = 'No'
icon_button_2 = ' '
default_button = '1'
display_cancel_button = 'X'
start_column = 25
start_row = 6
IMPORTING
answer = lv_case1
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
CASE lv_case1.
WHEN '2'. "For 'NO' button
LEAVE TO SCREEN '2010'.
WHEN 'A'. "For 'CANCEL' button
LEAVE TO SCREEN '2010'.
WHEN '1'. "For 'YES' button
LOOP AT lt_pernr INTO ls_pernr.
CLEAR:lt_i0001,ls_i0001.
REFRESH lt_i0001.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
tclas = 'A'
pernr = ls_pernr
infty = '0001'
begda = new_p0001-begda
endda = new_p0001-endda
bypass_buffer = 'X'
IMPORTING
subrc = lv_subrc
TABLES
infty_tab = lt_i0001
EXCEPTIONS
infty_not_found = 1
OTHERS = 2.
SORT lt_i0001 BY endda DESCENDING.
READ TABLE lt_i0001 INTO ls_i0001 INDEX 1.
ls_i0001-abkrs = new_p0001-abkrs.
lv_record = ls_i0001.
Lock the employee
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = ls_i0001-pernr
IMPORTING
return = lv_return.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '0001'
number = ls_i0001-pernr
validityend = '12302006'
validitybegin = '12012006'
record = ls_i0001
operation = 'INS'
IMPORTING
return = return.
*unlock the employee
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = ls_i0001-pernr
IMPORTING
return = lv_return.
**
SUBMIT zhr_infotype_operation_py_area USING SELECTION-SCREEN '1000'
WITH p_infty = '0001'
WITH p_pernr = ls_i0001-pernr
WITH p_endda = new_p0001-endda
WITH p_begda = new_p0001-begda
WITH p_record = lv_record
WITH p_opera = 'INS'
WITH p_tclas = 'A'
AND RETURN.
ENDLOOP.
ENDCASE.
ENDCASE.
ENDIF.
Bluesky
