Skip to Content
0
Former Member
Feb 02, 2011 at 05:57 AM

Advance vacation payout

71 Views

Hi All,

This PCR is used to calculate the annual leave amount being paid in Advance. The PCR works fine if its normal payroll, but when i use the same PCR in offcycle payroll, it does not read the pay period.

The scenario is like this:

An employee is taking leave from 05.03.2011 - 20.03.2011 and the advance pay is paid for the 15 days leave being taken + 01.03 - 04.03 in the month of February Payroll. The PCR looks into the dates of 2001 and the amoutn being paid is stored in wage type 5051 - Next month AL Payment as the amount is for the leave being taken in March. This is working fine.

The same logic needs to work in Offcycle payroll, but it doesnt. I belive the PCR in case of offcycle payroll its not checking the pay period hence not working. Please let me know if this is possible, the PCR needs to check the pay period and do the rest of the calculation.

00010 D WGTYP?

00020 **** ADDWT *

00030 5050 PRINT ADDWT&ABAPPRINT NUM- 8000PRINT NEXTR A

00040 5050 A D NUM?0

00050 5050 < ERROR NEXTR A VACATION COMPENSATION NOT MATCHING

00060 5050 < A

00070 5050 = NUM=& ABAPADDWT *

00080 5050 > PRINT ADDWT&ABCDNUM=0 NUM= 8000ADDWT 5050NEXTR A

00090 5050 > A Z ZERO= N NUM=& ABCDPRINT GCY ALAP

000010 D PRINT RTE=YCURPPPRINT RTE?12

000020 < D RTE?11

000030 < < D RTE?10

000040 < < < D RTE?09

000050 < < < < Z GCY ALP1

000060 < < < = ZERO= R RTE=31 ADDWT 5051

000070 < < = ZERO= R RTE=30 ADDWT 5051

000080 < = ZERO= R RTE=31 ADDWT 5051

000090 = ZERO= R RTE=31 ADDWT 5051

000010 D RTE?08

000020 < D RTE?07

000030 < < D RTE?06

000040 < < < D RTE?05

000050 < < < < Z GCY ALP2

000060 < < < = ZERO= R RTE=30 ADDWT 5051

000070 < < = ZERO= R RTE=31 ADDWT 5051

000080 < = ZERO= R RTE=31 ADDWT 5051

000090 = ZERO= R RTE=30 ADDWT 5051

000010 D RTE?04

000020 < D RTE?03

000030 < < D RTE?02

000040 < < < D RTE?01

000050 < < < <

000060 < < < = ZERO= R RTE=28 ADDWT 5051

000070 < < = ZERO= R RTE=31 ADDWT 5051

000080 < = ZERO= R RTE=30 ADDWT 5051

000090 = ZERO= R RTE=31 ADDWT 5051

Thanx & regards,

Majid