The system does not include the additional bonus into the calculation in the 2-NDFL report when you run the Recalculate function on an employee in the Russian version of Microsoft Dynamics NAV 2009 with local critical updates 59774 and 60060 installed

Installation information

Code changes

1. Add a new function as follows:

   PROCEDURE CreateGainTaxLine@1210006(PayrollDocLine@1210000 : Record 17415;PostingDate@1210011 : Date;AdvancePayment@1210003 : Boolean);
   VAR
   PersonIncomeEntry@1210001 : Record 17398;
   BaseAmount@1210002 : Decimal;
   BEGIN
   WITH PayrollDocLine DO BEGIN
   PersonIncomeEntry.SETCURRENTKEY("Employee Ledger Entry No.");
   PersonIncomeEntry.SETRANGE("Period Code","Period Code");
   PersonIncomeEntry.SETRANGE("Person No.",Person."No.");
   PersonIncomeEntry.SETRANGE(Interim,IsInterim);
   IF "Employee Ledger Entry No." <> 0 THEN BEGIN
   PersonIncomeEntry.SETRANGE("Employee Ledger Entry No.","Employee Ledger Entry No.");
   IF PersonIncomeEntry.FINDFIRST THEN
   BaseAmount := "Payroll Amount" - PersonIncomeEntry.Base
   ELSE
   BaseAmount := "Payroll Amount";
   END ELSE
   BaseAmount := "Payroll Amount";
   
   InsertPersonIncomeEntry(
   PersonIncomeEntry."Entry Type"::"Taxable Income","Document No.",
   "Directory Code",0,BaseAmount,0,0,'',0,PostingDate,PostingDate,
   0,"Employee Ledger Entry No.",IsInterim,AdvancePayment)
   END;
   END;

2. Change the code in the CreateIncomeTaxLine function as follows:
   Existing code

   ...
   "Element Type"::Bonus:
   
   // Delete the following lines.
   BEGIN
   PersonIncomeEntry2.RESET;
   PersonIncomeEntry2.SETCURRENTKEY("Employee Ledger Entry No.");
   PersonIncomeEntry2.SETRANGE("Employee Ledger Entry No.","Employee Ledger Entry No.");
   PersonIncomeEntry2.SETRANGE("Period Code","Period Code");
   PersonIncomeEntry2.SETRANGE(Calculation,TRUE);
   IF PersonIncomeEntry2.FINDFIRST THEN
   InsertPersonIncomeEntry(
   PersonIncomeEntry2."Entry Type"::"Taxable Income","Document No.",
   "Directory Code",0,"Payroll Amount" - PersonIncomeEntry2.Base,0,0,'',0,PostingDate,PostingDate,
   0,"Employee Ledger Entry No.",IsInterim,PayrollElement."Advance Payment")
   ELSE
   InsertPersonIncomeEntry(
   PersonIncomeEntry2."Entry Type"::"Taxable Income","Document No.",
   "Directory Code",0,"Payroll Amount",0,0,'',0,PostingDate,PostingDate,
   0,"Employee Ledger Entry No.",IsInterim,PayrollElement."Advance Payment");
   END;
   // End of the deleted lines.
   
   "Element Type"::"Tax Deduction":
   ...

   Replacement code

   ...
   "Element Type"::Bonus:
   
   // Add the following lines.
   CreateGainTaxLine(PayrollDocLine,PostingDate,PayrollElement."Advance Payment");
   "Element Type"::Other:
   IF PayrollElement."Income Tax Base" THEN
   CreateGainTaxLine(PayrollDocLine,PostingDate,PayrollElement."Advance Payment");
   // End of the added lines.
   
   "Element Type"::"Tax Deduction":
   ...

Prerequisites

• The Russian version of Microsoft Dynamics NAV 2009 R2
• The Russian version of Microsoft Dynamics NAV 2009 Service Pack 1

Removal information