顧客の注文の要約レポート (107) では、Microsoft Dynamics NAV の不正な合計が表示されます。

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 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>
   ...