この資料では、すべての国と言語ロケールのすべての Microsoft Dynamics NAV に該当します。
現象
Microsoft Dynamics NAV 2009 年に購入のドキュメントには、サービス料を追加することを想定しています。次に、統計情報の購入フォームまたはページの VAT 額を変更します。統計情報のフォームまたはページを再び開くと、値が再計算されます。
この問題は、次の製品で発生します。
-
Microsoft Dynamics NAV 2009 サービス パック 1 (SP1)
-
Microsoft Dynamics NAV 2009 R2
解決策
修正プログラムの情報
サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。
注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。
インストール情報
マイクロソフトでは解説することのみを目的としてプログラミング例を提供しています。暗示あるいは明示していることに対しての保証はしておりません。ここで言う保証とは、特定の目的に対する商品性や適合性の暗示的保証を含んでいますが、それに限定されるわけではありません。この資料では、例示されているプログラミング言語およびプロシージャの作成やデバッグに使用するツールにお客様が精通していることを前提としています。マイクロソフトのサポート エンジニアは、特定のプロシージャの機能を説明することができますが、機能の追加またはお客様固有の要件を満たすようにプロシージャを作成するこれらの例は変更されません。
注: この修正プログラムをインストールする前に、Microsoft Navision のすべてのクライアント ユーザーがシステムの電源を記録することを確認します。これには、Microsoft Navision アプリケーション サービス (NAS) クライアントのユーザーが含まれます。この修正プログラムを実装すると、ログオンしている唯一のクライアント ユーザーが必要です。
この修正プログラムを実装するには、開発者用のライセンスが必要です。
ユーザー アカウントまたはデータベース ログイン ウィンドウに Windows のログイン ウィンドウにある「スーパー」ロール id を割り当てられていることをお勧めします。ユーザー アカウントには、「スーパー」ロール ID を割り当てることができません、する場合は、ユーザー アカウントが次のアクセス許可を持っているを確認する必要があります。
-
変更するオブジェクトの変更のアクセス許可。
-
システム オブジェクトの ID 5210オブジェクトおよびシステム オブジェクトの ID 9015オブジェクトの実行が許可されます。
注:
データの修復を実行する必要があるない限り、データ ストアへの権限を持っている必要はありません。
コードの変更
注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。
この問題を解決するには、次の手順を実行します。
-
販売明細行のテーブル (37) のUpdateVATAmounts関数内のコードを次のように変更します。
既存のコード 1...END;
LOCAL PROCEDURE UpdateVATAmounts@38();
VAR
SalesLine2@1000 : Record 37;
TotalLineAmount@1005 : Decimal;
TotalInvDiscAmount@1004 : Decimal;
TotalAmount@1001 : Decimal;
TotalAmountInclVAT@1002 : Decimal;
TotalQuantityBase@1003 : Decimal;
...置換用コード 1
...END;
LOCAL PROCEDURE UpdateVATAmounts@38();
VAR
SalesLine2@1000 : Record 37;
// Add the following line.
CustPostingGr@1009 : Record 92;
// End of the added line.
TotalLineAmount@1005 : Decimal;
TotalInvDiscAmount@1004 : Decimal;
TotalAmount@1001 : Decimal;
TotalAmountInclVAT@1002 : Decimal;
TotalQuantityBase@1003 : Decimal;
...既存のコード 2
...SalesLine2.SETFILTER(Amount,'>%1',0)
ELSE
SalesLine2.SETFILTER(Amount,'<%1',0);
SalesLine2.SETRANGE("VAT Identifier","VAT Identifier");
SalesLine2.SETRANGE("Tax Group Code","Tax Group Code");
IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
Amount := 0;
"VAT Base Amount" := 0;
"Amount Including VAT" := 0;
...置換用コード 2
...SalesLine2.SETFILTER(Amount,'>%1',0)
ELSE
SalesLine2.SETFILTER(Amount,'<%1',0);
SalesLine2.SETRANGE("VAT Identifier","VAT Identifier");
SalesLine2.SETRANGE("Tax Group Code","Tax Group Code");
// Add the following line.
CustPostingGr.GET(SalesHeader."Customer Posting Group");
// End of the added line.
IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
Amount := 0;
"VAT Base Amount" := 0;
"Amount Including VAT" := 0;
...既存のコード 3
...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
Amount := 0;
"VAT Base Amount" := 0;
"Amount Including VAT" := 0;
// Delete the following line.
IF "Line No." <> 0 THEN
// End of the deleted line.
IF MODIFY THEN
IF SalesLine2.FINDLAST THEN BEGIN
SalesLine2.UpdateAmounts;
SalesLine2.MODIFY;
END;
...置換用コード 3
...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
Amount := 0;
"VAT Base Amount" := 0;
"Amount Including VAT" := 0;
// Add the following line.
IF ("Line No." <> 0) AND NOT ((Type = Type::"G/L Account") AND ("No." = CustPostingGr."Service Charge Acc.")) THEN
// End of the added line.
IF MODIFY THEN
IF SalesLine2.FINDLAST THEN BEGIN
SalesLine2.UpdateAmounts;
SalesLine2.MODIFY;
END;
... -
(39) 購買注文明細行のテーブル内のUpdateVATAmounts関数内のコードを次のように変更します。
既存のコード 1...END;
LOCAL PROCEDURE UpdateVATAmounts@38();
VAR
PurchLine2@1000 : Record 39;
TotalLineAmount@1005 : Decimal;
TotalInvDiscAmount@1004 : Decimal;
TotalAmount@1001 : Decimal;
TotalAmountInclVAT@1002 : Decimal;
TotalQuantityBase@1003 : Decimal;
...置換用コード 1
...END;
LOCAL PROCEDURE UpdateVATAmounts@38();
VAR
PurchLine2@1000 : Record 39;
// Add the following line.
VendPostingGr@1009 : Record 93;
// End of the added line.
TotalLineAmount@1005 : Decimal;
TotalInvDiscAmount@1004 : Decimal;
TotalAmount@1001 : Decimal;
TotalAmountInclVAT@1002 : Decimal;
TotalQuantityBase@1003 : Decimal;
...既存のコード 2
...PurchLine2.SETFILTER(Amount,'>%1',0)
ELSE
PurchLine2.SETFILTER(Amount,'<%1',0);
PurchLine2.SETRANGE("VAT Identifier","VAT Identifier");
PurchLine2.SETRANGE("Tax Group Code","Tax Group Code");
IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
Amount := 0;
"VAT Base Amount" := 0;
"Amount Including VAT" := 0;
...置換用コード 2
...PurchLine2.SETFILTER(Amount,'>%1',0)
ELSE
PurchLine2.SETFILTER(Amount,'<%1',0);
PurchLine2.SETRANGE("VAT Identifier","VAT Identifier");
PurchLine2.SETRANGE("Tax Group Code","Tax Group Code");
// Add the following line.
VendPostingGr.GET(PurchHeader."Vendor Posting Group");
// End of the added line.
IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
Amount := 0;
"VAT Base Amount" := 0;
"Amount Including VAT" := 0;
...既存のコード 3
...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
Amount := 0;
"VAT Base Amount" := 0;
"Amount Including VAT" := 0;
// Delete the following line.
IF "Line No." <> 0 THEN
// End of the deleted line.
IF MODIFY THEN
IF PurchLine2.FINDLAST THEN BEGIN
PurchLine2.UpdateAmounts;
PurchLine2.MODIFY;
END;
...置換用コード 3
...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
Amount := 0;
"VAT Base Amount" := 0;
"Amount Including VAT" := 0;
// Add the following line.
IF ("Line No." <> 0) AND NOT ((Type = Type::"G/L Account") AND ("No." = VendPostingGr."Service Charge Acc.")) THEN
// End of the added line.
IF MODIFY THEN
IF PurchLine2.FINDLAST THEN BEGIN
PurchLine2.UpdateAmounts;
PurchLine2.MODIFY;
END;
...
必要条件
この修正プログラムを適用するのにはインストールされている製品は次のいずれかが必要です。
-
Microsoft Dynamics NAV 2009 サービス パック 1 (SP1)
-
Microsoft Dynamics NAV 2009 R2
アンインストール情報
この修正プログラムを削除することはできません。
状況
マイクロソフトは、この問題を「対象製品」セクションに記載されているマイクロソフト製品の問題として認識しています。
注: これは、マイクロソフト サポートの組織内から直接作成した「高速公開」の資料です。ここに含まれる情報は、新たに発生している問題に応じて現状のまま提供されています。速やかに利用できるようにした結果として、内容には誤植が含まれている可能性があり、事前告知なしで改訂する場合があります。その他の考慮事項については、使用条件を参照してください。