Avskrivningsregel rapport (12119) ut inte slutet summor som är relaterade till föregående års siffror i den italienska versionen av Microsoft Dynamics NAV 2009

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 Data objekt nummer 1 i rapporten avskrivningsregel (12119) enligt följande:
   Befintlig kod 1

   ...                               FASource := Text008;
                                IF NOT FADeprBook.GET("No.",DeprBookCode) THEN
                                  CurrReport.SKIP;
   
                                // Delete the following lines.
                                IF SkipRecord THEN
                                  CurrReport.SKIP;
                                // End of the lines.
   
                                IF "FA Posting Group" <> FADeprBook."FA Posting Group" THEN
                                  ERROR(Text007,FIELDCAPTION("FA Posting Group"),"No.");
   ...
   
   

   Ersättningskod 1

   ...                               FASource := Text008;
                                IF NOT FADeprBook.GET("No.",DeprBookCode) THEN
                                  CurrReport.SKIP;
   
                                // Add the following lines.
                                FixedAsset.COPY("Fixed Asset");
                                IF SkipRecord THEN BEGIN
                                  IF FixedAsset.NEXT = 0 THEN
                                    CreateTotals;
                                  CurrReport.SKIP;
                                END;
                                // End of the lines.
   
                                IF "FA Posting Group" <> FADeprBook."FA Posting Group" THEN
                                  ERROR(Text007,FIELDCAPTION("FA Posting Group"),"No.");
   ...
   
   

   Befintlig kod 2

   ...                               FillTempFALedgEntry;
                                  UpdateTotals;
                                  CreateGroupTotals;
   
                                  // Delete the following lines.
                                  CreateTotals;
   
                                TotalStartingAccumulated := TotalStartAmounts[2] + TotalStartAmounts[5] + TotalStartAmounts[6];
                                TotalAntAccDepreciation := TotalNetChangeAmounts[5] + TotalNetChangeAmounts[6];
   
                                IF TotalEndingAmounts[1]+TotalEndingAmounts[3]+TotalEndingAmounts[4] = 0 THEN BEGIN
                                  TotalBasicDepreciationPerc := 0;
                                  TotalAntAccDepreciationPerc := 0
                                END ELSE BEGIN
                                  TotalBasicDepreciationPerc := ABS(ROUND((((TotalNetChangeAmounts[2] + ReclassDeprAmount) / // IT0001
                                    (TotalEndingAmounts[1] +
                                    TotalEndingAmounts[3] +
                                   TotalEndingAmounts[4])) * 100),0.01));
   
                                  TotalAntAccDepreciationPerc := ABS(ROUND(((TotalAntAccDepreciation /
                                    TotalEndingAmounts[1] +
                                    TotalEndingAmounts[3] +
                                    TotalEndingAmounts[4]) * 100),0.01));
   
                                END;
                                // End of the lines.
   
                              END;
   
             ReqFilterFields=No.,FA Class Code,FA Subclass Code,Budgeted Asset;
   ...
   
   

   Ersättningskod 2

   ...                               FillTempFALedgEntry;
                                  UpdateTotals;
                                  CreateGroupTotals;
   
                                // Add the following lines.
                                IF FixedAsset.NEXT = 0 THEN
                                  CreateTotals;
                                // End of the lines.
   
                              END;
   
             ReqFilterFields=No.,FA Class Code,FA Subclass Code,Budgeted Asset;
   ...
   
   

2. Ändra koden i Data objekt nummer 1 avsnitt i rapporten avskrivningsregel (12119) enligt följande:
   Befintlig kod 1

   ...            CONTROLS
               {
                 { 169 ;TextBox      ;24450;0    ;1650 ;423  ;FontBold=Yes;
   
                                                              // Delete the following line.
                                                              SourceExpr=BookValueAtEndingDate;
                                                              // End of the line.
   
                                                              AutoFormatType=1;
                                                              DataSetFieldName=BookValueAtEndingDate_Control169 }
                 { 1130064;Label     ;0    ;0    ;2250 ;423  ;HorzAlign=Left;
   ...
   
   

   Ersättningskod 1

   ...            CONTROLS
               {
                 { 169 ;TextBox      ;24450;0    ;1650 ;423  ;FontBold=Yes;
   
                                                              // Add the following line.
                                                              SourceExpr=EndTotalBookValueAtEndingDate;
                                                              // End of the line.
   
                                                              AutoFormatType=1;
                                                              DataSetFieldName=BookValueAtEndingDate_Control169 }
                 { 1130064;Label     ;0    ;0    ;2250 ;423  ;HorzAlign=Left;
   ...
   
   

   Befintlig kod 2

   ...TotalNetChangeAmounts_3__TotalNetChangeAmounts_4_ }
                 { 1130077;TextBox   ;5850 ;0    ;1800 ;423  ;SourceExpr=TotalDisposalAmounts[1]+TotalDisposalAmounts[3]+TotalDisposalAmounts[4];
                                                              DataSetFieldName=TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_ }
   
                 // Delete the following line.
                 { 1130078;TextBox   ;7650 ;0    ;1800 ;423  ;SourceExpr=TotalEndingAmounts[1]+TotalEndingAmounts[3]+TotalEndingAmounts[4];
                 // End of the line.
   
                                                              DataSetFieldName=TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078 }
                 { 1130079;TextBox   ;9450 ;0    ;1500 ;423  ;SourceExpr=TotalStartingAccumulated;
                                                              DataSetFieldName=TotalStartingAccumulated }
   ...
   
   

   Ersättningskod 2

   ...                                                           DataSetFieldName=TotalNetChangeAmounts_1__TotalNetChangeAmounts_3__TotalNetChangeAmounts_4_ }
                 { 1130077;TextBox   ;5850 ;0    ;1800 ;423  ;SourceExpr=TotalDisposalAmounts[1]+TotalDisposalAmounts[3]+TotalDisposalAmounts[4];
                                                              DataSetFieldName=TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_ }
   
                 // Add the following line.
                 { 1130078;TextBox   ;7650 ;0    ;1800 ;423  ;SourceExpr=EndTotalEndingAmounts[1]+EndTotalEndingAmounts[3]+EndTotalEndingAmounts[4];
                 // End of the line.
   
                                                              DataSetFieldName=TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078 }
                 { 1130079;TextBox   ;9450 ;0    ;1500 ;423  ;SourceExpr=TotalStartingAccumulated;
                                                              DataSetFieldName=TotalStartingAccumulated }
   ...
   
   

   Befintlig kod 3

   ...                                                           DataSetFieldName=TotalStartingAccumulated }
                 { 1130081;TextBox   ;13950;0    ;1500 ;423  ;SourceExpr=ABS(TotalNetChangeAmounts[2]);
                                                              DataSetFieldName=ABS_TotalNetChangeAmounts_2__ }
   
                 // Delete the following line.
                 { 1130083;TextBox   ;22950;0    ;1500 ;423  ;SourceExpr=ABS(TotalEndingAmounts[2]+TotalEndingAmounts[5]+TotalEndingAmounts[6]);
                 // End of the line.
   
                                                              DataSetFieldName=ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083 }
                 { 1130090;TextBox   ;21450;0    ;1500 ;423  ;SourceExpr=ABS(TotalNetChangeAmounts[2]+TotalAntAccDepreciation);
                                                              DataSetFieldName=ABS_TotalNetChangeAmounts_2__TotalAntAccDepreciation_ }
   ...
   
   

   Ersättningskod 3

   ...                                                           DataSetFieldName=TotalStartingAccumulated }
                 { 1130081;TextBox   ;13950;0    ;1500 ;423  ;SourceExpr=ABS(TotalNetChangeAmounts[2]);
                                                              DataSetFieldName=ABS_TotalNetChangeAmounts_2__ }
   
                 // Add the following line.
                 { 1130083;TextBox   ;22950;0    ;1500 ;423  ;SourceExpr=ABS(EndTotalEndingAmounts[2]+EndTotalEndingAmounts[5]+EndTotalEndingAmounts[6]);
                 // End of the line.
   
                                                              DataSetFieldName=ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083 }
                 { 1130090;TextBox   ;21450;0    ;1500 ;423  ;SourceExpr=ABS(TotalNetChangeAmounts[2]+TotalAntAccDepreciation);
                                                              DataSetFieldName=ABS_TotalNetChangeAmounts_2__TotalAntAccDepreciation_ }
   ...
   
   

3. Lägg till följande globala variabler i rapporten avskrivningsregel (12119):

   • FixedAsset@1130040: Posten 5600

   • EndTotalEndingAmounts@1130041: ARRAY [7] i Decimal

   • EndTotalBookValueAtEndingDate@1130042: decimaltal

4. Ändra koden i funktionen UpdateTotals i rapporten avskrivningsregel (12119) enligt följande:
   Befintlig kod 1

   ...          GroupStartAmounts[J] := 0;
             GroupNetChangeAmounts[J] := 0;
             GroupDisposalAmounts[J] := 0;
   
             // Delete the following lines.
             TotalStartAmounts[J] := 0;
             TotalNetChangeAmounts[J] := 0;
             TotalDisposalAmounts[J] := 0;
             TotalReclassDeprAmount := ReclassDeprAmount;
             // End of the lines.
   
           END;
           // IT0001.end
           FOR J := 1 TO NumberOfTypes DO BEGIN
   ...
   
   

   Ersättningskod 1

   ...          GroupStartAmounts[J] := 0;
             GroupNetChangeAmounts[J] := 0;
             GroupDisposalAmounts[J] := 0;
           END;
           // IT0001.end
           FOR J := 1 TO NumberOfTypes DO BEGIN
   ...
   
   

   Befintlig kod 2

   ...          TotalStartAmounts[J] := TotalStartAmounts[J] + StartAmounts[J];
             TotalNetChangeAmounts[J] := TotalNetChangeAmounts[J] + NetChangeAmounts[J];
             TotalDisposalAmounts[J] := TotalDisposalAmounts[J] + DisposalAmounts[J];
           END;
         END;
   ...
   
   

   Ersättningskod 2

   ...          TotalStartAmounts[J] := TotalStartAmounts[J] + StartAmounts[J];
             TotalNetChangeAmounts[J] := TotalNetChangeAmounts[J] + NetChangeAmounts[J];
             TotalDisposalAmounts[J] := TotalDisposalAmounts[J] + DisposalAmounts[J];
   
             // Add the following lines.
             IF J = 2 THEN
               TotalReclassDeprAmount := TotalReclassDeprAmount + ReclassDeprAmount;
             // End of the lines.
   
           END;
         END;
   ...
   
   

5. Ändra koden i funktionen CreateGroupTotals i rapporten avskrivningsregel (12119) enligt följande:
   Befintlig kod 1

   ...      LOCAL PROCEDURE CreateGroupTotals@1130114();
         BEGIN
   
           BookValueAtEndingDate := 0;
           BookValueAtStartingDate := 0;
           FOR J := 1 TO NumberOfTypes DO BEGIN
   ...
   
   

   Ersättningskod 1

   ...      LOCAL PROCEDURE CreateGroupTotals@1130114();
         BEGIN
           BookValueAtEndingDate := 0;
           BookValueAtStartingDate := 0;
           FOR J := 1 TO NumberOfTypes DO BEGIN
   ...
   
   

   Befintlig kod 2

   ...        BookValueAtStartingDate := 0;
           FOR J := 1 TO NumberOfTypes DO BEGIN
             TotalEndingAmounts[J] := GroupStartAmounts[J] + GroupNetChangeAmounts[J] + GroupDisposalAmounts[J];
             BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];
             BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];
   ...
   
   

   Ersättningskod 2

   ...        BookValueAtStartingDate := 0;
           FOR J := 1 TO NumberOfTypes DO BEGIN
             TotalEndingAmounts[J] := GroupStartAmounts[J] + GroupNetChangeAmounts[J] + GroupDisposalAmounts[J];
   
             // Add the following lines.
             IF J = 2 THEN
               TotalEndingAmounts[J] += ReclassDeprAmount;
             // End of the lines.
   
             BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];
             BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];
   ...
   
   

   Befintlig kod 3

   ...          BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];
             BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];
   
             // Delete the following lines.
             IF J = 2 THEN
               TotalEndingAmounts[J] += ReclassDeprAmount;
             // End of the lines.
   
           END;
         END;
   ...
   
   

   Ersättningskod 3

   ...          BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];
             BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];
           END;
         END;
   ...
   
   

6. Ändra koden i funktionen CreateTotals i rapporten avskrivningsregel (12119) enligt följande:
   Befintlig kod 1

   ...      LOCAL PROCEDURE CreateTotals@1130117();
         BEGIN
   
           // Delete the following lines.
           BookValueAtEndingDate := 0;
           BookValueAtStartingDate := 0;
           FOR J := 1 TO NumberOfTypes DO BEGIN
             TotalEndingAmounts[J] := TotalStartAmounts[J] + TotalNetChangeAmounts[J] + TotalDisposalAmounts[J];
           // End of the lines.
   
             // IT0001.begin
             IF J = 2 THEN
   ...
   
   

   Ersättningskod 1

   ...      LOCAL PROCEDURE CreateTotals@1130117();
         BEGIN
   
           // Add the following lines.
           FOR J := 1 TO NumberOfTypes DO BEGIN
             EndTotalEndingAmounts[J] := TotalStartAmounts[J] + TotalNetChangeAmounts[J] + TotalDisposalAmounts[J];
           // End of the lines.
   
             // IT0001.begin
             IF J = 2 THEN
   ...
   
   

   Befintlig kod 2

   ...          // IT0001.begin
             IF J = 2 THEN
   
               // Delete the following lines.
               TotalEndingAmounts[J] += ReclassDeprAmount;
             // IT0001.end
             BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];
             BookValueAtStartingDate := BookValueAtStartingDate + TotalStartAmounts[J];
               // End of the lines.
   
          END;
         END;
   ...
   
   

   Ersättningskod 2

   ...          // IT0001.begin
             IF J = 2 THEN
   
               // Add the following lines.
               EndTotalEndingAmounts[J] := EndTotalEndingAmounts[J] + TotalReclassDeprAmount;
             // IT0001.end
             EndTotalBookValueAtEndingDate := EndTotalBookValueAtEndingDate + EndTotalEndingAmounts[J];
           END;
   
           TotalStartingAccumulated := TotalStartAmounts[2] + TotalStartAmounts[5] + TotalStartAmounts[6];
           TotalAntAccDepreciation := TotalNetChangeAmounts[5] + TotalNetChangeAmounts[6];
   
           IF EndTotalEndingAmounts[1]+EndTotalEndingAmounts[3]+EndTotalEndingAmounts[4] = 0 THEN BEGIN
             TotalBasicDepreciationPerc := 0;
             TotalAntAccDepreciationPerc := 0
           END ELSE BEGIN
             TotalBasicDepreciationPerc := ABS(ROUND((((TotalNetChangeAmounts[2] + TotalReclassDeprAmount) / // IT0001
               (EndTotalEndingAmounts[1] +
               EndTotalEndingAmounts[3] +
               EndTotalEndingAmounts[4])) * 100),0.01));
   
             TotalAntAccDepreciationPerc := ABS(ROUND(((TotalAntAccDepreciation /
               EndTotalEndingAmounts[1] +
               EndTotalEndingAmounts[3] +
               EndTotalEndingAmounts[4]) * 100),0.01));
             // End of the lines.
   
           END;
         END;
   ...
   
   

7. Ändra koden i rapporten avskrivningsregel (12119) enligt följande:
   Befintlig kod 1

   ...                          <PaddingTop>2pt</PaddingTop>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
   
                           // Delete the following line.
                           <Value>=LAST(Fields!TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4_.Value)</Value>
                           // End of the line.
   
                           <ZIndex>11</ZIndex>
                         </Textbox>
                       </ReportItems>
   ...
   
   

   Ersättningskod 1

   ...                          <PaddingTop>2pt</PaddingTop>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
   
                          // Add the following line.
                           <Value>=LAST(Fields!TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078.Value)</Value>
                           // End of the line.
   
                           <ZIndex>11</ZIndex>
                         </Textbox>
                       </ReportItems>
   ...
   
   

   Befintlig kod 2

   ...                          <PaddingTop>2pt</PaddingTop>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
   
                           // Delete the following line.
                           <Value>=LAST(Fields!ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6__.Value)</Value>
                           // End of the line.
   
                           <ZIndex>2</ZIndex>
                         </Textbox>
                       </ReportItems>
   ...
   
   

   Ersättningskod 2

   ...                          <PaddingTop>2pt</PaddingTop>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
   
                           // Add the following line.
                           <Value>=LAST(Fields!ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083.Value)</Value>
                           // End of the line.
   
                           <ZIndex>2</ZIndex>
                         </Textbox>
                       </ReportItems>
   ...
   
   

   Befintlig kod 3

   ...                          <PaddingTop>2pt</PaddingTop>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
   
                           // Delete the following line.
                           <Value>=LAST(Fields!BookValueAtEndingDate.Value)</Value>
                           // End of the line.
   
                           <ZIndex>1</ZIndex>
                         </Textbox>
                       </ReportItems>
   ...
   
   

   Ersättningskod 3

   ...                          <PaddingTop>2pt</PaddingTop>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
   
                           // Add the following line.
                           <Value>=LAST(Fields!BookValueAtEndingDate_Control169.Value)</Value>
                           // End of the line.
   
                           <ZIndex>1</ZIndex>
                         </Textbox>
                       </ReportItems>
   ...
   
   

   Befintlig kod 4

   ...          <Field Name="ABS_ReclassDeprAmount__Control1130212Format">
               <DataField>ABS_ReclassDeprAmount__Control1130212Format</DataField>
             </Field>
             <Field Name="BookValueAtEndingDate_Control169Format">
               <DataField>BookValueAtEndingDate_Control169Format</DataField>
             </Field>
   ...
   
   

   Ersättningskod 4

   ...          <Field Name="ABS_ReclassDeprAmount__Control1130212Format">
               <DataField>ABS_ReclassDeprAmount__Control1130212Format</DataField>
             </Field>
   
             // Add the following lines.
             <Field Name="BookValueAtEndingDate_Control169">
               <DataField>BookValueAtEndingDate_Control169</DataField>
             </Field>
             // End of the lines.
   
             <Field Name="BookValueAtEndingDate_Control169Format">
               <DataField>BookValueAtEndingDate_Control169Format</DataField>
             </Field>
   ...
   
   

   Befintlig kod 5

   ...          <Field Name="TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_Format">
               <DataField>TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_Format</DataField>
             </Field>
             <Field Name="TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078Format">
               <DataField>TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078Format</DataField>
             </Field>
   ...
   
   

   Ersättningskod 5

   ...          <Field Name="TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_Format">
               <DataField>TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_Format</DataField>
             </Field>
   
             // Add the following lines.
             <Field Name="TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078">
               <DataField>TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078</DataField>
             </Field>
             // End of the lines.
   
             <Field Name="TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078Format">
               <DataField>TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078Format</DataField>
             </Field>
   ...
   
   

   Befintlig kod 6

   ...          <Field Name="ABS_TotalNetChangeAmounts_2__Format">
               <DataField>ABS_TotalNetChangeAmounts_2__Format</DataField>
             </Field>
             <Field Name="ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083Format">
               <DataField>ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083Format</DataField>
             </Field>
   ...
   
   

   Ersättningskod 6

   ...          <Field Name="ABS_TotalNetChangeAmounts_2__Format">
               <DataField>ABS_TotalNetChangeAmounts_2__Format</DataField>
             </Field>
   
             // Add the following lines.
             <Field Name="ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083">
               <DataField>ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083</DataField>
             </Field>
             // End of the lines.
   
             <Field Name="ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083Format">
               <DataField>ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083Format</DataField>
             </Field>
   ...