Amortisman defteri raporu (12119) Microsoft Dynamics NAV 2009'in İtalyanca sürümünde önceki yılın rakamlarını ilgili son toplamlar yazdırmaz.

Düzeltme bilgileri

Artık Microsoft tarafından desteklenen bir düzeltme sağlanmaktadır. Ancak bunun yalnızca bu makalede anlatılan sorunu düzeltmesi amaçlanmıştır. Yalnızca bu özel sorunla karşılaşmış olan sistemlere uygulayın. Bu düzeltme ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, Microsoft Dynamics NAV 2009 sonraki hizmet paketini veya, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümü için beklemek öneririz.

Not: Özel durumlarda, destek aramaları teknik destek uzmanı Microsoft Dynamics ve ilgili ürünlere yönelik iptal edilebilir çözeceğini giderleri belirleyen belirli bir güncelleştirmenin sorununuzu. Ek destek sorularına ve söz konusu güncelleştirme için geçerli olmayan sorunlara normal destek ücretleri uygulanır.

Kod değişiklikleri

Not: Her zaman, uygulamadan önce test kodu denetimli bir ortamda üretim bilgisayarlarınıza düzeltmeler giderir.
Bu sorunu gidermek için şu adımları izleyin:

1. Amortisman defteri raporu (12119) veri madde numarası 1'deki kodu aşağıdaki gibi değiştirin:
   Varolan kodu 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.");
   ...
   
   

   Değiştirme kodu 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.");
   ...
   
   

   Varolan kodu 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;
   ...
   
   

   Değiştirme kodu 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. Amortisman defteri raporu (12119) veri madde numarası 1 bölümlerdeki kodu aşağıdaki gibi değiştirin:
   Varolan kodu 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;
   ...
   
   

   Değiştirme kodu 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;
   ...
   
   

   Varolan kodu 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 }
   ...
   
   

   Değiştirme kodu 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 }
   ...
   
   

   Varolan kodu 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_ }
   ...
   
   

   Değiştirme kodu 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. Aşağıdaki genel değişkenler amortisman defteri raporu (12119) ekleyin:

   • FixedAsset@1130040: Kayıt 5600

   • EndTotalEndingAmounts@1130041: Dizi [7] OF ondalık

   • EndTotalBookValueAtEndingDate@1130042: ondalık

4. Amortisman defteri raporu (12119) UpdateTotals işlevinde kodu aşağıdaki gibi değiştirin:
   Varolan kodu 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
   ...
   
   

   Değiştirme kodu 1

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

   Varolan kodu 2

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

   Değiştirme kodu 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. Amortisman defteri raporu (12119) CreateGroupTotals işlevinde kodu aşağıdaki gibi değiştirin:
   Varolan kodu 1

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

   Değiştirme kodu 1

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

   Varolan kodu 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];
   ...
   
   

   Değiştirme kodu 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];
   ...
   
   

   Varolan kodu 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;
   ...
   
   

   Değiştirme kodu 3

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

6. Amortisman defteri raporu (12119) CreateTotals işlevinde kodu aşağıdaki gibi değiştirin:
   Varolan kodu 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
   ...
   
   

   Değiştirme kodu 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
   ...
   
   

   Varolan kodu 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;
   ...
   
   

   Değiştirme kodu 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. Amortisman defteri raporu (12119) kodu aşağıdaki gibi değiştirin:
   Varolan kodu 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>
   ...
   
   

   Değiştirme kodu 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>
   ...
   
   

   Varolan kodu 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>
   ...
   
   

   Değiştirme kodu 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>
   ...
   
   

   Varolan kodu 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>
   ...
   
   

   Değiştirme kodu 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>
   ...
   
   

   Varolan kodu 4

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

   Değiştirme kodu 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>
   ...
   
   

   Varolan kodu 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>
   ...
   
   

   Değiştirme kodu 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>
   ...
   
   

   Varolan kodu 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>
   ...
   
   

   Değiştirme kodu 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>
   ...