The lines in the Intrastat journal are not grouped correctly when you post an EU invoice that contains several lines in the Italian version of Microsoft Dynamics NAV

Installation information

Code changes

1. Change the code in the Intrastat Jnl. Line - OnAfterGetRecord trigger in the Intrastat - Make Disk Tax Auth report (593) as follows:
   Existing code

   ...
     IF "Intrastat Jnl. Batch"."Corrective Entry" THEN BEGIN
       TESTFIELD("Custom Office No.");
       CheckCorrectiveStatPeriod;
     END;
       "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
   
   // Delete the following line.
       "Intra - form Buffer".Amount := ROUND("Intra - form Buffer".Amount,1);
   // End of the line.
   
       "Intra - form Buffer"."User ID" := USERID;
       "Intra - form Buffer"."No." := "Intra - form Buffer"."No." + TotalLines;
       "Intra - form Buffer".INSERT;
   ...
   

   Replacement code

   ...
     IF "Intrastat Jnl. Batch"."Corrective Entry" THEN BEGIN
       TESTFIELD("Custom Office No.");
       CheckCorrectiveStatPeriod;
     END;
   
   // Add the following lines.
     "Intra - form Buffer".RESET;
     "Intra - form Buffer".SETFILTER("Document No.",'%1',"Document No.");
     "Intra - form Buffer".SETFILTER("Service Tariff No.",'%1',"Service Tariff No.");
     "Intra - form Buffer".SETFILTER("VAT Registration No.",'%1',"VAT Registration No.");
     IF "Intra - form Buffer".FINDFIRST THEN BEGIN
       "Intra - form Buffer".Amount += Amount;
       "Intra - form Buffer".MODIFY;
     END ELSE BEGIN
   // End of the lines.
   
       "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
       "Intra - form Buffer"."User ID" := USERID;
       "Intra - form Buffer"."No." := "Intra - form Buffer"."No." + TotalLines;
       "Intra - form Buffer".INSERT;
   
   // Add the following line.
     END;
   // End of the line.
   ...
   

2. Add the code in the Intrastat Jnl. Line - OnPostDataItem trigger in the Intrastat - Make Disk Tax Auth report (593) as follows:

   IF "Intrastat Jnl. Batch"."EU Service" THEN BEGIN
     "Intra - form Buffer".RESET;
     "Intra - form Buffer".SETFILTER("Service Tariff No.",'<>%1','');
     IF "Intra - form Buffer".FINDSET THEN
       REPEAT
        "Intra - form Buffer".Amount := ROUND("Intra - form Buffer".Amount,1);
        "Intra - form Buffer".MODIFY;
        TotalAmount += "Intra - form Buffer".Amount;
       UNTIL "Intra - form Buffer".NEXT = 0;
   END;
   

Prerequisites

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

Removal information