この資料では、すべての国と言語ロケールのすべての Microsoft Dynamics NAV に該当します。

現象

Microsoft Dynamics NAV 2009 年に請求書を転記するのには、お支払方法と、残高勘定を使用する場合、支払割引日が期限の過ぎた支払割引が計算されます。

この問題は、次の製品で発生します。

  • Microsoft Dynamics NAV 2009 サービス パック 1

  • Microsoft Dynamics NAV 2009 R2


解決策

修正プログラムの情報

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

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

インストール情報

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

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

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

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

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

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

    オブジェクトです。

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

コードの変更

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

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

  1. PostCust関数で、Gen. Jnl。 内のコードを変更する-次のように Post 行 Codeunit (12)。
    既存のコード 1

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
    CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
    CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

    IF "Amount (LCY)" <> 0 THEN BEGIN
    IF GLSetup."Pmt. Disc. Excl. VAT" THEN
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
    ELSE
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ...

    置換用コード 1

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
    CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
    CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

    IF "Amount (LCY)" <> 0 THEN BEGIN

    // Add the following lines.
    IF (CVLedgEntryBuf."Pmt. Discount Date" >= CVLedgEntryBuf."Posting Date") OR
    (CVLedgEntryBuf."Pmt. Discount Date" = 0D) THEN BEGIN
    // End of the added lines.

    IF GLSetup."Pmt. Disc. Excl. VAT" THEN
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
    ELSE
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ...

    既存のコード 2

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ROUND(
    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
    Currency."Amount Rounding Precision");
    CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
    END;

    IF "Currency Code" <> '' THEN BEGIN
    TESTFIELD("Currency Factor");
    ...

    置換用コード 2

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ROUND(
    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
    Currency."Amount Rounding Precision");

    // Add the following line.
    END;
    // End of the added line.

    CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
    END;

    IF "Currency Code" <> '' THEN BEGIN
    TESTFIELD("Currency Factor");
    ...
  2. PostVend関数で、Gen. Jnl。 内のコードを変更する-次のように Post 行 Codeunit (12)。
    既存のコード 1

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
    CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
    CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

    IF "Amount (LCY)" <> 0 THEN BEGIN
    IF GLSetup."Pmt. Disc. Excl. VAT" THEN
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
    ELSE
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    ...

    置換用コード 1

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
    CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
    CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

    IF "Amount (LCY)" <> 0 THEN BEGIN

    // Add the following lines.
    IF (CVLedgEntryBuf."Pmt. Discount Date" >= CVLedgEntryBuf."Posting Date") OR
    (CVLedgEntryBuf."Pmt. Discount Date" = 0D) THEN BEGIN
    // End of the added lines.

    IF GLSetup."Pmt. Disc. Excl. VAT" THEN
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
    ELSE
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    ...

    既存のコード 2

    ...
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ROUND(
    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
    Currency."Amount Rounding Precision");
    CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
    END;

    IF "Currency Code" <> '' THEN BEGIN
    TESTFIELD("Currency Factor");
    ...

    置換用コード 2

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ROUND(
    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
    Currency."Amount Rounding Precision");

    // Add the following line.
    END;
    // End of the added line.

    CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
    END;

    IF "Currency Code" <> '' THEN BEGIN
    TESTFIELD("Currency Factor");
    ...


必要条件

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

  • Microsoft Dynamics NAV 2009 サービス パック 1

  • Microsoft Dynamics NAV 2009 R2

アンインストール情報

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

状況

マイクロソフトは、この問題を「対象製品」セクションに記載されているマイクロソフト製品の問題として認識しています。

注: これは、マイクロソフト サポートの組織内から直接作成した「高速公開」の資料です。ここに含まれる情報は、新たに発生している問題に応じて現状のまま提供されています。速やかに利用できるようにした結果として、内容には誤植が含まれている可能性があり、事前告知なしで改訂する場合があります。その他の考慮事項については、使用条件を参照してください。

ヘルプを表示

スキルを磨く
トレーニングの探索
新機能を最初に入手
Microsoft Insider に参加する

この情報は役に立ちましたか?

言語の品質にどの程度満足していますか?
どのような要因がお客様の操作性に影響しましたか?

ご意見をいただきありがとうございます。

×