You do not receive any warning when you post a payment for a withholding tax invoice without calculating withholding tax in the Italian version of Microsoft Dynamics NAV

Hotfix information

A supported hotfix is now available from Microsoft. However, it is only intended to correct the problem that is described in this article. Apply it only to systems that are experiencing this specific problem. This hotfix may receive additional testing. Therefore, if you are not severely affected by this problem, we recommend that you wait for the next Microsoft Dynamics NAV service pack or the next version that contains this hotfix.

Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Technical Support Professional for Microsoft Dynamics and related products determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.

To install this hotfix, change the code in the in the Gen. Jnl.-Post Line codeunit (12) as follows.
To do this, follow these steps:

1. On the View menu, click C/AL globals, and then add the following on the Test Constants tab:

   • Name: Text1130023

   • ConstValue: Invoice includes Withholding Tax should not be applied directly. Please use function Payment Journals -> Payments -> Withh.Tax-Soc.Sec.

2. Change the code in the ApplyVendLedgEntry trigger as follows:
   Existing code 1

   ...
   
   IF GenJnlLine."Applies-to Doc. No." <> '' THEN BEGIN
   // Find the entry to be applied to
   OldVendLedgEntry.RESET;
   OldVendLedgEntry.SETCURRENTKEY("Document Type","Document No.","Document Occurrence","Vendor No.");
   ...
   

   Replacement code 1

   ...
   
   IF GenJnlLine."Applies-to Doc. No." <> '' THEN BEGIN
   CheckWithholdTax(GenJnlLine."Applies-to Doc. Type",GenJnlLine."Applies-to Doc. No.",GenJnlLine,TRUE); // Add this line. 
   // Find the entry to be applied to
   OldVendLedgEntry.RESET;
   OldVendLedgEntry.SETCURRENTKEY("Document Type","Document No.","Document Occurrence","Vendor No.");
   ...
   

   Existing code 2

   ...
   
   OldVendLedgEntry.SETFILTER("Amount to Apply",'<>%1',0);
   
   //Check and Move Ledger Entries to Temp
   IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
   OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
   IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
   REPEAT
   IF GenJnlApply.CheckAgainstApplnCurrency(
   ....
   

   Replacement code 2

   ...
   
   OldVendLedgEntry.SETFILTER("Amount to Apply",'<>%1',0);
   
   //Check and Move Ledger Entries to Temp
   IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
   OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
   IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
   REPEAT
   CheckWithholdTax(OldVendLedgEntry."Document Type",OldVendLedgEntry."Document No.",GenJnlLine,FALSE); // Add this line. 
   IF GenJnlApply.CheckAgainstApplnCurrency(
   ...
   

3. On the View menu, click C/AL Globals, and then add the following information on the Function tab:

   1. In the Name box, type CheckWithholdTax.

   2. Click Local.

   3. On the Parameters tab, specify the following settings:
      For the first parameter:

      • Var: No

      • Name: DocType

      • DataType: Option

      • On the View menu, click Properties, add the value for the OptionString property: ,,Invoice,Credit Memo

      For the second parameter:

      • Var: No

      • Name: DocNo

      • DataType: Code

      • Length: 20

      For the third parameter:

      • Var: No

      • Name: GenJnlLine

      • DataType: Record

      • Subtype: Gen. Journal Line

      For the fourth parameter:

      • Var: No

      • Name: ApplyInGenJnlLine

      • DataType: Boolean

   4. On the Variables tab, specify the following settings:
      For the first variable:

      • Name : ComputedWithholdTax

      • DataType : Record

      • Subtype : Computed Withholding Tax

      For the second variable:

      • Name : TmpWithholdingContribution

      • DataType : Record

      • Subtype : Tmp Withholding Contribution

      For the third variable:

      • Name : WithholdCode

      • DataType : Record

      • Subtype : Withhold Code

4. Add a new trigger "CheckWithholdTax" as follows:

   CheckWithholdTax(DocType : ',,Invoice,Credit Memo';DocNo : Code[20];GenJnlLine : Record "Gen. Journal Line";ApplyInGenJnlLine : Boolean )
   
   IF DocType IN [DocType::Invoice,DocType::"Credit Memo"] THEN BEGIN
   ComputedWithholdTax.RESET;
   ComputedWithholdTax.SETRANGE("Document No.",DocNo);
   IF ComputedWithholdTax.FINDFIRST THEN BEGIN
   IF NOT ApplyInGenJnlLine THEN
   ERROR(Text1130023)
   ELSE BEGIN
   TmpWithholdingContribution.RESET;
   TmpWithholdingContribution.SETRANGE("Invoice No.",DocNo);
   IF NOT TmpWithholdingContribution.FINDFIRST THEN BEGIN
   WithholdCode.GET(ComputedWithholdTax."Withholding Tax Code");
   WithholdCode.TESTFIELD("Withholding Taxes Payable Acc.");
   IF NOT((GenJnlLine."Bal. Account Type" = GenJnlLine."Bal. Account Type"::"G/L Account") AND
   (GenJnlLine."Bal. Account No." = WithholdCode."Withholding Taxes Payable Acc.")) THEN
   ERROR(Text1130023);
   END;
   END;
   END;
   END;