SAP OSS Notes: SAP Note 21681 - HR: Sick pay supplement for civil service employees

Symptom:

The sick pay supplement for employees of the civil service cannot be
calculated with schemas D1KA and D1BL.

Cause and prerequisites

This functionality is missing.

Solution

Building in this functionality requires a lot of time and energy. If
you are not under pressure of time, it is best to wait until you have
upgraded to Release 2.2G or Release 3.0B.
If you cannot wait until then, carry out all the steps described below.
When you do this, remember that the names of schemas and cycles in the
Civil Service often contain an O (letter) and not a 0 (number).

Two variants were taken into consideration when net pay during approved
leave was being calculated:

Variant 1:
-----------
You can find this type of calculation in schema DOZ1. The net pay during approved leave is calculated for the period when the employee receives sick pay supplement.
Payroll treats the personnel number as if it were paid and present only during the time of the sick pay supplement. On all other days it is set at 'unpaid'.
To make use of this version, you must activate the lines marked V1 below in schema DOZ1 and deactivate the lines marked V2.

Variant 2:
-----------
You can find this calculation variant in schema DOZ2. This is where
the net pay during approved leave is paid. Payroll treats the personnel
number as if it were on leave for the whole month. This means that the
gross amount is formed from the components that are laid down in
monthly amounts plus the vacation bonus for one whole month.
To make use of this variant, you must activate the lines marked V2 below
in schema DOZA and deactivate the lines marked V1.

Carrying out this correction:
-----------------------------
***********************************************************************
Changes/Functionalities of schemata
***********************************************************************

Step 1
----------
Add the lines marked <---- to the payroll schema that you use (D1KA
oder D1BL). Note: by way of example, these additions were carried out in schema D1KA in the Note. Schema D1BL can be extended in the same way.

Attention: this is only an excerpt of schema D1KA!

Func. Par1 Par2 Par3 Par4 P D Text
COM Payroll schema: Civil Service
COM Valid for : BAT VKA
COM : BMTG
COM Date.............: 17.06.1994
COM ---------------------------------------
GRBEG ***** Start of gross part ****
DOED set switch for civil service
COPY DIN0 * Initialization Germany (switch)
COPY DOGD basic data
P0015 DO26 P67 NOAB read additional payments
IF DO27 sick pay, insurance fund?
IF DO63 <----- supplement for employees
COPY DOZA <----- calculation: supplement for employees
ELSE <----- becomes: supplement for employees
COPY DOKZ calculate sick pay supplement
ENDIF <----- becomes: supplement for employees
PIT DO29 NOAB save wtypes in IT in variables
ENDIF becomes: sick pay, insurance fund?

Func. Par1 Par2 Par3 Par4 P D Text
COM Teilschema: Öffentlicher Dienst
COM Gültig für: BAT
COM Ergänzen IT um Ergebnislohnarten
COM Nettourlaubslohn
COM Stand............: 08.05.1995
COM -------------------------------------
RFRSH ALL delete all
COPY DOZ1 calculate net pay during leave V1
PRT DO28 P67 NOAB net pay during leave..save in IT V1
COPY DOZ2 * calculate net pay during leave V2
PRT DO50 P67 NOAB * net pay during leave..save in IT V2
PITAB S AIT save IT in AIT
RFRSH ALL delete all
PITAB L AIT reload IT back from AIT save
COPY DOGD basic data

2. Create schema DOZ1 anew

---------------------------------

Func. Par1 Par2 Par3 Par4 P D Text
COM Payroll schema: sick pay supplement
COM Valid for: BAT Variant 1
COM Date.............: 09.05.1995
COM DIN0 deactivated
COM ---------------------------------------
COPY DIN0 * * Initialization Germany (switch)
COPY DOGD basic data
COPY DOLA import last payroll result
PLRT DO40 NOAB set /A wage types in LRT to 0
COPY DOZ3 gross net sick pay (leave) BAT Variant 1
COPY DWB0 * * import further bens./deductions
COPY DST0 * Preparation for Tax Germany
COPY DOAL monthly factoring and storage
DOZV UMLB calculate VBL/ZVK contribution amounts
DOZV STPM tax VBL/ZVK contrib. (lump sum per month)
COPY DSV0 Social insurance (Germany)
DOZV ERHB Calculate VBL/ZVK increased amount
ACTIO DO38 S Set permanency lock for tax
ACTIO DO39 always enforce formation principle
COPY DST1 Tax (Germany)
PRINT NP IT End of net part
PIT D030 P05 Net summary
PIT D040 Amount to be paid before bank transfer
COPY DVE0 * Capital formation (Germany)
COPY DNN0 * Net bens./deductions and bank transfers
COPY DEND End of processing Germany
XEDT * Form callup

COM Gross part: time data processing
COM Sick pay supplement BAT Variant 1
COM Date: 24.05.1995
COM ----------------------------------------
GENPS Personal shift schedule (PSS)
P2003 S** Insert shift subst. in PSS belatedly
PRINT NP PSP Print PSS
ACTIO DO03 AR Provide basis of valuation
MOD DOMK GEN Provide modifiers
RAB Import absences
DNAB Germany-specific absence routines
PPSP DOPS Process PSS
PARTT Partial period factors from shift sched.
PPSP DOPR Process PSS for tax days
PAB Process absences
DAB Germany-specific absence routines
PRINT NP PART Print partial period factors
PRINT NP PARX Print absences
ACTIO DO64 GEN * Form wage type "vacation bonus"
ACTIO DO65 * Set SI-day indicator in PSS
P0014 DO41 P67 NOAB Form /O10 (if applicable)
P0015 DO41 P67 NOAB Form /O10 (if applicable)
PIT DO15 GEN NOAB Evaluation of time wage types
PIT X020 P03 Enter gross and store RT

6. Create schema DOAZ anew:

-------------------------------------
Func. Par1 Par2 Par3 Par4 P D Text
COM _ _ _ _ _ _ Monthly factoring and storage
COM _ _ _ _ _ _ German Civil Service
COM _ _ _ _ _ _ Comparative calc. f. sick pay supplement
## _ _ _ _ _ _ Status 09/01/1995
## _ _ _ _ _ _ ----------------------------------------
GEN/8 2 _ _ _ _ _ Create wage types /801 to /802 in IT
PIT DO36 _ _ _ _ _ Determine partial monthly factors DO36
PIT DO37 P10 _ _ _ _ Valuate pay elements
PIT D023 P20 NOAB _ _ _ Gross input and storage
PIT D025 P04 NOAB _ _ _ Gross cumulation, cost distribution

7. To schema DOAL add cycle DO66:

------------------------------------------------- Func. Par1 Par2 Par3 Par4 P D Text
COM Monthly factoring and storage
COM German Civil Service
## Status 07/22/1993
## ----------------------------------------
IF XIT * Are there any XIT-entries?
PIT DS3A P39 Determine basic pay (§3b)
ENDIF * IF XIT end
GEN/8 2 Create wage types /801 bis /802 in IT
PIT DO36 Determine partial monthly factors DO36
PIT XCM0 P31 * Monthly lump sums for cost accounting
PIT DO37 P10 Valuate pay elements
ACTIO XCH0 A Hourly rates for cost accounting
ACTIO DO34 GEN Create Infotype O601 (workdays)
ACTIO DO66 GEN Create O603 from VBLB 950828
PIT D023 P20 NOAB Gross entry and storage
ACTIO DO22 V Enter variable SVTT
ACTIO DO23 AR Cumulate average bases
PIT DO31 P67 NOAB Create /O05 .. /O08 from /222 .. /225
IF XIT * Are there any XIT-entries?
PRT DS3B P39 * Determine basic pay (§3b)
XIT XIT * Make time intervals disjuctive
XIT 10Y * Evaluate T510Y
XIT VAL * Valuate XIT
PRINT NP XIT XIT after evaluation
ACTIO DS3C Determine basic pay (§3b) month.basis
PIT DS3D NOAB Determine basic pay (§3b) hourly basis
PIT DS3E NOAB Determine basic pay (§52(3))
XIT S90 * Calculate tax exemption (§3b)
PIT DS3F NOAB * Calculate tax exemption (§52(3))
PIT DS3G NOAB * Store basic pay
ENDIF * IF XIT end
PIT D025 P04 NOAB Gross cumulation, cost distribution
PIT DDVB NOAB Check company insurance gross amount***********************************************************************
B) Changes/Functionalities of cycles
***********************************************************************

Function of cycle: to check if BAT applies to employee

VarArg. FZ T Operation Operation Operation Operation
-------------+---------+---------+---------+---------
D SETIN A=01OUTWPITRFA
* SCOND=F IF
1 SCOND=T IF
2 SCOND=T IF
5 SCOND=T IF

Function of this cycle: to save the resulting wage types - sick pay
BAT/BMT-G II in IT (Variant 1)

VarArg. FZ T Operation Operation Operation Operation
-------------+---------+---------+---------+---------
D VWTCL 67
*
2 ADDWTI*

This cycle is accessed when variant 1 is carried out.
Sub schema DOZ3 (time data processing)

Function of this cycle: to set sick pay suppl. indicator for employees.

VarArg. FZ T Operation Operation Operation Operation
-------------+---------+---------+---------+---------
MODIF A=49MODIF 2=20 ANGESTELLT

Function of this cycle: to form wage type O301 Vacation bonus (Var2only)

VarArg. FZ T Operation Operation Operation Operation
-------------+---------+---------+---------+---------
NUM=GASOLLSETIN R=3 ADDWTIO301

Function of this cycle: to set SI-day indicator in PSS (var. 2 only)

VarArg. FZ T Operation Operation Operation Operation
-------------+---------+---------+---------+---------
PSPCGSVT=X

Function of this cycle: to save the result wage types - sick pay suppl.
BAT/BMT-G II in IT (Variante 2)

VarArg. FZ T Operation Operation Operation Operation
-------------+---------+---------+---------+---------
D VWTCL 67
*
2 NUM=2 ADDWTI*

Function of this cycle. to import recurring bens./deds. and additional
payments

VarArg. FZ T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+--------
*** J ADDWT * ADDWT /610 Bergmannsprämie
*** K D OUTWPITRFA
*** K * Z GCY D005 ALLE ANDEREN
*** K ** Z GCY D005 ALLE ANDEREN
*** K 1 Z GCY DO52 <---- insert BAT B&L
*** K 2 Z GCY DO52 <---- insert BAT VKA
*** K 4 Z GCY DO47 BMT-G II
*** K 5 Z GCY DO52 <---- insert BAT KRANKENHAUS
*** L OPIND ADDWT * ADDWT /PF2 AUSGLEICH FORDER.

Function of this cycle: to calculate sick pay supplement

VArg. FZ T Operation Operation Operation Operation Operation Operation
-----------+---------+---------+---------+---------+---------+-------- D ADDWT * ZERO=&HILFADDWT&HILFAMT=& NURLSETIN A=01OUTWPITRFA
1 D NUM=& NURLNUM?2 FILLF N
1 * D ADDWT O600AMT-& HILFAMT?0 BAT B&L VAR. 1
1 * *
1 * > ADDWT O314
1 = D AMT*GKAU23AMT/GKSOLLADDWT O600AMT-& HILFAMT?0 VAR. 2
1 = *
1 = > ADDWT O314
1 > ADDWT O314
2 D NUM=& NURLNUM?2 FILLF N
2 * D ADDWT O600AMT-& HILFAMT?0 BAT VKA VAR. 1
2 * *
2 * > ADDWT O314
2 = AMT*GKAU23AMT/GKSOLLADDWT O600AMT-& HILF* VAR. 2
2 = 1 D AMT?0
2 = *
2 = > ADDWT O314
2 > ADDWT O314
5 D NUM?2 FILLF N
5 * D ADDWT O600AMT-& HILFAMT?0 BAT KH. VAR. 1
5 * *
5 * > ADDWT O314
5 = D AMT*GKAU23AMT/GKSOLLADDWT O600AMT-& HILFAMT?0 VAR. 2
5 = *
5 = > ADDWT O314
5 > ADDWT O314

Note: For variant 2 the system uses Modif payroll 21 to read in T554C. The Modif A in time data processing (Schema DOTK) in cycle DOMO is set to 21 for employees. The corresponding entry is read in table T554C. The unpaid absence counting class 23 is evaluated. Therefore, in cycle DO52 you find 'GKAU23'.

9. For cycle DO29 create the following rule for wage type /150:

VarArg. FZ TOperation Operation Operation Operation Operation Operation
--------+-+-+---------+---------+---------+---------+---------+---------
_ _ ZERO=&VBLBADDWT&VBLB

10. Create cycle DO66:

VarArg. FZ TOperation Operation Operation Operation Operation Operation
--------+-+-+---------+---------+---------+---------+---------+---------
_ _ DNUM=& VBLBNUM?2
< _ AMT=& VBLBADDWTIO603
= _ AMT=& VBLBAMT*GKAU23AMT/GKSOLLADDWTIO603

***********************************************************************
C) Changes/Functionalities of table entries
***********************************************************************

1. Example entry 'sick pay supplement' in T554C (for variant 1)

Molga Modif from paroll Valuat.rule Text From
01 49 22 sick pay supplement 01.01.1995
------------------------------------------------------------------------
Counting class Paid Percentage rate
22 X 100,00

Time Percentage rate Unit BP split payroll I 100,00 RT X O321 Uaufschl.

Special processing
Generation from T510S

************************************************************************

2. Example entry 'sick pay supplement' in T554C (for variant 2)

Molga Modif from payroll Valuat.class Text From
01 21 23 sick pay supplement 01.01.1995
-----------------------------------------------------------------------
Counting class Paid Percentage rate
23 100,00

Time Percentage rate Unit BP split payroll

Special processing
Generation from T510S

Modif Bew. Beg End Ver. Bew. Bew. Bew. Bew. Bew. Bew.
Abr. Kl. Da Da Kz. Kl.1 Kl.2 Kl.3 Kl.4 Kl.5 Kl.6
49 02 01011900 31129999 03 21 21 22 21 21 00

For Modif 21 the following entry is relevant (for variant 2):

Modif Bew. Beg End Ver. Bew. Bew. Bew. Bew. Bew. Bew.
Abr. Kl. Da Da Kz. Kl.1 Kl.2 Kl.3 Kl.4 Kl.5 Kl.6
21 02 01011900 31129999 03 02 21 23 21 21 00

4. Add wage types /156 (Pay subj.to VBLt,SI-exempt), O321 (Extra leave BAT), O314 (Sickness allowance bonus) and O603 (Gross SPF during RWH) to T512T/T512W.

T512T:
------
S Mol Wage type + Wage type text ShText
----------------------------------------------------
D 01 O321 Extra leave BAT ExLv BAT
D 01 O314 Sickness allowance bonus SABonus
D 01 O603 Gross SPF during RWH GrSPFRWH
D 01 /156 Pay subj.to VBL,SI-exempt VBL SIex

T512W:
------ MoLGA....... 01 WType O321 Extra leave BAT
From 01.01.1901 To 31.12.9999
Base wage type : Valuation basis StatemntWT % rate 100
1st derived WType : Valuation basis StatemntWT % rate 0
2nd derived WType : Valuation basis StatemntWT % rate 0
....+....1....+....2....+....3....+....4....+....5
1 0 0 0 01 3 000 0 000 Processing classes
0 0111 Processing classes
xx x x x Cumulations 01 to
xxx xx Cumulations 51 to
Averages : ....+....1....+....2....+....3.. % rate
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
1 2 3 4 5 6 7 8 9 X 1 2 3 4 5 6 7 8 9 X
00 Evaluation classes

MoLGA....... 01 WType /156 Pay subj.to VBL,SI-exempt
Ch-indicator.... From 01.01.1901 To 31.12.9999
Base wage type : Valuation basis StatemntWT
1st derived WType: Valuation basis StatemntWT % rate
2nd derived WType: Valuation basis StatemntWT % rate
....+....1....+....2....+....3....+....4....+....5
01 0 0 03 0 10 100 0 01 Processing classes
0 Processing classes
Cumulation 01 to
Cumulations 51 to
Averages : ....+....1....+....2....+....3.. %-rate
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
1 2 3 4 5 6 7 8 9 X 1 2 3 4 5 6 7 8 9 X
00 01 Evaluation classes

MoLGA....... 01 WType O314 Sickness allowance bonus
Ch-indicator.... From 01.01.1901 To 31.12.9999
Base wage type : Valuation basis StatemntWT
1st derived WType: Valuation basis StatemntWT % rate
2nd derived WType: Valuation basis StatemntWT % rate
....+....1....+....2....+....3....+....4....+....5
1 0 0 0 0 3 00A 0 000 Processing classes
00 0 Processing classes
x x x x Cumulations 01 to
xx xx Cumulations 51 to
Averages : ....+....1....+....2....+....3.. % rate
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
1 2 3 4 5 6 7 8 9 X 1 2 3 4 5 6 7 8 9 X
2202 Evaluation classes

MoLGA....... 01 WType O603 Gross SPF during RWH
Ch-indicator.... From 01.01.1901 To 31.12.9999
Base wage type : Evaluation basis StatemntWT
1st derived WType: Evaluation basis StatemntWT % rate
2nd derived WType: Evaluation basis StatemntWT % rate
....+....1....+....2....+....3....+....4....+....5
0 0 0 0 3 000 0 0 0 Processing classes
00 Processing classes
Cumulations 01 to
x Cumulations 51 to
Averages : ....+....1....+....2....+....3.. % rate
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
BPE ANZ BTR 100.00
1 2 3 4 5 6 7 8 9 X 1 2 3 4 5 6 7 8 9 X
Evaluation classes

5. Maintain evaluation classes and cumulations in T512W
For wage type /150 set processing class 67 to '2'.
For wage types /O0* set processing class 29 to '0'.
For wage type /242 set processing class 33 to '0'.
For wage type O304 delete cumulation 50´.

D) Program changes

In Report RPCZVUD0 in routine HOLE_LART_AUS_IT insert the line marked with YUIK119422: FORM HOLE_LART_AUS_IT USING $LART.

LOOP AT IT WHERE LGART = $LART.
CASE $LART.
WHEN '/102'. LART_102 = LART_102 + IT-BETRG.
WHEN '/103'. LART_103 = LART_103 + IT-BETRG.
WHEN '/148'. LART_148 = LART_148 + IT-BETRG.
WHEN '/149'. LART_149 = LART_149 + IT-BETRG.
WHEN '/150'. LART_150 = LART_150 + IT-BETRG.
WHEN '/151'. LART_151 = LART_151 + IT-BETRG.
WHEN '/152'. LART_152 = LART_152 + IT-BETRG.
WHEN '/156'. LART_156 = LART_156 + IT-BETRG. "YUIK119422
WHEN '/240'. LART_240 = LART_240 + IT-BETRG.
WHEN '/241'. LART_241 = LART_241 + IT-BETRG.
WHEN '/280'. LART_280 = LART_280 + IT-BETRG.
WHEN '/281'. LART_281 = LART_281 + IT-BETRG.
WHEN '/282'. LART_282 = LART_282 + IT-BETRG.
WHEN '/283'. LART_283 = LART_283 + IT-BETRG.
WHEN '/284'. LART_284 = LART_284 + IT-BETRG.
WHEN '/285'. LART_285 = LART_285 + IT-BETRG.
WHEN '/286'. LART_286 = LART_286 + IT-BETRG.
WHEN '/287'. LART_287 = LART_287 + IT-BETRG.
WHEN '/288'. LART_288 = LART_288 + IT-BETRG.
WHEN '/289'. LART_289 = LART_289 + IT-BETRG.
WHEN '/290'. LART_290 = LART_290 + IT-BETRG.
WHEN '/291'. LART_291 = LART_291 + IT-BETRG.
WHEN '/292'. LART_292 = LART_292 + IT-BETRG.
WHEN '/293'. LART_293 = LART_293 + IT-BETRG.
WHEN '/294'. LART_294 = LART_294 + IT-BETRG.
WHEN '/295'. LART_295 = LART_295 + IT-BETRG.
WHEN '/296'. LART_296 = LART_296 + IT-BETRG.
WHEN '/297'. LART_297 = LART_297 + IT-BETRG.
WHEN '/298'. LART_298 = LART_298 + IT-BETRG.
WHEN '/299'. LART_299 = LART_299 + IT-BETRG.
WHEN '/303'. LART_303 = IT-ANZHL.
WHEN '/321'. LART_321 = LART_321 + IT-BETRG.
WHEN '/324'. LART_324 = LART_324 + IT-BETRG. "YKMK116110
WHEN '/369'. LART_369 = LART_369 + IT-BETRG.
WHEN '/389'. LART_389 = LART_389 + IT-BETRG.
WHEN '/399'. LART_399 = LART_399 + IT-BETRG.
ENDCASE.
ENDLOOP.
ENDFORM.

***********************************************************************
End of correction for 'Sick pay supplement for employees'

SAP OSS Notes

3.2.11

SAP Note 21681 - HR: Sick pay supplement for civil service employees

No comments:

Post a Comment

Subscribe