この資料は、Microsoft Dynamics nav (it) イタリア語の言語ロケールに当てはまります。
現象
Microsoft Dynamics NAV 2009 サービス パック 1 (SP1) および Microsoft Dynamics NAV 2009 の R2 のイタリア語版では、2274594 の修正プログラムをインストールすることを想定しています。減価償却簿レポート (12119) を実行すると、レポートは前年度の数字に関連する最後の合計を印刷されません。
2274594 の修正プログラムに関する詳細については、マイクロソフト サポート技術情報の記事を表示するのには次の資料番号をクリックします。
2274594帳の値が正しくない Microsoft Dynamics NAV 2009 年のイタリア語版で、減価償却簿レポート (12119) を印刷するとき
解決策
修正プログラムの情報
サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。
注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。
インストール情報
マイクロソフトでは解説することのみを目的としてプログラミング例を提供しています。暗示あるいは明示していることに対しての保証はしておりません。ここで言う保証とは、特定の目的に対する商品性や適合性の暗示的保証を含んでいますが、それに限定されるわけではありません。この資料では、例示されているプログラミング言語およびプロシージャの作成やデバッグに使用するツールにお客様が精通していることを前提としています。マイクロソフトのサポート エンジニアは、特定のプロシージャの機能を説明することができますが、機能の追加またはお客様固有の要件を満たすようにプロシージャを作成するこれらの例は変更されません。
注: この修正プログラムをインストールする前に、Microsoft Navision のすべてのクライアント ユーザーがシステムの電源を記録することを確認します。これには、Microsoft Navision アプリケーション サービス (NAS) クライアントのユーザーが含まれます。この修正プログラムを実装すると、ログオンしている唯一のクライアント ユーザーが必要です。
この修正プログラムを実装するには、開発者用のライセンスが必要です。
ユーザー アカウントまたはデータベース ログイン ウィンドウに Windows のログイン ウィンドウにある「スーパー」ロール id を割り当てられていることをお勧めします。ユーザー アカウントには、「スーパー」ロール ID を割り当てることができません、する場合は、ユーザー アカウントが次のアクセス許可を持っているを確認する必要があります。
-
変更するオブジェクトの変更のアクセス許可。
-
システム オブジェクトの ID 5210オブジェクトおよびシステム オブジェクトの ID 9015オブジェクトの実行が許可されます。
注:
データの修復を実行する必要があるない限り、データ ストアへの権限を持っている必要はありません。
コードの変更
注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。
この問題を解決するには、次の手順を実行します。
-
減価償却簿レポート (12119) のデータ項目数 1 のコードを次のように変更します。
既存のコード 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.");
...置換用コード 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.");
...既存のコード 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;
...置換用コード 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;
... -
次のように減価償却簿レポート (12119) にデータ アイテム数 1 セクションでコードを変更します。
既存のコード 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;
...置換用コード 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;
...既存のコード 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 }
...置換用コード 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 }
...既存のコード 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_ }
...置換用コード 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_ }
... -
減価償却簿レポート (12119) では、次のグローバル変数を追加します。
-
FixedAsset@1130040: レコード 5600
-
EndTotalEndingAmounts@1130041: 配列の [7] の 10 進数
-
EndTotalBookValueAtEndingDate@1130042: 10 進数
-
-
減価償却簿レポート (12119) のUpdateTotals関数内のコードを次のように変更します。
既存のコード 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
...置換用コード 1
... GroupStartAmounts[J] := 0;
GroupNetChangeAmounts[J] := 0;
GroupDisposalAmounts[J] := 0;
END;
// IT0001.end
FOR J := 1 TO NumberOfTypes DO BEGIN
...既存のコード 2
... TotalStartAmounts[J] := TotalStartAmounts[J] + StartAmounts[J];
TotalNetChangeAmounts[J] := TotalNetChangeAmounts[J] + NetChangeAmounts[J];
TotalDisposalAmounts[J] := TotalDisposalAmounts[J] + DisposalAmounts[J];
END;
END;
...置換用コード 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;
... -
減価償却簿レポート (12119) のCreateGroupTotals関数内のコードを次のように変更します。
既存のコード 1... LOCAL PROCEDURE CreateGroupTotals@1130114();
BEGIN
BookValueAtEndingDate := 0;
BookValueAtStartingDate := 0;
FOR J := 1 TO NumberOfTypes DO BEGIN
...置換用コード 1
... LOCAL PROCEDURE CreateGroupTotals@1130114();
BEGIN
BookValueAtEndingDate := 0;
BookValueAtStartingDate := 0;
FOR J := 1 TO NumberOfTypes DO BEGIN
...既存のコード 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];
...置換用コード 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];
...既存のコード 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;
...置換用コード 3
... BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];
BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];
END;
END;
... -
減価償却簿レポート (12119) のCreateTotals関数内のコードを次のように変更します。
既存のコード 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
...置換用コード 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
...既存のコード 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;
...置換用コード 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;
... -
減価償却簿レポート (12119) 内のコードを次のように変更します。
既存のコード 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>
...置換用コード 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>
...既存のコード 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>
...置換用コード 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>
...既存のコード 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>
...置換用コード 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>
...既存コード 4
... <Field Name="ABS_ReclassDeprAmount__Control1130212Format">
<DataField>ABS_ReclassDeprAmount__Control1130212Format</DataField>
</Field>
<Field Name="BookValueAtEndingDate_Control169Format">
<DataField>BookValueAtEndingDate_Control169Format</DataField>
</Field>
...置換用コード 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>
...既存コード 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>
...置換用コード 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>
...既存のコード 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>
...置換用コード 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>
...
必要条件
この修正プログラムを適用するのにはインストールされている製品は次のいずれかが必要です。
-
Microsoft Dynamics NAV 2009 の R2 のイタリア語版
-
イタリア語版の Microsoft Dynamics NAV 2009 サービス パック 1
アンインストール情報
この修正プログラムを削除することはできません。
状況
マイクロソフトは、この問題を「対象製品」セクションに記載されているマイクロソフト製品の問題として認識しています。
注: これは、マイクロソフト サポートの組織内から直接作成した「高速公開」の資料です。ここに含まれる情報は、新たに発生している問題に応じて現状のまま提供されています。速やかに利用できるようにした結果として、内容には誤植が含まれている可能性があり、事前告知なしで改訂する場合があります。その他の考慮事項については、使用条件を参照してください。