在 Microsoft Dynamics NAV 中对使用平均成本计算方法的物料运行重估后，物料的单位成本变为负数

应用对象

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1

本文适用于所有国家/地区和所有语言区域设置的 Microsoft Dynamics NAV。

症状

假设您有一个使用平均成本方法的物料。对物料进行重估时，物料的单位成本意外变为负数。此外，在对物料执行“调整成本”批处理作业时，会遇到性能下降的问题。
以下产品中会出现此问题：

Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) 应用了修补程序975251

注意有关修补程序975251的更多信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

975251 在 Microsoft Dynamics NAV 5.0 中对平均成本执行“调整成本”批处理作业时遇到性能下降的问题

解决方法

修补程序信息

Microsoft 现在提供了一个受支持的修补程序。但是，它仅用于更正本文中描述的问题。仅将其应用于遇到此特定问题的系统。此修补程序可能会接受额外的测试。因此，如果你没有受到此问题的严重影响，我们建议你等待下一个 Microsoft Dynamics NAV 2009 Service Pack 或下一个包含此修补程序的 Microsoft Dynamics NAV 版本。

注意特殊情况下，如果 Microsoft Dynamics 及相关产品的技术支持专家确定某个特定更新能够解决你的问题，则可免收通常情况下收取的电话支持服务费用。对于相关特定升级无法解决的其他支持问题和事项，将照常收取支持费用。

安装信息

Microsoft 的编程示例仅用于说明，不做任何明示或暗示的保证。这包括但不限于特定用途的适销性或适用性的隐含保证。本文假定你熟悉所演示的编程语言以及用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释特定过程的功能，但他们不会修改这些示例以提供新增功能或构建步骤以满足你的特定需要。

注意在安装此修补程序之前，请确认所有 Microsoft Navision 客户端用户都已注销系统。这包括Microsoft Navision 应用程序服务 (NAS) 客户端用户。在实施此修补程序时，您应该是唯一登录的客户端用户。

要实现此修补程序，您必须具有开发人员许可证。

我们建议为“Windows 登录”窗口或“数据库登录”窗口中的用户帐户分配“超级”角色 ID。如果无法向用户帐户分配“超级”角色 ID，则必须验证用户帐户是否具有以下权限：

要更改的对象的“修改”权限。
对系统对象 ID 5210 对象和系统对象 ID 9015 对象的执行权限。

注意：除非必须执行数据修复，否则您不必具有对数据存储的权限。

代码更改

注意将修补程序应用于生产计算机之前，始终在受控环境中测试代码修补程序。
要解决此问题，请按照下列步骤操作：

将库存调整代码单元 (5895) 的 AvgValueEntriesToAdjustExist 函数中的代码更改为以下内容：

...
         IF FindNextRange THEN BEGIN
           AvgCostAdjmtEntryPoint."Valuation Date" := GetNextDate(AvgCostAdjmtEntryPoint."Valuation Date");
           AvgValueEntriesToAdjustExist(OutbndValueEntry,ExcludedValueEntry,AvgCostAdjmtEntryPoint);
         END;  

  // Add the following line.
  OutbndValueEntry.SETCURRENTKEY("Item Ledger Entry No."); 

...

将库存调整代码单元 (5895) 的 IsExcludeEntryFromAvgCostCalc 函数中的代码更改为以下内容：

...
         IF NOT "Valued By Average Cost" THEN
           EXIT(FALSE);
         ItemLedgEntry.GET("Item Ledger Entry No.");
         IF ItemLedgEntry.Positive THEN
           EXIT(FALSE);

// Delete the following line.
EXIT(TRUE); 

// Add the following line.
       EXIT("Item Ledger Entry No." > OutbndValueEntry."Item Ledger Entry No."); 
...

...
    // Delete the following lines.
    LOCAL PROCEDURE GetEntryNoToStartAt@78
    BEGIN
      StartAt := 0;
      WITH ExcludedValueEntry DO BEGIN
        RESET;
        IF FINDFIRST THEN
          REPEAT
            IF "Partial Revaluation" AND
               (OutbndValueEntry."Entry No." > "Entry No.")
            THEN
              StartAt := "Entry No.";
          UNTIL NEXT = 0;
      END;
      EXIT(StartAt + 1);
    END;
    // End of the lines.
...

将库存调整 codeunit (5895) 中 AdjustItemAvgCost 函数中的代码更改为以下内容：

...
            WHILE NOT Restart AND AvgValueEntriesToAdjustExist(
                    TempOutbndValueEntry,TempExcludedValueEntry,AvgCostAdjmtEntryPoint)
            DO BEGIN
              REPEAT

                // Delete the following lines.
                TempExcludedValueEntry.SETFILTER("Entry No.",'>=%1',                          
                  GetEntryNoToStartAt(TempOutbndValueEntry,TempExcludedValueEntry)); 
                // End of the lines.

                AdjustOutbndAvgEntry(TempOutbndValueEntry,TempExcludedValueEntry);
                UpdateConsumpAvgEntry(TempOutbndValueEntry);
              UNTIL TempOutbndValueEntry.NEXT = 0;
...

将库存调整代码单元 (5895) 的 IsExcludeEntryFromAvgCostCalc 函数中的代码更改为以下内容：

...
    BEGIN
      WITH ValueEntry DO BEGIN
        IF "Partial Revaluation" THEN         

          // Delete the following line.
          EXIT(TRUE);                                                                           

          // Add the following lines.
          EXIT(                                                                                 
            ("Entry No." > OutbndValueEntry."Entry No.") OR                                     
            (("Entry No." < OutbndValueEntry."Entry No.") AND NOT                               
             IncludedInCostCalculation(ValueEntry,OutbndValueEntry."Item Ledger Entry No.")));  
          // End of the lines.

        IF "Item Ledger Entry No." = OutbndValueEntry."Item Ledger Entry No." THEN
          EXIT(TRUE);
...

先决条件

必须安装以下产品之一才能应用此修补程序：

Microsoft Dynamics NAV 2009 Service Pack 1
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1,975251应用了修补程序

删除信息

无法删除此修补程序。

状态

Microsoft 已确认在 "适用于" 部分中所列的 Microsoft 产品中存在问题。

注意这是一篇由 Microsoft 支持组织直接创建的“快速发布”文章。本文所包含的信息是按原样提供的，以应对新出现的问题。由于发布速度较快，这些材料可能包含印刷错误，无需通知即可随时修改。有关其他注意事项，请参阅使用条款。