本文適用於 Microsoft 動態航行點希臘文 (/gr) 區域。

狀況

假設您有安裝的希臘 Office 語言套件。當您建立超過八個線段,在希臘文版本的 Microsoft 動態航行點 2009年區段中時,將導致 「 無效的合併欄位 」 從 Word 自動化錯誤。
下列產品中,就會發生這個問題︰

  • 希臘文版本的 Microsoft 動態航行點 2009 R2

  • 希臘文版本的 Microsoft 動態航行點 2009 Service Pack 1


解決方案

Hotfix 資訊

已經可以從 Microsoft 取得支援的 hotfix。不過,它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此,如果此問題不會嚴重影響,我們建議您等候下一步的 Microsoft 動態航行點 2009 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。

注意 在特殊的情況下,通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用,如果有其他支援問題是,不能限定的特定更新程式。



安裝資訊

Microsoft 會提供程式設計範例僅供說明,而不做任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序中,功能,但它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。

注意套用此 hotfix 之前,請確認所有的 Microsoft Navision 用戶端使用者會登出系統。這包括 Microsoft Navision 應用程式服務 (NAS) 用戶端的使用者。您應該是唯一的用戶端使用者已登入,當您實作此 hotfix。

若要實作此 hotfix,您必須有開發人員授權。

我們建議您在 Windows 登入] 視窗中的色彩,或資料庫登入] 視窗中的使用者帳戶被指派 「 進階 」 的角色識別碼。如果使用者帳戶不能指派為 「 超級 」 的角色識別碼,您必須確認使用者帳戶具有下列權限︰

  • 您將會變更物件的 [修改] 權限。

  • 執行權限的系統物件 ID 5210物件和系統物件 ID 9015物件。



注意您沒有擁有資料存放區的權限,除非您需要執行資料修復。

程式碼變更

注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。
若要解決這個問題,請依照下列步驟執行:

  1. 建立新的函式在 WordManagement codeunit (5054) 如下所示︰

    LOCAL PROCEDURE InsertCharSet(MergeFileName@1000000000 : Text[260]) : Text[250];VAR
    NewLine : Text[250];
    f: File;
    f2: File;
    b: Integer;
    MergeFileNameServer: Text[250];

    IF NOT ISSERVICETIER THEN
    BEGIN
    IF EXISTS(MergeFileName+'$') THEN
    ERASE(MergeFileName+'$');
    WITH f DO BEGIN
    TEXTMODE(TRUE);
    WRITEMODE(FALSE);
    OPEN(MergeFileName);
    END;
    WITH f2 DO BEGIN
    TEXTMODE(TRUE);
    WRITEMODE(TRUE);
    CREATE(MergeFileName+'$');
    END;
    END
    ELSE
    BEGIN
    MergeFileNameServer := RBAutoMgt.ServerTempFileName(Text029,'.HTM');
    UPLOAD(Text021, '', Text032, MergeFileName, MergeFileNameServer);
    WITH f DO BEGIN
    TEXTMODE(TRUE);
    WRITEMODE(FALSE);
    OPEN(MergeFileNameServer);
    END;
    WITH f2 DO BEGIN
    TEXTMODE(TRUE);
    WRITEMODE(TRUE);
    CREATE(MergeFileNameServer+'$');
    END;
    END;

    REPEAT
    b:=f.READ(NewLine);
    IF NewLine='<html>' THEN
    NewLine:= '<HTML><META charset=windows-1253>';
    f2.WRITE(NewLine);
    UNTIL f.POS>=f.LEN;
    f.CLOSE;
    f2.CLOSE;

    IF ISSERVICETIER THEN
    BEGIN
    ERASE(MergeFileNameServer);
    RENAME(MergeFileNameServer+'$', MergeFileNameServer);
    DOWNLOAD(MergeFileNameServer,Text035,'',Text032,MergeFileName);
    END
    ELSE
    BEGIN
    ERASE(MergeFileName);
    RENAME(MergeFileName+'$', MergeFileName);
    END;
    EXIT (MergeFileName);
  2. 變更四個的數字中的程式碼在InsertCharSet函式,在 WordManagement codeunit (5054) 下面這一行︰

    NewLine:= '<HTML><META charset=windows-1253>';

    注意 "1253"是正確的程式碼,使用 [Microsoft 動態航行點的用戶端語言的希臘文 (/GR) 的位置。變更此四位數的程式碼到您的 Microsoft 動態航行點用戶端語言的 Windows 字元集程式碼。例如,"1257"是正確的程式碼的拉脫維亞文 (LV)。
    若要取得 Windows 字元集的完整清單,請造訪下列網站︰
    http://msdn.microsoft.com/en-us/library/aa752010(v=vs.85).aspx

  3. 變更 WordManagement codeunit (5054) 的CreateWordAttachment函式中的程式碼如下所示︰
    現有的程式碼

    ...IF ISCLEAR(wrdApp) THEN
    CREATE(wrdApp,FALSE,TRUE);
    Attachment."File Extension" := GetWordDocExt(wrdApp.Version);
    wrdDoc := wrdApp.Documents.Add;
    wrdDoc.MailMerge.MainDocumentType := 0; // 0 = wdFormLetters
    ParamInt := 7; // 7 = HTML
    wrdDoc.MailMerge.OpenDataSource(MergeFileName,ParamInt);
    ...

    取代程式碼

    ...IF ISCLEAR(wrdApp) THEN
    CREATE(wrdApp,FALSE,TRUE);
    Attachment."File Extension" := GetWordDocExt(wrdApp.Version);
    wrdDoc := wrdApp.Documents.Add;
    wrdDoc.MailMerge.MainDocumentType := 0; // 0 = wdFormLetters
    ParamInt := 7; // 7 = HTML

    // Add the following line.
    MergeFileName:=InsertCharSet(MergeFileName);

    wrdDoc.MailMerge.OpenDataSource(MergeFileName,ParamInt);
    ...
  4. 變更OpenWordAttachment WordManagement codeunit (5054) 中的函式中的程式碼如下所示︰
    現有的程式碼

    ...IF ISCLEAR(wrdMergefile) THEN
    CREATE(wrdMergefile,FALSE,TRUE);
    MergeFileName := RBAutoMgt.ClientTempFileName(Text029,'.HTM');
    CreateHeader(wrdMergefile,TRUE,MergeFileName);
    IF ISCLEAR(wrdApp) THEN
    CREATE(wrdApp,FALSE,TRUE);
    ...

    取代程式碼

    ...IF ISCLEAR(wrdMergefile) THEN
    CREATE(wrdMergefile,FALSE,TRUE);
    MergeFileName := RBAutoMgt.ClientTempFileName(Text029,'.HTM');
    CreateHeader(wrdMergefile,TRUE,MergeFileName);

    // Add the following line.
    MergeFileName:=InsertCharSet(MergeFileName);

    IF ISCLEAR(wrdApp) THEN
    CREATE(wrdApp,FALSE,TRUE);
    ...
  5. 變更 WordManagement codeunit (5054) 的ExecuteMerge函式中的程式碼如下所示︰
    現有的程式碼

    ...wrdDoc := wrdApp.Documents.Open(MainFileName);
    wrdDoc.MailMerge.MainDocumentType := 0;
    Window.UPDATE(6,Text013);
    ParamInt := 7; // 7 = HTML
    wrdDoc.MailMerge.OpenDataSource(MergeFileName,ParamInt);
    Window.UPDATE(6,STRSUBSTNO(Text014,TempDeliverySorter."Correspondence Type"));
    ...

    取代程式碼

    ...wrdDoc := wrdApp.Documents.Open(MainFileName);
    wrdDoc.MailMerge.MainDocumentType := 0;
    Window.UPDATE(6,Text013);
    ParamInt := 7; // 7 = HTML

    // Add the following line.
    MergeFileName:=InsertCharSet(MergeFileName);

    wrdDoc.MailMerge.OpenDataSource(MergeFileName,ParamInt);
    Window.UPDATE(6,STRSUBSTNO(Text014,TempDeliverySorter."Correspondence Type"));
    ...
  6. 變更 WordManagement codeunit (5054) 的ShowMergedDocument函式中的程式碼如下所示︰
    現有的程式碼

    ...ParamInt := 7; // 7 = HTML
    wrdDoc.MailMerge.OpenDataSource(MergeFileName,ParamInt);
    ParamInt := 9999998; // 9999998 = wdToggle
    wrdDoc.MailMerge.ViewMailMergeFieldCodes(ParamInt);
    END;
    WordHandler(wrdDoc,Attachment,WordCaption,IsTemporary,MainFileName,IsInherited);
    CLEAR(wrdMergefile);
    CLEAR(wrdDoc);
    CLEAR(wrdApp);
    DeleteFile(MergeFileName);
    ...

    取代程式碼

    ...ParamInt := 7; // 7 = HTML

    // Add the following line.
    MergeFileName:=InsertCharSet(MergeFileName);

    wrdDoc.MailMerge.OpenDataSource(MergeFileName,ParamInt);
    ParamInt := 9999998; // 9999998 = wdToggle
    wrdDoc.MailMerge.ViewMailMergeFieldCodes(ParamInt);
    END;
    WordHandler(wrdDoc,Attachment,WordCaption,IsTemporary,MainFileName,IsInherited);
    CLEAR(wrdMergefile);
    CLEAR(wrdDoc);
    CLEAR(wrdApp);
    DeleteFile(MergeFileName);
    ...



先決條件

您必須擁有其中一種套用此 hotfix 之後安裝下列產品︰

  • 希臘文版本的 Microsoft 動態航行點 2009 R2

  • 希臘文版本的 Microsoft 動態航行點 2009 Service Pack 1

移除資訊

您無法移除此 hotfix。

狀態

Microsoft 已確認這是<套用>一節所列出的 Microsoft 產品的問題。

注意這是直接從 Microsoft 支援組織內建立的「快速發行」文件。本文件所包含的現狀資訊是針對新興問題的回應。為縮短使其可用的時程,資料可能會包含印刷錯誤,且可能會隨時進行修改而不另行通知。如其他考量,請參閱 「使用規定」。

需要更多協助?

擴展您的技能
探索訓練
優先取得新功能
加入 Microsoft 測試人員

這項資訊有幫助嗎?

您對翻譯品質的滿意度為何?
以下何者是您會在意的事項?

感謝您的意見反應!

×