不完全な売上請求書は、Microsoft Dynamics NAV 2009 の [ジョブ計画明細行] ダイアログ ボックスで拡張テキストを使用するアイテムに対して売上請求書の作成機能を実行すると作成されます。

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

現象

Microsoft Dynamics NAV 2009 で拡張テキストを使用する複数の項目があるとします。 [ジョブ計画明細行] ダイアログ ボックスの項目に対して [売上請求書の作成] 機能を実行すると、不完全な売上請求書が作成されます。
この問題は、[ブロックされたチェック] ボックスが選択されている項目が含まれている場合に発生します。

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

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

解決策

修正プログラムの情報

サポートされている修正プログラムが Microsoft から入手できるようになりました。 ただし、この記事で説明されている問題を修正することのみを目的としています。 この特定の問題が発生しているシステムにのみ適用します。 この修正プログラムは、追加のテストを受け取る場合があります。 したがって、この問題の影響を大きく受けない場合は、次の Microsoft Dynamics NAV 2009 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 アクセス許可。

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

コードの変更

メモ 運用環境のコンピューターに修正プログラムを適用する前に、制御された環境でコード修正を常にテストします。
問題を解決するには、次の手順に従います。

1. Sales Order Subform フォーム (46) の InsertExtendedText 関数のコードを次のように変更します。
   既存のコード

   PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

   置換コード

   PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   
   // Add the following line.
   COMMIT;
   
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

2. Sales Invoice Subform フォーム (47) の InsertExtendedText 関数のコードを次のように変更します。
   既存のコード

   PROCEDURE InsertExtendedText@7(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

   置換コード

   PROCEDURE InsertExtendedText@7(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   
   // Add the following line.
   COMMIT;
   
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

3. Sales Quote サブフォーム (95) フォームの InsertExtendedText 関数のコードを次のように変更します。
   既存のコード

   PROCEDURE InsertExtendedText@4(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

   置換コード

   PROCEDURE InsertExtendedText@4(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   
   // Add the following line.
   COMMIT;
   
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

4. Sales Cr. Memo Subform フォーム (96) の InsertExtendedText 関数のコードを次のように変更します。
   既存のコード

   PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

   置換コード

   PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   
   // Add the following line.
   COMMIT;
   
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

5. ブランケット販売注文サブフォーム (508) の InsertExtendedText 関数のコードを次のように変更します。
   既存のコード

   PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

   置換コード

   PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   
   // Add the following line.
   COMMIT;
   
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

6. Sales Return Order Subform フォーム (6631) の InsertExtendedText 関数のコードを次のように変更します。
   既存のコード

   PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

   置換コード

   PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
   BEGIN
   IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
   CurrForm.SAVERECORD;
   
   // Add the following line.
   COMMIT;
   
   TransferExtendedText.InsertSalesExtText(Rec);
   END;
   IF TransferExtendedText.MakeUpdate THEN
   UpdateForm(TRUE);
   END;
   

7. 拡張テキスト転送コードユニット (378) の InsertSalesExtText 関数のコードを次のように変更します。
   既存のコード

   PROCEDURE InsertSalesExtText@2(VAR SalesLine@1000 : Record 37);
   VAR
   ToSalesLine@1001 : Record 37;
   BEGIN
   
   // Delete the following line.
   COMMIT;
   
   ToSalesLine.RESET;
   ToSalesLine.SETRANGE("Document Type",SalesLine."Document Type");
   ToSalesLine.SETRANGE("Document No.",SalesLine."Document No.");
   ToSalesLine := SalesLine;
   IF ToSalesLine.FIND('>') THEN BEGIN
   

   置換コード

   PROCEDURE InsertSalesExtText@2(VAR SalesLine@1000 : Record 37);
   VAR
   ToSalesLine@1001 : Record 37;
   BEGIN
   ToSalesLine.RESET;
   ToSalesLine.SETRANGE("Document Type",SalesLine."Document Type");
   ToSalesLine.SETRANGE("Document No.",SalesLine."Document No.");
   ToSalesLine := SalesLine;
   IF ToSalesLine.FIND('>') THEN BEGIN
   

前提条件

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

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1

アンインストール情報

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

状態

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

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