Intrastat entries are not reported if you reverse a purchase order in the Italian version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in HasCrossedBorder function in the Get Item Ledger Entries report (594) as follows:
   Existing code

   ...
    ItemLedgEntry2.SETRANGE("Document No.","Document No.");
             ItemLedgEntry2.SETRANGE("Item No.","Item No.");
             ItemLedgEntry2.SETRANGE(Correction,TRUE);
   
   // Delete the following lines.
   ItemLedgEntry2.SETRANGE("Document Type","Document Type"::"Sales Shipment");
   IF NOT ItemLedgEntry2.ISEMPTY THEN
   CurrReport.SKIP;
   
   ItemLedgEntry2.SETRANGE("Document Type","Document Type"::"Sales Return Receipt");
   IF NOT ItemLedgEntry2.ISEMPTY THEN
   CurrReport.SKIP;
   
   ItemLedgEntry2.SETRANGE("Document Type","Document Type"::"Purchase Receipt");
   IF NOT ItemLedgEntry2.ISEMPTY THEN
   CurrReport.SKIP;
   
   ItemLedgEntry2.SETRANGE("Document Type","Document Type"::"Purchase Return Shipment");
   IF NOT ItemLedgEntry2.ISEMPTY THEN
   CurrReport.SKIP;
   END;
   // End of the deleted lines.
   
           ItemLedgEntry2.RESET;
           CASE TRUE OF
             "Drop Shipment":
   ...

   Replacement code

   ...
   ItemLedgEntry2.SETRANGE("Document No.","Document No.");
             ItemLedgEntry2.SETRANGE("Item No.","Item No.");
             ItemLedgEntry2.SETRANGE(Correction,TRUE);
   
   // Add the following lines.
   IF "Document Type" IN ["Document Type"::"Sales Shipment",
   "Document Type"::"Sales Return Receipt",
   "Document Type"::"Purchase Receipt",
   "Document Type"::"Purchase Return Shipment"]
   THEN BEGIN
   ItemLedgEntry2.SETRANGE("Document Type","Document Type");
   IF ItemLedgEntry2.FINDSET THEN
   REPEAT
   IF IsItemLedgerEntryCorrected(ItemLedgEntry2,"Entry No.") THEN
   CurrReport.SKIP;
   UNTIL ItemLedgEntry2.NEXT = 0;
   END;
   END;
   
   // End of the added lines.
      
   ItemLedgEntry2.RESET;
           CASE TRUE OF
             "Drop Shipment":
   ...

2. Change the code in IsItemLedgerEntryCorrected function in the Get Item Ledger Entries report (594) as follows:
   Existing code

   ...
   END;
       END;
   
       BEGIN
       END.
     }
   ...

   Replacement code

   ...
     END;
       END;
   
   // Add the following lines.
   LOCAL PROCEDURE IsItemLedgerEntryCorrected@20(ItemLedgerEntryCorrection@1003 : Record 32;ItemLedgerEntryNo@1000 : Integer) : Boolean;
   VAR
   ItemApplicationEntry@1001 : Record 339;
   BEGIN
   ItemApplicationEntry.SETRANGE("Item Ledger Entry No.",ItemLedgerEntryCorrection."Entry No.");
   CASE ItemLedgerEntryCorrection."Document Type" OF
   ItemLedgerEntryCorrection."Document Type"::"Sales Shipment",
   ItemLedgerEntryCorrection."Document Type"::"Purchase Return Shipment":
   ItemApplicationEntry.SETRANGE("Outbound Item Entry No.",ItemLedgerEntryNo);
   ItemLedgerEntryCorrection."Document Type"::"Purchase Receipt",
   ItemLedgerEntryCorrection."Document Type"::"Sales Return Receipt":
   ItemApplicationEntry.SETRANGE("Inbound Item Entry No.",ItemLedgerEntryNo);
   END;
   EXIT(NOT ItemApplicationEntry.ISEMPTY);
   END;
   
   // End of the added lines.
   
   BEGIN
       END.
     }
   ...
   

Prerequisites

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

Removal information