"บรรทัดอินวอยซ์การขาย: ไม่มีบรรทัดใบแจ้งหนี้การขายภายในตัวกรองที่ไม่มี" ข้อความแสดงข้อผิดพลาดเมื่อคุณเรียกใช้ฟังก์ชัน "ได้รับการลงรายการบัญชีเอกสารบรรทัดการกลับรายการ" ใน Microsoft Dynamics NAV 2009

ข้อมูลโปรแกรมแก้ไขด่วน

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก Microsoft อย่างไรก็ตาม มีเป้าหมายเพียงเพื่อการแก้ไขปัญหาที่อธิบายไว้ในบทความนี้ นำวิธีนี้ไปใช้กับระบบที่ประสบกับปัญหาที่เฉพาะเจาะจงเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณจะไม่รุนแรงได้รับผลกระทบจากปัญหานี้ เราขอแนะนำให้ คุณรอ service pack ถัดไปของ Microsoft Dynamics NAV 2009 หรือเวอร์ชันถัดไป Microsoft Dynamics NAV ที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้

หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมค่าใช้จ่ายสำหรับการสนับสนุนโทรศัพท์อาจถูกยกเลิกถ้า Technical Support Professional สำหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องตรวจพบว่าการปรับปรุงเฉพาะจะแก้ปัญหาของคุณ ค่าใช้จ่ายในการสนับสนุนตามปกติจะใช้กับคำถามและปัญหาในการสนับสนุนเพิ่มเติมซึ่งไม่สอดคล้องตามเกณฑ์สำหรับโปรแกรมปรับปรุงเฉพาะที่เกี่ยวข้อง

การเปลี่ยนแปลงรหัส

หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในการเรียก Post.Doc - เพ S.ShptLn Sbfrm (5851) เป็นดังนี้:
   รหัสที่มีอยู่

   ...        RevUnitCostLCY2 := RevUnitCostLCY;
           SalesShptLine2.COPYFILTERS(Rec);
           SalesShptLine2.SETRANGE("Document No.","Document No.");
           SalesShptLine2.FINDSET;
           REPEAT
             ShowRec := IsShowRec(SalesShptLine2);
             IF ShowRec THEN BEGIN
   ...
   
   

   รหัสแทน

   ...        RevUnitCostLCY2 := RevUnitCostLCY;
           SalesShptLine2.COPYFILTERS(Rec);
           SalesShptLine2.SETRANGE("Document No.","Document No.");
           IF NOT SalesShptLine2.FINDSET THEN
             EXIT(FALSE);
           REPEAT
             ShowRec := IsShowRec(SalesShptLine2);
             IF ShowRec THEN BEGIN
   
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในการเรียก Post.Doc - หน้าย่อย S.InvLn (5852) เป็นดังนี้:
   รหัสที่มีอยู่

   ...        RevUnitCostLCY2 := RevUnitCostLCY;
           SalesInvLine2.COPYFILTERS(Rec);
           SalesInvLine2.SETRANGE("Document No.","Document No.");
           SalesInvLine2.FINDSET;
           REPEAT
             ShowRec := IsShowRec(SalesInvLine2);
             IF ShowRec THEN BEGIN
   ...
   
   

   รหัสแทน

   ...        RevUnitCostLCY2 := RevUnitCostLCY;
           SalesInvLine2.COPYFILTERS(Rec);
           SalesInvLine2.SETRANGE("Document No.","Document No.");
           IF NOT SalesInvLine2.FINDSET THEN
             EXIT(FALSE);
           REPEAT
             ShowRec := IsShowRec(SalesInvLine2);
             IF ShowRec THEN BEGIN
   
   

3. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในการเรียก Post.Doc - เพ P.RcptLn Sbfrm (5856) เป็นดังนี้:
   รหัสที่มีอยู่

   ...        RevUnitCostLCY2 := RevUnitCostLCY;
           PurchRcptLine2.COPYFILTERS(Rec);
           PurchRcptLine2.SETRANGE("Document No.","Document No.");
           PurchRcptLine2.FINDSET;
           REPEAT
             ShowRec := IsShowRec(PurchRcptLine2);
             IF ShowRec THEN BEGIN
   ...
   
   

   รหัสแทน

   ...        RevUnitCostLCY2 := RevUnitCostLCY;
           PurchRcptLine2.COPYFILTERS(Rec);
           PurchRcptLine2.SETRANGE("Document No.","Document No.");
           IF NOT PurchRcptLine2.FINDSET THEN
             EXIT(FALSE);
           REPEAT
             ShowRec := IsShowRec(PurchRcptLine2);
             IF ShowRec THEN BEGIN
   
   

4. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในการเรียก Post.Doc - หน้าย่อย P.InvLn (5857) เป็นดังนี้:
   รหัสที่มีอยู่

   ...        RevUnitCostLCY2 := RevUnitCostLCY;
           PurchInvLine2.COPYFILTERS(Rec);
           PurchInvLine2.SETRANGE("Document No.","Document No.");
           PurchInvLine2.FINDSET;
           REPEAT
             ShowRec := IsShowRec(PurchInvLine2);
             IF ShowRec THEN BEGIN
   ...
   
   

   รหัสแทน

   ...        RevUnitCostLCY2 := RevUnitCostLCY;
           PurchInvLine2.COPYFILTERS(Rec);
           PurchInvLine2.SETRANGE("Document No.","Document No.");
           IF NOT PurchInvLine2.FINDSET THEN
             EXIT(FALSE);
           REPEAT
             ShowRec := IsShowRec(PurchInvLine2);
             IF ShowRec THEN BEGIN
   
   

5. เปลี่ยนรหัสในฟังก์ชันIsFirstDocLineในบรรทัดเอกสารการซื้อ รับฟอร์มบรรทัด (5806) เป็นดังนี้:
   รหัสที่มีอยู่

   ...          FILTERGROUP(2);
             PurchRcptLine.COPYFILTERS(Rec);
             FILTERGROUP(0);
             PurchRcptLine.SETRANGE("Document No.","Document No.");
   
   // Delete the following line.
             PurchRcptLine.FIND('-');
   
             TempPurchRcptLine := PurchRcptLine;
             TempPurchRcptLine.INSERT;
           END;
           IF "Line No." = TempPurchRcptLine."Line No." THEN
   ...
   
   

   รหัสแทน

   ...          FILTERGROUP(2);
             PurchRcptLine.COPYFILTERS(Rec);
             FILTERGROUP(0);
             PurchRcptLine.SETRANGE("Document No.","Document No.");
   
   // Add the following lines.
             IF NOT PurchRcptLine.FINDFIRST THEN
               EXIT(FALSE);
   // End of the lines.
   
             TempPurchRcptLine := PurchRcptLine;
             TempPurchRcptLine.INSERT;
           END;
           IF "Line No." = TempPurchRcptLine."Line No." THEN
   
   

6. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มได้รับฟอร์มย่อย Pst.Doc-RtrnRcptLn (5853) เป็นดังนี้:
   รหัสที่มีอยู่

   ...        TempReturnRcptLine.SETRANGE("Document No.","Document No.");
           IF NOT TempReturnRcptLine.FINDFIRST THEN BEGIN
             ReturnRcptLine.COPYFILTERS(Rec);
             ReturnRcptLine.SETRANGE("Document No.","Document No.");
   
   // Delete the following line.
             ReturnRcptLine.FINDSET;
   
             TempReturnRcptLine := ReturnRcptLine;
             TempReturnRcptLine.INSERT;
           END;
   ...
   
   

   รหัสแทน

   ...        TempReturnRcptLine.SETRANGE("Document No.","Document No.");
           IF NOT TempReturnRcptLine.FINDFIRST THEN BEGIN
             ReturnRcptLine.COPYFILTERS(Rec);
             ReturnRcptLine.SETRANGE("Document No.","Document No.");
   
   // Add the following lines.
             IF NOT ReturnRcptLine.FINDSET THEN
               EXIT(FALSE);
   // End of the lines.
   
             TempReturnRcptLine := ReturnRcptLine;
             TempReturnRcptLine.INSERT;
           END;
   
   

7. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มรับ Sbfrm Post.Doc S.Cr.MemoLn (5854) เป็นดังนี้:
   รหัสที่มีอยู่

   ...        TempSalesCrMemoLine.SETRANGE("Document No.","Document No.");
           IF NOT TempSalesCrMemoLine.FINDFIRST THEN BEGIN
             SalesCrMemoLine.COPYFILTERS(Rec);
             SalesCrMemoLine.SETRANGE("Document No.","Document No.");
   
   // Delete the following line.
             SalesCrMemoLine.FIND('-');
   
             TempSalesCrMemoLine := SalesCrMemoLine;
             TempSalesCrMemoLine.INSERT;
           END;
   ...
   
   

   รหัสแทน

   ...        TempSalesCrMemoLine.SETRANGE("Document No.","Document No.");
           IF NOT TempSalesCrMemoLine.FINDFIRST THEN BEGIN
             SalesCrMemoLine.COPYFILTERS(Rec);
             SalesCrMemoLine.SETRANGE("Document No.","Document No.");
   
   // Add the following lines.
             IF NOT SalesCrMemoLine.FINDFIRST THEN
               EXIT(FALSE);
   // End of the lines.
   
             TempSalesCrMemoLine := SalesCrMemoLine;
             TempSalesCrMemoLine.INSERT;
           END;
   
   

8. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มได้รับฟอร์มย่อย Pst.Doc-RtrnShptLn (5858) เป็นดังนี้:
   รหัสที่มีอยู่

   ...        TempReturnShptLine.SETRANGE("Document No.","Document No.");
           IF NOT TempReturnShptLine.FINDFIRST THEN BEGIN
             ReturnShptLine.COPYFILTERS(Rec);
             ReturnShptLine.SETRANGE("Document No.","Document No.");
   
   // Delete the following line.
            ReturnShptLine.FINDSET;
   
             TempReturnShptLine := ReturnShptLine;
             TempReturnShptLine.INSERT;
           END;
   ...
   
   

   รหัสแทน

   ...        TempReturnShptLine.SETRANGE("Document No.","Document No.");
           IF NOT TempReturnShptLine.FINDFIRST THEN BEGIN
             ReturnShptLine.COPYFILTERS(Rec);
             ReturnShptLine.SETRANGE("Document No.","Document No.");
   
   // Add the following lines.
             IF NOT ReturnShptLine.FINDSET THEN
               EXIT(FALSE);
   // End of the lines.
   
             TempReturnShptLine := ReturnShptLine;
             TempReturnShptLine.INSERT;
           END;
   
   

9. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มรับ Sbfrm Post.Doc P.Cr.MemoLn (5859) เป็นดังนี้:
   รหัสที่มีอยู่

   ...        TempPurchCrMemoLine.SETRANGE("Document No.","Document No.");
           IF NOT TempPurchCrMemoLine.FINDFIRST THEN BEGIN
             PurchCrMemoLine.COPYFILTERS(Rec);
             PurchCrMemoLine.SETRANGE("Document No.","Document No.");
   
   // Delete the following line.
             PurchCrMemoLine.FINDSET;
   
             TempPurchCrMemoLine := PurchCrMemoLine;
             TempPurchCrMemoLine.INSERT;
           END;
   ...
   
   

   รหัสแทน

   ...        TempPurchCrMemoLine.SETRANGE("Document No.","Document No.");
           IF NOT TempPurchCrMemoLine.FINDFIRST THEN BEGIN
             PurchCrMemoLine.COPYFILTERS(Rec);
             PurchCrMemoLine.SETRANGE("Document No.","Document No.");
   
   // Add the following lines.
             IF NOT PurchCrMemoLine.FINDSET THEN
               EXIT(FALSE);
   // End of the lines.
   
             TempPurchCrMemoLine := PurchCrMemoLine;
             TempPurchCrMemoLine.INSERT;
           END;
   
   

10. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มการเรียกบรรทัดการจัดส่งการบริการ (5994) เป็นดังนี้:
    รหัสที่มีอยู่

    ...        TempServiceShptLine.SETRANGE("Document No.","Document No.");
            IF NOT TempServiceShptLine.FIND('-') THEN BEGIN
              ServiceShptLine.COPYFILTERS(Rec);
              ServiceShptLine.SETRANGE("Document No.","Document No.");
    
    // Delete the following line.
              ServiceShptLine.FIND('-');
    
              TempServiceShptLine := ServiceShptLine;
              TempServiceShptLine.INSERT;
            END;
            IF "Line No." = TempServiceShptLine."Line No." THEN
    ...
    
    

    รหัสแทน

    ...        TempServiceShptLine.SETRANGE("Document No.","Document No.");
            IF NOT TempServiceShptLine.FIND('-') THEN BEGIN
              ServiceShptLine.COPYFILTERS(Rec);
              ServiceShptLine.SETRANGE("Document No.","Document No.");
    
    // Add the following lines.
              IF NOT ServiceShptLine.FINDFIRST THEN
                EXIT(FALSE);
    // End of the lines.
    
              TempServiceShptLine := ServiceShptLine;
              TempServiceShptLine.INSERT;
            END;
            IF "Line No." = TempServiceShptLine."Line No." THEN
    
    

11. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มแบบฟอร์มย่อยบรรทัดการบริการ (6036) เป็นดังนี้:
    รหัสที่มีอยู่

    ...        IF NOT TempServLine.FIND('-') THEN BEGIN
              ServLine.COPYFILTERS(Rec);
              ServLine.SETRANGE("Document Type","Document Type");
              ServLine.SETRANGE("Document No.","Document No.");
    
    // Delete the following line.
              ServLine.FIND('-');
    
              TempServLine := ServLine;
              TempServLine.INSERT;
            END;
            IF "Line No." = TempServLine."Line No." THEN
            IF "Line No." = TempServiceShptLine."Line No." THEN
    ...
    
    

    รหัสแทน

    ...        IF NOT TempServLine.FIND('-') THEN BEGIN
              ServLine.COPYFILTERS(Rec);
              ServLine.SETRANGE("Document Type","Document Type");
              ServLine.SETRANGE("Document No.","Document No.");
    
    // Add the following lines.
              IF NOT ServLine.FINDFIRST THEN
                EXIT(FALSE);
    // End of the lines.
    
              TempServLine := ServLine;
              TempServLine.INSERT;
            END;
            IF "Line No." = TempServLine."Line No." THEN
    
    

12. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มแบบฟอร์มย่อยบรรทัดการจัดส่งการบริการ (6037) เป็นดังนี้:
    รหัสที่มีอยู่

    ...        TempServShptLine.SETRANGE("Document No.","Document No.");
            IF NOT TempServShptLine.FIND('-') THEN BEGIN
              ServShptLine.COPYFILTERS(Rec);
              ServShptLine.SETRANGE("Document No.","Document No.");
    
    // Delete the following line.
              ServShptLine.FIND('-');
    
              TempServShptLine := ServShptLine;
              TempServShptLine.INSERT;
            END;
            IF "Line No." = TempServShptLine."Line No." THEN
    ...
    
    

    รหัสแทน

    ...        TempServShptLine.SETRANGE("Document No.","Document No.");
            IF NOT TempServShptLine.FIND('-') THEN BEGIN
              ServShptLine.COPYFILTERS(Rec);
              ServShptLine.SETRANGE("Document No.","Document No.");
    
    // Add the following lines.
              IF NOT ServShptLine.FINDFIRST THEN
                EXIT(FALSE);
    // End of the lines.
              TempServShptLine := ServShptLine;
              TempServShptLine.INSERT;
            END;
            IF "Line No." = TempServShptLine."Line No." THEN
    
    

13. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มแบบฟอร์มย่อยบรรทัดอินวอยซ์การบริการ (6038) เป็นดังนี้:
    รหัสที่มีอยู่

    ...        TempServInvLine.SETRANGE("Document No.","Document No.");
            IF NOT TempServInvLine.FIND('-') THEN BEGIN
              ServInvLine.COPYFILTERS(Rec);
              ServInvLine.SETRANGE("Document No.","Document No.");
    
    // Delete the following line.
              ServInvLine.FIND('-');
    
              TempServInvLine := ServInvLine;
              TempServInvLine.INSERT;
            END;
            EXIT("Line No." = TempServInvLine."Line No.");
    ...
    
    

    รหัสแทน

    ...        TempServInvLine.SETRANGE("Document No.","Document No.");
            IF NOT TempServInvLine.FIND('-') THEN BEGIN
              ServInvLine.COPYFILTERS(Rec);
              ServInvLine.SETRANGE("Document No.","Document No.");
    
    // Add the following lines.
              IF NOT ServInvLine.FINDFIRST THEN
                EXIT(FALSE);
    // End of the lines.
    
              TempServInvLine := ServInvLine;
              TempServInvLine.INSERT;
            END;
            EXIT("Line No." = TempServInvLine."Line No.");
    
    

14. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มแบบฟอร์มย่อยบรรทัดใบลดหนี้บริการ (6039) เป็นดังนี้:
    รหัสที่มีอยู่

    ...        TempServCrMemoLine.SETRANGE("Document No.","Document No.");
            IF NOT TempServCrMemoLine.FIND('-') THEN BEGIN
              ServCrMemoLine.COPYFILTERS(Rec);
              ServCrMemoLine.SETRANGE("Document No.","Document No.");
    
    // Delete the following line.
              ServCrMemoLine.FIND('-');
    
              TempServCrMemoLine := ServCrMemoLine;
              TempServCrMemoLine.INSERT;
            END;
            EXIT("Line No." = TempServCrMemoLine."Line No.");
    ...
    
    

    รหัสแทน

    ...        TempServCrMemoLine.SETRANGE("Document No.","Document No.");
            IF NOT TempServCrMemoLine.FIND('-') THEN BEGIN
              ServCrMemoLine.COPYFILTERS(Rec);
              ServCrMemoLine.SETRANGE("Document No.","Document No.");
    
    // Add the following lines.
              IF NOT ServCrMemoLine.FINDFIRST THEN
                EXIT(FALSE);
    // End of the lines.
    
              TempServCrMemoLine := ServCrMemoLine;
              TempServCrMemoLine.INSERT;
            END;
            EXIT("Line No." = TempServCrMemoLine."Line No.");
    
    

15. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มการเรียกบรรทัดการรับสินค้าส่งคืน (6638) เป็นดังนี้:
    รหัสที่มีอยู่

    ...        TempReturnRcptLine.SETRANGE("Document No.","Document No.");
            IF NOT TempReturnRcptLine.FIND('-') THEN BEGIN
              ReturnRcptLine.COPYFILTERS(Rec);
              ReturnRcptLine.SETRANGE("Document No.","Document No.");
    
    // Delete the following line.
              ReturnRcptLine.FIND('-');
    
              TempReturnRcptLine := ReturnRcptLine;
              TempReturnRcptLine.INSERT;
            END;
            IF "Line No." = TempReturnRcptLine."Line No." THEN
    ...
    
    

    รหัสแทน

    ...        TempReturnRcptLine.SETRANGE("Document No.","Document No.");
            IF NOT TempReturnRcptLine.FIND('-') THEN BEGIN
              ReturnRcptLine.COPYFILTERS(Rec);
              ReturnRcptLine.SETRANGE("Document No.","Document No.");
    
    // Add the following lines.
              IF NOT ReturnRcptLine.FINDFIRST THEN
                EXIT(FALSE);
    // End of the lines.
    
              TempReturnRcptLine := ReturnRcptLine;
              TempReturnRcptLine.INSERT;
            END;
            IF "Line No." = TempReturnRcptLine."Line No." THEN
    
    

16. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsFirstDocLineในแบบฟอร์มการเรียกบรรทัดการจัดส่งคืนสินค้า (6648) เป็นดังนี้:
    รหัสที่มีอยู่

    ...        TempReturnShptLine.SETRANGE("Document No.","Document No.");
            IF NOT TempReturnShptLine.FIND('-') THEN BEGIN
              ReturnShptLine.COPYFILTERS(Rec);
              ReturnShptLine.SETRANGE("Document No.","Document No.");
    
    // Delete the following line.
              ReturnShptLine.FIND('-');
    
              TempReturnShptLine := ReturnShptLine;
              TempReturnShptLine.INSERT;
            END;
            IF "Line No." = TempReturnShptLine."Line No." THEN
    ...
    
    

    รหัสแทน

    ...        TempReturnShptLine.SETRANGE("Document No.","Document No.");
            IF NOT TempReturnShptLine.FIND('-') THEN BEGIN
              ReturnShptLine.COPYFILTERS(Rec);
              ReturnShptLine.SETRANGE("Document No.","Document No.");
    
    // Add the following lines.
              IF NOT ReturnShptLine.FINDFIRST THEN
                EXIT(FALSE);
    // End of the lines.
    
              TempReturnShptLine := ReturnShptLine;
              TempReturnShptLine.INSERT;
            END;
            IF "Line No." = TempReturnShptLine."Line No." THEN