"Purch. Rcpt. Line: There is no Purch. Rcpt. Line within the filter" error message when you filter in the Get Receipt Lines page in the RoleTailored client (RTC) of Microsoft Dynamics NAV

Hotfix information

A supported hotfix is now available from Microsoft. However, it is only intended to correct the problem that is described in this article. Apply it only to systems that are experiencing this specific problem. This hotfix may receive additional testing. Therefore, if you are not severely affected by this problem, we recommend that you wait for the next Microsoft Dynamics NAV 2009 service pack or the next Microsoft Dynamics NAV version that contains this hotfix.

Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Technical Support Professional for Microsoft Dynamics and related products determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.
To resolve this problem, follow these steps:

1. Change the code in the IsFirstDocLine functon in the Get Shipment Lines form (5708) and in the Get Shipment Lines page (5708) as follows:
   Existing code

   ...
      TempSalesShptLine.RESET;
   TempSalesShptLine.COPYFILTERS(Rec);
   TempSalesShptLine.SETRANGE("Document No.","Document No.");
   IF NOT TempSalesShptLine.FIND('-') THEN BEGIN
     SalesShptLine.COPYFILTERS(Rec);
     SalesShptLine.SETRANGE("Document No.","Document No.");
   
   // Delete the following lines.
     SalesShptLine.FIND('-');
     TempSalesShptLine := SalesShptLine;
     TempSalesShptLine.INSERT;
   // End of the deleted lines.
   
   END;
   IF "Line No." = TempSalesShptLine."Line No." THEN
     EXIT(TRUE);
   ...

   Replacement code

   ...
     TempSalesShptLine.RESET;
   TempSalesShptLine.COPYFILTERS(Rec);
   TempSalesShptLine.SETRANGE("Document No.","Document No.");
   IF NOT TempSalesShptLine.FIND('-') THEN BEGIN
     SalesShptLine.COPYFILTERS(Rec);
     SalesShptLine.SETRANGE("Document No.","Document No.");
   
   // Add the following lines.
     IF SalesShptLine.FIND('-') THEN BEGIN
       TempSalesShptLine := SalesShptLine;
       TempSalesShptLine.INSERT;
     END;
   // End of the added lines.
   
   END;
   IF "Line No." = TempSalesShptLine."Line No." THEN
     EXIT(TRUE);
   ...

2. Change the code in the IsFirstDocLine functon in the Get Receipt Lines form (5709) and in the Get Receipt Lines page (5709) as follows:
   Existing code

   ...
      TempPurchRcptLine.RESET;
   TempPurchRcptLine.COPYFILTERS(Rec);
   TempPurchRcptLine.SETRANGE("Document No.","Document No.");
   IF NOT TempPurchRcptLine.FIND('-') THEN BEGIN
     PurchRcptLine.COPYFILTERS(Rec);
     PurchRcptLine.SETRANGE("Document No.","Document No.");
   
   // Delete the following lines.
     PurchRcptLine.FIND('-');
     TempPurchRcptLine := PurchRcptLine;
     TempPurchRcptLine.INSERT;
   // End of the deleted lines.
   
   END;
   IF "Line No." = TempPurchRcptLine."Line No." THEN
     EXIT(TRUE);
   ...

   Replacement code

   ...
   TempPurchRcptLine.RESET;
   TempPurchRcptLine.COPYFILTERS(Rec);
   TempPurchRcptLine.SETRANGE("Document No.","Document No.");
   IF NOT TempPurchRcptLine.FIND('-') THEN BEGIN
     PurchRcptLine.COPYFILTERS(Rec);
     PurchRcptLine.SETRANGE("Document No.","Document No.");
   
   // Add the following lines.
     IF PurchRcptLine.FIND('-') THEN BEGIN
       TempPurchRcptLine := PurchRcptLine;
       TempPurchRcptLine.INSERT;
     END;
   // End of the added lines.
   
   END;
   IF "Line No." = TempPurchRcptLine."Line No." THEN
     EXIT(TRUE);  
   ...