"销售装运 [Shipment_No]，[Line_No] 的行号不会被复制因为已手动应用上的已发布的文档行的整个数量"的错误消息复制文档函数运行在 Microsoft Dynamics 导航部分销售返回时

症状

假定您启用 Microsoft Dynamics NAV.中的销售人员和应收帐款设置对话框中的完全成本冲销设置在此情况下，当您运行复制文档函数部分的销售返回时，您将收到下面的错误消息︰

因为已手动应用上的已发布的文档行的整个数量，则不会复制销售装运Shipment_No， Line_No的行号。

下列产品中发生此问题︰

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics 导航 2009 Service Pack 1

解决方案

修补程序信息

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

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

安装信息

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

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

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

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

您将更改该对象的修改权限。
为系统对象 ID ™ 5210对象和系统对象 ID 9015对象的 Execute 权限。

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

代码更改

注意：始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。
若要解决此问题，请执行以下步骤：

删除复制文档管理 codeunit (6620) 中的以下全局变量︰

Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean;

复制文档管理 codeunit (6620) 中添加以下全局变量︰

Text030@1025 : TextConst 'ENU=One or more return document lines were not copied. This is because quantities on the posted document line are already fully or partially applied and therefore the Exact Cost Reversing Link could not be created.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
 SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean;
WarningDone@1051 : Boolean;
LinesApplied@1052 : Boolean;

更改复制文档管理 codeunit (6620) 中的SplitPstdSalesLinesPerILE函数中的代码，如下所示︰
现有代码 1

...            IF "Shipped Qty. Not Returned" = 0 THEN

// Delete the following lines.
             ERROR(Text030,"Document Type","Document No.","Document Line No.");
           FromSalesLineBuf := FromSalesLine; 
           IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
             IF FromSalesLine."Quantity (Base)" > 0 THEN
               FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
             ELSE
               FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
             IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
               FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
             ELSE
               FromSalesLineBuf.Quantity :=
                 ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
           END;
           FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
           FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
           FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
           FromSalesLineBuf."Line No." := NextLineNo;
           NextLineNo := NextLineNo + 1;
           FromSalesLineBuf."Document No." := "Document No.";
           IF GetSalesDocType(ItemLedgEntry) IN
              [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
           THEN
             FromSalesLineBuf."Shipment Line No." := 1;

           IF NOT FromShptOrRcpt THEN
             UpdateRevSalesLineAmount(
               FromSalesLineBuf,OrgQtyBase,
               FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");

           FromSalesLineBuf.INSERT;
// End of the lines.

          UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...

替换代码 1

...            IF "Shipped Qty. Not Returned" = 0 THEN

// Add the following lines.
             LinesApplied := TRUE;
           IF "Shipped Qty. Not Returned" < 0 THEN BEGIN
             FromSalesLineBuf := FromSalesLine;

             IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
               IF FromSalesLine."Quantity (Base)" > 0 THEN
                 FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
               ELSE
                 FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
               IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
                 FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
               ELSE
                 FromSalesLineBuf.Quantity :=
                   ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
             END;
             FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
             FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
             FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
             FromSalesLineBuf."Line No." := NextLineNo;
             NextLineNo := NextLineNo + 1;
             FromSalesLineBuf."Document No." := "Document No.";
             IF GetSalesDocType(ItemLedgEntry) IN
                [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
             THEN
               FromSalesLineBuf."Shipment Line No." := 1;

             IF NOT FromShptOrRcpt THEN
               UpdateRevSalesLineAmount(
                 FromSalesLineBuf,OrgQtyBase,
                 FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");

             FromSalesLineBuf.INSERT;
           END;
// End of the lines.

          UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...

现有代码 2

...            MissingExCostRevLink := TRUE;
        END;
...

替换代码 2

...            MissingExCostRevLink := TRUE;

// Add the following line.
         CheckUnappliedLines(LinesApplied,MissingExCostRevLink);

        END;
...

更改复制文档管理 codeunit (6620) 中的SplitPstdPurchLinesPerILE函数中的代码，如下所示︰
现有代码 1

...        ApplyRec@1011 : Record 339;

// Delete the following line.
       AllAreFixed@1012 : Boolean;

      BEGIN
...

替换代码 1

...        ApplyRec@1011 : Record 339;
      BEGIN
...

现有代码 2

...          REPEAT

// Delete the following lines.
           IF "Remaining Quantity" = 0 THEN BEGIN
             AllAreFixed := TRUE;
             ApplyRec.AppliedOutbndEntryExists("Entry No.",FALSE);
             IF ApplyRec.FINDFIRST THEN
               REPEAT
                 AllAreFixed := AllAreFixed AND ApplyRec.Fixed;
               UNTIL ApplyRec.NEXT = 0;
             IF AllAreFixed THEN
               ERROR(Text030,"Document Type","Document No.","Document Line No.");
           END;
// End of the lines.

            IF NOT ApplyFully THEN BEGIN
...

替换代码 2

...          REPEAT
            IF NOT ApplyFully THEN BEGIN
...

现有代码 3

...        END;
...

替换代码 3

...        END;

// Add the following line.
       CheckUnappliedLines(SkippedLine,MissingExCostRevLink);

...

更改复制文档管理 codeunit (6620) 中的CheckUnappliedLines函数中的代码，如下所示︰
现有代码

...      BEGIN
...

替换代码

...
// Add the following lines.
     LOCAL PROCEDURE CheckUnappliedLines@86(SkippedLine@1000 : Boolean;VAR MissingExCostRevLink@1001 : Boolean);
     BEGIN
       IF SkippedLine AND MissingExCostRevLink THEN BEGIN
         IF NOT WarningDone THEN
           MESSAGE(Text030);
         MissingExCostRevLink := FALSE;
         WarningDone := TRUE;
       END;
     END;

// End of the lines.

      BEGIN
...

系统必备组件

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

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics 导航 2009 Service Pack 1

删除信息

您不能删除此修补程序。

状态

Microsoft 已经确认这是“适用于”一节中列出的 Microsoft 产品中的问题。

注意：这是直接从创建 Microsoft 支持部门内的"快速发布"的文章。此处包含的信息是作为为了响应新出现的问题而提供的。由于以使其可用的速度，而材料可能包含印刷错误，恕不另行通知，随时可能进行修订。其他考虑因素，请参阅使用条款。

"销售装运 [Shipment_No]，[Line_No] 的行号不会被复制因为已手动应用上的已发布的文档行的整个数量"的错误消息复制文档函数运行在 Microsoft Dynamics 导航部分销售返回时

症状

解决方案

修补程序信息

安装信息

代码更改

系统必备组件

删除信息

状态

需要更多帮助?

需要更多选项?

此信息是否有帮助?

谢谢您的反馈！