The Intrastat EU service entries are not grouped as expected in the monthly/quarterly report and in the exported scambi.cee file in the Italian version of Microsoft Dynamics NAV

Installation information

Code changes

1. Locate table (12118), and then click Design.
2. On the View menu, click Keys. Then, change the following keys:
   • Old value: VAT Registration No.,Transaction Type,Tariff No.,Group Code,Transport Method,Transaction Specification,Country of Origin Code,Area,Corrective entry,No.
     
   • New value: VAT Registration No.,Transaction Type,Tariff No.,Group Code,Transport Method,Transaction Specification,Country of Origin Code,Area,Corrective entry,No.,Service Tariff No.
3. Add the following variable in the report (501):
   • Name: IntraJnlLine
   • DataType: Record
   • Subtype: Intrastat Jnl. Line
4. Change code in the Intrastat Jnl. Line - OnAfterGetRecord trigger in the report (501) as follows:
   Existing code

   ...
       TESTFIELD("Service Tariff No.");
   
   // Delete the following lines.
     NoOfRecords := NoOfRecords + 1; 
     RoundAmount := ROUND(Amount,1);
     GroupIntraJnlLineIntoBuffer; 
   // End of the deleted lines.
   
     GetPaymentMethod;
    END ELSE BEGIN 
   ...

   Replacement code

   ...
         TESTFIELD("Service Tariff No.");
   
   // Add the following line.
     GroupIntraJnlLineIntoBuffer;  
   // End of the added line.
   
     GetPaymentMethod;
   
   // Add the following lines.
     IF GetEUIntraJnlLineFromBuffer THEN BEGIN 
      NoOfRecords := NoOfRecords + 1;
      RoundAmount := ROUND("Intra - form Buffer".Amount,1)
     END ELSE 
      CurrReport.SKIP;
   // End of the added lines.
   
     END ELSE BEGIN
   ...

   
   
5. In the C/AL Globals, add the following function: GetEUIntraJnlLineFromBuffer
6. Then, click Local, in the Return Value tab, add the following return type: Return Type = Boolean
7. Add the following code in the created GetEUIntraJnlLineFromBuffer function:

   "Intra - form Buffer".RESET;
   IntraJnlLine.RESET;
   "Intra - form Buffer".SETRANGE("VAT Registration No.","Intrastat Jnl. Line"."VAT Registration No.");
   "Intra - form Buffer".SETRANGE("Service Tariff No.","Intrastat Jnl. Line"."Service Tariff No.");
   "Intra - form Buffer".SETRANGE("Corrective entry","Intrastat Jnl. Line"."Corrective entry");
   IF "Intra - form Buffer".FINDFIRST THEN
     IntraJnlLine.SETRANGE("VAT Registration No.","Intra - form Buffer"."VAT Registration No.");
     IntraJnlLine.SETRANGE("Service Tariff No.","Intra - form Buffer"."Service Tariff No.");
     IntraJnlLine.SETRANGE("Corrective entry","Intra - form Buffer"."Corrective entry");
     IF IntraJnlLine.FINDLAST THEN
       IF "Intrastat Jnl. Line"."Line No." = IntraJnlLine."Line No." THEN
         EXIT(TRUE);
       EXIT(FALSE);
   

8. Change the code in the Intrastat Jnl. Line - OnAfterGetRecord trigger in report (502) as follows:
   Existing code 1

   ...
      TESTFIELD("Service Tariff No.");
   
   // Delete the following lines.
     NoOfRecords := NoOfRecords + 1; 
     RoundAmount := ROUND(Amount,1);
     GroupIntraJnlLineIntoBuffer;
   // End of the deleted lines.
     GetPaymentMethod;
   END ELSE BEGIN  
   ...

   Replacement code 1

   ...
     TESTFIELD("Service Tariff No.");
   
   // Add the following lines.
     GroupIntraJnlLineIntoBuffer;
     GetPaymentMethod;
   IF GetEUIntraJnlLineFromBuffer THEN BEGIN 
     NoOfRecords := NoOfRecords + 1;  
     RoundAmount := ROUND("Intra - form Buffer".Amount,1)
   END ELSE 
     CurrReport.SKIP; 
   // End of the added lines.
   
   END ELSE BEGIN    
   ...

   Existing code 2

   ...
     IF "Supplementary Units" THEN
       TESTFIELD(Quantity);
   
     // Delete the following lines.
     {"Intra - form Buffer".RESET;
     IF "Intra - form Buffer".GET(
       "Intrastat Jnl. Line"."VAT Registration No.","Intrastat Jnl. Line"."Transaction Type",
       "Intrastat Jnl. Line"."Tariff No.",'','','','','',"Intrastat Jnl. Line"."Corrective entry")
     THEN BEGIN
       "Intra - form Buffer".Amount := "Intra - form Buffer".Amount + "Intrastat Jnl. Line".Amount;
       "Intra - form Buffer"."Source Currency Amount" := "Intra - form Buffer"."Source Currency Amount" +
         "Intrastat Jnl. Line"."Source Currency Amount";
       "Intra - form Buffer".MODIFY;
     END ELSE BEGIN
       "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
       "Intra - form Buffer"."User ID" := USERID;
       "Intra - form Buffer"."Group Code":= '';
       "Intra - form Buffer"."Transport Method" := '';
       "Intra - form Buffer"."Transaction Specification" := '';
       "Intra - form Buffer"."Country of Origin Code" := '';
       "Intra - form Buffer".Area := '';
       "Intra - form Buffer"."No." := 0;
       "Intra - form Buffer".INSERT;
     END;}
     // End of the deleted lines.
   END;
   ...

   Replacement code 2

   ...
      IF "Supplementary Units" THEN
       TESTFIELD(Quantity);
   
   // Add the following line.
     GroupIntraJnlLineIntoBuffer;
   END;
   ...

9. Add the following global variable in report (502):
   • Name: IntraJnlLine
   • DataType: Record
   • Subtype: Intrastat Jnl. Line
10. Add the GroupIntraJnlLineIntoBuffer function and then add the following code for this function in report (502):

      
         "Intra - form Buffer".RESET;
            IF "Intra - form Buffer".GET(
              "Intrastat Jnl. Line"."VAT Registration No.","Intrastat Jnl. Line"."Transaction Type",
              "Intrastat Jnl. Line"."Tariff No.",'','','','','',"Intrastat Jnl. Line"."Corrective entry",0,
              "Intrastat Jnl. Line"."Service Tariff No.")
            THEN BEGIN
              "Intra - form Buffer".Amount := "Intra - form Buffer".Amount + "Intrastat Jnl. Line".Amount;
              "Intra - form Buffer"."Source Currency Amount" := "Intra - form Buffer"."Source Currency Amount" +
                "Intrastat Jnl. Line"."Source Currency Amount";
              "Intra - form Buffer".MODIFY;
            END ELSE BEGIN
              "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
              "Intra - form Buffer"."User ID" := USERID;
              "Intra - form Buffer"."Group Code":= '';
              "Intra - form Buffer"."Transport Method" := '';
              "Intra - form Buffer"."Transaction Specification" := '';
              "Intra - form Buffer"."Country of Origin Code" := '';
              "Intra - form Buffer".Area := '';
              "Intra - form Buffer"."No." := 0;
              "Intra - form Buffer".INSERT;
            END;
    

11. In the C/AL Globals in report (502), add the following function: GetEUIntraJnlLineFromBuffer
12. Then, click Local, in the Return Value tab, add the following return type: Return Type = Boolean
13. Add the following code in the created GetEUIntraJnlLineFromBuffer function in report (502):
    

            "Intra - form Buffer".RESET;
            IntraJnlLine.RESET;
            "Intra - form Buffer".SETRANGE("VAT Registration No.","Intrastat Jnl. Line"."VAT Registration No.");
            "Intra - form Buffer".SETRANGE("Service Tariff No.","Intrastat Jnl. Line"."Service Tariff No.");
            "Intra - form Buffer".SETRANGE("Corrective entry","Intrastat Jnl. Line"."Corrective entry");
            IF "Intra - form Buffer".FINDFIRST THEN
              IntraJnlLine.SETRANGE("VAT Registration No.","Intra - form Buffer"."VAT Registration No.");
              IntraJnlLine.SETRANGE("Service Tariff No.","Intra - form Buffer"."Service Tariff No.");
              IntraJnlLine.SETRANGE("Corrective entry","Intra - form Buffer"."Corrective entry");
              IF IntraJnlLine.FINDLAST THEN
                IF "Intrastat Jnl. Line"."Line No." = IntraJnlLine."Line No." THEN
                  EXIT(TRUE);
            EXIT(FALSE);
    

Prerequisites

• The Italian version of Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
• The Italian version of Microsoft Dynamics NAV 2009 R2
• The Italian version of Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

Removal information