The system unexpectedly populates incorrect amounts in the general ledger (G/L) entries after you post the correction for a payroll document in the Russian version of Microsoft Dynamics NAV 2009 R2

Installation information

Code changes

1. Change the code in the Payroll Document – Calculatecodeunit (17404). To do this, follows these steps:
   1. Create a new function as follows:

      LOCAL PROCEDURE IsCorrDocument@1210011(DocumentNo@1210000 : Code[20]) : Boolean;
      VAR
      PayrollDocument@1210001 : Record 17414;
      BEGIN
      IF PayrollDocument.GET(DocumentNo) THEN
      EXIT(PayrollDocument.Correction);
      END;

   2. Change the code in the Withholding function. To do this, follow these steps:
      1. Add a local variable, and then specify the variable as follows:
         • Name: Sign
         • Datatype: Integer
      2. Change the code as follows:
         Existing code 1

         ...
         IF RangeHeader.FIND('+') THEN;
         FundTax := (PayrollDocLine."Element Type" = PayrollDocLine."Element Type"::Funds);
         ...

         Replacement code 1

         ...
         IF RangeHeader.FIND('+') THEN;
         
         // Add the following lines.
         IF TaxableGross >= 0 THEN
         Sign := 1
         ELSE
         Sign := -1;
         // End of the added lines
         
         FundTax := (PayrollDocLine."Element Type" = PayrollDocLine."Element Type"::Funds);
         ...

         Existing code 2

         ...
         
         // Delete the following line.
         SETFILTER("Over Amount",'<%1',TaxableGross);
         
         IF NOT FIND('+') THEN BEGIN
         SETRANGE("Over Amount");
         IF NOT FIND('-') THEN
         EXIT(0);
         END;
          
         // Delete the following lines.
         ReturnValue := "Tax Amount" +
         ((TaxableGross - "Over Amount") * "Tax %" / 100.0);
         IF ReturnValue < 0 THEN
         ReturnValue := 0;
         IF ("Max Deduction" > 0) AND (ReturnValue > "Max Deduction") THEN
         ReturnValue := "Max Deduction";
         // End of the deleted lines.
         
         ...

         Replacement code 2

         ...
         
         // Add the following line.
         SETFILTER("Over Amount",'<%1',ABS(TaxableGross));
         
         IF NOT FIND('+') THEN BEGIN
         SETRANGE("Over Amount");
         IF NOT FIND('-') THEN
         EXIT(0);
         END;
          
         // Add the following lines.
         ReturnValue := "Tax Amount" +
         ((TaxableGross - Sign * "Over Amount") * "Tax %" / 100.0);
         IF (ReturnValue < 0) AND NOT IsCorrDocument(PayrollDocLine."Document No.") THEN
         ReturnValue := 0
         ELSE
         IF ("Max Deduction" > 0) AND (ABS(ReturnValue) > "Max Deduction") THEN
         ReturnValue := Sign * "Max Deduction";
         // End of the added lines.
         
         ...

2. Change the code in the Payroll Document – Post codeunit (17405). To do this, follow these steps:
   1. Create a new function as follows:

      ...
      LOCAL PROCEDURE GetSignFactor@1210010(Amount@1170000000 : Decimal) : Integer;
      BEGIN
      IF Amount >= 0 THEN
      EXIT(1);
      EXIT(-1);
      END;
      ...

   2. Change the code in the Onrun trigger as follows:
      Existing code

      ...
      PostedPayrDocLineToGenJnlLine(PostedPayrollDocLine,GenJnlLine);
      
      // Delete the following lines.
      IF Correction THEN
      GenJnlLine.VALIDATE(Amount,-PayrollDocBuffer."Tax Amount")
      ELSE
      GenJnlLine.VALIDATE(Amount,PayrollDocBuffer."Tax Amount");
      // End of deleted lines.
      
      PayrollElement.GET(PayrollDocBuffer."Element Code");
      ...

      Replacement code

      ...
      PostedPayrDocLineToGenJnlLine(PostedPayrollDocLine,GenJnlLine);
      
      // Add the following line.
      GenJnlLine.VALIDATE(Amount,PayrollDocBuffer."Tax Amount");
      
      ...

   3. Change the code in the Aggregate Taxes function. To do this, follow these steps:
      1. Add a local variable, and then specify the variable as follows:
         • Name: Sign
         • Datatype: Integer
      2. Change the code as follows:
         Existing code

         ...
         PayrollDocBuffer.RESET;
         PayrollDocBuffer.SETRANGE("Element Code",PayrollDocLineFund."Element Code");
         IF PayrollDocBuffer.FINDSET THEN
         REPEAT
         
         // Delete the following line.
         YTDTaxableAmount := YTDTaxableAmount + PayrollDocBuffer."Base Amount";
         
         TempPayrollDocLine2."Employee No." := PayrollDocLineFund."Employee No.";
         TempPayrollDocLine2."Period Code" := PayrollDocLineFund."Period Code";
         TempPayrollDocLine2."Element Code" := PayrollDocLineFund."Element Code";
         YTDTaxAmount := PayrollDocCalculate.Withholding(TempPayrollDocLine2,YTDTaxableAmount);
         
         // Delete the following line.
         CurrPeriodTaxAmount := YTDTaxAmount + YTDPostedTaxAmount;
         
         PayrollDocBuffer."Tax Amount" := CurrPeriodTaxAmount;
         PayrollDocBuffer.MODIFY;
         
         // Delete the following line.
         YTDPostedTaxAmount := YTDPostedTaxAmount - CurrPeriodTaxAmount;
         
         UNTIL PayrollDocBuffer.NEXT = 0;
         ...

         Replacement code

         ...
         PayrollDocBuffer.RESET;
         PayrollDocBuffer.SETRANGE("Element Code",PayrollDocLineFund."Element Code");
         IF PayrollDocBuffer.FINDSET THEN
         REPEAT
         
         // Add the following lines.
         Sign := GetSignFactor(PayrollDocBuffer."Base Amount");
         YTDTaxableAmount := YTDTaxableAmount + Sign * PayrollDocBuffer."Base Amount";
         // End of the added lines.
         
         TempPayrollDocLine2."Document No." := PayrollDocLineFund."Document No.";
         TempPayrollDocLine2."Employee No." := PayrollDocLineFund."Employee No.";
         TempPayrollDocLine2."Period Code" := PayrollDocLineFund."Period Code";
         TempPayrollDocLine2."Element Code" := PayrollDocLineFund."Element Code";
         YTDTaxAmount := PayrollDocCalculate.Withholding(TempPayrollDocLine2,YTDTaxableAmount);
         
         // Add the following line.
         CurrPeriodTaxAmount := Sign * YTDTaxAmount + Sign * YTDPostedTaxAmount;
         
         PayrollDocBuffer."Tax Amount" := CurrPeriodTaxAmount;
         PayrollDocBuffer.MODIFY;
         
         // Add the following line.
         YTDPostedTaxAmount := YTDPostedTaxAmount - Sign * CurrPeriodTaxAmount;
         
         UNTIL PayrollDocBuffer.NEXT = 0;
         ...

Prerequisites

Removal information