Non-English accented characters are displayed incorrectly when you run the "Export to Excel" function in non-English language versions of Microsoft Dynamics NAV 2009 R2 or Microsoft Dynamics NAV 2009 Service Pack 1

Installation information

Code changes

1. Change the code in the ExportData function in the Export Item Analysis View codeunit (7152) as follows:
   Existing code

   ...
   IF (ShowActualBudg <> 0) AND (ShowActualBudg <> 1) THEN
    ERROR(Text000);
   InitCharTables;
   WITH ItemAnalysisViewEntry DO BEGIN
    NoOfRows := CreateFile(
          ItemAnalysisViewEntry,ShowName,ItemFilter,Dim1Filter,Dim2Filter,
          Dim3Filter,DateFilter,LocationFilter,BudgetFilter,Sign);
    FileName := "3TierMngt".DownloadTempFile(FileName);
    CREATE(xlApp,TRUE,TRUE);
    xlApp.Workbooks._OpenText(FileName);
   ...

   Replacement code

   ...
   IF (ShowActualBudg <> 0) AND (ShowActualBudg <> 1) THEN
    ERROR(Text000);
   
   // Add the following line.
   CREATE(xlApp,TRUE,TRUE); 
   
   InitCharTables;
   WITH ItemAnalysisViewEntry DO BEGIN
    NoOfRows := CreateFile(
          ItemAnalysisViewEntry,ShowName,ItemFilter,Dim1Filter,Dim2Filter,
          Dim3Filter,DateFilter,LocationFilter,BudgetFilter,Sign);
    FileName := "3TierMngt".DownloadTempFile(FileName);
   
    // Delete the following single line.
    CREATE(xlApp,TRUE,TRUE); 
    
    xlApp.Workbooks._OpenText(FileName);
    ...

2. Add a new local variable in the InitCharTables function in the Export Item Analysis View codeunit (7152), and then specify the variable as follows:
   • Name: ThreeTierMngt@1004
   • DataType: Codeunit
   • Subtype: 3-Tier Automation Mgt. (419)
3. Delete the following variable in the InitCharTables function in the Export Item Analysis View codeunit (7152):

   BSTRConverterBody@1005 : Automation "{A3........."

4. Change the code in the InitCharTables function in the Export Item Analysis View codeunit (7152) as follows:
   Existing code

   FOR i:= 65 TO 255 DO BEGIN
    c := i;
    CharsNavision[i-64] := c;
   END;
   IF ISCLEAR(BSTRConverterBody) THEN
    CREATE(BSTRConverterBody);
   
   BSTRConverterBody.ResetBSTR;
   BSTRConverterBody.AppendNextStringPortion(CharsNavision);
   CharsWindows := BSTRConverterBody.BSTR();
   
   IF STRLEN(CharsWindows) <> STRLEN(CharsNavision) THEN BEGIN
    IF (STRLEN(CharsWindows) = STRLEN(CharsNavision) + 2) AND
     (CharsWindows[1] = '"') AND (CharsWindows[STRLEN(CharsWindows)] = '"') THEN
     CharsWindows := COPYSTR(CharsWindows,2,STRLEN(CharsWindows) - 2)
    ELSE
     CharsWindows := CharsNavision; // Not possible to translate.
   END;

   Replacement code

   FOR i:= 65 TO 255 DO BEGIN
    c := i;
    CharsWindows[i - 64] := c;
   END;
   CharFile.CREATETEMPFILE;
   TempFileName := CharFile.NAME + '.txt';
   CharFile.CLOSE;
   CharFile.CREATE(TempFileName);
   CharFile.TEXTMODE := TRUE;
   CharFile.WRITE(CharsWindows);
   CharFile.CLOSE;
   TempFileName := ThreeTierMngt.DownloadTempFile(TempFileName);
   xlApp.Workbooks.OpenText(TempFileName);
   xlWorkSheet := xlApp.ActiveSheet;
   CharsNavision := xlWorkSheet.Range('A1').Value;
   xlApp.ActiveWorkbook.Close(FALSE);
   IF NOT ISSERVICETIER THEN
    ERASE(TempFileName);
   IF STRLEN(CharsWindows) <> STRLEN(CharsNavision) THEN
    IF (STRLEN(CharsWindows) = STRLEN(CharsNavision) - 2) AND
     (CharsNavision[1] = '"') AND (CharsNavision[STRLEN(CharsNavision)] = '"')
    THEN
     CharsNavision := COPYSTR(CharsNavision,2,STRLEN(CharsNavision) - 2)
    ELSE
     CharsNavision := CharsWindows; // Not possible to translate.

5. Change the code in the FillOutItem function in the Export Item Analysis View codeunit (7152). Replace the two occurrences of the "IF ShowName THEN BEGIN" code as follows:
   Existing code

   IF ShowName THEN BEGIN

   Replacement code

   IF ShowName AND (Item <> '') THEN BEGIN

Prerequisites

• Non-English language versions of Microsoft Dynamics NAV 2009 R2
• Non-English language versions of Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Removal information