...
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" = '')
...