虽然值不为零，当您在 Microsoft Dynamics 导航 2009 年运行库存估价报告，数量为零

修补程序信息

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

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

代码更改

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

1. 将新的FixedApplication布尔型参数添加到SetValuationDateAllValueEntrie函数中项 Jnl。-开机自检线路 codeunit (22)，如下所示︰

   PROCEDURE SetValuationDateAllValueEntrie@95(ItemLedgerEntryNo@1000 : Integer;ValuationDate@1001 : Date;FixedApplication@1003 : Boolean);

2. 更改项 Jnl。 在SetValuationDateAllValueEntrie函数中的代码-开机自检线路 codeunit (22)，如下所示︰
   现有代码

   ...        IF FINDSET THEN
             REPEAT
               IF ("Valuation Date" <> "Posting Date") OR
   
   // Delete the following line.
                  ("Valuation Date" < ValuationDate) 
   
               THEN BEGIN
                 "Valuation Date" := ValuationDate;
                 MODIFY;
               END;
             UNTIL NEXT = 0;
   ...
   
   

   替换代码

   ...        IF FINDSET THEN
             REPEAT
               IF ("Valuation Date" <> "Posting Date") OR
   
   // Add the following lines.
                  ("Valuation Date" < ValuationDate) OR     // Add an OR in this condition. 
                  (("Valuation Date" > ValuationDate) AND FixedApplication) // Add a new condition.
   // End of the lines.
   
               THEN BEGIN
                 "Valuation Date" := ValuationDate;
                 MODIFY;
               END;
             UNTIL NEXT = 0;
   ...
   
   

3. 更改项 Jnl。 在不应用函数中的代码-开机自检线路 codeunit (22)，如下所示︰
   现有代码

   ...// Delete the following line.
          SetValuationDateAllValueEntrie(CostItemLedgEntry."Entry No.",Valuationdate);
   ...
   
   

   替换代码

   ...// Add the following line.
          SetValuationDateAllValueEntrie(CostItemLedgEntry."Entry No.",Valuationdate,FALSE); 
   ...
   
   

4. 更改项 Jnl。 在CostApply函数中的代码-开机自检线路 codeunit (22)，如下所示︰
   现有代码

   ...// Delete the following line.
          SetValuationDateAllValueEntrie(GlobalItemLedgEntry."Entry No.",ValueEntry."Valuation Date"); 
   ...
   
   

   替换代码

   ...// Add the following line.
          SetValuationDateAllValueEntrie(GlobalItemLedgEntry."Entry No.",ValueEntry."Valuation Date",FALSE);   
   ...
   
   

5. 更改项 Jnl。 在GetValuationDate函数中的代码-开机自检线路 codeunit (22)，如下所示︰
   现有代码

   ...        IF Positive THEN BEGIN
             IF (ValueEntry."Posting Date" < OldValueEntry."Valuation Date") OR
                (ItemJnlLine."Applies-to Entry" <> 0)
   
   // Delete the following lines.
             THEN BEGIN
               ValueEntry."Valuation Date" := OldValueEntry."Valuation Date";
               SetValuationDateAllValueEntrie(ValueEntry."Item Ledger Entry No.",OldValueEntry."Valuation Date");
             END ELSE
             BEGIN
               ValueEntry."Valuation Date" := ValueEntry."Posting Date";
               SetValuationDateAllValueEntrie(ValueEntry."Item Ledger Entry No.",ValueEntry."Posting Date");
             END
   // End of the lines.
   ...
   
   

   替换代码

   ...        IF Positive THEN BEGIN
             IF (ValueEntry."Posting Date" < OldValueEntry."Valuation Date") OR
                (ItemJnlLine."Applies-to Entry" <> 0)
   
   // Add the following lines.
             THEN BEGIN
               ValueEntry."Valuation Date" := OldValueEntry."Valuation Date";
               SetValuationDateAllValueEntrie(
                 ValueEntry."Item Ledger Entry No.",
                 OldValueEntry."Valuation Date",
                 ItemJnlLine."Applies-to Entry" <> 0)
             END ELSE BEGIN
               ValueEntry."Valuation Date" := ValueEntry."Posting Date";
               SetValuationDateAllValueEntrie(
                 ValueEntry."Item Ledger Entry No.",
                 ValueEntry."Posting Date",
                 ItemJnlLine."Applies-to Entry" <> 0)
             END
   // End of the lines.
   ...