Rapporten Sammanfattning av kundens Order (107) visar felaktiga summor i Microsoft Dynamics NAV

Information om snabbkorrigeringen

En snabbkorrigering är nu tillgänglig från Microsoft. Den är endast avsedd att åtgärda det problem som beskrivs i denna artikel. Använd den bara på datorer där detta problem uppstår. Snabbkorrigeringen kan komma att testas igen. Om inte störs alltför mycket av detta problem rekommenderar vi att du väntar på Nästa service pack-versionen för Microsoft Dynamics NAV 2009 eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.

Obs! I särskilda fall, de avgifter som är normalt för support vara avgiftsfri om en supporttekniker för Microsoft Dynamics och relaterade produkter som bestämmer att en särskild uppdatering kan lösa ditt problem. De vanliga supportkostnaderna gäller för övriga supportfrågor och problem som inte berör den särskilda uppdateringen.

Kod ändras

Obs! Alltid åtgärdas testa koden i en kontrollerad miljö innan du installerar korrigeringar för produktionsdatorer.
Lös problemet så här:

1. Ändra koden i egenskaperna i rapporten "Kund – ordersammandrag" (107) enligt följande:
   Befintlig kod 1

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

   Ersättningskod 1

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

   Befintlig kod 2

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

   Ersättningskod 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;
   ...
   

   Befintlig kod 3

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

   Ersättningskod 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. Ändra koden i den globala variabler i rapporten "Kund – ordersammandrag" (107) enligt följande:
   Befintlig kod

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

   Ersättningskod

   ...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. Ändra koden i funktionen InitializeRequest i rapporten "Kund – ordersammandrag" (107) enligt följande:
   Befintlig kod 1

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

   Ersättningskod 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>
   ...
   

   Befintlig kod 2

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

   Ersättningskod 2

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

   Befintlig kod 3

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

   Ersättningskod 3

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

   Befintlig kod 4

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

   Ersättningskod 4

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

   Befintlig kod 5

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

   Ersättningskod 5

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