Symptom
The Australian Taxation office has released new Legal Requirements for the following:
1. Income Tax Witholding Variations (Variations for an employee such as those that would allow certain components to be non-taxable, certain components to be partly non-taxable, certain components to be taxed at a different flat rate or certain reimbursement of overpayment), which an employee can avail through NAT 2036 and NAT 5425.
2. Health Insurance Tax - As per NAT 0929 employees without private health insurance are required to pay one percentage additional tax. This additional tax must be calculated on a per pay basis through PAYG(Pay As You Go) witholding methodology.
This note contains information about the changes made
in the Payroll Australia, to cater to the new legal requirements.
Note
The changes are designed to work on LSPA II solution ONLY. It is essential that this changes should be applied only after LSPA II solution has been applied in order to ensure the correct functioning of ITWV functionality.
The changes released through this note should be applied to production system effective from the start of the financial year 2005-2006.
Reason and Prerequisites
Income Tax Withholding Variation (ITWV): Under the tax law, the
Commissioner of Taxation may - to meet the special circumstances of a
particular case or class of cases - at his/her discretion vary the amount of tax an organisation or entity is required to withhold from a withholding payment, such as wages.
The main purpose of varying the rate of withholding is to ensure that
the amounts withheld during the income year best meet your end of year liability, for example, where the regular rate of withholding would lead to a large credit at the end of the income year because your tax-deductible expenses are higher than normal.
There are a number of different variations for which an employee can apply to the ATO. Information about them are available in both NAT2036 & NAT5425 documents. Of all the variations that are listed, not all need to be specifically handled by a payroll software system.
Following are the key items, which are enabled in the SAP Standard system.
1. Director's Fee
2. Allowances
3. Bonuses
4. HECS/SFSS Overpayment
The requirements for Income Tax Witholding Variations handled in the system are as follows:
Director's Fee:
--------------
An employee that applies for a variation in tax for Directors Fees is only ever given a 'no Tax' option for this payment. The ATO does not reduce the tax payable for Director's Fee by either a percentage or an amount. Tax is either payable at the nominated tax scale or if a variation is lodged and approved, no tax is payable on the Directors Fees paid to the employee.
Therefore a facility must exist to specify that any Directors Fees paid to an employee is to be tax free if a variation exists for the employee.
Allowances:
----------
An employee may apply for a number of different allowance variations such as motor vehicle allowance variation, telephone allowance variation and travel allowance variation.
The system must be able to cater to these variations individually, for example, a variation percentage may apply to a motor vehicle allowance and a different variation percentage may apply to a travel allowance for the same employee. The method/manner in which this variation works is that the ATO defines what percentage of each allowance is to be taxed at the employee's nominated tax scale. A flat tax or percentage tax are not valid for these allowance variations. Only a specified percentage of the allowance, to be taxable at the employees tax scale is applicable. There will only ever be one instance of each allowance variation in any financial year (For example, there is no requirement to have one motor vehicle allowance 20 percent taxable and another motor vehicle allowance to be 40 percent taxable).
HECS/SFSS:
---------
Many employees overpay their HECS/SFSS repayment. An employee may apply for a variation and if approved, the overpayment amount can be reimbursed by reducing the employees tax by the overpaid amount.
Therefore a facility must exist to allow a user to enter an overpayment amount that the employees' tax is to be reduced by. If this covered multiple pay periods, no tax would be deducted until the entire overpayment was reimbursed to the employee. Once the overpayment is fully reimbursed, the employees' nominated tax scale would then re-commence.
The reimbursement of overpayment will be ceased across financial year as a person's liability is assessed for discrete years and the variation ceases on June 30. After June 30, the taxpayers will need to lodge their tax return for the year to obtain a refund on any withheld excess tax.
Bonuses:
-------
There are two scenarios for bonuses
1. Normal Variation: Employees' bonus payment will be taxed at the employees' nominated tax scale.
2. Varied Rate Variation: This signifies that a variation has been submitted to and approved by the ATO and a flat tax percentage will apply to all the employees' payments (salary, wages and Bonuses) or only to salary and wages payments.
Private Health Insurance Extra Tax 1 percent:
-------------------------------------
The Australian Tax Office has created a new taxation requirement listed in document NAT 0929. The requirement caters to employees who do not have Private Health Insurance. For employees that do not have Private Health Insurance, they are required to pay an extra 1 percent tax each year, which is normally paid at the end of the financial year manually by the employee to the ATO. The ATO has now provided a facility where the employee can have the additional 1 percent calculated on a per pay basis through PAYG. The additional 1 percent is to be applied to all payments an employee receives, excluding ETP(Eligible Termination Payments).
For further information, refer to FAQ Note 843093.
Solution
The Income Tax WithHolding Variations legal requirement is delivered
as part of this note.
The schema Q000 has been changed to cater to these requirements.
Note: After the application of the changes in this note, it is mandatory to apply the changes in note 858463 also.
The schema will now have the following behaviour:-
1. Director's Fee:
--------------
Employee has received a variation from ATO for Director's fee, mentioning that director's fee is not taxable.
This variation information is maintained in the system in Infotype 817. No tax will be calculated on the director's fee.
Director's fee wage types are identified as those wage types who has processing class 22 set to D.
Retrospective change to Directors fee's across financial year are not subject to variation in current or retro period and are considered as lumpsum payment and taxed as per NAT 3348.
2. Allowances:
----------
Employee has received a variation from ATO for allowances, for example, Telephone Allowance, stating that only 25 percent is taxable.
This variation information is maintained in the system in Infotype 817. 25 percent of the allowance amount is considered as taxable. 75 percent of the allowance amount is considered non-taxable.
Retrospective change to allowances across financial year are not subject to variation in current or retroactive period and are considered as lumpsum payments and taxed as per NAT 3348.
3. HECS/SFSS Overpayment:
---------------------
Employee has received a variation from the ATO mentioning that an HECS overpayment of AUD 300 and SFSS overpayment of AUD 200 is be reimbursed to the employee by reducing his/her tax. This variation information is maintained in the system in Infotype 817. The employee's tax is reduced in the payroll periods until the entire overpayment is reimbursed to the employee. If both HECS and SFSS overpayment exist, and the total overpayment cannot be reimbursed in a single pay period, then HECS overpayment is first reimbursed, followed by SFSS overpayment.
Reimbursement of HECS and SFSS overpayment is not carried forward across financial year.
4. Bonuses:
-------
There are two scenarios for bonuses
a) Normal Variation: Employees' bonus payment will be taxed at the employees' nominated tax scale. This is already supported by the system through Infotype 0188..
b) Varied Rate Variation: This signifies that a variation has been submitted to and approved by the ATO and
i) A flat tax percentage will apply to all the employees' payments(salary, wages and Bonuses): This is already supported by the system through Infotype 0188.
ii) A flat tax percentage will apply only to salary and wages payments: The new infotype 0817 will provide a facility to maintain the flat tax percentage for salary and wages only.
Salary and wages will be taxed based on Infotype 817 or Infotype 188. The system will check if there is a tax percent in Infotype 817 for salary and wages, if so, will tax the same based on Infotype 817.
If no tax percentage is maintained in Infotype 817, then the salary and wages will be taxed as per Infotype 0188.
Bonus payments will always be taxed based on Infotype 188.
If employee receives a variation for salary, wages and bonus mentioning a flat tax percentage to be used for tax calculation purposes, then this information is to be maintained in Infotype 188.
5. Private Health Insurance Extra Tax 1 percent:
-------------------------------------
An Employee has not opted for Private Health Insurance. The system now allows for the extra 1 percent tax to be calculated for such employees.
A new field "Private Health Insurance Extra Tax" is added in Infotype 188. By selecting this flag, and additional 1 percent tax will be calculated on the taxable gross.
The new constant QEXTT in view V_T511K will hold the value of 1 percent.
The wage type /E11 will hold the taxable gross on which the 1 percent extra tax will be calculated.
/E11 will be formed from /111, Bonus and Lumpsum Payments.
--------------------------------------------------------------------
Changes to the Table, Schema and Programs for ITWV
(Release 45B, 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
1. New Infotype 817 (Income Tax Witholding Variation) is created to
capture the following variation information approved by the ATO.
Directors fees Variation
Allowance Variation
Bonus (Salary and Wages) variation
HECS/SFSS Variation
2. New Cluster Table TVARP is created, which will contain the
Variation Information for a payroll period.
3. Infotype 188 (Tax Australia) is modified to include a new field for
Private Health Insurance Extra Tax.
4. Table T52D2 (use transaction SM31 -> view V_T52D2)
I. Create new Specifications for Processing class 22.
- Specification A: Wage type subject to tax witholding variation for allowance
- Specification D: Wage type subject to tax witholding variation for Directors fees
- Specification M: Motor allowance wage type to be cumulated for subject to Variation
- Specification P: Telephone allowance to be cumulated for
subject to Variation
- Specification R: Travel allowance wage type to be cumulated for subject to Variation
II. Create new Specifications for Processing class 73.
- Specification 3: Wage type for HECS total overpayment
- Specification 4: Wage type for SFSS total overpayment
5. Create New Wage types (Using Transaction --> OH11)
Following Wage types are copy of /LGG wage type
- /ALL - Total Taxable Allowance
- /E11 - Gross for Calc. Extra Tax
Following Wage type is a copy of /LTT wage type
- /EXT - Prvt Hlth Ins. Extra Tax
Following Wage type is a copy of /ALL wage type
- /RLL - Retro Taxable Varia Comp
Following Wage types are copy of /LTF wage type
- /OHT - HECS Overpymnt Reimbursed
- /OHP - HECS Overpymnt Curr. Prd
- /OHR - HECS Overpymnt Remaining
- /OST - SFSS Overpymnt Reimbursed
- /OSP - SFSS Overpymnt Curr. Prd
- /OSR - SFSS Overpymnt Remaining
- /OTT - Total Overpayment influx
-------------------------------------------------------------------
(Release 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
Following Wage types are copy of G001 wage type
- GMOA - Total Motor Allowance
- GTPA - Total Telephone Allowance
- GTRA - Total Travel Allowance
-------------------------------------------------------------------
(Release 45B) --------------------------------------------------------------------
Following Wage types are copy of A100 wage type
- GMOA - Total Motor Allowance
- GTPA - Total Telephone Allowance
- GTRA - Total Travel Allowance
--------------------------------------------------------------------
(Release 45B, 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
6. Setting of processing, cumulation and evaluation classes.
Note: To access the table for setting processing classes, cumulation classes and evaluation classes:
- Go to Transaction SM31
- Enter the V_512W_D under Table/view.
I. Set Processing class 1 of the following wage type to 0:
/OHT, /OHR, /OST, /OSR, /OTT
II. Set Processing class 3 of the following wage type to 0:
/OHT, /OHR, /OST, /OSR, /OTT
III. Set Processing class 4 of the following wage type to 6:
/OHT, /OST, /OTT
IV. Set Processing class 4 of the following wage type to 0:
/OHR, /OSR
V. Set Processing class 5 of the following wage type to 0:
/E11, /OHT, /OHP, /OHR, /OST, /OSP, /OSR, /OTT
VI. Set Processing class 10 of the following wage type to 0:
/ALL, /OHT, /OHR, /OST, /OSR, /OTT
VII. Set Processing class 20 of the following wage type to 1:
/OHT, /OHR, /OST, /OSR, /OTT
VIII. Set Processing class 20 of the following wage type to 3:
/ALL
IX. Set Processing class 22 of the following wage type to 0:
/OHT, /OHP, /OHR, /OST, /OSP, /OSR, /OTT
X. Set Processing class 22 of the following wage type to A:
GMOA, GTPA, GTRA
XI. Set Processing class 22 of the following wage type to D:
GDIR
XII. Set Processing class 30 of the following wage type to 0:
/OHP, /OHT, /OHR, /OST, /OSP, /OSR, /OTT
XIII. Set Processing class 73 of the following wage type to 3:
/OHT
XIV. Set Processing class 73 of the following wage type to 4:
/OST
--------------------------------------------------------------------
(Release 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
XV. Set Processing class 78 of the following wage type to A:
GMOA, GTPA, GTRA
--------------------------------------------------------------------
(Release 45B, 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
XVI.Set Processing class 21 of the following wage type to 0:
GDIR
XVII. Uncheck cumulation classes 1 and 72 for the following wage types:
GMOA, GTPA, GTRA
XVIII. Uncheck cumulation classes 41 and 42 for the following wage types:
GMOA, GTPA, GTRA, GDIR
XIX. Set Evaluation class 11 of the following wage type to blank:
GMOA, GTPA, GTRA, GDIR
XX. Set Evaluation class 2 of the following wage type to 01:
GDIR
XXI. Set Evaluation class 1 for the following wage type to
blank:
GDIR
XXII. Uncheck cumulation classes 11 and 42 for the following wage types:
GMOA, GTPA, GTRA
XXIII.Set Evaluation class 1,2 and 5 for the following wage type to
blank:
GMOA, GTPA ,GTRA
7. Create the short text for the following wage types (Use Transaction SM31 -> view V_512W_T)
/ALL -> ALL
/E11 -> EXTG
/EXT -> Extr Tax
/RLL -> RRLL
/OHT -> HECSO
/OHP -> HecsPOvp
/OHR -> HecsROvp
/OST -> SFSSTOvp
/OSP -> SFSSPOvp
/OSR -> SFSSROvp
/OTT -> OvpInflx
GMOA -> TotMotor
GTPA -> Tottelep
GTRA -> TotTravl
GDIR -> DirFee
8. Create the New entry in the table for the following wage types
(Using the transaction SM31 -> view V_T54C3)
WageTy. CumTy. St.date EndDate NumCum AmtCum
/ALL M 01.01.1990 31.12.9999 Select
/ALL Y 01.01.1901 31.12.9999 Select
/E11 M 01.01.1990 31.12.9999 Select
/E11 Y 01.01.1901 31.12.9999 Select
/EXT Y 01.01.1901 31.12.9999 Select
/RLL M 01.01.1990 31.12.9999 Select
/RLL Y 01.01.1901 31.12.9999 Select
GMOA M 01.01.1990 31.12.9999 Select Select
GMOA Y 01.01.1990 31.12.9999 Select Select
GTPA M 01.01.1990 31.12.9999 Select Select
GTPA Y 01.01.1990 31.12.9999 Select Select
GTRA M 01.01.1990 31.12.9999 Select Select
GTRA Y 01.01.1990 31.12.9999 Select Select
GDIR M 01.01.1990 31.12.9999 Select Select
GDIR Q 01.01.1990 31.12.9999 Select Select
GDIR Y 01.01.1990 31.12.9999 Select Select
9. Table T511K (Use transaction SM31 -> view V_T511K)
Create a new entry as:-
MOLGA KONST ENDDA BEGDA KWERT KOTXT
13 QEXTT 31.12.9999 01.01.1800 1 Private Health Insur Extra Tax
10. Create the Feature QITWV (Use Transaction pe03)
o Select the Country Assignment 'Australia'
o Select the Component Assignment 'Common part of Payroll'
o Structure type: PME71
o Passing Type : 2
Decision Tree Entry for the Feature QITWV
Var Key F C Operations
D MOLGA
13 D PERSG
13 1 D PERSK
13 1 Q1 &QITWV=S,
13 1 Q2 &QITWV=S,
13 1 Q3 &QITWV=S,
13 1 Q4 &QITWV=S,
13 1 ** &QITWV=S,
13 * &QITWV=S,
** &QITWV=S,
--------------------------------------------------------------------
(Release 45B) --------------------------------------------------------------------
Define PME71 in Include RPCFTBQ0 (using transaction se38)
tables: t5qss, "Superannuation Defined Salary
t5qlr, "Leave Accrual Rules Australia
t5qlp, "Leave Provisions Australia
t777d, "Itype check table FGKAHRK000511
t5qgm, "Payroll Highlight Messages FDSAHRK002232
pernr, "HR Master Data FDSARHK002232
t5qsf, "Super funds Australia FDSAHRK002232
t533t, "Leave type texts FDSAHRK002232
pme14, " FDSAHRK002232
pme71, "ITWV
* t52bx, " FDSAHRK000132
* t500t, " FDSAHRK000132
* t558c. " FDSAHRK000132
t54c3. " FKHL4DK034901
--------------------------------------------------------------------
(Release 45B, 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
11. Create new Function QRADF (using transaction PE04)
o Description: Add Differences in Director's Fee & Allowances in /RLL to /A11 in DT
o Country Assignment : Australia
o Created in Include RPCMASQ9
*----------------------------------------------------------------------*
* Function: QRADF.
*----------------------------------------------------------------------*
*loops at Difference table and adds the /RLL entries to /A11 entries of
*the corresponding payroll periods
*/RLL will contain the delta difference in variation components
*(Allowance and Directors Fees) for a specific retro period
*----------------------------------------------------------------------*
FORM fuqradf.
LOOP AT dt.
IF DT-LGART = '/RLL'.
DT-LGART = '/A11'.
COLLECT DT.
ENDIF.
ENDLOOP.
ENDFORM.
12. Create new Function P0817 (using transaction PE04)
o Description: Read Income Tax Withholding Variation Infotype (0817) Data
o Country Assignment : Australia
o Created in Include RPCGETQ9
*&---------------------------------------------------------------------*
*& Form FUP0817
*&---------------------------------------------------------------------*
* This form fills the structure TVARP with the details from infotype *
* 0817 (Australian - Income Tax Withholding Varaitaion). *
* This structure is then used later in the payroll to calculate the *
* ITWV for the employee
*----------------------------------------------------------------------*
FORM fup0817.
DATA: BEGIN OF date_tab OCCURS 1,
back(1) TYPE c,
END OF date_tab.
DATA: l_it_read_date TYPE date.
DATA : number_of_repeats(2) TYPE p VALUE 20.
DATA: l_hiredate TYPE d,
l_firedate TYPE d.
DATA: BEGIN OF l_phifi OCCURS 5.
INCLUDE STRUCTURE phifi.
DATA: END OF l_phifi.
DATA : BEGIN OF repeat_structure,
lgart LIKE p0817-lga01,
END OF repeat_structure.
CLEAR:l_hiredate, l_firedate.
PERFORM get_inperiod_dates.
PERFORM re549s USING calcmolga t549a-datmo
aper-permo pay_period-year
pay_period-period '01' ' '.
LOOP AT p0001 WHERE endda >= t549s-pdate
AND begda <= t549s-pdate.
ENDLOOP.
MOVE-CORRESPONDING p0001 TO pme71.
MOVE calcmolga TO pme71-molga.
CLEAR date_tab.
REFRESH date_tab.
CALL FUNCTION 'HR_FEATURE_BACKTABLE'
EXPORTING
feature = 'QITWV'
struc_content = pme71
kind_of_error = '3'
TABLES
back = date_tab
* CHANGING
* STATUS =
EXCEPTIONS
* DUMMY = 1
* ERROR_OPERATION = 2
* NO_BACKVALUE = 3
* FEATURE_NOT_GENERATED = 4
* INVALID_SIGN_IN_FUNID = 5
* TAB_IN_REPORT_FIELD_IN_PE03 = 6
OTHERS = 0 .
CASE date_tab.
WHEN 'S'.
l_it_read_date = pn-begda.
WHEN 'P'.
l_it_read_date = t549s-pdate.
WHEN 'E'.
l_it_read_date = pn-endda.
WHEN OTHERS.
CLEAR log_text.
MOVE 'Income Tax Withholding variation will not be processed for
the employee'(QI2) TO log_text .
PERFORM log_comment(h13plog0) TABLES message_ptext
USING log_text.
PERFORM messages TABLES message_ptext.
EXIT.
ENDCASE.
PROVIDE * FROM p0817 BETWEEN l_it_read_date AND l_it_read_date.
MOVE-CORRESPONDING p0817 TO tvarp.
MOVE pn-begda TO tvarp-begda.
MOVE pn-endda TO tvarp-endda.
APPEND tvarp.
ENDPROVIDE.
IF sy-subrc NE 0.
IF date_tab = 'P' OR date_tab = 'E'.
CALL FUNCTION 'RP_HIRE_FIRE'
EXPORTING
beg = pn-begda
end = pn-endda
IMPORTING
fire_date = l_firedate
TABLES
pp0000 = p0000
pp0001 = p0001
pphifi = l_phifi.
PROVIDE * FROM p0817 BETWEEN l_firedate AND l_firedate.
MOVE-CORRESPONDING p0817 TO tvarp.
MOVE pn-begda TO tvarp-begda.
MOVE pn-endda TO tvarp-endda.
APPEND tvarp.
ENDPROVIDE.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF sy-subrc EQ 0.
DO number_of_repeats TIMES
VARYING repeat_structure-lgart FROM tvarp-lga01 NEXT tvarp-lga02.
PERFORM wage_type_validation USING repeat_structure-lgart.
IF repeat_structure-lgart = '! '.
CLEAR repeat_structure.
ENDIF.
ENDDO.
ENDIF.
ENDFORM. " FUP0817
13. Create new Operation QTVAR (using transaction PE04, Include RPCGETQ9)
o Description: Determine Taxable Allowance Amount for Income Tax Variation
o Country Assignment: Australia
o Parameters : Model -> EB
o In the Parameter Box -> Create an entry for the Fields 'Type V' and 'Lngth V' with values -> WGTYP and 4 respectively
o Created in Include RPCGETQ9
* Start Income Tax Witholding Variations
*----------------------------------------------------------------------*
* FORM OPQTVAR -
*----------------------------------------------------------------------*
* The Operation is for Income Tax Witholding Variations
* 1. It will check if whether the wage type being processed is to
* be subjected to allowance variation as per Infotype 817
* 2. If yes, then the operation will return the non-taxableallowance
* amount, which needs to be reduced from the taxable gross (/111)
* 3. If No, the operation returns 0, which means the taxable gross
* /111 is not to be reduced.
*----------------------------------------------------------------------*
FORM opqtvar.
DATA: l_allow LIKE p0817-lga01,
l_percn LIKE p0817-lgp01,
l_amt LIKE ot-betrg,
l_flag TYPE c VALUE 'N'.
* Check if wage type has a variation specified in TVARP
DO 20 TIMES
VARYING l_allow FROM tvarp-lga01 NEXT tvarp-lga02
VARYING l_percn FROM tvarp-lgp01 NEXT tvarp-lgp02.
IF ot-lgart = l_allow.
l_amt = ( ot-betrg * l_percn ) / 100.
ot-betrg = ot-betrg - l_amt.
l_flag = 'Y'.
EXIT.
ENDIF.
ENDDO.
* If wage type is not subject to any variation
IF l_flag = 'N'.
ot-betrg = 0.
ENDIF.
ENDFORM.
* End Income Tax Witholding Variations
14. A new parameter has been added to operatin QTAXC as follows:
Val.S Type V Lngth V
S ALL 4
The following code has to be included in Operation QTAXC as follows:
taxp-hecsf = ' '. "FSKAHRK030433
ELSEIF op-modif EQ 'R'. "FBDL9CK013854
taxp-taxsc+1(1) = 'R'. "FBDL9CK013854
* Start of insertion
*Start ITWV Changes for Salary and Wages Variation
ELSEIF op-modif EQ 'S'.
IF tvarp-taxpc NE 0.
taxp-taxsc = '8'.
taxp-taxpc = tvarp-taxpc.
taxp-rebat = ' '.
taxp-taxfi = 0.
taxp-hecsf = ' '.
ENDIF.
*End ITWV Changes for Salary and Wages Variation
*End of insertion
ENDIF.
* modify taxp index 1. "FKGP40K028315
IF ot-betrg GT 0.
* read program from T596F
15. New FORM wage_type_validation has to be included in the RPCGETQ9 include as follows:
*---------------------------------------------------------------------*
* FORM WAGE_TYPE_VALIDATION *
*---------------------------------------------------------------------*
* The wage type validation for allowable Allowance Wage type in IT0817*
*---------------------------------------------------------------------*
FORM wage_type_validation USING r_s-lgart.
DATA: i512t TYPE TABLE OF t512t WITH HEADER LINE.
DATA: i512w_d TYPE TABLE OF t512w WITH HEADER LINE.
SELECT * FROM t512w INTO TABLE i512w_d WHERE molga = '13'
AND lgart = r_s-lgart.
LOOP AT i512w_d WHERE lgart NE '' AND endda >= pn-endda
AND begda <= pn-endda.
.
IF i512w_d-vklas+21(1) NE 'A'.
CLEAR log_text.
CONCATENATE 'The wage type' i512w_d-lgart 'will not be processed for the allowance variation' INTO log_text SEPARATED BY space.
PERFORM log_comment(h13plog0) TABLES message_ptext
USING log_text.
PERFORM messages TABLES message_ptext.
ENDIF.
ENDLOOP.
ENDFORM.
16. Include RPCIFTQ0 has to be changed as follows:
*----------------------------------------------------------------------*
* INCLUDE RPCIFTQ0 Australian-dependent infotypes FRBAHRK060783 *
*----------------------------------------------------------------------*
INFOTYPES: 0188 OCCURS 1, "Tax Australia
0220, "Superannuation Australia
0261, "Leave Adjustments Australia
0817, "Income Tax Withholding Variations
2013. "Quota adj. AHRK039081
17. New Rule QDIR (Schema QAL0 -> Rule QDIR)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D VWTCL 22
* ADDWT *
D D ADDWT * TABLETVARPVALEN 1 VARGBDRFEE
D *
D X SUBWT /111
18. New Rule QSUM (Schema QAL0 -> Rule QSUM)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D VWTCL 22
* ADDWT *
M ADDWT * ADDWT GMOA
P ADDWT * ADDWT GTPA
R ADDWT * ADDWT GTRA
19. New Rule QALL (Schema QAL0 -> Rule QALL)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D VWTCL 22
* ADDWT *
A ADDWT * QTVAR SUBWT /111SUBWT /ALLNEXTR
A 1 FILLF A ADDWT /ALL
20. New Rule QEXT (Schema QNET -> Schema QTAX -> Rule QEXT)
o ES grouping * Wage Type ****
--------------------------------------------------------------------
(Release 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D TABLETAXP VALEN 1 VARGBEXTAX
*
X AMT= /E11AMT%KQEXTTSUBWTI/411SUBWTI/416SUBWTE/EXT
--------------------------------------------------------------------
(Release 45B) --------------------------------------------------------------------
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D TABLETAXP VALEN 1 VARGBEXTAX
*
X AMT= /E11AMT%KQEXTTSUBWTI/411SUBWTE/EXT
21. New Rule QREM (Schema QNET -> Schema QTAX -> Rule QREM)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D TABLETVARPAMT=BHECSOAMT?0
*
> ELIMI * ADDWTI/OHRAMT= /OHTELIMI * SUBWTI/OHR
22. New Rule QSRM (Schema QNET -> Schema QTAX -> Rule QSRM)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D TABLETVARPAMT=BSFSSOAMT?0
*
> ELIMI * ADDWTI/OSRAMT= /OSTELIMI * SUBWTI/OSR
23. New Rule QHOV (Schema QNET -> Schema QTAX -> Rule QHOV)
o ES grouping * Wage Type /OHR
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D WGTYP?
**** ADDWT *
/OHR D AMT=Z /401AMT?0
/OHR * FILLF A ADDWT *
/OHR < D FILLF A ELIMI * ADDWT * AMT+ /401AMT?0
/OHR < * FILLF A ELIMI * ADDWT /OHPADDWT /401NEXTR
/OHR < * 1 ADDWT /OHTAMT*-1 ADDWT /OHR
/OHR < > AMT=0 ELIMI * AMT- /401ADDWT /OHPADDWT /401NEXTR
/OHR < > 1 ADDWT /OHTAMT*-1 ADDWT /OHR
24. New Rule QSOV (Schema QNET -> Schema QTAX -> Rule QSOV)
o ES grouping * Wage Type /OSR
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D WGTYP?
**** ADDWT *
/OSR D AMT=Z /401AMT?0
/OSR * FILLF A ADDWT *
/OSR < D FILLF A ELIMI * ADDWT * AMT+ /401AMT?0
/OSR < * FILLF A ELIMI * ADDWT /OSPADDWT /401NEXTR
/OSR < * 1 ADDWT /OSTAMT*-1 ADDWT /OSR
/OSR < > AMT=0 ELIMI * AMT- /401ADDWT /OSPADDWT /401NEXTR
/OSR < > 1 ADDWT /OSTAMT*-1 ADDWT /OSR
25. New Rule QIS2 (Schema QNET -> Schema QTAX -> Rule QIS2)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D QRDT2
*
Y D WGTYP?
Y ****
Y /OTT ELIMI * ADDWTI/401
26. New Rule QRTI (Schema QNET -> Schema QTAX -> Rule QRTI)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D WGTYP?
**** ADDWT *
/OHP ADDWT * ADDWTD/OTT
/OSP ADDWT * ADDWTD/OTT
27. New Rule QSTI (Schema QNET -> Schema QTAX -> Rule QSTI)
o ES grouping * Wage Type ****
VarKe NL T Operation Operation Operation Operation Operation Operation
-----------+---------+---------+---------+---------+---------+--------
AMT= /401SUBWTI/401AMT=& TOTTADDWTI/401ZERO=&TOTTADDWT&TOTT
28. New Rule QRVO (Schema QRRO -> Schema QARR -> Rule QRVO)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D VWTCL 22
*
A D QTVAR AMT?0
A * FILLF A SUBWTD/RLLAMT=O /ALLADDWTD/RLL
A =
D D TABLETVARPVALEN 1 VARGBDRFEE
D *
D X SUBWTD/RLL
29. New Rule QRVR (Schema QRRO -> Schema QARR -> Rule QRVR)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D VWTCL 22
*
A D QTVAR AMT?0
A * FILLF A ADDWTD/RLLAMT=E /ALLSUBWTD/RLL
A =
D D TABLETVARPVALEN 1 VARGBDRFEE
D * ADDWTD/RLL
30. Rule QLAC to be changed to the follwing (Schema QLR0 -> Rule QLAC)
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D VWTCL 73 *
1 ADDWTI* 3 LRTST Y ADDWTI/OHT 4 LRTST Y ADDWTI/OST
31. Rule QTAX to be changed for wagetype /111 to the following (Schema QNET -> Schema QTAX -> Rule QTAX)
o ES grouping * Wage Type ****
--------------------------------------------------------------------
(Release 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D WGTYP?
**** ADDWT *
/109 ADDWT * QTAXCL/410SUBWT * FILLF A QTAXC /409SUBWT *
/111 D NUM?0
/111 < ERROR
/111 = NUM=1 ADDWT * ADDWT /116ADDWT /E11NEXTR
/111 = 1 QTAXCS/411NUM=0 SUBWT SUBWT /416
/111 > ADDWT * DIVID ANA NUM=1 ADDWT /116ADDWT /E11NEXTR
/111 > 1 QTAXCS/411NUM=0 SUBWT /416NEXTR
/111 > 2 FILLF N MULTI ANA NUM=0 SUBWT /411
.....
--------------------------------------------------------------------
(Release 45B) --------------------------------------------------------------------
VarKey NL T Operation Operation Operation Operation Operation Operation *
-------------+---------+---------+---------+---------+---------+-------
D WGTYP? **** ADDWT * /109 ADDWT * QTAXCL/410SUBWT * FILLF A QTAXC /409SUBWT * /111 D NUM?0 /111 < ERROR /111 = NUM=1 ADDWT * ZERO=&HTG1ADDWT&HTG1ADDWT /E11NEXTR /111 = 1 QTAXCS/411NUM=0 SUBWT * ZERO=&HTX1SUBWT&HTX1 /111 > ADDWT * DIVID ANA ZERO=&HTG1ADDWT&HTG1ADDWT /E11NEXTR /111 > 1 QTAXCS/411ZERO=&HTX1SUBWT&HTX1MULTI ANA NUM=0 SUBWT * .....
32. Rule QBON to be changed for Var key 6 to the following (Schema QNET -> Schema QTAX -> Rule QBON)
o ES grouping * Wage Type ****
--------------------------------------------------------------------
(Release 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D VWTCL 21
* ADDWT *
6 ADDWT * ADDWT /BONADDWT /E11ELIMI * FILLF A NEXTR
6 1 QPERII DIVID ANA ELIMI * ADDWT /116AMT+E /109NEXTR
6 2 QTAXC /411AMT+E /409SUBWT /416MULTI ANA NEXTR
6 3 NUM=0 SUBWT * NUM=1 SUBWTI/BTX
6 4 * ADDWT * ADDWT /BONELIMI * FILLF A QPERII NEXTR
6 5 * DIVID ANA ELIMI * ADDWT /116AMT=Z /116AMT+E /GR1NEXTR
6 6 * QTAXC /411AMT+Z /416AMT+E /TX1SUBWT /416WGTYP=* NEXTR
6 7 * QPERII MULTI ANA NUM=0 SUBWT /411NUM=1
6 8 * END CHANGE SUBWTE/BTX
6 = * FILLF A QPERII DIVID ANA ELIMI * NEXTR
6 = 1 * ADDWT /116AMT+E /109AMT+E /GR1QTAXC /411AMT+E /409NEXTR
6 = 2 * AMT+E /TX1SUBWT /416MULTI ANA NUM=0 SUBWT *
6 > * FILLF A QPERII DIVID ANA ELIMI * ADDWT /116NEXTR
6 > 1 * AMT=Z /116AMT+E /GR1QTAXC /411AMT+Z /416AMT+E /TX1NEXTR
6 > 2 * SUBWT /416WGTYP=* QPERII MULTI ANA NUM=0 NEXTR
6 > 3 * SUBWT /411NUM=1
...
--------------------------------------------------------------------
(Release 45B) --------------------------------------------------------------------
VarKey NL T Operation Operation Operation Operation Operation Operation
-------------+---------+---------+---------+---------+---------+----
D VWTCL 21
* ADDWT *
6 D ADDWT * ADDWT /E11ELIMI * AMT=Z /111AMT?0
6 * FILLF A QPERII DIVID ANA ELIMI * AMT+& HTG1NEXTR
6 * 1 QTAXC /411AMT+& HTX1MULTI ANA NUM=0 SUBWT * NEXTR
6 * 2 NUM=1 SUBWTI/BTX
6 = FILLF A QPERII DIVID ANA ELIMI * AMT+E /109NEXTR
6 = 1 QTAXC /411AMT+E /409MULTI ANA NUM=0 SUBWT * NEXTR
6 = 2 NUM=1 SUBWTI/BTX
...
33. Change the Rule QLS4 to the following (Schema QNET -> Schema QTAX -> Rule -> QLS4):
o ES grouping * Wage Type /LG3
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D AMT?0
< ELIMI * ADDWTE/LGLADDWTE/LGTQNGRF ADDWT&LLTL
=
> ELIMI * ADDWTE/LGLADDWTE/LGTADDWTI/E11AMT+& LBASNEXTR
> 1 QTAXC AMT+& LBTXSUBWT&LLTL
34. Change the Rule QLS6 to the follwing (Schema QNET -> Schema QTAX -> Rule -> QLS6):
o ES grouping * Wage Type /LG3
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D AMT?0
< ELIMI * ADDWTE/LGGADDWTE/LGTQNGRF ADDWT&LLTG
=
> ELIMI * ADDWT&LGGDADDWTE/LGGADDWTE/LGTADDWTI/E11
35. Change the Rule QLB2 to the following (Schema QNET -> Schema QTAX -> Rule -> QLB2):
o ES grouping * Wage Type /LB3
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D AMT?0
< ADDWT&LBGLQNGRF ADDWT&LBTL
=
> ADDWTI/E11ADDWT&LBGLAMT+& BBASQTAXC AMT+& BBTXNEXTR
> 1 SUBWT&LBTL
36. Change the Rule QLB4 to the following (Schema QNET -> Schema QTAX -> Rule -> QLB4):
o ES grouping * Wage Type /LB3
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D AMT?0
< ADDWT&LBGGQNGRF ADDWT&LBTG
=
> ADDWT&LBGGADDWT&LBGDADDWTI/E11
37. Change the Rule QRTX to the following (Schema QNET -> Schema QTAX -> Schema QSRV -> Rule -> QRTX):
o ES grouping * Wage Type ****
VarKey NL T Operation Operation Operation Operation Operation Operatio
-------------+---------+---------+---------+---------+---------+-------
D WGTYP?
****
/111 ADDWTI*
/112 ADDWTI*
/113 ADDWTI*
/114 ADDWTI*
/401 ADDWT&TOTT
/411 ADDWTI*
/412 ADDWTI* SUBWTD*
/413 ADDWTI* SUBWTD*
/414 ADDWTI* SUBWTD*
/426 SUBWTD/411
/BTX SUBWTD/BTXADDWTD/411
/OHP SUBWTD/OTT
/OSP SUBWTD/OTT
38. Change Schema QTAX to the following:
--------------------------------------------------------------------
(Release 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
Func. Par1 Par2 Par3 Par4 D Text
COM ****************************
BLOCK BEG Calculation of Tax
COM ****************************
PIT QCTX P21 NOAB
PIT QSAC P21 NOAB Deductions before Tax
XDECI FILL IT *
XDECI FILL RT *
PIT QCOM GEN NOAB Cumulate taxable gross
ACTIO QZGR Create zero value /111
AVERA Averages
PIT QAVE GEN NOAB Determine Average Value
IF SPRN If special offcycle run
ELSE
IF ADV If Advanced Payment
ELSE else
QADVI ALL T Import all Advanced Payments
ENDIF
ENDIF Endif special offcycle run
QCUGT Cumulate previous gross & ta
PIT QTAX GEN NOAB Standard Australian Taxation
PIT QATG GEN NOAB Adjust Taxable Gross
SORT IT Sort the IT table
IF O * Only do for Original Run
PIT QBON P21 NOAB Tax on Bonuses and Commissio
IF O *
PIT QBNF GEN NOAB * Tax on Bonus Across Financia
ENDIF *
PIT QVR1 GEN NOAB Copy the value of tax to a v
ACTIO QTR1 Clear variables LAMT,LTX1,LT
PIT QTRM P21 NOAB Termination Taxation
ACTIO QTRF Termination. Tax for PC set to 'F
ACTIO QTRB Termination Tax for PC set to 'B'
PIT QTXP P21 NOAB Fixed Tax on earnings
PIT QRFT GEN NOAB Add retro fixed tax difference to
SORT IT Apply Note 330478 : Apply note
PIT QTXO P66 NOAB Taxation Override : Apply note
IF XFIY * Check for a cross of financial ye
IF R Only do for Retro
COPY QLSP Taxation of Bonuses/LumpSum Payme
LPBEG RC *
IMPRT O *
PORT QGTX GEN NOAB *
PORT QSTX GEN NOAB *
LPEND *
PIT QRND GEN NOAB Round /411 with old results /426
ENDIF Retro
IF O Only do for Original Run (LSPA)
ACTIO QL11 *
PIT QLP1 GEN NOAB * Copy wage types to variables
QRDT1 *
PDT QLP2 GEN NOAB * Filter WT's to be used for LSPA t
PDT QETX GEN NOAB *
PRINT NP VAR * Print VAR table
ACTIO QLP3 * move LTX2 to wage types
ACTIO QLP4 * move LGR2 to wage types
ACTIO QLP5 * calc tax on var LGR3
ACTIO QLP6 * move LTX3 to wage types
PDT QL10 GEN NOAB *
ACTIO QLS1 Clear all variables used for LSP
QRADF Cumulate diff in variation to /a
QLBSP Cumulate difference in gross in
QAVBS Determine the Base gross and Bas
ACTIO QCSL Processing for Casual Employee
PDT QLS2 GEN NOAB Cumulate difference in Tax with
PRINT NP VAR Print VAR table
PDT QLS3 NOAB Calculate Tax for across fin y
PDT QLS5 NOAB Sum diff in Gross across fin y
ACTIO QLS7 Calculate Tax for across fin y
PRINT NP VAR Print VAR table
ACTIO QLS8 Add tax to /401, Add gross to
PDT QLB1 NOAB Calculate Bon Tax for acr fin
PDT QLB3 NOAB Bon >12 M sum positive, get ta
PDT QPAY GEN NOAB Payment summary reporting
ACTIO QLB5 Tax Bonus across finyr > 12 M
PRINT NP VAR Print VAR table
ACTIO QLB6 Add Bonus tax to /416, Gross t
ENDIF end of IF O for LSPA
ACTIO QEXT Calculate Extra Tax
ACTIO QZTX Generate a zero value /426
PIT QTXR GEN NOAB Store the taxable gross to /426
COPY QSRV Store Retro values for calc of p
IF XFIY
ELSE
PIT QSRT GEN NOAB Store retro tax to RT
ENDIF
ACTIO QTXC Clear out variables used by rule
SORT IT * Apply Note 330478 : Apply note 4
PIT QTXO P66 NOAB * Taxation Override : Apply note 4119
PIT QCUM GEN NOAB Cumulate to Full tax and full gross
IF O
PDT QIS2 GEN NOAB Bring retro differences of overpayme
ENDIF
PIT QTTO P66 NOAB Override Total Tax in /401
PRINT NP VAR
ACTIO QREM Determine remaining HECS overpayment
ACTIO QSRM Determine remaining SFSS overpayment
PIT QHOV NOAB Reduce Tax (Reimburse HECS overpayme
PIT QSOV NOAB Reduce Tax (Reimburse SFSS overpayme
IF R
PIT QRTI GEN NOAB Create DT entries for diff in reimb
ACTIO QSTI Replace Original Tax in retro period
ENDIF
PRINT NP VAR
BLOCK END
--------------------------------------------------------------------
(Release 45B) --------------------------------------------------------------------
Fct Par1 Par2 Par3 Par4 D Text
COM ****************************************
BLOCK BEG Calculation of Tax
COM ****************************************
PIT QCTX P21 NOAB
PIT QSAC P21 NOAB Deductions before Tax
XDECI FILL IT *
XDECI FILL RT *
PIT QCOM GEN NOAB Cumulate taxable gross
IF ADV Import all Advanced Payments
ELSE
QADVI ALL T Cumulate previous gross & tax
ENDIF Standard Australian Taxation
PIT QTAX GEN NOAB Tax on Bonuses and Commissions
PIT QATG GEN NOAB Check for a cross of financial year
SORT IT Termination Taxation
ACTIO QTAV * Create average tax and gross for term.
IF O * Fixed Tax on earnings
PIT QBON P21 NOAB Add retro fixed tax difference to tax
ENDIF *
PIT QATG GEN NOAB * Adjust Taxable Gross
ACTIO QTAV * Create average tax and gross for term.
PIT QVR1 GEN NOAB Copy the value of tax to a variable
ACTIO QTR1 Clear variables LAMT,LTX1,LTX2
PIT QTRM P21 NOAB
ACTIO QTRF Term. Tax for PC set to 'F'
ACTIO QTRB Term. Tax for PC set to 'B'
PIT QTXP P21 NOAB Only do for Retro
PIT QRFT GEN NOAB Only do for Original Run
SORT IT
PIT QTXO P66 NOAB
PIT QTXR GEN NOAB * Store Retro tax
IF XFIY * Check for a cross of financial year
IF R Only do for Retro
COPY QLSP
LPBEG RC * Retro
IMPRT O * end of IF O for LSPA
PORT QGTX GEN NOAB * Store the taxable gross to /426
PORT QSTX GEN NOAB *
LPEND *
PIT QRND GEN NOAB Store retro tax to RT
ENDIF
ENDIF * Cross Financial year
IF O Generate a zero value /426
ACTIO QL11 *
PIT QLP1 GEN NOAB * Apply Note 330478 : Apply note 411974
QRDT1 * Apply Note 330478 : Apply note 411974
PDT QLP2 GEN NOAB * Taxation Override : Apply note 411974
PDT QETX GEN NOAB *
PRINT NP VAR * If special offcycle run
ACTIO QLP3 *
PRINT NP VAR *
PRINT NP RT *
ACTIO QLP4 * Endif special offcycle run
ACTIO QLP5 *
PRINT NP VAR *
ACTIO QLP6 * Tax on Bonus Across Financial Year
PRINT NP VAR *
PRINT NP RT *
PDT QL10 GEN NOAB *
ACTIO QLS1 Clear all variables used for LS
QRADF Cumulate diff in variation to /a11 in DT
QLBSP Cumulate difference in gross in
QAVBS Determine the Base gross and Ba
ACTIO QCSL Processing for Casual Employee
PDT QLS2 GEN NOAB Cumulate difference in Tax with
PRINT NP VAR Print VAR table
PDT QLS3 NOAB Calculate Tax for across fin y
PDT QLS5 NOAB Sum diff in Gross across fin y
ACTIO QLS7 Calculate Tax for across fin y
PRINT NP VAR Print VAR table
ACTIO QLS8 Add tax to /401, Add gross to /106
PDT QLB1 NOAB Calculate Bon Tax for acr fin
PDT QLB3 NOAB Bon >12 M sum positive, get ta
PDT QPAY GEN NOAB Payment summary reporting
ACTIO QLB5 Tax Bonus across finyr > 12 M
PRINT NP VAR Print VAR table
ACTIO QLB6 Add Bonus tax to /401, Gross t0 /106
ENDIF Copy the value of tax to a variable
ACTIO QEXT Calculate Extra Tax
ACTIO QZTX Taxation of Bonuses/LumpSum Payments
PIT QTXR GEN NOAB
COPY QSRV Only do for Original Run (LSPA)
IF XFIY Copy wage types to variables
ELSE Filter WT's to be used for LSPA taxation
PIT QSRT GEN NOAB move LTX2 to wagetypes
ENDIF move LGR2 to wagetypes
ACTIO QTXC calc tax on var LGR3
SORT IT * move LTX3 to wagetypes
PIT QTXO P66 NOAB * Print VAR table
PIT QCUM GEN NOAB
IF O
PDT QIS2 GEN NOAB Bring retro differences of overpayment
ENDIF
PIT QTTO P66 NOAB Override Total Tax in /401
PRINT NP VAR
ACTIO QREM Determine remaining HECS overpayment
ACTIO QSRM Determine remaining SFSS overpayment
PIT QHOV NOAB Reduce Tax (Reimburse HECS overpayment)
PIT QSOV NOAB Reduce Tax (Reimburse SFSS overpayment)
IF R
PIT QRTI GEN NOAB Create DT entries for diff in reimb ovp
ACTIO QSTI Replace Original Tax in retro period
ENDIF
PRINT NP VAR
BLOCK END
39. Change Schema QLR0 to the following:
Func. Par1 Par2 Par3 Par4 D Text
COM *****************************
BLOCK BEG Last payroll results.
COM *****************************
IMPRT L Import last result
PORT QLAC P73 NOAB Put wage types direct into IT
PORT X006 P06 NOAB Transfer relevant data to LRT
PIT QADN GEN NOAB Set number of deductions to 1
SETCU Process previous cumulations
ACTIO X402 Process outflow wage type /A6
BLOCK END
40. Change Schema QAL0 to the following:
--------------------------------------------------------------------
(Release 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
Func. Par1 Par2 Par3 Par4 D Text
COM ******************************
BLOCK BEG Monthly factoring and storage
COM ******************************
IF SPRN If special offcycle run
ELSE
GEN/8 16 Create wage types /801 to /816
PIT QPPF NOAB Determine partial monthly fact
PIT XCM0 P31 * Monthly lump sums for cost acc
PIT QAB0 GEN Remove abs. for PCR 2 - PH9K01
PIT XVAL P10 Evaluate pay elements
PIT QADN GEN NOAB Set number of deductions to 1
IF ADV If Advanced Payment
ELSE else
QADVI ALL 0 Import all Advanced Payments
ENDIF
ACTIO XCH0 A Hourly rates for cost accounti
ENDIF Endif special offcycle run
PRART Q014 GEN NOAB Process previous ARRRS table
IF ADV If Advance Payment
PIT QALD P21 NOAB Advance payment leave loading
ELSE
PIT QLLD P21 NOAB Determine leave loading
ENDIF
PIT QPER P71 NOAB Determine tax periods
PIT QDIR P22 NOAB Tax Variation for Directors fe
PIT QSUM P22 NOAB Cumulate different Allowance
PIT QALL P22 NOAB Tax Variation on Allowances
PIT X023 P20 NOAB Gross entry and storage
XDECI CONV RT 2 * Convert mult.dec currency to c
Func. Par1 Par2 Par3 Par4 D Text
XDECI CONV IT 2 * Convert mult.dec currency to c
COPY XPDD * Adjust deductions corr. table
PIT Q025 P04 NOAB Gross cumulation, cost distrib
ACTIO QZGR * Create zero value /111
AVERA * Averages
PIT QAVE GEN NOAB * Determine Average Value
BLOCK END
--------------------------------------------------------------------
(Release 45B) --------------------------------------------------------------------
Fct Par1 Par2 Par3 Par4 D Text
COM ****************************************
BLOCK BEG Monthly factoring and storage
COM ****************************************
GEN/8 16 Create wage types /801 to /816 in IT
PIT XPPF NOAB Determine partial monthly factors
PIT XCM0 P31 * Monthly lump sums for cost accounting
PIT XVAL P10 Evaluate pay elements
PIT QADN GEN NOAB Set number of deductions to 1 if 0
IF ADV If Advanced Payment
ELSE else
QADVI ALL 0 Import all Advanced Payments
ENDIF
ACTIO XCH0 A Hourly rates for cost accounting
IF ADV If advance pay period
PIT QALD P21 NOAB Determine advance leave loading paid
ELSE
PIT QLLD P21 NOAB Determine leave loading paid
ENDIF
PIT QPER P71 NOAB Determine tax periods
PIT QDIR P22 NOAB Tax Variation for Directors fees
PIT QSUM P22 NOAB Cumulate different Allowance types
PIT QALL P22 NOAB Tax Variation on Allowances
PIT X023 P20 NOAB Gross entry and storage
XDECI CONV RT 2 * Convert mult.dec currency to calc curr.
XDECI CONV IT 2 * Convert mult.dec currency to calc curr.
PIT Q025 P04 NOAB Gross cumulation, cost distribution
BLOCK END
41. Change Schema QSRV to the following:
--------------------------------------------------------------------
(Release 46B, 46C, 470, ECC 5.0) --------------------------------------------------------------------
Func. Par1 Par2 Par3 Par4 D Text
IF R Only create tax if original per
IF XFIY * If retro across a financial yea
PIT QTGF GEN NOAB Change taxable gross for fixed
ELSE *
PIT QTG1 GEN NOAB * Change taxable gross for fixed
ENDIF *
RFRSH ORT Refresh the ORT
LPBEG RC
IMPRT O Import this periods original re
PORT QRRF GEN NOAB For retro on retro add /o to ta
LPEND
IF XFIY * If retro across a financial yea
PIT QFTR GEN NOAB Process retro tax for fixed tax
ENDIF *
PIT QSTG GEN NOAB Store /111 into /R11 for future
IF XFIY * Check if retro crossed financia
PIT QXID P76 NOAB Put new taxable gross into DT
PIT QDTI GEN NOAB Get rid of tax values from IT w
LPBEG RC
IMPRT O Import this periods original re
PORT QRTX GEN NOAB Bring tax values from original
LPEND
ENDIF * Cross financial year
SORT IT
IF XFIY * If crossing financial year
PIT QFRT GEN NOAB Retro on fixed tax
ACTIO QTXN Check if tax to be paid or refu
ENDIF * Crossing Financial year
SORT IT
ENDIF
--------------------------------------------------------------------
(Release 45B) --------------------------------------------------------------------
Fct Par1 Par2 Par3 Par4 D Text
IF R Only create tax if original period
IF XFIY * If retro across a financial year
PIT QTGF GEN NOAB Change taxable gross for fixed tax retro
ELSE *
PIT QTG1 GEN NOAB * Change taxable gross for fixed tax retro
ENDIF *
RFRSH ORT Refresh the ORT
LPBEG RC
IMPRT O Import this periods original results
PORT QRRF GEN NOAB For retro on retro add /o to tax gross
LPEND
IF XFIY * If retro across a financial year
PIT QFTR GEN NOAB Process retro tax for fixed tax WT's
ENDIF *
PIT QSTG GEN NOAB Store /111 into /R11 for future retros
IF XFIY * Check if retro crossed financial year
PIT QXID P76 NOAB Put new taxable gross into DT
PIT QDTI GEN NOAB Get rid of tax values from IT when retro
LPBEG RC
IMPRT O Import this periods original results
PORT QRTX GEN NOAB Bring tax values from original period
LPEND
ENDIF * Cross financial year
SORT IT
IF XFIY * If crossing financial year
PIT QFRT GEN NOAB Retro on fixed tax
PIT QTXN GEN NOAB Check if tax to be paid or refund req'd
ENDIF * Crossing Financial year
SORT IT
ENDIF
42. Change Schema QBD0 to the following:
Func. Par1 Par2 Par3 Par4 D Text
COM ********************************
BLOCK BEG Basic data Australia
COM ********************************
P0188 Read Taxation Information
P0220 Read the Superannuation Informat
P0817 Read IncomeTax witholding Variat
P0261 * Read the Leave Loading - PH9K018
ENAME Determine name of EE (infotype 0
.........
43. New messages have to be created for message class 5i.(Transaction se91). Following are the new entries:
Mess. Message short text
151 HECS/SFSS overpayment amounts cannot be negative
152 Salary and Wage tax percentage cannot be greater than 100
153 Allowance tax variation percentage cannot be greater than 100
154 Wage type & entry does not exist in table T512W
155 Allowance wage type & is not applicable for tax variation
156 Employee HECS/SFSS contribution exists in infotype 0188
157 ITWV entry cannot be retroactively changed across financial year
158 Number of entries in table exceeds &
159 Enter tax variation percentage for the allowance wage type
160 Wage type & is entered twice. Only one will be used for caln.
161 Start Date and End date are across Financial Year