...
   IntrastatJnlLine2.SETRANGE("Source Entry No.","Entry No.");
   IF IntrastatJnlLine2.FINDFIRST THEN
     CurrReport.SKIP;
  
   CASE TRUE OF
     "Drop Shipment":
       BEGIN
         IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
            ("Country/Region Code" = '')
...
...
   IntrastatJnlLine2.SETRANGE("Source Entry No.","Entry No.");
   IF IntrastatJnlLine2.FINDFIRST THEN
     CurrReport.SKIP;
// Add the following lines.  
   IF "Entry Type" IN ["Entry Type"::Sale,"Entry Type"::Purchase] THEN BEGIN
     ItemLedgEntry.RESET;
     ItemLedgEntry.SETCURRENTKEY("Document No.","Document Type");
     ItemLedgEntry.SETRANGE("Document No.","Document No.");
     ItemLedgEntry.SETRANGE("Item No.","Item No.");
     ItemLedgEntry.SETRANGE(Correction,TRUE);
     ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Sales Shipment");
     IF NOT ItemLedgEntry.ISEMPTY THEN
       CurrReport.SKIP;
     ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Sales Return Receipt");
     IF NOT ItemLedgEntry.ISEMPTY THEN
       CurrReport.SKIP;
     ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Purchase Receipt");
     IF NOT ItemLedgEntry.ISEMPTY THEN
       CurrReport.SKIP;
     ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Purchase Return Shipment");
     IF NOT ItemLedgEntry.ISEMPTY THEN
       CurrReport.SKIP;
   END;
//End of the added lines. 
   CASE TRUE OF
     "Drop Shipment":
       BEGIN
         IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
            ("Country/Region Code" = '')
...