Microsoft Dynamics NAV 2009 Service Pack 1 でサービス請求書を転記する前払い契約エントリの転記レポートを実行した後、サービス台帳エントリに正しくないディメンションが作成されます

適用先

Dynamics NAV 2009 Service Pack 1

この記事は、すべての国とすべての言語ロケールの Microsoft Dynamics NAV に適用されます。

現象

Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) の 契約エントリの作成 機能を使用して、複数の前払い契約のサービス契約請求書を作成することを想定しています。この状況では、サービス請求書のディメンションが正しく作成されます。ただし、前払い契約エントリの転記レポートを実行して請求書を転記すると、サービス台帳エントリのディメンションが予期せず混在します。

解決策

修正プログラムの情報

サポートされている修正プログラムが Microsoft から入手できるようになりました。ただし、この記事で説明されている問題を修正することのみを目的としています。この特定の問題が発生しているシステムにのみ適用します。この修正プログラムは、追加のテストを受け取る場合があります。したがって、この問題の影響を大きく受けない場合は、次の Microsoft Dynamics NAV Service Pack またはこの修正プログラムを含む次の Microsoft Dynamics NAV バージョンを待機することをお勧めします。

注特別なケースでは、Microsoft Dynamics および関連製品のテクニカルサポートプロフェッショナルが特定の更新プログラムによって問題が解決されると判断した場合、通常はサポート呼び出しに対して発生する料金が取り消されることがあります。ただし、特定の更新プログラムの対象とならない追加の質問および問題については、通常のサポート料金が適用されます。

インストール情報

Microsoft は、明示または黙示の保証なしで、説明のみを目的としてプログラミング例を提供しています。これには、商品性または特定の目的への適合性に関する暗黙の保証が含まれますが、これらに限定されません。この記事では、デモンストレーションされているプログラミング言語と、プロシージャの作成とデバッグに使用されるツールについてよく理解していることを前提としています。マイクロソフトサポート窓口では、特定のプロシージャの機能説明に関するご質問に対して支援いたしますが、本例を特定の目的を満たすために機能を追加したり、プロシージャを構築することは行いません。

注この修正プログラムをインストールする前に、すべての Microsoft Navision クライアントユーザーがシステムからログオフされていることを確認します。これには、Microsoft Navision Application Services (NAS) クライアントユーザーが含まれます。この修正プログラムを実装するときにログオンする唯一のクライアントユーザーである必要があります。

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

[Windows ログイン] ウィンドウまたは [データベースログイン] ウィンドウのユーザーアカウントに "SUPER" ロール ID を割り当てることをお勧めします。ユーザーアカウントに "SUPER" ロール ID を割り当てることができない場合は、ユーザーアカウントに次のアクセス許可があることを確認する必要があります。

変更するオブジェクトの [変更] アクセス許可。
システムオブジェクト ID 5210 オブジェクトとシステムオブジェクト ID 9015 オブジェクトの Execute アクセス許可。

メモデータ修復を実行する必要がない限り、データストアに対する権限は必要ありません。

コードの変更

メモ運用環境のコンピューターに修正プログラムを適用する前に、制御された環境でコード修正を常にテストします。
この問題を解決するには、ServContractManagement codeunit (5940) の CreateServiceLedgerEntry 関数のコードを次のように変更します。
既存のコード 1

...
        ServLedgEntry."Document No." := ServHeader2."No.";

        ServLedgEntry."Serv. Contract Acc. Gr. Code" := ServContractHeader."Serv. Contract Acc. Gr. Code";

        ServLedgEntry."Bill-to Customer No." := ServContractHeader."Bill-to Customer No.";

        ServLedgEntry."Customer No." := ServContractHeader."Customer No.";

        ServLedgEntry."Ship-to Code" := ServContractHeader."Ship-to Code";

        //Delete the following lines.
        ServLedgEntry."Global Dimension 1 Code" := ServHeader2."Shortcut Dimension 1 Code";

        ServLedgEntry."Global Dimension 2 Code" := ServHeader2."Shortcut Dimension 2 Code";
        //End of the lines.

        ServLedgEntry."Entry Type" := ServLedgEntry."Entry Type"::Sale;

        ServLedgEntry."User ID" := USERID;

        ServLedgEntry."Contract Invoice Period" := FORMAT(ServContractHeader."Invoice Period");

        ServLedgEntry."Contract Group Code" := ServContractHeader."Contract Group Code";

        ServLedgEntry."Responsibility Center" := ServContractHeader."Responsibility Center";
...

置換コード 1

...
        ServLedgEntry."Document No." := ServHeader2."No.";

        ServLedgEntry."Serv. Contract Acc. Gr. Code" := ServContractHeader."Serv. Contract Acc. Gr. Code";

        ServLedgEntry."Bill-to Customer No." := ServContractHeader."Bill-to Customer No.";

        ServLedgEntry."Customer No." := ServContractHeader."Customer No.";

        ServLedgEntry."Ship-to Code" := ServContractHeader."Ship-to Code";

        //Add the following lines.
        ServLedgEntry."Global Dimension 1 Code" := ServContractHeader."Shortcut Dimension 1 Code";

        ServLedgEntry."Global Dimension 2 Code" := ServContractHeader."Shortcut Dimension 2 Code";
        //End of the lines.

        ServLedgEntry."Entry Type" := ServLedgEntry."Entry Type"::Sale;

        ServLedgEntry."User ID" := USERID;

        ServLedgEntry."Contract Invoice Period" := FORMAT(ServContractHeader."Invoice Period");

        ServLedgEntry."Contract Group Code" := ServContractHeader."Contract Group Code";

        ServLedgEntry."Responsibility Center" := ServContractHeader."Responsibility Center";
...

既存のコード 2

...
                  ServLedgEntry.Amount := ServLedgEntry."Amount (LCY)";

                  ServLedgEntry."Posting Date" := DueDate;

                  ServLedgEntry.Prepaid := TRUE;

                  ServLedgEntry.INSERT;

                  DocDim.RESET;

                  DocDim.SETRANGE("Table ID",DATABASE::"Service Header");

                  DocDim.SETRANGE("Document Type",DocDim."Document Type"::Invoice);

                  DocDim.SETRANGE("Document No.",ServHeader2."No.");

                  DimMgt.MoveDocDimToLedgEntryDim(
...

置換コード 2

...
                  ServLedgEntry.Amount := ServLedgEntry."Amount (LCY)";

                  ServLedgEntry."Posting Date" := DueDate;

                  ServLedgEntry.Prepaid := TRUE;

                  ServLedgEntry.INSERT;

                  //Add the following lines.
                  DimMgt.DeleteDocDim(DATABASE::"Service Header",2,ServHeader2."No.",0);

                  ServContractDim.RESET;

                  ServContractDim.SETRANGE("Table ID",DATABASE::"Service Contract Header");

                  ServContractDim.SETRANGE(Type,ServContractHeader."Contract Type");

                  ServContractDim.SETRANGE("No.",ServContractHeader."Contract No.");

                  DimMgt.CopySCDimToDocDim(ServContractDim,DATABASE::"Service Header",2,ServHeader2."No.",0);
                  //End of the lines.

                  DocDim.RESET;

                  DocDim.SETRANGE("Table ID",DATABASE::"Service Header");

                  DocDim.SETRANGE("Document Type",DocDim."Document Type"::Invoice);

                  DocDim.SETRANGE("Document No.",ServHeader2."No.");

                  DimMgt.MoveDocDimToLedgEntryDim(
...

前提条件

この修正プログラムを適用するには、Microsoft Dynamics NAV 2009 Service Pack 1 がインストールされている必要があります。

アンインストール情報

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

状態

Microsoft は、これが "適用対象" セクションに記載されている Microsoft 製品の問題であることを確認しました。

注: この資料は、"迅速な公開" を目的としてマイクロソフトサポート組織により直接作成されたものです。ここに含まれる情報は、新しい問題に対応するため、そのままの状態で提供されます。情報を迅速に公開するため、この資料には誤植などが含まれる可能性があり、また、予告なく改訂される場合があります。その他の注意事項については、使用条件を参照してください。