この記事は、すべての国とすべての言語ロケールの Microsoft Dynamics NAV に適用されます。
現象
Microsoft Dynamics NAV 2009 R2 と Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) で修正プログラム 2476183を適用することを想定しています。 RoleTailored (RTC) クライアントの [To Do カード] ダイアログ ボックスで To Do にチーム コードを割り当てた後、特定の連絡先カードの [To-do リスト] ダイアログ ボックスで To-do がクリアされます。 ただし、従来のクライアントの [To-Do リスト] ダイアログ ボックスに、想定どおりに To Do が一覧表示 されます。
修正プログラム 2476183の詳細については、Microsoft サポート技術情報の記事を表示するには、次の資料番号をクリックしてください。
2476183 Microsoft Dynamics NAV 2009 Service Pack 1 の RoleTailored クライアントで 1 人の営業担当者のチームを終了した後、チームの To Do が想定どおりに完了しない
解決策
修正プログラムの情報
サポートされている修正プログラムが Microsoft から入手できるようになりました。 ただし、この記事で説明されている問題を修正することのみを目的としています。 この特定の問題が発生しているシステムにのみ適用します。 この修正プログラムは、追加のテストを受け取る場合があります。 したがって、この問題の影響を大きく受けない場合は、次の Microsoft Dynamics NAV 2009 Service Pack またはこの修正プログラムを含む次の Microsoft Dynamics NAV バージョンを待つことをおすすめします。
注 特別なケースでは、Microsoft Dynamics および関連製品のテクニカル サポート プロフェッショナルが特定の更新プログラムによって問題が解決されると判断した場合、通常はサポート呼び出しに対して発生する料金が取り消されることがあります。 ただし、特定の更新プログラムの対象とならない追加の質問および問題については、通常のサポート料金が適用されます。
インストール情報
Microsoft は、明示または黙示の保証なしで、説明のみを目的としてプログラミング例を提供しています。 これには、商品性または特定の目的への適合性に関する暗黙の保証が含まれますが、これらに限定されません。 この記事では、デモンストレーションされているプログラミング言語と、プロシージャの作成とデバッグに使用されるツールについてよく理解していることを前提としています。 Microsoft サポート エンジニアは、特定のプロシージャの機能の説明を支援できます。 ただし、これらの例を変更して、特定の要件を満たすために追加の機能を提供したりプロシージャを構築したりすることはできません。
注 この修正プログラムをインストールする前に、すべての Microsoft Navision クライアント ユーザーがシステムからログオフされていることを確認します。 これには、Microsoft Navision Application Services (NAS) クライアント ユーザーが含まれます。 この修正プログラムを実装するときにログオンする唯一のクライアント ユーザーである必要があります。
この修正プログラムを実装するには、開発者ライセンスが必要です。
[Windows ログイン] ウィンドウまたは [データベース ログイン] ウィンドウのユーザー アカウントに "SUPER" ロール ID を割り当てることをお勧めします。 ユーザー アカウントに "SUPER" ロール ID を割り当てることができない場合は、ユーザー アカウントに次のアクセス許可があることを確認する必要があります。
- 変更するオブジェクトの [変更] アクセス許可。
- システム オブジェクト ID 5210 オブジェクトとシステム オブジェクト ID 9015 オブジェクトの Execute アクセス許可。
メモ データ修復を実行する必要がない限り、データ ストアに対する権限は必要ありません。
コードの変更
メモ 運用環境のコンピューターに修正プログラムを適用する前に、制御された環境でコード修正を常にテストします。
この問題を解決するには、次の手順を実行します。
To Do テーブル (5080) の UpdateAttendeeTodos 関数のコードを次のように変更します。
既存のコード... BEGIN //Delete the following lines. Todo2.SETCURRENTKEY("Organizer To-do No.","System To-do Type"); Todo3.RESET; Todo2.SETRANGE("Organizer To-do No.",OldTodoNo); IF "Team Code" = '' THEN Todo2.SETFILTER( "System To-do Type", '%1|%2', Todo2."System To-do Type"::"Salesperson Attendee", Todo2."System To-do Type"::"Contact Attendee") ELSE Todo2.SETFILTER("System To-do Type",'<>%1',Todo2."System To-do Type"::Team); IF Todo2.FIND('-') THEN REPEAT TodoBuffer.INIT; TodoBuffer.TRANSFERFIELDS(Todo2,FALSE); TodoBuffer.INSERT; Todo2.TRANSFERFIELDS(Rec,FALSE); Todo2."System To-do Type" := TodoBuffer."System To-do Type"; IF Todo2."System To-do Type" = Todo2."System To-do Type"::"Contact Attendee" THEN Todo2.VALIDATE("Contact No.",TodoBuffer."Contact No.") ELSE Todo2."Salesperson Code" := TodoBuffer."Salesperson Code"; Todo2.MODIFY(TRUE); TodoBuffer.DELETE; UNTIL Todo2.NEXT = 0; IF ISSERVICETIER THEN BEGIN // End of the deleted lines. Todo3.SETCURRENTKEY("Organizer To-do No.","System To-do Type"); Todo3.SETRANGE("Organizer To-do No.","Organizer To-do No."); IF Todo3.FINDSET THEN REPEAT IF Todo3."No." <> "No." THEN BEGIN TodoBuffer.INIT; TodoBuffer.TRANSFERFIELDS(Todo3,FALSE); TodoBuffer.INSERT; Todo3.TRANSFERFIELDS(Rec,FALSE); Todo3."System To-do Type" := TodoBuffer."System To-do Type"; IF Todo3."System To-do Type" = Todo3."System To-do Type"::"Contact Attendee" THEN Todo3.VALIDATE("Contact No.",TodoBuffer."Contact No.") ELSE Todo3."Salesperson Code" := TodoBuffer."Salesperson Code"; SearchManagement.ParseToDo(Todo3,FALSE); Todo3."Last Date Modified" := TODAY; Todo3."Last Time Modified" := TIME; MobSalesMgt.TodoOnModify(Todo3); Todo3.MODIFY; TodoBuffer.DELETE; END; UNTIL Todo3.NEXT = 0; END; END; ...置換コード 1
... BEGIN // Add the following lines. IF ISSERVICETIER THEN BEGIN Todo3.RESET; // End of the added lines. Todo3.SETCURRENTKEY("Organizer To-do No.","System To-do Type"); Todo3.SETRANGE("Organizer To-do No.","Organizer To-do No."); IF Todo3.FINDSET THEN REPEAT IF Todo3."No." <> "No." THEN BEGIN TodoBuffer.INIT; TodoBuffer.TRANSFERFIELDS(Todo3,FALSE); TodoBuffer.INSERT; Todo3.TRANSFERFIELDS(Rec,FALSE); Todo3."System To-do Type" := TodoBuffer."System To-do Type"; IF Todo3."System To-do Type" = Todo3."System To-do Type"::"Contact Attendee" THEN Todo3.VALIDATE("Contact No.",TodoBuffer."Contact No.") ELSE Todo3."Salesperson Code" := TodoBuffer."Salesperson Code"; SearchManagement.ParseToDo(Todo3,FALSE); Todo3."Last Date Modified" := TODAY; Todo3."Last Time Modified" := TIME; MobSalesMgt.TodoOnModify(Todo3); Todo3.MODIFY; TodoBuffer.DELETE; END; UNTIL Todo3.NEXT = 0; // Add the following lines. END ELSE BEGIN Todo2.SETCURRENTKEY("Organizer To-do No.","System To-do Type"); Todo2.SETRANGE("Organizer To-do No.",OldTodoNo); IF "Team Code" = '' THEN Todo2.SETFILTER( "System To-do Type", '%1|%2', Todo2."System To-do Type"::"Salesperson Attendee", Todo2."System To-do Type"::"Contact Attendee") ELSE Todo2.SETFILTER("System To-do Type",'<>%1',Todo2."System To-do Type"::Team); IF Todo2.FIND('-') THEN REPEAT TodoBuffer.INIT; TodoBuffer.TRANSFERFIELDS(Todo2,FALSE); TodoBuffer.INSERT; Todo2.TRANSFERFIELDS(Rec,FALSE); Todo2."System To-do Type" := TodoBuffer."System To-do Type"; IF Todo2."System To-do Type" = Todo2."System To-do Type"::"Contact Attendee" THEN Todo2.VALIDATE("Contact No.",TodoBuffer."Contact No.") ELSE Todo2."Salesperson Code" := TodoBuffer."Salesperson Code"; Todo2.MODIFY(TRUE); TodoBuffer.DELETE; UNTIL Todo2.NEXT = 0; // End of the added lines. END; END; ...To Do リスト ページ (5096) の [プロパティのアクション] のコードを次のように変更します。
... { 33 ;1 ;Action ; CaptionML=ENU=&Create To-do; Promoted=Yes; PromotedCategory=Process; OnAction=VAR TempToDo@1001 : TEMPORARY Record 5080; BEGIN TempToDo.CreateToDoFromToDo(Rec); END; } // Add the following lines. { 1034 ;1 ;Action ; Name=<Action1034>; CaptionML=ENU=Edit Organizer To-Do; RunObject=Page 5098; RunFormLink=No.=FIELD(Organizer To-do No.); Image=Edit; PromotedCategory=Process } // End of the added lines. ...To Do カード ページ (5098) のプロパティのコードを次のように変更します。
... RecurringDateIntervalEditable := TRUE; "Contact No.Editable" := TRUE; END; // Add the following lines. OnOpenPage() IF (GETFILTER("No.") = '' ) AND ISSERVICETIER THEN CurrPage.EDITABLE := FALSE; END; // End of the added lines. ...
前提条件
この修正プログラムを適用するには、次のいずれかの製品がインストールされている必要があります。
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
アンインストール情報
この修正プログラムを削除することはできません。
状態
Microsoft は、これが "適用対象" セクションに記載されている Microsoft 製品の問題であることを確認しました。
注: この資料は、"迅速な公開" を目的としてマイクロソフト サポート組織により直接作成されたものです。 ここに含まれる情報は、新しい問題に対応するため、そのままの状態で提供されます。 情報を迅速に公開するため、この資料には誤植などが含まれる可能性があり、また、予告なく改訂される場合があります。 その他の注意事項については、使用条件を参照してください。