在 Microsoft Dynamics 导航 2009 年在过帐销售订单时出现"相关联的总订单中的数量已装运不能大于销售订单行中的数量"错误信息

修补程序信息

受支持的修补程序现已从 Microsoft 推出。然而，它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此，如果这个问题没有对您造成严重的影响，我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。

注意： 在特殊情况下，可免收的支持电话，可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。

安装信息

Microsoft 提供的编程示例仅用于说明，没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能。但是，他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。

注意：安装此修复程序之前，请验证所有 Microsoft Dynamics 导航客户端用户都注销系统。这包括 Microsoft Dynamics 导航应用程序服务器 (NAS) 服务。要实现此修补程序时，在登录的唯一客户端用户。

若要实现此修补程序，必须使用开发人员许可证。

我们建议在 Windows 登录窗口或数据库登录窗口中的用户帐户将分配该"超级"角色 id。如果不能将用户帐户分配成"超级"角色 ID，则必须验证用户帐户具有下列权限:

• 您将更改该对象的修改权限。

• 为系统对象 ID™ 5210对象和系统对象 ID 9015执行权限
  
  对象。

注意：您不需要具有对数据存储区的权限，除非您需要执行数据修复。

代码更改

注意：始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。

若要解决此问题，请执行以下步骤：

1. 对订单 Codeunit (86) 更改在该销售报价单中的属性的代码，如下所示︰
   现有代码 1

   ...Opp@1004 : Record 5092;
   
                 OpportunityEntry@1006 : Record 5093;
   
                 TempOpportunityEntry@1005 : TEMPORARY Record 5093;
   
                 Cust@1008 : Record 18;
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::Quote);
   
                 Cust.GET("Sell-to Customer No.");
   
                 Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);
   ...
   

   替换代码 2

   ...Opp@1004 : Record 5092;
   
                 OpportunityEntry@1006 : Record 5093;
   
                 TempOpportunityEntry@1005 : TEMPORARY Record 5093;
   
                 Cust@1008 : Record 18;
   
   // Add the following line.          
   Item@1010 : Record 27; 
   // End of the added line.
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::Quote);
   
                 Cust.GET("Sell-to Customer No.");
   
                 Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);
   ...
   

   现有代码 2

   ...SalesQuoteLine.SETRANGE(Type,SalesQuoteLine.Type::Item);
   
                 SalesQuoteLine.SETFILTER("No.",'<>%1','');
   
                 IF SalesQuoteLine.FINDSET THEN
   
                   REPEAT
   
                     IF (SalesQuoteLine."Outstanding Quantity" > 0) THEN BEGIN
   
                       SalesLine := SalesQuoteLine;
   
                       SalesLine.VALIDATE("Reserved Qty. (Base)",0);
   
                       SalesLine."Line No." := 0;
   ...
   

   替换代码 2

   ...SalesQuoteLine.SETRANGE(Type,SalesQuoteLine.Type::Item);
   
                 SalesQuoteLine.SETFILTER("No.",'<>%1','');
   
                 IF SalesQuoteLine.FINDSET THEN
   
                   REPEAT
   
                    IF Item.GET(SalesQuoteLine."No.") THEN         //add line
   
   // Add the following line.               
   Item.TESTFIELD(Blocked,FALSE);  
   // End of the added line.
   
                     IF (SalesQuoteLine."Outstanding Quantity" > 0) THEN BEGIN
   
                       SalesLine := SalesQuoteLine;
   
                       SalesLine.VALIDATE("Reserved Qty. (Base)",0);
   
                       SalesLine."Line No." := 0;
   ...
   

2. 对订单 Codeunit (87) 更改中总销售订单中的属性的代码，如下所示︰
   现有代码 1

   ...Cust@1001 : Record 18;
   
                 TempSalesLine@1002 : TEMPORARY Record 37;
   
                 Reservation@1005 : Form 498;
   
                 PrepmtMgt@1004 : Codeunit 441;
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::"Blanket Order");
   
                 Cust.GET("Sell-to Customer No.");
   
                 Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);
   ...
   

   替换代码 1

   ...Cust@1001 : Record 18;
   
                 TempSalesLine@1002 : TEMPORARY Record 37;
   
                 Reservation@1005 : Form 498;
   
                 PrepmtMgt@1004 : Codeunit 441;
   
   // Add the following line.
                 Item@1006 : Record 27;                  
   // End of the added line.
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::"Blanket Order");
   
                 Cust.GET("Sell-to Customer No.");
   
                 Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);
   ...
   

   现有代码 2

   ...SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF SalesLine."Document Type" IN
   
                             [SalesLine."Document Type"::"Return Order",
   
                              SalesLine."Document Type"::"Credit Memo"]
   
                         THEN
   ...
   

   替换代码 2

   ...SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
   // Add the following lines.
                         IF Item.GET(SalesLine."No.") THEN                     
   
                           Item.TESTFIELD(Blocked,FALSE);
   // End of the added lines.                  
   
                         IF SalesLine."Document Type" IN
   
                             [SalesLine."Document Type"::"Return Order",
   
                              SalesLine."Document Type"::"Credit Memo"]
   
                         THEN
   ...
   

   现有代码 3

   ...TempSalesLine.DELETEALL;
   
                   REPEAT
   
                     SalesLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No.");
   
                     SalesLine.SETRANGE("Blanket Order No.",BlanketOrderSalesLine."Document No.");
   
                     SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");
   
   // Delete the following lines.
   
                     SalesLine.SETFILTER(                       
   
                       "Document Type",'<>%1 & <>%2',SalesLine."Document Type"::Invoice,SalesLine."Document Type"::"Credit Memo");
   
   // End of the deleted lines.
   
                     QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(SalesLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   ...
   

   替换代码 3

   ...TempSalesLine.DELETEALL;
   
                   REPEAT
   
                     SalesLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No.");
   
                     SalesLine.SETRANGE("Blanket Order No.",BlanketOrderSalesLine."Document No.");
   
                     SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(SalesLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   ...
   

   现有代码 4

   ...QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(SalesLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   
   // Delete the following lines.
                         IF SalesLine."Document Type" = SalesLine."Document Type"::"Return Order" THEN    
                           QuantityOnOrders := QuantityOnOrders - SalesLine."Outstanding Qty. (Base)"           
   
                         ELSE                                                                                                                                               //Remove line      
   
                           QuantityOnOrders := QuantityOnOrders + SalesLine."Outstanding Qty. (Base)";        
   // End of the deleted lines.
   
                       UNTIL SalesLine.NEXT = 0;
   
                     IF (ABS(BlanketOrderSalesLine."Qty. to Ship (Base)" + QuantityOnOrders +
   
                             BlanketOrderSalesLine."Qty. Shipped (Base)") >
   
                         ABS(BlanketOrderSalesLine."Quantity (Base)")) OR
   
                        (BlanketOrderSalesLine."Quantity (Base)" * BlanketOrderSalesLine."Outstanding Qty. (Base)" < 0)
   ...
   

   替换代码 4

   ...QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(SalesLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   
   // Add the following lines.
   
                         IF (SalesLine."Document Type" = SalesLine."Document Type"::"Return Order") OR
   
                            ((SalesLine."Document Type" = SalesLine."Document Type"::"Credit Memo") AND
   
                             (SalesLine."Return Receipt No." = ''))
   
                         THEN
   
                           QuantityOnOrders := QuantityOnOrders - SalesLine."Outstanding Qty. (Base)"
   
                         ELSE
   
                           IF (SalesLine."Document Type" = SalesLine."Document Type"::Order) OR
   
                              ((SalesLine."Document Type" = SalesLine."Document Type"::Invoice) AND
   
                               (SalesLine."Shipment No." = ''))
   
                           THEN
   
                             QuantityOnOrders := QuantityOnOrders + SalesLine."Outstanding Qty. (Base)";
   
   // End of the added lines.
   
                       UNTIL SalesLine.NEXT = 0;
   
                     IF (ABS(BlanketOrderSalesLine."Qty. to Ship (Base)" + QuantityOnOrders +
   
                             BlanketOrderSalesLine."Qty. Shipped (Base)") >
   
                         ABS(BlanketOrderSalesLine."Quantity (Base)")) OR
   
                        (BlanketOrderSalesLine."Quantity (Base)" * BlanketOrderSalesLine."Outstanding Qty. (Base)" < 0)
   ...
   

3. 在采购中的属性的代码更改的报价单到订单 Codeunit (96)，如下所示︰
   现有代码 1

   ...OldPurchCommentLine@1001 : Record 43;
   
                 FromDocDim@1000 : Record 357;
   
                 ToDocDim@1003 : Record 357;
   
                 Vend@1002 : Record 23;
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::Quote);
   
                 Vend.GET("Buy-from Vendor No.");
   
                 Vend.CheckBlockedVendOnDocs(Vend,FALSE);
   ...
   

   替换代码 1

   ...OldPurchCommentLine@1001 : Record 43;
   
                 FromDocDim@1000 : Record 357;
   
                 ToDocDim@1003 : Record 357;
   
                 Vend@1002 : Record 23;
   
   // Add the following line.
                 Item@1004 : Record 27;           
   // End of the added line.
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::Quote);
   
                 Vend.GET("Buy-from Vendor No.");
   
                 Vend.CheckBlockedVendOnDocs(Vend,FALSE);
   

   现有代码 2

   ...ToDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
   
   
   
                 IF PurchQuoteLine.FINDSET THEN
   
                   REPEAT
   
                     PurchOrderLine := PurchQuoteLine;
   
                     PurchOrderLine."Document Type" := PurchOrderHeader."Document Type";
   
                     PurchOrderLine."Document No." := PurchOrderHeader."No.";
   
                     ReservePurchLine.TransferPurchLineToPurchLine(
   ...
   

   替换代码 2

   ...ToDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
   
   
   
                 IF PurchQuoteLine.FINDSET THEN
   
                   REPEAT
   
   // Add the following lines.
                     IF Item.GET(PurchQuoteLine."No.") THEN   
   
                       Item.TESTFIELD(Blocked,FALSE);                 
   // End of the added lines.
   
                     PurchOrderLine := PurchQuoteLine;
   
                     PurchOrderLine."Document Type" := PurchOrderHeader."Document Type";
   
                     PurchOrderLine."Document No." := PurchOrderHeader."No.";
   
                     ReservePurchLine.TransferPurchLineToPurchLine(
   ...
   

4. 在总采购中属性的代码更改。订购到订单 Codeunit (97)，如下所示︰
   现有代码 1

   ...FromDocDim@1000 : Record 357;
   
                 ToDocDim@1002 : Record 357;
   
                 Vend@1001 : Record 23;
   
                 PrepmtMgt@1003 : Codeunit 441;
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::"Blanket Order");
   
                 Vend.GET("Buy-from Vendor No.");
   
                 Vend.CheckBlockedVendOnDocs(Vend,FALSE);
   ...
   

   替换代码 1

   ...FromDocDim@1000 : Record 357;
   
                 ToDocDim@1002 : Record 357;
   
                 Vend@1001 : Record 23;
   
                 PrepmtMgt@1003 : Codeunit 441;
   
   // Add the following line.
                 Item@1004 : Record 27;                     
   // End of the added line.
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::"Blanket Order");
   
                 Vend.GET("Buy-from Vendor No.");
   
                 Vend.CheckBlockedVendOnDocs(Vend,FALSE);
   ...
   

   现有代码 2

   ...PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF PurchLine."Document Type" IN
   
                             [PurchLine."Document Type"::"Return Order",
   
                              PurchLine."Document Type"::"Credit Memo"] THEN
   
                           QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"
   ...
   

   替换代码 2

   ...PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
   // Add the following lines.
                         IF Item.GET(PurchLine."No.") THEN    
   
                           Item.TESTFIELD(Blocked,FALSE);       
   // End of the added lines.
   
                         IF PurchLine."Document Type" IN
   
                             [PurchLine."Document Type"::"Return Order",
   
                              PurchLine."Document Type"::"Credit Memo"] THEN
   
                           QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"
   ...
   

   现有代码 3

   ...IF PurchBlanketOrderLine.FINDSET THEN
   
                   REPEAT
   
                     PurchLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No.");
   
                     PurchLine.SETRANGE("Blanket Order No.",PurchBlanketOrderLine."Document No.");
   
                     PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");
   
   // Delete the following lines.
   
                     PurchLine.SETFILTER(
   
                       "Document Type",'<>%1 & <>%2',PurchLine."Document Type"::Invoice,PurchLine."Document Type"::"Credit Memo");
   
   // End of the deleted lines.
   
                     QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(PurchLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   ...
   

   替换代码 3

   ...IF PurchBlanketOrderLine.FINDSET THEN
   
                   REPEAT
   
                     PurchLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No.");
   
                     PurchLine.SETRANGE("Blanket Order No.",PurchBlanketOrderLine."Document No.");
   
                     PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(PurchLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   ...
   

   现有代码 4

   ...QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(PurchLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   
   // Delete the following lines.
   
                         IF PurchLine."Document Type" = PurchLine."Document Type"::"Return Order" THEN
   
                           QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"
   
                         ELSE
   
                           QuantityOnOrders := QuantityOnOrders + PurchLine."Outstanding Qty. (Base)";
   
   // End of the deleted lines.
   
                       UNTIL PurchLine.NEXT = 0;
   
                     IF (ABS(PurchBlanketOrderLine."Qty. to Receive (Base)" + QuantityOnOrders +
   
                             PurchBlanketOrderLine."Qty. Received (Base)") >
   
                         ABS(PurchBlanketOrderLine."Quantity (Base)")) OR
   
                        (PurchBlanketOrderLine."Quantity (Base)" * PurchBlanketOrderLine."Outstanding Qty. (Base)" < 0)
   ...
   

   替换代码 4

   ...QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(PurchLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   
   // Add the following lines.
   
                         IF (PurchLine."Document Type" = PurchLine."Document Type"::"Return Order") OR
   
                            ((PurchLine."Document Type" = PurchLine."Document Type"::"Credit Memo") AND
   
                             (PurchLine."Return Shipment No." = ''))
   
                         THEN
   
                           QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"
   
                         ELSE
   
                           IF (PurchLine."Document Type" = PurchLine."Document Type"::Order) OR
   
                              ((PurchLine."Document Type" = PurchLine."Document Type"::Invoice) AND
   
                               (PurchLine."Receipt No." = ''))
   
                           THEN
   
                             QuantityOnOrders := QuantityOnOrders + PurchLine."Outstanding Qty. (Base)";
   // End of the added lines.
   
                       UNTIL PurchLine.NEXT = 0;
   
                     IF (ABS(PurchBlanketOrderLine."Qty. to Receive (Base)" + QuantityOnOrders +
   
                             PurchBlanketOrderLine."Qty. Received (Base)") >
   
                         ABS(PurchBlanketOrderLine."Quantity (Base)")) OR
   
                        (PurchBlanketOrderLine."Quantity (Base)" * PurchBlanketOrderLine."Outstanding Qty. (Base)" < 0)
   ...
   

系统必备组件

您必须具有以下更新以及要应用此修补程序的安装以下产品之一︰

• Microsoft Dynamics 导航 2009 Service Pack 1

• Microsoft Dynamics NAV 2009 R2

• 在 Microsoft Dynamics 导航中的2642368 "给装运 （基础货币） 在行号 [Line_Number] [Item_Number] 项的数量不能超过 [数量]"错误消息当您尝试创建总订单订购

删除信息

您不能删除此修补程序。