客户订单汇总报告 (107) 在 Microsoft Dynamics 导航中显示不正确总计

修补程序信息

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

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

代码更改

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

1. 更改的属性中的"客户-订单摘要"报表 (107) 中的代码，如下所示︰
   现有代码 1

   ...SalesAmtOnOrderLCY[PeriodNo] := 0;
   END;
   IF SalesLine.FINDSET THEN
   ...
   

   替换代码 1

   ...SalesAmtOnOrderLCY[PeriodNo] := 0;
   END;
   
   // Add the following lines.
   TotalSalesAmtOnOrder := 0;
   TotalSalesAmtOnOrderLCY := 0;
   // End of the linesl
   
   IF SalesLine.FINDSET THEN
   ...
   

   现有代码 2

   ...ELSE
   CurrReport.SKIP;
   END;
   ...
   

   替换代码 2

   ...ELSE
   CurrReport.SKIP;
   
   // Add the following lines.
   FOR PeriodNo := 1 TO 5 DO BEGIN
   TotalSalesAmtOnOrder += SalesAmtOnOrder[PeriodNo];
   TotalSalesAmtOnOrderLCY += SalesAmtOnOrderLCY[PeriodNo];
   END;
   // End of the lines.
   
   END;
   ...
   

   现有代码 3

   ...AutoFormatExpr="Currency Code" }
   { 45 ;1 ;Column ;Name_Cust ;
   IncludeCaption=Yes;
   ...
   

   替换代码 3

   ...AutoFormatExpr="Currency Code" }
   
   // Add the following lines.
   { 5 ;1 ;Column ;TotalSalesAmtOnOrder;
   SourceExpr=TotalSalesAmtOnOrder }
   { 6 ;1 ;Column ;TotalSalesAmtOnOrderLCY;
   SourceExpr=TotalSalesAmtOnOrderLCY }
   // End of the lines.
   
   { 45 ;1 ;Column ;Name_Cust ;
   IncludeCaption=Yes;
   ...
   

2. 更改"客户-订单摘要"报表 (107) 中的全局变量中的代码，如下所示︰
   现有代码

   ...TotalLCYCaptionLbl@5808 : TextConst 'ENU=Total (LCY)';
   CurrencyFilter@1012 : Code[10];
   PROCEDURE InitializeRequest@1(StartingDate@1000 : Date;ShowAmountInLCY@1002 : Boolean);
   ...
   

   替换代码

   ...TotalLCYCaptionLbl@5808 : TextConst 'ENU=Total (LCY)';
   CurrencyFilter@1012 : Code[10];
   
   // Add the following lines.
   TotalSalesAmtOnOrder@1013 : Decimal;
   TotalSalesAmtOnOrderLCY@1014 : Decimal;
   // End of the lines.
   
   PROCEDURE InitializeRequest@1(StartingDate@1000 : Date;ShowAmountInLCY@1002 : Boolean);
   ...
   

3. 更改"客户-订单摘要"报表 (107) 中的InitializeRequest函数中的代码，如下所示︰
   现有代码 1

   ...<DataField>SalesAmtOnOrder1Format</DataField>
   </Field>
   <Field Name="Name_Cust">
   <DataField>Name_Cust</DataField>
   ...
   

   替换代码 1

   ...<DataField>SalesAmtOnOrder1Format</DataField>
   </Field>
   <Field Name="TotalSalesAmtOnOrder">
   
   // Add the following lines.
   <DataField>TotalSalesAmtOnOrder</DataField>
   </Field>
   <Field Name="TotalSalesAmtOnOrderFormat">
   <DataField>TotalSalesAmtOnOrderFormat</DataField>
   </Field>
   <Field Name="TotalSalesAmtOnOrderLCY">
   <DataField>TotalSalesAmtOnOrderLCY</DataField>
   </Field>
   <Field Name="TotalSalesAmtOnOrderLCYFormat">
   <DataField>TotalSalesAmtOnOrderLCYFormat</DataField>
   </Field>
   // End of the lines.
   
   <Field Name="Name_Cust">
   <DataField>Name_Cust</DataField>
   ...
   

   现有代码 2

   ...<TextRuns>
   <TextRun>
   
   // Delete the following line.
   <Value>=Sum(Fields!SalesOrderAmountLCY.Value)</Value>
   
   <Style>
   <FontSize>7pt</FontSize>
   ...
   

   替换代码 2

   ...<TextRuns>
   <TextRun>
   
   // Add the following line.
   <Value>=Sum(Fields!TotalSalesAmtOnOrderLCY.Value)</Value>
   
   <Style>
   <FontSize>7pt</FontSize>
   ...
   

   现有代码 3

   ...<TextRuns>
   <TextRun>
   
   // Delete the following line.
   <Value>=Sum(Fields!SalesOrderAmount.Value)</Value>
   
   <Style>
   <FontSize>7pt</FontSize>
   ...
   

   替换代码 3

   ...<TextRuns>
   <TextRun>
   
   // Add the following line.
   <Value>=Sum(Fields!TotalSalesAmtOnOrder.Value)</Value>
   
   <Style>
   <FontSize>7pt</FontSize>
   ...
   

   现有代码 4

   ...<TextRuns>
   <TextRun>
   
   // Delete the following line.
   <Value>=Sum(Fields!SalesOrderAmount.Value)</Value>
   
   <Style>
   <FontSize>7pt</FontSize>
   ...
   

   替换代码 4

   ...<TextRuns>
   <TextRun>
   
   // Add the following line.
   <Value>=Sum(Fields!TotalSalesAmtOnOrder.Value)</Value>
   
   <Style>
   <FontSize>7pt</FontSize>
   ...
   

   现有代码 5

   ...<TextRuns>
   <TextRun>
   
   // Delete the following line.
   <Value>=Sum(Fields!SalesOrderAmountLCY.Value)</Value>
   
   <Style>
   <FontSize>7pt</FontSize>
   ...
   

   替换代码 5

   ...<TextRuns>
   <TextRun>
   
   // Add the following line.
   <Value>=Sum(Fields!TotalSalesAmtOnOrderLCY.Value)</Value>
   
   <Style>
   <FontSize>7pt</FontSize>
   ...