Payroll status

Dear SAP Guru's,
I have not processed the salary of Marchu20192011 in respect of Mr XYZ ( XXXXXXX) and his payroll status was locked in the month of Marchu20192011.
When I have process his salary of Juneu20192011, it is not generated.
Please Suggest what step i have to follow.
regards
Onkar

Hello
Regarding your query, if there is no payroll run for March in March,
and a cross financial year retro is trigerred, the payroll processing
is stopped with the error message that you have got.This is the expected
behaviour.
          However, there are two exceptions to this behaviour:
1. For terminated employees
2. For employees joining in march
           Also, note that the constant CYFRM is only concerned with the
exception case 2, mentioned above.
           Pl. refer to the note 542629 which explains the behaviour and
exceptions, in detail.
As per SAP Note 542629, it is mandatory that 12 in 12 results exist for
the financial year for successful subsequent cross financial payroll
runs. These payroll runs would be regular payroll runs only. Thus SAP
does recommend the payments through regular payroll runs for cross
financial year retros.
The only possible solution to your problem is 'regular on demand'
payroll .
You can have a look at notes: 374197, 557473, 526765 & 611461.
Thanks and Kind Regards
Ramana

Similar Messages

Off cycle payroll status/control record

Hi,
Is there anyway we can track for which employees off cycle payroll is in process? like the regular payroll run, will the employee be locked during off cycle payroll run? if not locked, editing their personal information (personal data, bank, address etc.,) will cause trouble?
This question is on the technical front. Appreciate your inputs.
Thanks

Hi Karthik,
There will be no lock on payroll as Off cycles are performed when control record is in Exit Payroll status.
If employee data is being edited during live off cycle run, you will receive message as error that employee is locked and will not allow payroll.
In order to avaoid this situation of editing master data you can use off cycle workench transaction PUOC_10 which sets lock on employee during payroll run for off cycles resulting in no user to edit master data for employee.
Thanks,
Ameet

Payroll Status Code ?

Hi ,
Can anyone let me know what do we mean by Payroll Status Code , lenght of the field is 1.
In the program :
    IF v_back IS initial.
     MOVE '3' TO it_output-py_code.
    ELSE.                                                         MOVE '1' TO it_output-py_code
   ENDIF.
Is there any specific field or is it just a indicator for futher processing.
Thanks,
Rohit

I feel it is Payroll State code of an payroll area.
It will have four types of statuses.
1.Exit payroll
2.Release for payroll
3.Correction mode
U will find it in T569V-STATE field

Retroactive is working now without payroll status.

Hi.
Here is big problem. when I commit the payroll(2008/11), it is working retroactive with some of employee.
So while the checking the data, I found that Payroll Status is clear . that means Earl.personal retroactive date is clear, and Earliest MD change and Mast.data change,bonus are clear too.
and PDC recalculation date is 2008/12/01.
Following that, it must not do working retroactive account.
But that committed since 2008/02. it was amazing.
I don't know the reason why.
so I tested like that. Earl.pers.RA date is set by 2008/11/01.
and then execute PC00_M41_CALC_SIMU program . the result is error message was showed up like this.
"Retroactive accounting dat set by system, 2008/02/01, is before pers. EARLI"
I know that this message was result from value of payroll status that I set.
but when was set the date [2008/02/01].??
why did set there??
Please answer ..^^

u can reset it,by hold both power and home buttons till u c the apple logo,
this will reset the ipod only,
none of ur games apps music etc u installled will be lost

Payroll status field for pay

Can any body tell me what is technical name of payroll status for pay or not pay.
i would appreciate if you send me information about this field.
Thanks
Ashraf Hameed

Hi,
On Payroll status, there is a flag that says 'Pers. no locked'. If this flag is ticked, the payroll program will skip the employee from the payroll run.
Hope this helps.
-Akshay

PAYROLL STATUS INFORMATION

Hi Experts,
How can i found the STATUS of an Employee after his PAYROLL is happened?????
whether this can get stored in any of the INFOTYPE?????
Urgent Reply me...

Hi Lakshmiraj,
There is a field "Accounted To" in PA30 infotype 0003 screen. Everytime payroll is run for the employee, this field is updated by the system. From this we can come to know whether payroll has been run for a particular period not.
Regards,
Amit Mittal.

Change payroll status

I still new in sap HR and I got 4 question to ask :
1. What is Earl. pers. RA date column?
2. What Run payroll up to column?Is it same with accounted to column?
3. What is Do not account after column?
4. What situation we tick personal number locked?

> 1. What is Earl. pers. RA date column?
It is the date in the past upto which the system allows you to make Matser data changes to the employee's records.. When you run payroll, retor is run automatically up to this date.
> 2. What Run payroll up to column?Is it same
> with accounted to column?
No they aren't the same.. Run Payroll upto field is used fro terminated employees only.. ie you would like to continue them in payroll even after they let the co to settle dues etc..
> 3. What is Do not account after column?
literally, the last date upto which payroll is run for an employee
> 4. What situation we tick personal number locked?
you tick it to exclude an employee from Payroll
~Suresh
P.S. An F1 on these fields in your system will tell exactly the same...

Payroll processing for Mid month Joinees and Separated Employees

Hi Folks,
I have the following queries with regard to separation and Joining.
1.In Legacy , people who are joining after 17 of the current month is getting paid in the next month. Our Payroll Period is from 1 to 31st . Is it possible to stop Payment for people who are joining after 17th of the current month and Pay them in the subsequent month.
2.In legacy usually the Settlement happens in the subsequent month of Separation. Say if a employee resigns on April, he will get his full and Final settlement in the month of May or june. For a separated employee is it possible to make payment in the subsequent months.
Rgds,
Sekar.

For point no 1, yes its possibel. and there are multiplt ways to that. like lock the employee in payroll status infotype, or write a rule where in check the DOJ of the employee, and if employee joins after 17th, reject the payroll for that employee
For point no 2, yes you can process later also, but ensure that payroll gets processes in that financial year itself.

Error in payroll Run

Hi,
We are doing a mid year golive hence results from April to August has been uploaded. while exiting the payroll of August the retoactive date has been set to 06 2007 , i.e., 01.09.2007 so that no retro active calculation happens for the pre golive periods. While rumnning the 1st payroll for the month of september in simulation I am getting the following message for all employees. If anyone has faced a similar problem please guide
RA run too early for payroll area Z1
Earliest retroactive accounting period: 2007 06
Retroactive accounting date for employee: 01.08.2007
Further details :
Control Record - Is exited for August
Current period is 05 2007 i.e,01.08.2007- 31.08.2007
Retroactive date - 06 2007i.e, 01.09.2007
Details of Payroll Status -IT0003
Accounted to -31.08.2007
Earliest MD change-01.09.2007
Mast.data chng.bonus 01.09.2007
Regards
Puneeth

The earliest retroactive accounting date should be the date of ur go-live...

Payroll Period Issue

Dear Gurus,
                    In Payrol Control Record
If i put Payroll Period 12 2009 01.03.2010 - 31.03.2010
& Earliest retro acctg period       12 2009 01.04.2009
Save then if i change Payroll Status Release Mode then
Payroll period               01 1976 01.01.1976 - 30.04.1976 is coming which is wrong.
Please Advised why is coming wrong
Regards
MHPO

Patil
Check the Period parameter and date modifier
and check the assigment of the above said parameters with the pay roll area in table V_T549A
later generate the Pay roll periods and check
there might be some in consistency while generateing the pay roll periods

Re-hiring and Payroll!

Dear all!
I have to face a problem involving all employees who have re-hiring date. I mean they separated before and then one day they joined again.
My example is:
Employee A joined on 01.02.2009. and the A separation on 25.09.2010. Then A re-hiring on 04.10.2010.
However when I running PY for current month (Oct 2010) the PY run again from the first day of him in this company. I mean from the 01.02.2009. I expect that PY will running from the 01.10.2010. How can I configure them?
At system now, PY will run again from 01.02.2009. And the Current month (Oct-2010) will be divided into 2 parts:
part 1: from the 01.10 to 03.04.2010 and part 2: from the 04.10.2010 to the end of month 31.10.2010. I don't know where to configure to PY will run so.
Please help me solve 2 points above.
Thank you very much!

Hi,
I also had same problem in the past and I did what is mentioned by Rémi. You can updated it0003 so it won't go back in the payroll. How to do this? You can do it in PA30 directly in IT0003 and change the fields Earl.pers. RA date and Earl.pers.rec.date. If you need to change any of the field that are block, once you are in PA30 click in Utilities and then on Change Payroll Status. This will allow you to change any field.
If you have more than one emloyee and want to do it all at once you can run program RPUTRBK0.
Hope it helps,
Edoardo

Issue of Stopping RPTARQPOST when Payroll is run

My Project is handling Leave Request on Portal, I know RPTARQPOST will be scheduled to be run so that Approved Leave Request can be transferred to the Infotype.
However, in my Project, when Payroll is run, there is a need to stop RPTARQPOST so that no more Leave will be pulled into Infotype in order to perform a cut-off for monthly Payroll run. But, there is 4 countries involved, every countries will have different Payroll Release and Exit date. Primarily, my design is to stop the program before Payroll Release and start the program after Payroll Exit. Unluckly, every countries' Payroll Release and Exit date is different (some are overlapped).
Facing this situation, I cannot stop the program when Payroll is Released because in other countries, there is a need to continue to run this program. However, this program is not country-specific as it runs for everybody.
So, any ideas on the solution of this situation. Thank you.

Hi Henry,
you can copy the standard workflow WS12300111 and add logic to check the payroll status and execute RPTARQPOST via workflow (in stead of job-schedule) after payroll has been completed.
To do so modify the workflow as follow:
- create loop with check at payroll status
- create waiting steep for checking payroll status, which will be executed, lets say, every hour
- now create workitem outside the loop which will start the report RPTARQPOST as batchjob. This workitem will be executed only if the payroll status has been changed (payroll run completed).
best regards
Zdzislaw

A FUNCTION MODULE FOR THE HR MODULE FOR PAYROLL OF EMPLOYEES

hi,
i want some a function module or code where i need to get the payroll details like the basic pay ,hra,special allowance,medical allowance,other allowance of an employee on the monthly basis.
the data that i have on ot os not on the basis of months it contains datd of more than one month.like the baisc pay of an employee is given on a radom day basis of more than one month.
but i need to bifercatethe data on monthly basis.
waiting for the reply.
thanks and regards

Hi,
Use the fun module
RP_FILL_WAGE_TYPE_TABLE_EXT
which willget PA0008 results.
but to get the real payroll results you have to import data from clusters by writing the program. Data will be fetch from RT and CRT internal tables based on the Wage Types
see the sample code:
report zporgr0100
 line-size 252
 line-count 60(1)
 no standard page heading
 message-id zndc.
Database Tables & Infotypes
tables: pcl1, " HR Cluster1
 pcl2, " HR Cluster1
 pa0003, " Master data - Payroll Status
 cskt, " Cost Center Texts
 t528t, " Positions Texts
 t513s, " Job Titles
 pernr, " Logical PNP
 t001p, " Personnel Subarea
 t500p, " Personnel Area
 t501, " Employee Group
 t503k, " Employee Subgroup
 csks. " Cost Center
infotypes:0000,0001.
*include rpclst00.
include rpc2rx00.
include rpc2rxx0.
include rpc2cd00.
*include rpc2ps00.
*include rpc2pt00.
*include rpcfvp00.
*include rpcfdc10.
*include rpcfdc00.
include rpppxd00.
include rpppxd10.
Declaration of Internal Tables
Internal Table for Output Data
data: begin of rep_tab occurs 0,
 kostl like pa0001-kostl, " Cost Center
 pernr like pa0001-pernr, " Personal Number
 ename like pa0001-ename, " Employee Name
 ctext like cskt-ltext, " Cost Center Text
 ptext like t528t-plstx, " Position Text
 ot1 type p decimals 2, " Jan OT Amount
 ot2 type p decimals 2, " Feb OT Amount
 ot3 type p decimals 2, " Mar OT Amount
 ot4 type p decimals 2, " Apr OT Amount
 ot5 type p decimals 2, " May OT Amount
 ot6 type p decimals 2, " Jun OT Amount
 ot7 type p decimals 2, " Jul OT Amount
 ot8 type p decimals 2, " Aug OT Amount
 ot9 type p decimals 2, " Sep OT Amount
 ot10 type p decimals 2, " Oct OT Amount
 ot11 type p decimals 2, " Nov OT Amount
 ot12 type p decimals 2, " Dec OT Amount
 ott type p decimals 2, " Total OT Amount
 end of rep_tab.
Declaration of Variables
data: v_mon(2) type n, " Month
 v_no type i, " Data Lines
 v_year(4) type c, " Year
 v_date like sy-datum, " Date
 v_date1 like sy-datum, " Date
 v_seqnr like pc261-seqnr. " Sequence No.
Declaration of Constants
data: c_type like hrp1001-otype value 'S', " Object Type
 c_kokrs like cskt-kokrs value '1000', " Controlling Area
 c_date1 like sy-datum value '18000101', " Date
 c_date2 like sy-datum value '99991231', " Date
 c_x type c value 'X', " Sign
 c_mon(2) type c value '01', " Month
 c_val1(2) type c value '31', " Date
 c_val2(2) type c value '12', " Month Type
 c_val like p0041-dar01 value '01', " Date Type
 c_lgart1 like p0008-lga01 value '0722', " Wage Type
 c_lgart2 like p0008-lga01 value '0723', " Wage Type
 c_1(2) type n value '01', " Month1
 c_2(2) type n value '02', " Month2
 c_3(2) type n value '03', " Month3
 c_4(2) type n value '04', " Month4
 c_5(2) type n value '05', " Month5
 c_6(2) type n value '06', " Month6
 c_7(2) type n value '07', " Month7
 c_8(2) type n value '08', " Month8
 c_9(2) type n value '09', " Month9
 c_10(2) type n value '10', " Month10
 c_11(2) type n value '11', " Month11
 c_12(2) type n value '12'. " Month12
Selection-screen
parameters:
p_year like pc2b0-pabrj obligatory. " Payroll Year
At selection-screen
at selection-screen.
Validate the Selection Screen fields
perform validate_screen.
Start-of-Selection
start-of-selection.
Selection of Period
perform get_period.
Get PERNR from LDB
get pernr.
Get the Master data from infotype 0001
perform get_master_data.
Top-of-page
top-of-page.
Write the Report and Column Headings
perform top_of_page.
End-of-Page
end-of-page.
write /1(252) sy-uline.
End-of-Selection
end-of-selection.
Display the Output Report.
perform display_report.
Form-Routines
*& Form validate_screen
Validation of selection Screen fields
form validate_screen.
Validation of Cost Center
clear csks.
if not pnpkostl[] is initial.
 select single kostl
 into csks-kostl
 from csks
 where kostl in pnpkostl.
 if sy-subrc <> 0.
 message e999 with 'Invalid Cost Center'(003).
 endif.
endif.
Validation of Personnel Number
clear pa0003.
if not pnppernr[] is initial.
 select pernr
 from pa0003 up to 1 rows
 into pa0003-pernr
 where pernr in pnppernr.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personal Number Entered'(002).
 endif.
endif.
Validation of Personnel Area
clear t500p.
if not pnpwerks[] is initial.
 select persa
 from t500p up to 1 rows
 into t500p-persa
 where persa in pnpwerks.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Area Entered'(001).
 endif.
endif.
Validation of Personnel Sub Area
clear t001p.
if not pnpbtrtl[] is initial.
 select btrtl
 from t001p up to 1 rows
 into t001p-btrtl
 where btrtl in pnpbtrtl.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Sub Area Entered'(037).
 endif.
endif.
Validation of Employee Group
clear t501.
if not pnppersg[] is initial.
 select persg
 from t501 up to 1 rows
 into t501-persg
 where persg in pnppersg.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Employee Group Entered'(038).
 endif.
endif.
Validation of Employee Sub Group
clear t503k.
if not pnppersk[] is initial.
 select persk
 from t503k up to 1 rows
 into t503k-persk
 where persk in pnppersk.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Employee Sub Group Entered'(039).
 endif.
endif.
endform. "validate_screen
*& Form get_period
Get the Correct Period based on Selection screen selection
form get_period.
clear: v_year,v_mon, v_date, v_date1.
v_year = sy-datum+0(4).
v_mon = sy-datum+4(2).
if pnptimr1 = c_x. " Current Date
 pnpbegda = sy-datum.
 pnpendda = sy-datum.
elseif pnptimr2 = c_x. " Current Month
 concatenate v_year v_mon c_val into v_date.
 concatenate v_year v_mon c_val1 into v_date1.
 pnpbegda = v_date.
 pnpendda = v_date1.
elseif pnptimr3 = c_x. " Current Year
 concatenate v_year c_val c_val into v_date.
 concatenate v_year c_val2 c_val1 into v_date1.
 pnpbegda = v_date.
 pnpendda = v_date1.
elseif pnptimr4 = c_x. " Upto Today
 pnpbegda = c_date1.
 pnpendda = sy-datum.
elseif pnptimr5 = c_x. " From Today
 pnpbegda = sy-datum.
 pnpendda = c_date2.
else.
 if ( pnpbegda is initial and pnpendda is initial ).
 pnpbegda = c_date1.
 pnpendda = c_date2.
 elseif pnpbegda is initial and not pnpendda is initial.
 pnpbegda = c_date1.
 pnpendda = pnpendda.
 elseif not ( pnpbegda is initial and pnpendda is initial ).
 pnpbegda = pnpbegda.
 pnpendda = pnpendda.
 endif.
endif.
endform. "get_period
*& Form get_master_data
Get the Master Data from Database Tables PA0001,0002,0003
form get_master_data.
Get data from Respective Infotypes
rp_provide_from_last p0001 space pnpbegda pnpendda.
if p0001-kostl in pnpkostl.
 rep_tab-kostl = p0001-kostl.
 rep_tab-pernr = p0001-pernr.
 rep_tab-ename = p0001-ename.
Get the Position Text
 clear t528t-plstx.
 select single plstx into t528t-plstx from t528t
 where plans = p0001-plans and
 otype = c_type and
 sprsl = sy-langu.
 if sy-subrc = 0.
 rep_tab-ptext = t528t-plstx.
 endif.
Get the Cost Center Text
 clear cskt-ltext.
 select single ltext into cskt-ltext from cskt
 where spras = sy-langu and
 kokrs = c_kokrs and
 kostl = p0001-kostl.
 if sy-subrc = 0.
 rep_tab-ctext = cskt-ltext.
 endif.
Get the Overtime Payment Data
 perform get_ot_data.
 rep_tab-ott = rep_tab-ot1 + rep_tab-ot2 + rep_tab-ot3 +
 rep_tab-ot4 + rep_tab-ot5 + rep_tab-ot6 +
 rep_tab-ot7 + rep_tab-ot8 + rep_tab-ot9 +
 rep_tab-ot10 + rep_tab-ot11 + rep_tab-ot12.
 append rep_tab.
 clear rep_tab.
endif.
sort rep_tab by kostl pernr.
delete rep_tab where kostl = ' '.
delete rep_tab where ott = 0.
endform. "get_master_data
*& Form get_ot_data
Get the Overtime Payment Data
form get_ot_data.
cd-key = pernr-pernr.
rp-imp-c2-cd.
sort rgdir by seqnr.
To get sequence number for the payroll period
loop at rgdir where void is initial
 and reversal is initial
 and outofseq is initial
 and srtza eq 'A'.
 if rgdir-fpper+0(4) = p_year.
To consider offcycle run data
 if not rgdir-ocrsn is initial.
 v_seqnr = rgdir-seqnr.
 exit.
 endif.
 v_seqnr = rgdir-seqnr.
 endif.
 if not v_seqnr is initial.
 perform import_rx.
 endif.
 perform process_wagetypes.
endloop.
endform. "get_ot_data
include rpppxm00.
*& Form Import_rx
Import the RX data from Clusters
form import_rx.
rx-key-pernr = cd-key-pernr.
rx-key-seqno = v_seqnr.
rp-init-buffer.
rp-imp-c2-rx.
endform. " Import_rx
*& Form Process_wagetypes
Calculate the Overtime Amount based on Wage types
form process_wagetypes.
loop at rt.
 if rt-lgart = c_lgart1 or rt-lgart = c_lgart2.
 if rgdir-fpper+0(4) = p_year.
 v_mon = rgdir-fpper+4(2).
 case v_mon .
 when c_1.
 rep_tab-ot1 = rep_tab-ot1 + rt-betrg.
 when c_2.
 rep_tab-ot2 = rep_tab-ot2 + rt-betrg.
 when c_3.
 rep_tab-ot3 = rep_tab-ot3 + rt-betrg.
 when c_4.
 rep_tab-ot4 = rep_tab-ot4 + rt-betrg.
 when c_5.
 rep_tab-ot5 = rep_tab-ot5 + rt-betrg.
 when c_6.
 rep_tab-ot6 = rep_tab-ot6 + rt-betrg.
 when c_7.
 rep_tab-ot7 = rep_tab-ot7 + rt-betrg.
 when c_8.
 rep_tab-ot8 = rep_tab-ot8 + rt-betrg.
 when c_9.
 rep_tab-ot9 = rep_tab-ot9 + rt-betrg.
 when c_10.
 rep_tab-ot10 = rep_tab-ot10 + rt-betrg.
 when c_11.
 rep_tab-ot11 = rep_tab-ot11 + rt-betrg.
 when c_12.
 rep_tab-ot12 = rep_tab-ot12 + rt-betrg.
 endcase.
 endif.
 endif.
endloop.
endform. "process_wagetypes
*& Form top_of_page
Write the Report and Column Headings
form top_of_page.
format color col_heading on.
write: /1(252) 'NATIONAL DRILLING COMPANY'(010) centered,
 /1(252) 'Overtime Payments Details'(011) centered.
format color off.
if pnptimr1 = c_x. " Current Date
 write: /2 'Period From :'(036), sy-datum, 'To:'(006), sy-datum.
elseif pnptimr2 = c_x. " Current Month
 write: /2 'Period From :'(036), v_date, 'To:'(006), v_date1.
elseif pnptimr3 = c_x. " Current Year
 write: /2 'Period From :'(036), v_date, 'To:'(006), v_date1.
elseif pnptimr4 = c_x. " Upto Today
 write: /2 'Period From :'(036), c_date1, 'To:'(006), sy-datum.
elseif pnptimr5 = c_x. " From Today
 write: /2 'Period From :'(036), sy-datum, 'To:'(006), c_date2.
else.
 if ( pnpbegda is initial and pnpendda is initial ).
 write: /2 'Period From :'(036), c_date1, 'To:'(006), c_date2.
 elseif pnpbegda is initial and not pnpendda is initial.
 write: /2 'Period From :'(036), c_date1, 'To:'(006), pnpendda.
 elseif not ( pnpbegda is initial and pnpendda is initial ).
 write: /2 'Period From :'(036), pnpbegda,
 'To:'(006), pnpendda.
 endif.
endif.
write: 219 'Report Run Date:'(018), sy-datum.
if not pnpkostl[] is initial.
 if pnpkostl-high is initial.
 write: /2 'Cost Center :'(004), pnpkostl-low,
 219 'Time :'(020), sy-uzeit.
 else.
 write: /2 'Cost Center From:'(005), pnpkostl-low+7(3),
 'To:'(006), pnpkostl-high,
 219 'Time :'(020), sy-uzeit.
 endif.
else.
 write: /219 'Time :'(020), sy-uzeit.
endif.
if not pnppernr[] is initial.
 if pnppernr-high is initial.
 write: /2 'Personal Number :'(007), pnppernr-low,
 219 'User :'(021), sy-uname.
 else.
 write: /2 'Personal No.From:'(008), pnppernr-low,
 'To:'(006), pnppernr-high,
 219 'User :'(021), sy-uname.
 endif.
else.
 write: /219 'User :'(021), sy-uname.
endif.
write: /219 'Page No :'(022), sy-pagno.
format color col_heading.
write /1(252) sy-uline.
write:/1 sy-vline, 10 sy-vline,
 41 sy-vline,
 67 sy-vline, 68(167) 'Overtime Payments(Dirhams)'(013) centered,
 235 sy-vline,252 sy-vline.
format color col_heading.
write:/1 sy-vline, 2(8) 'Emp #'(019) centered,
 10 sy-vline, 11(30) 'Employee Name'(012) centered,
 41 sy-vline, 42(25) 'Position'(014) centered,
 67 sy-vline, 68(167) sy-uline,
 235 sy-vline,236(16) 'Total'(017) centered,
 252 sy-vline.
write:/1 sy-vline, 10 sy-vline,
 41 sy-vline,
 67 sy-vline, 68(13) 'JANUARY'(024) centered,
 81 sy-vline, 82(13) 'FEBRUARY'(025) centered,
 95 sy-vline, 96(13) 'MARCH'(026) centered,
 109 sy-vline,110(13) 'APRIL'(027) centered,
 123 sy-vline,124(13) 'MAY'(028) centered,
 137 sy-vline,138(13) 'JUNE'(029) centered,
 151 sy-vline,152(13) 'JULY'(030) centered,
 165 sy-vline,166(13) 'AUGUST'(031) centered,
 179 sy-vline,180(13) 'SEPTEMBER'(032) centered,
 193 sy-vline,194(13) 'OCTOBER'(033) centered,
 207 sy-vline,208(13) 'NOVEMBER'(034) centered,
 221 sy-vline,222(13) 'DECEMBER'(035) centered,
 235 sy-vline,252 sy-vline.
format color off.
write /1(252) sy-uline.
endform. "top_of_page
*& Form Display_report
Write the Report Output
form display_report.
clear v_no.
describe table rep_tab lines v_no.
if v_no = 0.
 message i999 with
 'No Data found for the entered Selection'(015).
endif.
loop at rep_tab.
 format color 3.
 at new kostl.
 read table rep_tab index sy-tabix.
 write:/1 sy-vline, 2(12) 'Cost Center:'(009),
 14(10) rep_tab-kostl,
 25(30) rep_tab-ctext,
 252 sy-vline.
 format color off.
 write /1(252) sy-uline.
 endat.
 format color col_normal.
 write: /1 sy-vline, 2(8) rep_tab-pernr,
 10 sy-vline, 11(30) rep_tab-ename,
 41 sy-vline, 42(25) rep_tab-ptext,
 67 sy-vline, 68(13) rep_tab-ot1 no-zero,
 81 sy-vline, 82(13) rep_tab-ot2 no-zero,
 95 sy-vline, 96(13) rep_tab-ot3 no-zero,
 109 sy-vline,110(13) rep_tab-ot4 no-zero,
 123 sy-vline,124(13) rep_tab-ot5 no-zero,
 137 sy-vline,138(13) rep_tab-ot6 no-zero,
 151 sy-vline,152(13) rep_tab-ot7 no-zero,
 165 sy-vline,166(13) rep_tab-ot8 no-zero,
 179 sy-vline,180(13) rep_tab-ot9 no-zero,
 193 sy-vline,194(13) rep_tab-ot10 no-zero,
 207 sy-vline,208(13) rep_tab-ot11 no-zero,
 221 sy-vline,222(13) rep_tab-ot12 no-zero,
 235 sy-vline,236(16) rep_tab-ott no-zero,
 252 sy-vline.
 at end of kostl.
 write /1(252) sy-uline.
 endat.
 format color off.
 at last.
 sum.
 format color 1.
 write: /1 sy-vline,
 10 sy-vline, 11(30) 'Total'(017) centered,
 41 sy-vline,
 67 sy-vline, 68(13) rep_tab-ot1 no-zero,
 81 sy-vline, 82(13) rep_tab-ot2 no-zero,
 95 sy-vline, 96(13) rep_tab-ot3 no-zero,
 109 sy-vline,110(13) rep_tab-ot4 no-zero,
 123 sy-vline,124(13) rep_tab-ot5 no-zero,
 137 sy-vline,138(13) rep_tab-ot6 no-zero,
 151 sy-vline,152(13) rep_tab-ot7 no-zero,
 165 sy-vline,166(13) rep_tab-ot8 no-zero,
 179 sy-vline,180(13) rep_tab-ot9 no-zero,
 193 sy-vline,194(13) rep_tab-ot10 no-zero,
 207 sy-vline,208(13) rep_tab-ot11 no-zero,
 221 sy-vline,222(13) rep_tab-ot12 no-zero,
 235 sy-vline,236(16) rep_tab-ott no-zero,
 252 sy-vline.
 write /1(252) sy-uline.
 endat.
 format color off.
endloop.
endform. "display_report
reward points if useful
regards,
Anji

Last Active Payroll Record

Hi,
I am new to ABAP-HR.
I am using logical database PNP to get payroll. But i want to get only the last active payroll for a personnel number. How to achieve this ? Is there any Macro for this ?
Please guide on this.
Thanks & Regards
Ananya

Hi
See the sample Payroll report to fetch the Overtime.
We can control the Last active payroll using the RGDIR table fields
see the sample code
report zovertime
 line-size 252
 line-count 60(1)
 no standard page heading
 message-id zndc.
Database Tables & Infotypes
tables: pcl1, " HR Cluster1
 pcl2, " HR Cluster1
 pa0003, " Master data - Payroll Status
 cskt, " Cost Center Texts
 t528t, " Positions Texts
 t513s, " Job Titles
 pernr, " Logical PNP
 t001p, " Personnel Subarea
 t500p, " Personnel Area
 t501, " Employee Group
 t503k, " Employee Subgroup
 csks. " Cost Center
infotypes:0000,0001.
*include rpclst00.
include rpc2rx00.
include rpc2rxx0.
include rpc2cd00.
*include rpc2ps00.
*include rpc2pt00.
*include rpcfvp00.
*include rpcfdc10.
*include rpcfdc00.
include rpppxd00.
include rpppxd10.
Declaration of Internal Tables
Internal Table for Output Data
data: begin of rep_tab occurs 0,
 kostl like pa0001-kostl, " Cost Center
 pernr like pa0001-pernr, " Personal Number
 ename like pa0001-ename, " Employee Name
 ctext like cskt-ltext, " Cost Center Text
 ptext like t528t-plstx, " Position Text
 ot1 type p decimals 2, " Jan OT Amount
 ot2 type p decimals 2, " Feb OT Amount
 ot3 type p decimals 2, " Mar OT Amount
 ot4 type p decimals 2, " Apr OT Amount
 ot5 type p decimals 2, " May OT Amount
 ot6 type p decimals 2, " Jun OT Amount
 ot7 type p decimals 2, " Jul OT Amount
 ot8 type p decimals 2, " Aug OT Amount
 ot9 type p decimals 2, " Sep OT Amount
 ot10 type p decimals 2, " Oct OT Amount
 ot11 type p decimals 2, " Nov OT Amount
 ot12 type p decimals 2, " Dec OT Amount
 ott type p decimals 2, " Total OT Amount
 end of rep_tab.
Declaration of Variables
data: v_mon(2) type n, " Month
 v_no type i, " Data Lines
 v_year(4) type c, " Year
 v_date like sy-datum, " Date
 v_date1 like sy-datum, " Date
 v_seqnr like pc261-seqnr. " Sequence No.
Declaration of Constants
data: c_type like hrp1001-otype value 'S', " Object Type
 c_kokrs like cskt-kokrs value '1000', " Controlling Area
 c_date1 like sy-datum value '18000101', " Date
 c_date2 like sy-datum value '99991231', " Date
 c_x type c value 'X', " Sign
 c_mon(2) type c value '01', " Month
 c_val1(2) type c value '31', " Date
 c_val2(2) type c value '12', " Month Type
 c_val like p0041-dar01 value '01', " Date Type
 c_lgart1 like p0008-lga01 value '0722', " Wage Type
 c_lgart2 like p0008-lga01 value '0723', " Wage Type
 c_1(2) type n value '01', " Month1
 c_2(2) type n value '02', " Month2
 c_3(2) type n value '03', " Month3
 c_4(2) type n value '04', " Month4
 c_5(2) type n value '05', " Month5
 c_6(2) type n value '06', " Month6
 c_7(2) type n value '07', " Month7
 c_8(2) type n value '08', " Month8
 c_9(2) type n value '09', " Month9
 c_10(2) type n value '10', " Month10
 c_11(2) type n value '11', " Month11
 c_12(2) type n value '12'. " Month12
Selection-screen
parameters:
p_year like pc2b0-pabrj obligatory. " Payroll Year
At selection-screen
at selection-screen.
Validate the Selection Screen fields
perform validate_screen.
Start-of-Selection
start-of-selection.
Selection of Period
perform get_period.
Get PERNR from LDB
get pernr.
Get the Master data from infotype 0001
perform get_master_data.
Top-of-page
top-of-page.
Write the Report and Column Headings
perform top_of_page.
End-of-Page
end-of-page.
write /1(252) sy-uline.
End-of-Selection
end-of-selection.
Display the Output Report.
perform display_report.
Form-Routines
*& Form validate_screen
Validation of selection Screen fields
form validate_screen.
Validation of Cost Center
clear csks.
if not pnpkostl[] is initial.
 select single kostl
 into csks-kostl
 from csks
 where kostl in pnpkostl.
 if sy-subrc <> 0.
 message e999 with 'Invalid Cost Center'(003).
 endif.
endif.
Validation of Personnel Number
clear pa0003.
if not pnppernr[] is initial.
 select pernr
 from pa0003 up to 1 rows
 into pa0003-pernr
 where pernr in pnppernr.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personal Number Entered'(002).
 endif.
endif.
Validation of Personnel Area
clear t500p.
if not pnpwerks[] is initial.
 select persa
 from t500p up to 1 rows
 into t500p-persa
 where persa in pnpwerks.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Area Entered'(001).
 endif.
endif.
Validation of Personnel Sub Area
clear t001p.
if not pnpbtrtl[] is initial.
 select btrtl
 from t001p up to 1 rows
 into t001p-btrtl
 where btrtl in pnpbtrtl.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Sub Area Entered'(037).
 endif.
endif.
Validation of Employee Group
clear t501.
if not pnppersg[] is initial.
 select persg
 from t501 up to 1 rows
 into t501-persg
 where persg in pnppersg.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Employee Group Entered'(038).
 endif.
endif.
Validation of Employee Sub Group
clear t503k.
if not pnppersk[] is initial.
 select persk
 from t503k up to 1 rows
 into t503k-persk
 where persk in pnppersk.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Employee Sub Group Entered'(039).
 endif.
endif.
endform. "validate_screen
*& Form get_period
Get the Correct Period based on Selection screen selection
form get_period.
clear: v_year,v_mon, v_date, v_date1.
v_year = sy-datum+0(4).
v_mon = sy-datum+4(2).
if pnptimr1 = c_x. " Current Date
 pnpbegda = sy-datum.
 pnpendda = sy-datum.
elseif pnptimr2 = c_x. " Current Month
 concatenate v_year v_mon c_val into v_date.
 concatenate v_year v_mon c_val1 into v_date1.
 pnpbegda = v_date.
 pnpendda = v_date1.
elseif pnptimr3 = c_x. " Current Year
 concatenate v_year c_val c_val into v_date.
 concatenate v_year c_val2 c_val1 into v_date1.
 pnpbegda = v_date.
 pnpendda = v_date1.
elseif pnptimr4 = c_x. " Upto Today
 pnpbegda = c_date1.
 pnpendda = sy-datum.
elseif pnptimr5 = c_x. " From Today
 pnpbegda = sy-datum.
 pnpendda = c_date2.
else.
 if ( pnpbegda is initial and pnpendda is initial ).
 pnpbegda = c_date1.
 pnpendda = c_date2.
 elseif pnpbegda is initial and not pnpendda is initial.
 pnpbegda = c_date1.
 pnpendda = pnpendda.
 elseif not ( pnpbegda is initial and pnpendda is initial ).
 pnpbegda = pnpbegda.
 pnpendda = pnpendda.
 endif.
endif.
endform. "get_period
*& Form get_master_data
Get the Master Data from Database Tables PA0001,0002,0003
form get_master_data.
Get data from Respective Infotypes
rp_provide_from_last p0001 space pnpbegda pnpendda.
if p0001-kostl in pnpkostl.
 rep_tab-kostl = p0001-kostl.
 rep_tab-pernr = p0001-pernr.
 rep_tab-ename = p0001-ename.
Get the Position Text
 clear t528t-plstx.
 select single plstx into t528t-plstx from t528t
 where plans = p0001-plans and
 otype = c_type and
 sprsl = sy-langu.
 if sy-subrc = 0.
 rep_tab-ptext = t528t-plstx.
 endif.
Get the Cost Center Text
 clear cskt-ltext.
 select single ltext into cskt-ltext from cskt
 where spras = sy-langu and
 kokrs = c_kokrs and
 kostl = p0001-kostl.
 if sy-subrc = 0.
 rep_tab-ctext = cskt-ltext.
 endif.
Get the Overtime Payment Data
 perform get_ot_data.
 rep_tab-ott = rep_tab-ot1 + rep_tab-ot2 + rep_tab-ot3 +
 rep_tab-ot4 + rep_tab-ot5 + rep_tab-ot6 +
 rep_tab-ot7 + rep_tab-ot8 + rep_tab-ot9 +
 rep_tab-ot10 + rep_tab-ot11 + rep_tab-ot12.
 append rep_tab.
 clear rep_tab.
endif.
sort rep_tab by kostl pernr.
delete rep_tab where kostl = ' '.
delete rep_tab where ott = 0.
endform. "get_master_data
*& Form get_ot_data
Get the Overtime Payment Data
form get_ot_data.
cd-key = pernr-pernr.
rp-imp-c2-cd.
sort rgdir by seqnr.
To get sequence number for the payroll period
loop at rgdir where void is initial
 and reversal is initial
 and outofseq is initial
 and srtza eq 'A'.
 if rgdir-fpper+0(4) = p_year.
To consider offcycle run data
 if not rgdir-ocrsn is initial.
 v_seqnr = rgdir-seqnr.
 exit.
 endif.
 v_seqnr = rgdir-seqnr.
 endif.
 if not v_seqnr is initial.
 perform import_rx.
 endif.
 perform process_wagetypes.
endloop.
endform. "get_ot_data
include rpppxm00.
*& Form Import_rx
Import the RX data from Clusters
form import_rx.
rx-key-pernr = cd-key-pernr.
rx-key-seqno = v_seqnr.
rp-init-buffer.
rp-imp-c2-rx.
endform. " Import_rx
*& Form Process_wagetypes
Calculate the Overtime Amount based on Wage types
form process_wagetypes.
loop at rt.
 if rt-lgart = c_lgart1 or rt-lgart = c_lgart2.
 if rgdir-fpper+0(4) = p_year.
 v_mon = rgdir-fpper+4(2).
 case v_mon .
 when c_1.
 rep_tab-ot1 = rep_tab-ot1 + rt-betrg.
 when c_2.
 rep_tab-ot2 = rep_tab-ot2 + rt-betrg.
 when c_3.
 rep_tab-ot3 = rep_tab-ot3 + rt-betrg.
 when c_4.
 rep_tab-ot4 = rep_tab-ot4 + rt-betrg.
 when c_5.
 rep_tab-ot5 = rep_tab-ot5 + rt-betrg.
 when c_6.
 rep_tab-ot6 = rep_tab-ot6 + rt-betrg.
 when c_7.
 rep_tab-ot7 = rep_tab-ot7 + rt-betrg.
 when c_8.
 rep_tab-ot8 = rep_tab-ot8 + rt-betrg.
 when c_9.
 rep_tab-ot9 = rep_tab-ot9 + rt-betrg.
 when c_10.
 rep_tab-ot10 = rep_tab-ot10 + rt-betrg.
 when c_11.
 rep_tab-ot11 = rep_tab-ot11 + rt-betrg.
 when c_12.
 rep_tab-ot12 = rep_tab-ot12 + rt-betrg.
 endcase.
 endif.
 endif.
endloop.
endform. "process_wagetypes
*& Form top_of_page
Write the Report and Column Headings
form top_of_page.
format color col_heading on.
write: /1(252) 'NATIONAL DRILLING COMPANY'(010) centered,
 /1(252) 'Overtime Payments Details'(011) centered.
format color off.
if pnptimr1 = c_x. " Current Date
 write: /2 'Period From :'(036), sy-datum, 'To:'(006), sy-datum.
elseif pnptimr2 = c_x. " Current Month
 write: /2 'Period From :'(036), v_date, 'To:'(006), v_date1.
elseif pnptimr3 = c_x. " Current Year
 write: /2 'Period From :'(036), v_date, 'To:'(006), v_date1.
elseif pnptimr4 = c_x. " Upto Today
 write: /2 'Period From :'(036), c_date1, 'To:'(006), sy-datum.
elseif pnptimr5 = c_x. " From Today
 write: /2 'Period From :'(036), sy-datum, 'To:'(006), c_date2.
else.
 if ( pnpbegda is initial and pnpendda is initial ).
 write: /2 'Period From :'(036), c_date1, 'To:'(006), c_date2.
 elseif pnpbegda is initial and not pnpendda is initial.
 write: /2 'Period From :'(036), c_date1, 'To:'(006), pnpendda.
 elseif not ( pnpbegda is initial and pnpendda is initial ).
 write: /2 'Period From :'(036), pnpbegda,
 'To:'(006), pnpendda.
 endif.
endif.
write: 219 'Report Run Date:'(018), sy-datum.
if not pnpkostl[] is initial.
 if pnpkostl-high is initial.
 write: /2 'Cost Center :'(004), pnpkostl-low,
 219 'Time :'(020), sy-uzeit.
 else.
 write: /2 'Cost Center From:'(005), pnpkostl-low+7(3),
 'To:'(006), pnpkostl-high,
 219 'Time :'(020), sy-uzeit.
 endif.
else.
 write: /219 'Time :'(020), sy-uzeit.
endif.
if not pnppernr[] is initial.
 if pnppernr-high is initial.
 write: /2 'Personal Number :'(007), pnppernr-low,
 219 'User :'(021), sy-uname.
 else.
 write: /2 'Personal No.From:'(008), pnppernr-low,
 'To:'(006), pnppernr-high,
 219 'User :'(021), sy-uname.
 endif.
else.
 write: /219 'User :'(021), sy-uname.
endif.
write: /219 'Page No :'(022), sy-pagno.
format color col_heading.
write /1(252) sy-uline.
write:/1 sy-vline, 10 sy-vline,
 41 sy-vline,
 67 sy-vline, 68(167) 'Overtime Payments(Dirhams)'(013) centered,
 235 sy-vline,252 sy-vline.
format color col_heading.
write:/1 sy-vline, 2(8) 'Emp #'(019) centered,
 10 sy-vline, 11(30) 'Employee Name'(012) centered,
 41 sy-vline, 42(25) 'Position'(014) centered,
 67 sy-vline, 68(167) sy-uline,
 235 sy-vline,236(16) 'Total'(017) centered,
 252 sy-vline.
write:/1 sy-vline, 10 sy-vline,
 41 sy-vline,
 67 sy-vline, 68(13) 'JANUARY'(024) centered,
 81 sy-vline, 82(13) 'FEBRUARY'(025) centered,
 95 sy-vline, 96(13) 'MARCH'(026) centered,
 109 sy-vline,110(13) 'APRIL'(027) centered,
 123 sy-vline,124(13) 'MAY'(028) centered,
 137 sy-vline,138(13) 'JUNE'(029) centered,
 151 sy-vline,152(13) 'JULY'(030) centered,
 165 sy-vline,166(13) 'AUGUST'(031) centered,
 179 sy-vline,180(13) 'SEPTEMBER'(032) centered,
 193 sy-vline,194(13) 'OCTOBER'(033) centered,
 207 sy-vline,208(13) 'NOVEMBER'(034) centered,
 221 sy-vline,222(13) 'DECEMBER'(035) centered,
 235 sy-vline,252 sy-vline.
format color off.
write /1(252) sy-uline.
endform. "top_of_page
*& Form Display_report
Write the Report Output
form display_report.
clear v_no.
describe table rep_tab lines v_no.
if v_no = 0.
 message i999 with
 'No Data found for the entered Selection'(015).
endif.
loop at rep_tab.
 format color 3.
 at new kostl.
 read table rep_tab index sy-tabix.
 write:/1 sy-vline, 2(12) 'Cost Center:'(009),
 14(10) rep_tab-kostl,
 25(30) rep_tab-ctext,
 252 sy-vline.
 format color off.
 write /1(252) sy-uline.
 endat.
 format color col_normal.
 write: /1 sy-vline, 2(8) rep_tab-pernr,
 10 sy-vline, 11(30) rep_tab-ename,
 41 sy-vline, 42(25) rep_tab-ptext,
 67 sy-vline, 68(13) rep_tab-ot1 no-zero,
 81 sy-vline, 82(13) rep_tab-ot2 no-zero,
 95 sy-vline, 96(13) rep_tab-ot3 no-zero,
 109 sy-vline,110(13) rep_tab-ot4 no-zero,
 123 sy-vline,124(13) rep_tab-ot5 no-zero,
 137 sy-vline,138(13) rep_tab-ot6 no-zero,
 151 sy-vline,152(13) rep_tab-ot7 no-zero,
 165 sy-vline,166(13) rep_tab-ot8 no-zero,
 179 sy-vline,180(13) rep_tab-ot9 no-zero,
 193 sy-vline,194(13) rep_tab-ot10 no-zero,
 207 sy-vline,208(13) rep_tab-ot11 no-zero,
 221 sy-vline,222(13) rep_tab-ot12 no-zero,
 235 sy-vline,236(16) rep_tab-ott no-zero,
 252 sy-vline.
 at end of kostl.
 write /1(252) sy-uline.
 endat.
 format color off.
 at last.
 sum.
 format color 1.
 write: /1 sy-vline,
 10 sy-vline, 11(30) 'Total'(017) centered,
 41 sy-vline,
 67 sy-vline, 68(13) rep_tab-ot1 no-zero,
 81 sy-vline, 82(13) rep_tab-ot2 no-zero,
 95 sy-vline, 96(13) rep_tab-ot3 no-zero,
 109 sy-vline,110(13) rep_tab-ot4 no-zero,
 123 sy-vline,124(13) rep_tab-ot5 no-zero,
 137 sy-vline,138(13) rep_tab-ot6 no-zero,
 151 sy-vline,152(13) rep_tab-ot7 no-zero,
 165 sy-vline,166(13) rep_tab-ot8 no-zero,
 179 sy-vline,180(13) rep_tab-ot9 no-zero,
 193 sy-vline,194(13) rep_tab-ot10 no-zero,
 207 sy-vline,208(13) rep_tab-ot11 no-zero,
 221 sy-vline,222(13) rep_tab-ot12 no-zero,
 235 sy-vline,236(16) rep_tab-ott no-zero,
 252 sy-vline.
 write /1(252) sy-uline.
 endat.
 format color off.
endloop.
endform. "display_report
Reward points for useful Answers
Regards
Anji

Delete every payroll results in the system

Hi experts,
There is a special Test system where External useres can login to the system, so we'd like to delete every paroll results in the system.
My question is how can I do that * correctly & efficiently*?
I know that there is a report for that: "RPUDEL20" but imagine a company with 14.000 employees. So using the logical databse, and deleteing the paroll results ony-by-one, will took more than a day
My idea is to delete every record in the tables:
HRPY_RGDIR
HRPY_WPBP
HRPY_GROUPING
P01O_ZVB_RR
This is definetelly the fastest way, but is a good solution?
I mean what about the 0003 infotype (payroll status) and other relations to the payroll results? What will happen if I delete the tables?
There is no payroll testing in this system, we're using this system for ESS testing, so the payroll results are not relevant, but all other masterdata (PA and PD infotypes) are relevant.
I'm happy to hear any idea
Bye
N.

Hi everyone,
Thank you for the answers, but I don't understand how can the LSMW help me. As I know the LSMW is a data migration tool. I don't want to import anything to the sap system, I just want to delete the existing payroll results. How does the LSMW help me in this?
Thanks
N.

Payroll status

Similar Messages

Maybe you are looking for