No C1 for payroll results

We are implementing a new company code and in testing the payroll results we are not getting the C1 table with the new company code. We are getting the C1 table with our existing company codes.
Any thoughts?
Thanks,
Mark

Mark,
Have you done the mapping of new company code with cost center .
- Praveen

Similar Messages

Could not read administrative data for payroll result

Hi Experts,
I am trying to extract data from ECC6.0 for datasource 0HR_PP_REC_51 and getting error:
"Personnel No. 00100062 : Could not read administrative data for payroll result HR_BIW_PP"
Can any body tell me the relevant solution for that.
Thanks in advance!
Sapna

Hi Sapna,
Please can you tell me how to fix this error, I have the same problem now.
Thanks in advance.

Inbound IDOC for Payroll results

Hi,
does anybody know the import IDOC for payroll results?
Anybody?
Or other method to import payroll results?
Thanks,
Juzio
Edited by: Juzio Kowlaski on Nov 16, 2010 9:43 AM

I found it.

Generate XML file for payroll result

Hi,
I tried to generate XML file for chinese payroll result by t-code: pu12, but i can not find the interface format for china payroll(here is format for other country vesion like international, france...). How can i generate xml file for chinese payroll result. DO i need to create a format type? Is there any other way? thank you in advance.

Coming back to my question is it really possible to generate bigger XML on 9i.
Sure. But not in one go.
I would use SQL/XML functions instead and paginate the result set so that each CLOB chunk doesn't exceed 4GB (or less). Each chunk could then be appended to a file using UTL_FILE.
Alternatively, as Oracle 9i supports parallel pipelined functions, you could also imagine doing the job in parallel using automatic data partitioning on an input ref cursor.
That would require some postprocessing steps to rebuild the entire file from the different chunks though.
See : Pipelined and Parallel Table Functions

Standard report for Payroll Results wth Pay Scale Groups

Dear Experts
Is there any standard report to view payroll results, Pay Scale Group wise.
In CWTR and ANN, i cdnt find Pay Scale Group of an employee.
Thanks in advance
...Sadhu

Can we enhance CWTR report ? is it possible ?
any guidance ?
Thanks in advance
...Sadhu

Report for payroll results

Hi all,
I want the report where i have the fields as employee Id, employee name, bank account number and amount transferred to the bank for a particular month.
If I try from Infoset Query, I can take the first three fields from the respective Infotypes. But I am unable to find the amount transferred to the bank (/559 Wage type value) in any infotype. Nor I am able to fill the 042 or 043 IT from report RPABRI00.
How to get the report?
Please revert
Regards
Deepti

Hi,
Check this thread .
Payroll reports.
If you want RT data,you cannot do it through Query.You can do it through customized program.
Check standard Reports as well
Eg.S_AHR_61016101 - Remuneration Statements
S_AHR_61016102 - Payroll Accounts
S_PH9_46000156 - Bank Details
S_AHR_61016170 - Payments and Deductions
You cand this reports in Info system under your country payroll.
Manoj.

Extractor for payroll reads data from cluster PCL2?

Hello all,
This is the line from help.sap in payroll extractor.
"The extractor for payroll results reads data from payroll cluster PCL2, not from standard tables."
Can someone explain to me what do we have to understand from that, and where in R/3 do we have to go and check for data.
Thanks in advance.

Anytime some of last information does not upload in delta to BW from payroll because payroll has a process to close it had to be executed (or something like that (sorry, i haven't enough funcional HR knoledge), it happened to me anytime).
But, surely the user that you are using for extraction has no enought rights or authorizations.
Look at these notes
397208 **** very important!!!
672514
964569
329961
585682

Urgent :Posting Payroll results from Legacy system to FI/co

Hi Experts,
A client requirment is such that they have to post payroll results to FI/Co
They are not using SAP HR- Payroll module . They use their own payroll
processing system .
Please tell what would be the best way of doing so
Help is urgently required
Nidhi

hai nidhi,
Inform ABAP team to develop the programme for payroll results,and post the entry to FI through T.code F-02.
govind.

Function module for reading payroll results

HI,
I need a function module for reading payroll results RT table.
Import parameters are personal number, payroll area, and payroll period.
Export should be RT table.
Regards,
Wasim Ahmed

Hai Wasim
Check the following Code
data: payroll_cluster like t500l-relid.
 call function 'PYXX_READ_PAYROLL_RESULT'
 exporting
 clusterid = payroll_cluster
 employeenumber = pernr-pernr
 sequencenumber = payroll-evp-seqnr
 READ_ONLY_BUFFER = ' '
 READ_ONLY_INTERNATIONAL = ' '
 CHECK_READ_AUTHORITY = 'X'
 IMPORTING
 VERSION_NUMBER_PAYVN =
 VERSION_NUMBER_PCL2 =
 changing
 payroll_result = payroll_us
 exceptions
 illegal_isocode_or_clusterid = 1
 error_generating_import = 2
 import_mismatch_error = 3
 subpool_dir_full = 4
 no_read_authority = 5
 no_record_found = 6
 versions_do_not_match = 7
 others = 8
 if sy-subrc <> 0.
 if sy-subrc <> 0.
 write: / 'Fehler beim Laden des US Abrechnungsergebnisses'(003).
 write: /'zu Personalnummer'(008), pernr-pernr,
 'bei Sequence-Number'(012),
 payroll-evp-seqnr.
 write: / 'Fehlercode ='(004), sy-subrc.
 endif.
 endif.
Thanks & regards
Sreenivasulu P

Reading payroll results for an employee from ABAP-HR?

Hi,
 I dont know whether i must post this question in this category ? but i had a problem in reading of the payroll data for employees.
 I used the function of PYXX_READ_PAYROLL_RESULT and passed the PERNR(employee number), SEQNR, RELID(clusterid) for a given period of say PN-BEGDA AND PN-ENDDA. And i took the payroll structure of germany (its PAYDE_RESULT). program is showing the exceptions since between the selected periods i had many different country employees other than germany DE. how can i solve that problem ? if i use PAY99_RESULT then i cant read the National wage types? how to solve this problem?
 which function i must use so that i must get all the payroll data of the employees between the given period with inter/national payroll details and also which structure(like PAYDE_RESULT) i must use for holding the payroll data that is unique?
 please help me.
 ***Ratings are must for a possible answer.

Hi KK,
In this sample code...you will find the use of the method i meantioned.
REPORT zgratuity_ipcl MESSAGE-ID zh.
TABLES : pernr , pa0001, pa0008 , pa0000 , t569v.
TYPE-POOLS: slis.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
INFOTYPES: 0008 ,0001,0002,0000.
DATA : period(6),
 pay_period(6),
 c_period(6).
DATA: number LIKE pc261-seqnr.
DATA : refdt LIKE p0000-begda.
DATA: ason_yr LIKE p0347-scryy,
 ason_mon LIKE p0347-scrmm.
DATA : BEGIN OF it_0000 OCCURS 100,
 pernr LIKE pa0000-pernr,
 stat2 LIKE pa0000-stat2,
 massn LIKE pa0000-massn,
 begda LIKE pa0000-begda,
 endda LIKE pa0000-endda,
 END OF it_0000.
DATA : g_molga LIKE t512t-molga.
DATA: BEGIN OF package,
 lga LIKE p0008-lga01,
 bet LIKE p0008-bet01,
 END OF package.
DATA : BEGIN OF rgdir OCCURS 0.
 INCLUDE STRUCTURE pc261.
DATA : END OF rgdir.
DATA : BEGIN OF rx-key OCCURS 0.
 INCLUDE STRUCTURE pc200.
DATA : END OF rx-key.
DATA : BEGIN OF crt OCCURS 0. "result table
 INCLUDE STRUCTURE pc208.
DATA : END OF crt.
DATA : b_date LIKE sy-datum,
 e_date LIKE sy-datum.
DATA : darate LIKE t539j-gwcht.
DATA : gamt TYPE p.
DATA : BEGIN OF it_0001 OCCURS 100,
 pernr LIKE pa0000-pernr,
 ename LIKE pa0001-ename,
 bukrs LIKE pa0001-bukrs,
 persk LIKE pa0001-persk,
 persg LIKE pa0001-persg,
 werks LIKE pa0001-werks,
 END OF it_0001.
**start of mod by tejas on 31.05.06
DATA : BEGIN OF it_final_sup OCCURS 100,
 pernr LIKE pa0001-pernr, "PL No
 ename LIKE pa0001-ename, "NAME
 persg LIKE pa0001-persg, "EMP GROUP
 persk LIKE pa0001-persk, "ESG
 zzpla LIKE pa0001-zzpla, "PLANT/BUSINESS
 orgeh LIKE pa0001-orgeh, "ORG UNIT
 orgtx LIKE t527x-orgtx, "ORG UNIT TEXT
 gbdat LIKE pa0002-gbdat, "DOB
 termn LIKE pa0019-termn, "DOJ
 zzrtdt LIKE pa0002-zzrtdt,"DOR
 sepdt LIKE pa0000-begda,
 no_years TYPE i, "SERVICE YEARS
 stat2 LIKE pa0000-stat2, "STATUS
 s_text(15), "STATUS TEXT
 basic LIKE pa0008-bet01, "BASIC
 da LIKE pa0008-bet01, "DA
 total LIKE pa0008-bet01, "TOTAL
 crt LIKE pc207-betrg, "GRTUITY
 massn LIKE pa0000-massn,
 begda LIKE pa0000-begda,
 ason(6) ,
 dates LIKE pa0002-zzrtdt,
 END OF it_final_sup.
DATA : BEGIN OF it_final_nonsup OCCURS 100,
 pernr LIKE pa0001-pernr, "PL No
 ename LIKE pa0001-ename, "NAME
 persg LIKE pa0001-persg, "EMP GROUP
 persk LIKE pa0001-persk, "ESG
 zzpla LIKE pa0001-zzpla, "PLANT/BUSINESS
 orgeh LIKE pa0001-orgeh, "ORG UNIT
 orgtx LIKE t527x-orgtx, "ORG UNIT TEXT
 gbdat LIKE pa0002-gbdat, "DOB
 termn LIKE pa0019-termn, "DOJ
 zzrtdt LIKE pa0002-zzrtdt,"DOR
 sepdt LIKE pa0000-begda,
 no_years TYPE i, "SERVICE YEARS
 stat2 LIKE pa0000-stat2, "STATUS
 s_text(15), "STATUS TEXT
 basic LIKE pa0008-bet01, "BASIC
 da LIKE pa0008-bet01, "DA
 total LIKE pa0008-bet01, "TOTAL
 crt LIKE pc207-betrg, "GRTUITY
 massn LIKE pa0000-massn,
 begda LIKE pa0000-begda,
 ason(6) ,
 dates LIKE pa0002-zzrtdt,
 END OF it_final_nonsup.
DATA : BEGIN OF it_final OCCURS 100,
 pernr LIKE pa0001-pernr, "PL No
 ename LIKE pa0001-ename, "NAME
 persg LIKE pa0001-persg, "EMP GROUP
 persk LIKE pa0001-persk, "ESG
 zzpla LIKE pa0001-zzpla, "PLANT/BUSINESS
 orgeh LIKE pa0001-orgeh, "ORG UNIT
 orgtx LIKE t527x-orgtx, "ORG UNIT TEXT
 gbdat LIKE pa0002-gbdat, "DOB
 termn LIKE pa0019-termn, "DOJ
 zzrtdt LIKE pa0002-zzrtdt,"DOR
 sepdt LIKE pa0000-begda,
 no_years TYPE i, "SERVICE YEARS
 stat2 LIKE pa0000-stat2, "STATUS
 s_text(15), "STATUS TEXT
 basic LIKE pa0008-bet01, "BASIC
 da LIKE pa0008-bet01, "DA
 total LIKE pa0008-bet01, "TOTAL
 crt LIKE pc207-betrg, "GRTUITY
 massn LIKE pa0000-massn,
 begda LIKE pa0000-begda,
 ason(6) ,
 dates LIKE pa0002-zzrtdt,
 END OF it_final.
**end of mod by tejas on 31.05.06
DATA : f_pabrj LIKE t549s-pabrj,
 f_pabrp LIKE t549s-pabrp.
DECLARATIONS FOR ALV DISPLAY
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
 gs_layout TYPE slis_layout_alv ,
 gs_print TYPE slis_print_alv,
 gt_filter TYPE slis_t_filter_alv,
 gt_sp_group TYPE slis_t_sp_group_alv,
 gt_alv_graphics TYPE dtc_t_tc,
 gt_excluding TYPE slis_t_extab ,
 gt_events TYPE slis_t_event,
 gt_print TYPE slis_print_alv.
DATA: gt_list_top_of_page TYPE slis_t_listheader.
DATA: g_boxnam TYPE slis_fieldname VALUE 'BOX',
 p_f2code LIKE sy-ucomm VALUE '&ETA',
 p_lignam TYPE slis_fieldname VALUE 'LIGHTS',
 g_save(1) TYPE c VALUE 'X',
 g_default(1) TYPE c VALUE 'X',
 g_exit(1) TYPE c,
 gx_variant LIKE disvariant,
 g_variant LIKE disvariant,
 g_repid LIKE sy-repid.
DATA : result TYPE pay99_result.
DATA : crt_header TYPE LINE OF hrpay99_crt.
INITIALIZATION.
SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
SELECT-OPTIONS : sstat2 FOR pa0000-stat2.
SELECTION-SCREEN: END OF BLOCK b2.
*SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECTION-SCREEN : SKIP.
*PARAMETERS : P_STAT2 LIKE PA0000-STAT2.
*SELECTION-SCREEN : SKIP.
*SELECTION-SCREEN : END OF BLOCK B1.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
 IF screen-name = 'PNPABKRS-LOW'.
 screen-required = 1.
 MODIFY SCREEN.
 ENDIF.
ENDLOOP.
AT SELECTION-SCREEN." on pnppabrj.
IF pnptimr9 = 'X'.
 CONCATENATE pnpdispj pnpdispp INTO period.
 CONCATENATE pnpdispp pnpdispj INTO pay_period.
ELSE.
 CONCATENATE pnppabrj pnppabrp INTO period.
 CONCATENATE pnppabrp pnppabrj INTO pay_period.
ENDIF.
IF period < '200505'.
 MESSAGE e001 WITH
 'Gratuity report is for period after month Auguest 2005' .
 STOP.
ENDIF.
SELECT SINGLE * FROM t569v
WHERE abkrs = pnpxabkr.
CONCATENATE t569v-pabrj t569v-pabrp INTO c_period.
IF period > c_period.
 MESSAGE e001 WITH 'Payroll for this period is not yet processed' .
 STOP.
ENDIF.
CONCATENATE pnppabrj pnppabrp INTO period.
CONCATENATE pnppabrp pnppabrj INTO pay_period.
IF period =< '200505'.
 MESSAGE e001 WITH 'Program is not valid for this period' pnppabrj
*pnppabrp.
ENDIF.
START-OF-SELECTION.
GET pernr.
PERFORM fill_data.
END-OF-SELECTION.
PERFORM final_data.
PERFORM display_data.
*& Form FILL_DATA
 text
--> p1 text
<-- p2 text
FORM fill_data.
SORT p0000 BY pernr.
SORT p0001 BY pernr.
SORT p0002 BY pernr.
SORT p0008 BY pernr.
start mod made by kinjal for payroll dates
IF pnptimr9 = 'X'.
 CALL FUNCTION 'HR_GB_PERIOD_DATES'
 EXPORTING
 abkrs = pnpxabkr
 PERMO =
 pabrj = pnpdispj
 pabrp = pnpdispp
 IMPORTING
 begda = b_date
 endda = e_date .
 EXCEPTIONS
 PERIOD_NOT_FOUND = 1
 OTHERS = 2
ELSE.
 CALL FUNCTION 'HR_GB_PERIOD_DATES'
 EXPORTING
 abkrs = pnpxabkr
 PERMO =
 pabrj = pnppabrj
 pabrp = pnppabrp
 IMPORTING
 begda = b_date
 endda = e_date
 EXCEPTIONS
 PERIOD_NOT_FOUND = 1
 OTHERS = 2
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
CONCATENATE pnppabrj pnppabrp '01' INTO b_date.
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
 EXPORTING
 iv_date = b_date
 IMPORTING
 EV_MONTH_BEGIN_DATE =
 ev_month_end_date = e_date.
end of modification
*DATA FETCHING FOR SUPERVISOR EMPLOYEES
LOOP AT p0001 WHERE begda <= e_date AND
 endda >= e_date AND
 persg = 'R' OR
 persg = 'P'
 AND
 ( persk >= '11' AND
 persk <= '17'
 OR
 ( persk >= 'IA' AND
 persk <= 'IJ'
 MOVE-CORRESPONDING p0001 TO it_final_sup.
 READ TABLE p0002 WITH KEY pernr = p0001-pernr BINARY SEARCH.
 IF sy-subrc = 0.
 MOVE-CORRESPONDING p0002 TO it_final_sup.
 ENDIF.
LOOP AT p0000 WHERE pernr = p0001-pernr AND begda <= e_date AND endda
 >= e_date AND stat2 IN sstat2.
 SELECT SINGLE orgtx INTO it_final_sup-orgtx FROM t527x
 WHERE sprsl = 'EN'
 AND orgeh = p0001-orgeh.
 SELECT SINGLE text1 INTO it_final_sup-s_text FROM t529u
 WHERE sprsl = 'EN'
 AND statn = '2'
 AND statv = p0000-stat2.
 MOVE-CORRESPONDING p0000 TO it_final_sup.
 IF p0000-massn = 'A6'.
 MOVE p0000-begda TO it_final_sup-zzrtdt.
 ELSE.
 it_final_sup-zzrtdt = ' '.
 ENDIF.
 ENDLOOP.
 IF sy-subrc <> 0.
 CONTINUE.
 ENDIF.
 SELECT SINGLE termn INTO it_final_sup-termn FROM pa0019
 WHERE pernr = p0001-pernr
 AND tmart = '06'.
 IF sy-subrc = 0.
 CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'
 EXPORTING
 date1 = sy-datum
 date2 = it_final_sup-termn
 output_format = '05'
 IMPORTING
 years = ason_yr
 months = ason_mon
 DAYS =
 EXCEPTIONS
 invalid_dates_specified = 1
 OTHERS = 2
 IF ason_mon > 6.
 ason_yr = ason_yr + 1.
 ENDIF.
 MOVE ason_yr TO it_final_sup-no_years.
 ENDIF.
 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 p0008 WHERE begda <= e_date AND endda >= e_date AND pernr =
 p0001-pernr.
 DO 20 TIMES VARYING package-lga FROM p0008-lga01 NEXT p0008-lga02
 VARYING package-bet FROM p0008-bet01 NEXT p0008-bet02.
 CASE package-lga.
 WHEN '0010'.
 it_final_sup-basic = package-bet + it_final_sup-basic.
 WHEN '0I10'.
 it_final_sup-da = package-bet + it_final_sup-da.
 ENDCASE.
 ENDDO.
 it_final_sup-total = it_final_sup-basic + it_final_sup-da.
 ENDLOOP.
 BREAK-POINT.
start mod made by kinjal
 it_final_sup-zzrtdt = it_final_sup-zzrtdt - 1.
 CALL FUNCTION 'HR_PAYROLL_PERIODS_GET'
 EXPORTING
 get_begda = it_final_sup-zzrtdt
 GET_ENDDA =
 get_permo = '67'
 IMPORTING
 get_pabrj = f_pabrj
 get_pabrp = f_pabrp
 TABLES
 GET_PERIODS =
 EXCEPTIONS
 no_period_found = 1
 no_valid_permo = 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.
 ENDIF.
 IF it_final_sup-stat2 <> '3'.
 CONCATENATE it_final-dates+4(2) INTO period.
 CONCATENATE f_pabrj f_pabrp INTO period.
 it_final_sup-ason = period.
 ENDIF.
end of mod
 rx-key-pernr = p0001-pernr.
 CALL FUNCTION 'CU_READ_RGDIR'
 EXPORTING
 persnr = p0001-pernr
 IMPORTING
 molga = g_molga
 TABLES
 in_rgdir = rgdir
 EXCEPTIONS
 no_record_found = 1
 OTHERS = 2.
 LOOP AT rgdir WHERE fpper = period AND inper = period.
 ENDLOOP.
With this Seq. number as a key for cluster Key
we can read the RT table from the cluster/..
IF 2
 IF sy-subrc EQ 0.
 rx-key-seqno = rgdir-seqnr.
 IMPORT crt FROM DATABASE pcl2(in) ID rx-key.
 IF NOT crt[] IS INITIAL.
 PERFORM resultstab.
 ENDIF.
 APPEND it_final_sup.
 CLEAR it_final_sup.
 ENDIF.
LOOP AT rgdir WHERE
 inper = period AND
 srtza = 'A'.
 rx-key-seqno = rgdir-seqnr.
 number = rgdir-seqnr.
 CLEAR rt.
 REFRESH rt.
Importing Result table cluster
 IMPORT rt FROM DATABASE pcl2(in) ID rx-key.
 IF NOT rt[] IS INITIAL.
 PERFORM resultstab.
 ENDIF.
ENDLOOP.
 APPEND it_final.
 CLEAR IT_FINAL.
ENDLOOP.
RP-PROVIDE-FROM-LAST P0008 SPACE B_DATE E_DATE.
BREAK-POINT.
 DO 10 TIMES varying PACKAGE-LGA from p0008-lga01 next p0008-lga02
 varying package-bet from p0008-bet01 next p0008-bet02.
 compute itab-gross = itab-gross + package-bet.
 IF sy-index = 10.
 itab-pernr = p0008-pernr.
 append itab.
 endif.
 enddo.
*DATA FETCHING FOR NON SUPERVISOR EMPLOYEES
LOOP AT p0001 WHERE begda <= e_date AND
 endda >= e_date AND
 persg = 'R' OR
 persg = 'P'
 AND
 persk >= 'IL' AND
 persk <= 'IV'
 MOVE-CORRESPONDING p0001 TO it_final_nonsup.
 READ TABLE p0002 WITH KEY pernr = p0001-pernr BINARY SEARCH.
 IF sy-subrc = 0.
 MOVE-CORRESPONDING p0002 TO it_final_nonsup.
 ENDIF.
LOOP AT p0000 WHERE pernr = p0001-pernr AND begda <= e_date AND endda
 >= e_date AND stat2 IN sstat2.
 SELECT SINGLE orgtx INTO it_final_nonsup-orgtx FROM t527x
 WHERE sprsl = 'EN'
 AND orgeh = p0001-orgeh.
 SELECT SINGLE text1 INTO it_final_nonsup-s_text FROM t529u
 WHERE sprsl = 'EN'
 AND statn = '2'
 AND statv = p0000-stat2.
 MOVE-CORRESPONDING p0000 TO it_final_nonsup.
 IF p0000-massn = 'A6'.
 MOVE p0000-begda TO it_final_nonsup-sepdt.
 MOVE p0000-begda TO refdt.
 ELSE.
 MOVE it_final_nonsup-zzrtdt TO refdt.
 MOVE e_date TO refdt.
 ENDIF.
 ENDLOOP.
 IF sy-subrc <> 0.
 CONTINUE.
 ENDIF.
 SELECT SINGLE termn INTO it_final_nonsup-termn FROM pa0019
 WHERE pernr = p0001-pernr
 AND tmart = '06'.
 IF sy-subrc = 0.
 CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'
 EXPORTING
 date1 = refdt
 date2 = it_final_nonsup-termn
 output_format = '05'
 IMPORTING
 years = ason_yr
 months = ason_mon
 DAYS =
 EXCEPTIONS
 invalid_dates_specified = 1
 OTHERS = 2
 IF ason_mon > 6.
 ason_yr = ason_yr + 1.
 ENDIF.
 MOVE ason_yr TO it_final_nonsup-no_years.
 ENDIF.
 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 p0008 WHERE begda <= refdt AND endda >= refdt AND
 LOOP AT p0008 WHERE begda <= e_date AND endda >= e_date AND
 pernr = p0001-pernr.
 DO 20 TIMES VARYING package-lga FROM p0008-lga01 NEXT p0008-lga02
 VARYING package-bet FROM p0008-bet01 NEXT p0008-bet02.
 CASE package-lga.
 WHEN '0010'.
 it_final_nonsup-basic = package-bet.
 ENDCASE.
 ENDDO.
 ENDLOOP.
 IF it_final_nonsup-massn = 'A6'.
 SELECT SINGLE gwcht FROM t539j
 INTO darate
 WHERE molga = '40'
 AND bwlga = '0I10'
 AND begda <= it_final_nonsup-begda
 AND endda >= it_final_nonsup-begda.
 ELSE.
 SELECT SINGLE gwcht FROM t539j
 INTO darate
 WHERE molga = '40'
 AND bwlga = '0I10'
 AND begda <= e_date
 AND endda >= e_date.
 ENDIF.
 it_final_nonsup-da = ( it_final_nonsup-basic * darate ) / 100.
 it_final_nonsup-total = it_final_nonsup-basic + it_final_nonsup-da.
 gamt = 0.
 gamt = ( it_final_nonsup-total * 15 * it_final_nonsup-no_years )
 / 26.
 IF gamt >= 350000.
 gamt = 350000.
 ENDIF.
 MOVE gamt TO it_final_nonsup-crt.
 CLEAR gamt.
 CLEAR refdt.
 APPEND it_final_nonsup.
 CLEAR it_final_nonsup.
LOOP AT rgdir WHERE
 inper = period AND
 srtza = 'A'.
 rx-key-seqno = rgdir-seqnr.
 number = rgdir-seqnr.
 CLEAR rt.
 REFRESH rt.
Importing Result table cluster
 IMPORT rt FROM DATABASE pcl2(in) ID rx-key.
 IF NOT rt[] IS INITIAL.
 PERFORM resultstab.
 ENDIF.
ENDLOOP.
 APPEND it_final.
 CLEAR IT_FINAL.
ENDLOOP.
ENDFORM. " FILL_DATA
" GET_GRATUITY
*& Form RESULTSTAB
 text
--> p1 text
<-- p2 text
FORM resultstab.
LOOP AT crt WHERE lgart = '9GRA' AND cumty = 'U'.
 it_final_sup-crt = abs( crt-betrg ).
ENDLOOP.
ENDFORM. " RESULTSTAB
*& Form DISPLAY_DATA
 text
--> p1 text
<-- p2 text
FORM display_data.
IF it_final[] IS INITIAL.
 MESSAGE i001 WITH 'No data found'.
 STOP.
ENDIF.
g_repid = sy-repid.
PERFORM e01_fieldcat_init USING gt_fieldcat[].
PERFORM eventtab_build CHANGING gt_events.
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM display_report.
ENDFORM. " DISPLAY_DATA
*& Form E01_FIELDCAT_INIT
 text
 -->P_GT_FIELDCAT[] text
FORM e01_fieldcat_init USING e01_lt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
gs_layout-group_change_edit = 'X'.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PERNR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Pers No'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ENAME'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Name'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PERSK'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'ESG Cd'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ZZPLA'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Plant/Business'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ORGTX'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Org.Unit'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'GBDAT'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Dt.Of Birth'.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'TERMN'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Dt.Of Joining'.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ZZRTDT'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Superannuation Dt'.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'SEPDT'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Dt.Of Seperation'.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'NO_YEARS'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Service Years'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'S_TEXT'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Status'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'BASIC'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Basic'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'DA'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'DA'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'TOTAL'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Total'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'CRT'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-seltext_l = 'Gratuity'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
ENDFORM. " E01_FIELDCAT_INIT
*& Form EVENTTAB_BUILD
 text
 <--P_GT_EVENTS text
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = lt_events.
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
 MOVE gc_formname_top_of_page TO ls_event-form.
 APPEND ls_event TO lt_events.
ENDIF.
ENDFORM. " EVENTTAB_BUILD
*& Form E04_COMMENT_BUILD
 text
 -->P_GT_LIST_TOP_OF_PAGE[] text
FORM e04_comment_build USING e04_lt_top_of_page TYPE slis_t_listheader
DATA: ls_line TYPE slis_listheader.
DATA : v_text(100) TYPE c,
 v_text1(100) TYPE c,
 date1(10),
 date2(10).
 v_pernrlines TYPE i,
 v_pernrchar(5).
DESCRIBE TABLE it_pernr LINES v_pernrlines.
MOVE v_pernrlines TO v_pernrchar.
CONCATENATE b_date6(2) '.' b_date4(2) '.' b_date+0(4) INTO date1.
CONCATENATE e_date6(2) '.' e_date4(2) '.' e_date+0(4) INTO date2.
CONCATENATE 'Gratuity Information for ' date1 'to' date2
INTO v_text SEPARATED BY space.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = v_text.
APPEND ls_line TO e04_lt_top_of_page.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = v_text1.
APPEND ls_line TO e04_lt_top_of_page.
ENDFORM. " E04_COMMENT_BUILD
*& Form DISPLAY_REPORT
 text
--> p1 text
<-- p2 text
FORM display_report.
gs_layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_background_id = 'ALV_BACKGROUND'
 i_callback_program = g_repid
 i_callback_user_command = 'USER_COMMAND'
 i_structure_name = 'IT_FINAL'
 is_layout = gs_layout
 it_fieldcat = gt_fieldcat
 it_special_groups = gt_sp_group[]
 it_sort = gt_sort[]
 it_filter = gt_filter[]
 i_save = g_save
 is_variant = g_variant
 it_events = gt_events
 is_print = gs_print
 it_alv_graphics = gt_alv_graphics[]
 it_excluding = gt_excluding
 TABLES
 t_outtab = it_final.
ENDFORM. " DISPLAY_REPORT
 FORM top_of_page *
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 i_logo = 'ENJOYSAP_LOGO'
 it_list_commentary = gt_list_top_of_page.
ENDFORM . "TOP_OF_PAGE
FORM user_command USING g_ucomm TYPE sy-ucomm
 g_field TYPE slis_selfield.
CASE g_ucomm.
 WHEN '&IC1'.
ENDCASE.
ENDFORM. "USER_COMMAND
*& Form FINAL_DATA
 text
--> p1 text
<-- p2 text
FORM final_data.
LOOP AT it_final_sup.
 MOVE-CORRESPONDING it_final_sup TO it_final.
 APPEND it_final.
 CLEAR it_final.
ENDLOOP.
LOOP AT it_final_nonsup.
 MOVE-CORRESPONDING it_final_nonsup TO it_final.
 APPEND it_final.
 CLEAR it_final.
ENDLOOP.
SORT it_final BY pernr.
ENDFORM. " FINAL_DATA
Reward if useful,
Regards,
Tejas

Exceptions for deleting a payroll result

Hello Experts,
Is there any situation when system does not allow us to delete a payroll result????
If yes.... in what all situations will the system not allow us to delete payroll result???
All inputs are appreciated.........
Thanks,
Janga K.

Hi,
You can only delete a payroll result in the following cases:
1. The employeeu2019s master data are no longer processed.
2. Payment was not yet arranged for the employee.
3. If you are working in a live system, the payroll control record for the payroll area to which the employee belongs should not yet have the status End of payroll.
Source: help.sap.com
Donnie

Error in Payroll "No Payroll results available for 12 th period of 2005..."

Hi Experts...
When im running payroll in development server to test some issues here im getting Error showing " No payroll result available for 12 th period of 2005 for employy XXXX". In control record payroll period is 9/2006.
Where can i change the details to resolve the problem.
Thanks in advance.
Sai.

Hi ,
I have checked with Payroll status infotype.
Here the dates in that scree are
Earliest MD Change 01.04.2005
mast data change 01.04.2005
pdc recalculaton 01.04.2005
Should i need to change anything here.
Thanks in advance.
sai.

RFC for reading payroll results into Accounting

hi folks,
I have the HR payroll results forwarded to accounting. I need to display these results in the accounting system. Is there a RFC enabled function module to do that?
your help is really appreciated.
thanks
Vinu

Hi
Well theres a Fm "RFC_READ_TABLE" , if you have authorization of target system you can read PCL1,2 Tables.
Here`s the FM "BAPI_GET_PAYROLL_RESULT_LIST"
Hope thisll help you
Thanks
Message was edited by: Suleman Javed

Need Tcode for viewing payroll results

what is the Tcode to view payroll results(RT n CRT).

Report RPCEDTx0 prints out payroll results (x=country indicators).
use t-code PT66 to display the cluster details that is results table
reward

Payroll results could not be imported/Error in Finance Posting of Payroll

Hi friends,
Please help me.
I have created three wage types
2001-Basic Pay
2002-HRA
2003-Conveyance
When I generated remuneration statement all these three wage types where displayed along with EE EPF contribution and VPF contribution which I have assigned earlier in infotype.
After that for posting to FI, I created three symbolic accounts
(Basic, HRA and Conveyance together as 0001 symbolic account I(accounted posting to expense report)
Employees contribution to PF ( i.e.EE EPF contribution and EE VPF contribution) to (PFEE) symbolic account II (accounted posting to balance sheet)
Employers contribution to PF ( i.e Employer PF contribution and Employer pension contribution) to (PFER) symbolic account III (accounted posting to expense report)
After this I have grouped employees as 3 for salaried employees, after this I have assigned the same to number 3 to PPMOD under three (I am not sure this is correct, please advise)
Then with the help of an FI consultant, I assigned PFEE to balance sheet and 0001 and PFER to expense account.
Now when I activated 'Execute Run' for finance posting of payroll of a personal number an error is shown 'Errors Occured! Check Error Log' payroll results could not be imported.
I doubt I missed some steps. Please help

Dear Naveen and Stephen
This is the message which I got
Payroll results could not be imported
Message no. 3G112
Diagnosis
The payroll results for this employee could not be imported from the database.
Procedure
Check the consistency of the payroll results for this employee.
Please help
Regards
Santhosh.S

No C1 for payroll results

Similar Messages

Maybe you are looking for