The created OIOUBL electronic invoice file is incorrect if you enable the Prices Including VAT setting in the Danish version of Microsoft Dynamics NAV

Installation information

Code changes

1. Add a global variable in the OIOUBL Export Sales Invoice codeunit (13609), and then specify the variable as follows:
   • Name: Currency
   • DataType:Record
2. Create a new ExcludeVAT( VAR SalesInvLine: Record 113; PricesInclVAT: Boolean) function. To do this, follow these step:
   1. Add a local variable, and then specify the variable as follows:
      • Name: ExclVATFactor
      • DataType:Decimal
   2. Add the following code in the ExcludeVAT function:

      IF NOT PricesInclVAT THEN
      EXIT;
      WITH SalesInvLine DO BEGIN
      ExclVATFactor := 1 + "VAT %" / 100;
      "Line Discount Amount" := ROUND("Line Discount Amount" / ExclVATFactor,Currency."Amount Rounding Precision");
      "Inv. Discount Amount" := ROUND("Inv. Discount Amount" / ExclVATFactor,Currency."Amount Rounding Precision");
      "Unit Price" := ROUND("Unit Price" / ExclVATFactor,Currency."Amount Rounding Precision");
      END;
      

3. Change the code in the OnRun trigger in the Export Sales Invoice codeunit (13609) as follows:
   Existing code 1

   ...
   IF "Currency Code" = '' THEN
   CurrencyCode := GLSetup."LCY Code";
   ELSE
   CurrencyCode := "Currency Code";
   ...
   

   Replacement code 1

   ...
   IF "Currency Code" = '' THEN
   CurrencyCode := GLSetup."LCY Code"
   ELSE
   CurrencyCode := "Currency Code";
   
   // Add the following lines.
   IF CurrencyCode = GLSetup."LCY Code" THEN
   Currency.InitRoundingPrecision
   ELSE BEGIN
   Currency.GET(CurrencyCode);
   Currency.TESTFIELD("Amount Rounding Precision");
   END;
   // End of the added lines.
   ...
   

   Existing code 2

   ...
   TotalInvDiscountAmount := 0;
   IF SalesInvLine2.FINDSET THEN
   REPEAT
   TotalInvDiscountAmount := TotalInvDiscountAmount + SalesInvLine2."Inv. Discount Amount" +
   SalesInvLine2."Line Discount Amount";
   ...
   

   Replacement code 2

   ...
   TotalInvDiscountAmount := 0;
   IF SalesInvLine2.FINDSET THEN
   REPEAT
   
   // Add the following line.
   ExcludeVAT(SalesInvLine2,"Prices Including VAT");
   // End of the added line.
   
   TotalInvDiscountAmount := TotalInvDiscountAmount + SalesInvLine2."Inv. Discount Amount" +
   SalesInvLine2."Line Discount Amount";
   ...
   

   Existing code 3

   ...
   TaxableAmount := 0;
   TaxAmount := 0;
   SalesInvLine2.RESET;
   SalesInvLine2.COPY(SalesInvLine);
   SalesInvLineFound := FALSE;
   IF SalesInvLine2.FINDSET THEN
   REPEAT
   TaxableAmount := TaxableAmount + SalesInvLine2.Amount + SalesInvLine2."Inv. Discount Amount" +
   SalesInvLine2."Line Discount Amount";
   ...
   

   Replacement code 3

   ...
   TaxableAmount := 0;
   TaxAmount := 0;
   SalesInvLine2.RESET;
   SalesInvLine2.COPY(SalesInvLine);
   SalesInvLineFound := FALSE;
   IF SalesInvLine2.FINDSET THEN
   REPEAT
   
   // Add the following line.
   ExcludeVAT(SalesInvLine2,"Prices Including VAT");
   // End of the added line.
   
   TaxableAmount := TaxableAmount + SalesInvLine2.Amount + SalesInvLine2."Inv. Discount Amount" +
   SalesInvLine2."Line Discount Amount";
   ...
   

   Existing code 4

   ...
   REPEAT
   SalesInvLine.TESTFIELD(Description);
   AddElement(XMLCurrNode,'InvoiceLine','',DocNameSpace2,XMLNewChild,Prefix2);
   ...
   

   Replacement code 4

   ...
   REPEAT
   SalesInvLine.TESTFIELD(Description);
   
   // Add the following line.
   ExcludeVAT(SalesInvLine,"Prices Including VAT");
   // End of the added line.
   
   AddElement(XMLCurrNode,'InvoiceLine','',DocNameSpace2,XMLNewChild,Prefix2);
   ...
   

Prerequisites

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

Removal information