Kulumiraamat aruande (12119) ei prindita end kogusummad, mis on seotud eelmise aasta arve Itaalia versioonis Microsoft Dynamics nav-i 2009

Kiirparanduse teave

Lasknud välja toetatava käigultparanduse on nüüd Microsoftilt saadaval. Aga see on ette nähtud ainult selles artiklis kirjeldatud probleemi kõrvaldamiseks. Rakendage seda ainult süsteemides, kus ilmneb see konkreetne probleem. Seda käigultparandust võidakse täiendavalt testida. Kui see probleem teie tööd tõsiselt ei kahjusta, soovitame oodata järgmist hoolduspaketti Microsoft Dynamics nav-i 2009 või järgmise Microsoft Dynamics nav-i versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel kulud, mis tekivad teatud palub tühistada saab kui tehniline toetus Professional Microsoft Dynamics ja nendega seotud toodete leiab, et mõni konkreetne värskendus lahendab teie probleemi. Tavaline tugiteenuste kohaldatakse täiendavat tugiteenust vajavatele küsimustele ning probleemidele, mis pole lahendatavad konkreetse värskenduse installimisega.

Koodi muudatusi

Märkus. Alati test koodi lahendab kontrollitavas keskkonnas enne rakendamist tootmine arvutite parandused.
Selle probleemi lahendamiseks toimige järgmiselt.

1. Muuta koodi andmete kirje Number 1 kulumiraamat aruande (12119) järgmiselt:
   Kood 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.");
   ...
   
   

   Kood 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.");
   ...
   
   

   Kood 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;
   ...
   
   

   Asendamine kood 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. Muuta koodi andmete üksuse Number 1 jaotistes kulumiraamat aruande (12119) järgmiselt:
   Kood 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;
   ...
   
   

   Kood 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;
   ...
   
   

   Kood 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 }
   ...
   
   

   Asendamine kood 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 }
   ...
   
   

   Kood 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_ }
   ...
   
   

   Asendamine kood 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. Lisage järgmine globaalsed muutujad kulumiraamat aruande (12119):

   • FixedAsset@1130040: Kirje 5600

   • EndTotalEndingAmounts@1130041: Decimal MASSIIV [7]

   • EndTotalBookValueAtEndingDate@1130042: kümnendsüsteemis

4. Muuda koodi UpdateTotals funktsioon kulumiraamat aruande (12119) järgmiselt:
   Kood 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
   ...
   
   

   Kood 1

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

   Kood 2

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

   Asendamine kood 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. Muuda koodi CreateGroupTotals funktsioon kulumiraamat aruande (12119) järgmiselt:
   Kood 1

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

   Kood 1

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

   Kood 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];
   ...
   
   

   Asendamine kood 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];
   ...
   
   

   Kood 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;
   ...
   
   

   Asendamine kood 3

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

6. Muuda koodi CreateTotals funktsioon kulumiraamat aruande (12119) järgmiselt:
   Kood 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
   ...
   
   

   Kood 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
   ...
   
   

   Kood 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;
   ...
   
   

   Asendamine kood 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. Kulumiraamat aruande (12119) koodi muutmiseks järgmiselt:
   Kood 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>
   ...
   
   

   Kood 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>
   ...
   
   

   Kood 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>
   ...
   
   

   Asendamine kood 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>
   ...
   
   

   Kood 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>
   ...
   
   

   Asendamine kood 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>
   ...
   
   

   Kood 4

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

   Asendamine kood 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>
   ...
   
   

   Olemasolevat koodi 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>
   ...
   
   

   Eemaldamise teave 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>
   ...
   
   

   Kood 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>
   ...
   
   

   Eemaldamise teave 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>
   ...