系統會在 Microsoft Dynamics NAV 2009 的 RoleTailored 客戶端 (RTC) 中指派團隊代碼到待辦事項後,意外地清除待辦清單對話框中的待辦事項,針對特定聯絡卡

套用到
Dynamics NAV 2009

本文適用於所有國家及語言地區的 Microsoft Dynamics NAV。

症狀

假設你在 Microsoft Dynamics NAV 2009 R2 和 Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) 中套用了熱修正2476183。 當你在 RoleTailored (RTC) 客戶端的 待辦卡 對話框中指派團隊代碼給待辦事項後,系統會清除待 辦清單 對話框中針對特定聯絡卡的待辦事項。 然而,系統會如預期在經典版用戶端的 待辦清單 對話框中列出待辦事項。
  欲了解更多關於熱修正2476183的資訊,請點擊以下文章編號以瀏覽Microsoft知識庫中的文章:

2476183 在 Microsoft Dynamics NAV 2009 Service Pack 1 中,RoleTailored 客戶端的一位銷售人員關閉團隊待辦事項後,團隊待辦事項並未如預期完成

解決方式

Hotfix 資訊

Microsoft 現在已經支援熱修補程式。 然而,這僅是為了修正本文所描述的問題。 只應用在遇到這個特定問題的系統上。 此熱修補可能會進行額外測試。 因此,如果您未受到此問題嚴重影響,我們建議您等待下一個 Microsoft Dynamics NAV 2009 服務包或包含此熱修補的 Microsoft Dynamics NAV 版本。

注意:在特殊情況下,若 Microsoft Dynamics 及相關產品的技術支援專業人員判斷特定更新能解決您的問題,通常因支援電話而產生的費用可能會被取消。 一般來說,如果有所描述之特定更新無法解決的其他支援問題,才會收取支援費用。

          

安裝資訊

Microsoft 僅提供圖例的程式設計範例,不含明示或暗示的擔保。 這包括 (但不限於) 適用于特定目的之可操作性或適用性的暗示擔保。 本文假設您熟悉正在示範的程式設計語言,以及用來建立和進行程式偵錯工具的工具。 Microsoft 支援工程師可以協助說明特定程式的功能。 不過,他們將不會修改這些範例以提供新增功能或建構符合您特定需求的程式。

注意:安裝此熱修補程式前,請確認所有 Microsoft Navision 用戶端使用者都已登出系統。 這包括Microsoft Navision 應用服務 (NAS) 用戶端使用者。 當你實施這個熱修補時,應該只有你一個登入的客戶端使用者。

要實作這個熱修補,你必須擁有開發者授權。

我們建議在 Windows 登入視窗或資料庫登入視窗中,將使用者帳號分配「SUPER」角色 ID。 若使用者帳號無法被指派「SUPER」角色 ID,您必須驗證該帳號擁有以下權限:

  • 你要更改的物件的修改權限。
  • 系統物件 ID 5210 的執行權限,以及系統物件 ID 9015 的執行權限。

注意:除非你必須進行資料修復,否則你不必擁有資料儲存的權利。

法規變更

注意:在將修正程式套用到生產電腦之前,務必在受控環境中測試修正。
如果要解決這個問題,請依照下列步驟執行。

  1. 將 5080) (To-do 表格中 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;
    ...
    
  2. 將待辦清單頁面中的屬性行動代碼變更為 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.
    
    ...
    
  3. 將待辦卡頁面中的物業代碼 (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 產品中的問題。

注意本文為 Microsoft 支援單位內部直接建立的「快速發佈」文章。 此處包含的資訊是以其現況提供,用於回應新產生的問題。 由於快速發佈,資料可能包含拼字錯誤,並可能會隨時修訂,不另行通知。 請參閱使用條款以瞭解其他相關考量。