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

Installation information

Code changes

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;
   

Prerequisites

• The Italian version of Microsoft Dynamics NAV 2009 SP1
• The Italian version of Microsoft Dynamics NAV 5.0 SP1
• The Italian version of Microsoft Dynamics NAV 5.0

Removal information