Ten artykuł dotyczy systemu Microsoft Dynamics NAV dla regionu Grecki (gr).
Objawy
Załóżmy, że masz zainstalowany pakiet językowy Office grecki. Podczas tworzenia więcej niż ośmiu wierszach segmentu w segmencie w greckiej wersji językowej systemu Microsoft Dynamics NAV 2009, wystąpi błąd "Nieprawidłowe pole scalania" z automatyzacji programu Word.
Ten problem występuje w następujących produktach:
-
Greckiej wersji językowej systemu Microsoft Dynamics NAV 2009 R2
-
Greckiej wersji dodatku Service Pack 1 dla systemu Microsoft Dynamics NAV 2009
Rozwiązanie
Informacje o poprawce
Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.
Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.
Informacje dotyczące instalacji
Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.
Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta Microsoft Navision są wylogowani systemu. Dotyczy to również użytkowników klienta Microsoft Navision Application Services (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.
Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.
Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
-
Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.
-
Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i dla obiektu 9015 identyfikator obiektu systemu .
Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.
Zmiany kodu
Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.
Aby rozwiązać ten problem, wykonaj następujące kroki:
-
Utwórz nową funkcję w codeunit WordManagement (5054) w następujący sposób:
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); -
Zmień kod czterocyfrowy w następującym wierszu w funkcji InsertCharSet w codeunit WordManagement (5054):
NewLine:= '<HTML><META charset=windows-1253>';
Uwaga "1253" jest poprawny kod używany gdzie język klienta systemu Microsoft Dynamics NAV jest grecki (GR). Zmień kod czterocyfrowy kod do kodu zestaw znaków systemu Windows dla danego języka klienta systemu Microsoft Dynamics NAV. Na przykład "1257" jest poprawny kod dla Łotwy (LV).
Aby uzyskać pełną listę zestawów znaków systemu Windows, odwiedź następujące witryny:
http://msdn.microsoft.com/en-us/library/aa752010(v=vs.85).aspx -
Zmień kod w funkcji CreateWordAttachment w codeunit WordManagement (5054) w następujący sposób:
Istniejący kod...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);
...Kod zastępczy
...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);
... -
Zmień kod w OpenWordAttachment funkcja w codeunit WordManagement (5054) w następujący sposób:
Istniejący kod...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);
...Kod zastępczy
...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);
... -
Zmień kod w funkcji Createwordattachment w codeunit WordManagement (5054) w następujący sposób:
Istniejący kod...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"));
...Kod zastępczy
...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"));
... -
Zmień kod w funkcji ShowMergedDocument w codeunit WordManagement (5054) w następujący sposób:
Istniejący kod...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);
...Kod zastępczy
...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);
...
Wymagania wstępne
Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:
-
Greckiej wersji językowej systemu Microsoft Dynamics NAV 2009 R2
-
Greckiej wersji dodatku Service Pack 1 dla systemu Microsoft Dynamics NAV 2009
Informacje dotyczące usuwania
Nie można usunąć tej poprawki.
Stan
Firma Microsoft potwierdziła, że jest to problem występujący w produktach firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł " szybkiej publikacji" tworzony bezpośrednio przez organizację pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym dokumencie są dostarczane jako odpowiedź na pojawiające się problemy. W wyniku przyspieszonego udostępnienia, materiały te mogą zawierać błędy typograficzne i mogą być zmieniane w dowolnym czasie bez uprzedzenia. Zobacz Warunki użytkowania w celu uzyskania innych informacji.
