販売を掲示したり、スペイン語版の Microsoft Dynamics NAV 2009 とナビ 2013年での請求書の統計情報を購入すると「EC 量」の値が変更を保存しません

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2013 service pack または修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

インストール情報

マイクロソフトでは解説することのみを目的としてプログラミング例を提供しています。暗示あるいは明示していることに対しての保証はしておりません。ここで言う保証とは、特定の目的に対する商品性や適合性の暗示的保証を含んでいますが、それに限定されるわけではありません。この資料では、例示されているプログラミング言語およびプロシージャの作成やデバッグに使用するツールにお客様が精通していることを前提としています。マイクロソフトのサポート エンジニアは、特定のプロシージャの機能について説明することができます。ただし、お客様固有の要件を満たすために、追加機能の提供またはプロシージャの作成のために、これらの例に変更を加えたりはしません。

注: この修正プログラムをインストールする前に、Microsoft Dynamics NAV のすべてのクライアント ユーザーがシステムの電源を記録することを確認します。これには、Microsoft Dynamics NAV アプリケーション サーバー (NAS) のサービスが含まれます。この修正プログラムを実装すると、ログオンしている唯一のクライアント ユーザーが必要です。

この修正プログラムを実装するには、開発者用のライセンスが必要です。

ユーザー アカウントまたはデータベース ログイン ウィンドウに Windows のログイン ウィンドウにある「スーパー」ロール id を割り当てられていることをお勧めします。ユーザー アカウントには、「スーパー」ロール ID を割り当てることができません、する場合は、ユーザー アカウントが次のアクセス許可を持っているを確認する必要があります。

• 変更するオブジェクトの変更のアクセス許可。

• 実行のアクセス許可、システム オブジェクトの ID 5210オブジェクトおよびシステム オブジェクトの ID 9015
  
  オブジェクトです。

注: データの修復を実行する必要があるない限り、データ ストアへの権限を持っている必要はありません。

コードの変更

注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。

この問題を解決するには、次の手順を実行します。

1. 販売明細行のテーブル (37) の行のCalcVATAmountLines関数内のコードを次のように変更します。
   既存のコード

   ...ROUND("Inv. Discount Amount" * QtyToHandle / Quantity,Currency."Amount Rounding Precision")
                         ELSE
                           VATAmountLine."Invoice Discount Amount" :=
                             VATAmountLine."Invoice Discount Amount" + "Inv. Disc. Amount to Invoice";
                         VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference";
                         IF "Prepayment Line" THEN
                           VATAmountLine."Includes Prepayment" := TRUE;
                         VATAmountLine.MODIFY;
                       END;
                     QtyType::Shipping:
   ...
   

   置換用コード

   ...ROUND("Inv. Discount Amount" * QtyToHandle / Quantity,Currency."Amount Rounding Precision")
                         ELSE
                           VATAmountLine."Invoice Discount Amount" :=
                             VATAmountLine."Invoice Discount Amount" + "Inv. Disc. Amount to Invoice";
                         VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference";
   
   // Add the following line.
                        VATAmountLine."EC Difference" := VATAmountLine."EC Difference" + "EC Difference";
   // End of the added line.
   
                         IF "Prepayment Line" THEN
                           VATAmountLine."Includes Prepayment" := TRUE;
                         VATAmountLine.MODIFY;
                       END;
                     QtyType::Shipping:
   ...
   

2. (39) 購買注文明細行のテーブル内のCalcVATAmountLines関数内のコードを次のように変更します。
   既存のコード

   ...ROUND("Inv. Discount Amount" * QtyToHandle / Quantity,Currency."Amount Rounding Precision")
                         ELSE
                           VATAmountLine."Invoice Discount Amount" :=
                             VATAmountLine."Invoice Discount Amount" + "Inv. Disc. Amount to Invoice";
                         VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference";
                         IF "Prepayment Line" THEN
                           VATAmountLine."Includes Prepayment" := TRUE;
                         VATAmountLine.MODIFY;
                       END;
                     QtyType::Shipping:
   ...
   

   置換用コード

   ...ROUND("Inv. Discount Amount" * QtyToHandle / Quantity,Currency."Amount Rounding Precision")
                         ELSE
                           VATAmountLine."Invoice Discount Amount" :=
                             VATAmountLine."Invoice Discount Amount" + "Inv. Disc. Amount to Invoice";
                         VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference";
   
   // Add the following line.
                        VATAmountLine."EC Difference" := VATAmountLine."EC Difference" + "EC Difference";
   // End of the added line.
   
                         IF "Prepayment Line" THEN
                           VATAmountLine."Includes Prepayment" := TRUE;
                         VATAmountLine.MODIFY;
                       END;
                     QtyType::Shipping:
   ...
   

3. (290) VAT 金額の明細行のテーブル内のInsertLine関数内のコードを次のように変更します。
   既存のコード

   ..."Pmt. Disc. Given Amount" := "Pmt. Disc. Given Amount" + VATAmountLine."Pmt. Disc. Given Amount";
               "Invoice Discount Amount" := "Invoice Discount Amount" + VATAmountLine."Invoice Discount Amount";
               Quantity := Quantity + VATAmountLine.Quantity;
               "VAT+EC Base" := "VAT+EC Base" + VATAmountLine."VAT+EC Base";
               "Amount Including VAT+EC" := "Amount Including VAT+EC" + VATAmountLine."Amount Including VAT+EC";
   
   // Delete the following lines.
               IF ("VAT %" + "EC %" <> 0) THEN BEGIN
                "VAT Amount" := ROUND(("Amount Including VAT+EC" - "VAT+EC Base")/("VAT %" + "EC %") * "VAT %",RoundingPrec);
                "EC Amount" :=  ROUND(("Amount Including VAT+EC" - "VAT+EC Base")/("VAT %" + "EC %") * "EC %",RoundingPrec);
               END;
              "VAT Difference" := "VAT Difference" + VATAmountLine."VAT Difference";
              "EC Difference" := "EC Difference" + VATAmountLine."EC Difference";
   // End of the deleted lines.
   
               "Calculated VAT Amount" := "Calculated VAT Amount" + VATAmountLine."Calculated VAT Amount";
               "Calculated EC Amount" := "Calculated EC Amount" + VATAmountLine."Calculated EC Amount";
               MODIFY;
             END ELSE BEGIN
               IF ("VAT %" + "EC %") <> 0 THEN BEGIN
   ...
   

   置換用コード

   ..."Pmt. Disc. Given Amount" := "Pmt. Disc. Given Amount" + VATAmountLine."Pmt. Disc. Given Amount";
               "Invoice Discount Amount" := "Invoice Discount Amount" + VATAmountLine."Invoice Discount Amount";
               Quantity := Quantity + VATAmountLine.Quantity;
               "VAT+EC Base" := "VAT+EC Base" + VATAmountLine."VAT+EC Base";
               "Amount Including VAT+EC" := "Amount Including VAT+EC" + VATAmountLine."Amount Including VAT+EC";
   
   // Add the following lines.
              "VAT Difference" := "VAT Difference" + VATAmountLine."VAT Difference";
              "EC Difference" := "EC Difference" + VATAmountLine."EC Difference";
              IF ("VAT %" + "EC %" <> 0) THEN BEGIN
              "VAT Amount" := ROUND(("Amount Including VAT+EC" - "VAT+EC Base" - "VAT Difference" - "EC Difference")/
                ("VAT %" + "EC %") * "VAT %",RoundingPrec) + "VAT Difference";
              "EC Amount" := ROUND(("Amount Including VAT+EC" - "VAT+EC Base" - "VAT Difference" - "EC Difference")/
                ("VAT %" + "EC %") * "EC %",RoundingPrec) + "EC Difference";
              END;
   // End of the added lines.
   
               "Calculated VAT Amount" := "Calculated VAT Amount" + VATAmountLine."Calculated VAT Amount";
               "Calculated EC Amount" := "Calculated EC Amount" + VATAmountLine."Calculated EC Amount";
               MODIFY;
             END ELSE BEGIN
               IF ("VAT %" + "EC %") <> 0 THEN BEGIN
   ...
   

必要条件

この修正プログラムを適用するのにはインストールされている製品は次のいずれかが必要です。

• Microsoft Dynamics NAV 2009 の SP1 のスペイン語版

• Microsoft Dynamics NAV 2009 の R2 のスペイン語版

• スペイン語版の Microsoft Dynamics NAV 2013

アンインストール情報

この修正プログラムを削除することはできません。