"There is no Report Selections within the filter" error message when you post and print a sales mass shipment order in the Greek version of Microsoft Dynamics NAV

Installation information

Code changes

1. Change the code in the Code function in the Sales-Post + Print codeunit (82) as follows:
   Existing code

   ...
   END;
   
   SalesHeader.ValidateMassShipment(SalesHeader);
   SalesPost.RUN(SalesHeader);
   GetReport(SalesHeader);
   COMMIT;
   ...

   Replacement code

   ...
   END;
   
   SalesHeader.ValidateMassShipment(SalesHeader);
   
   // Add the following line. 
   CheckReport(SalesHeader);
   
   SalesPost.RUN(SalesHeader);
   GetReport(SalesHeader);
   COMMIT;
   ...

2. Create a new CheckReport local function in the Sales-Post + Print codeunit (82) as follows:

   LOCAL PROCEDURE CheckReport@1420000(VAR SalesHeader@1420000 : Record 36);
   BEGIN
   WITH SalesHeader DO BEGIN
   CASE "Document Type" OF
   "Document Type"::Order:
   BEGIN
   IF Ship AND NOT Invoice THEN
   CheckReportSelection(ReportSelection.Usage::"S.Shipment","Shipping No. Series");
   IF Invoice THEN
   CheckReportSelection(ReportSelection.Usage::"S.Invoice","Posting No. Series");
   END;
   "Document Type"::Invoice:
   CheckReportSelection(ReportSelection.Usage::"S.Invoice","Posting No. Series");
   "Document Type"::"Return Order":
   BEGIN
   IF Receive AND NOT Invoice THEN
   CheckReportSelection(ReportSelection.Usage::"S.Ret.Rcpt.","Posting No. Series");
   IF Invoice THEN
   CheckReportSelection(ReportSelection.Usage::"S.Cr.Memo","Posting No. Series");
   END;
   "Document Type"::"Credit Memo":
   CheckReportSelection(ReportSelection.Usage::"S.Cr.Memo","Posting No. Series");
   END;
   END;
   END;

3. Create a new CheckReportSelection local function in the Sales-Post + Print codeunit (82) as follows:

   LOCAL PROCEDURE CheckReportSelection@1420001(ReportUsage@1420000 : Integer;NoSeries@1420001 : Code[10]);
   BEGIN
   ReportSelection.RESET;
   ReportSelection.SETRANGE(Usage,ReportUsage);
   ReportSelection.SETRANGE("No. Series",NoSeries);
   ReportSelection.FINDSET;
   END;

Prerequisites

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

Removal information