量和累积折旧字段中的数字求和所有的固定资产值不正确折旧帐簿报表 (12119) Microsoft Dynamics 导航 2009年意大利版中运行时

修补程序信息

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

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

代码更改

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

1. 在折旧帐簿报表 (12119) 中添加新的全局变量，然后指定该变量，如下所示︰

   • 名称︰ TotalAmounts

   • 数据类型︰ 阵列 [6] 的小数

2. 更改折旧帐簿报表 (12119) 中的UpdateTotals函数中的代码，如下所示︰
   现有代码

   ...FOR J := 1 TO NumberOfTypes DO BEGIN
   GroupStartAmounts[J] := GroupStartAmounts[J] + StartAmounts[J];
   GroupNetChangeAmounts[J] := GroupNetChangeAmounts[J] + NetChangeAmounts[J];
   GroupDisposalAmounts[J] := GroupDisposalAmounts[J] + DisposalAmounts[J];
   TotalStartAmounts[J] := TotalStartAmounts[J] + StartAmounts[J];
   TotalNetChangeAmounts[J] := TotalNetChangeAmounts[J] + NetChangeAmounts[J];
   TotalDisposalAmounts[J] := TotalDisposalAmounts[J] + DisposalAmounts[J];
   END;
   ...
   

   替换代码

   ...// Add the following lines.
   FOR J := 1 TO NumberOfTypes DO BEGIN
   GroupStartAmounts[J] := 0;
   GroupNetChangeAmounts[J] := 0;
   GroupDisposalAmounts[J] := 0;
   END;
   // End of the lines.
   
   FOR J := 1 TO NumberOfTypes DO BEGIN
   GroupStartAmounts[J] := GroupStartAmounts[J] + StartAmounts[J];
   GroupNetChangeAmounts[J] := GroupNetChangeAmounts[J] + NetChangeAmounts[J];
   GroupDisposalAmounts[J] := GroupDisposalAmounts[J] + DisposalAmounts[J];
   TotalStartAmounts[J] := TotalStartAmounts[J] + StartAmounts[J];
   TotalNetChangeAmounts[J] := TotalNetChangeAmounts[J] + NetChangeAmounts[J];
   TotalDisposalAmounts[J] := TotalDisposalAmounts[J] + DisposalAmounts[J];
   END;
   ...
   

3. 更改折旧帐簿报表 (12119) 中的CreateTotals函数中的代码，如下所示︰
   现有代码

   ...// Delete the following lines.
   TotalEndingAmounts[J] := TotalStartAmounts[J] + TotalNetChangeAmounts[J] + TotalDisposalAmounts[J]; // IT0007
   BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];
   // End of the lines.
   ...
   

   替换代码

   ...// Add the following line.
   TotalAmounts[J] := TotalStartAmounts[J] + TotalNetChangeAmounts[J] + TotalDisposalAmounts[J]; // IT0007
   BookValueAtEndingDate := BookValueAtEndingDate + TotalAmounts[J];
   // End of the lines.
   ...
   

4. 更改页脚部分中的文本框 1130078 中的SourceExpr属性的代码折旧帐簿报表 (12119)，如下所示︰
   现有代码

   TotalEndingAmounts[1]+TotalEndingAmounts[3]+TotalEndingAmounts[4];

   替换代码

   TotalAmounts[1]+TotalAmounts[3]+TotalAmounts[4];

5. 更改页脚部分中的文本框 1130083 中的SourceExpr属性的代码折旧帐簿报表 (12119)，如下所示︰
   现有代码

   ABS(TotalEndingAmounts[2]+TotalEndingAmounts[5]+TotalEndingAmounts[6]);

   替换代码

   ABS(TotalAmounts[2]+TotalAmounts[5]+TotalAmounts[6]);