狀況
如果您建立單一歐元付款區域 (SEPA) 付款檔案時,並非所有的特殊字元會在荷蘭文版本的 Microsoft 動態航行點 2009年正確移除。請依照下列程式碼變更一節,若要解決這個問題的步驟。下列產品中,就會發生這個問題︰
-
荷蘭文版本的 Microsoft 動態航行點 2009 R2
-
荷蘭文版本的 Microsoft 動態航行點 2009 SP1
解決方案
Hotfix 資訊
已經可以從 Microsoft 取得支援的 hotfix。不過,它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此,如果此問題不會嚴重影響,我們建議您等候下一步的 Microsoft 動態航行點 2009 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。
注意 在特殊的情況下,通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用,如果有其他支援問題是,不能限定的特定更新程式。
安裝資訊
Microsoft 會提供程式設計範例僅供說明,而不做任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能。不過,它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。
注意套用此 hotfix 之前,請確認所有的 Microsoft 動態航行點用戶端使用者會登出系統。這包括 Microsoft 動態航行點應用程式伺服器 (NAS) 服務。您應該是唯一的用戶端使用者已登入,當您實作此 hotfix。
若要實作此 hotfix,您必須有開發人員授權。
我們建議您在 Windows 登入] 視窗中的色彩,或資料庫登入] 視窗中的使用者帳戶被指派 「 進階 」 的角色識別碼。如果使用者帳戶不能指派為 「 超級 」 的角色識別碼,您必須確認使用者帳戶具有下列權限︰
-
您將會變更物件的 [修改] 權限。
-
執行權限的系統物件 ID 5210物件和系統物件 ID 9015
物件。
注意您沒有擁有資料存放區的權限,除非您需要執行資料修復。
程式碼變更
注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。
若要解決這個問題,請依照下列步驟執行:
-
加入下列函式中檢查 SEPA ISO20022 Codeunit (11000010) 如下所示︰
...PROCEDURE WindowsToASCII@1(InText@1000 : Text[1024]) : Text[1024];
VAR
OutText@1003 : Text[1024];
i@1001 : Integer;
Len@1005 : Integer;
BEGIN
OutText := InText;
Len := STRLEN(InText);
FOR i := 1 TO Len DO
OutText[i] := WindowsToASCIIChar(CP850toUTF8(InText[i]));
EXIT(OutText);
END;
LOCAL PROCEDURE WindowsToASCIIChar@2(c@1000 : Integer) : Char;
BEGIN
// EPC217-08 conversion rules
CASE c OF
1..127:
EXIT(WindowsToASCIICharEPC(c));
128..255:
EXIT(WindowsToASCIIChar8Bit(c));
8364: // Euro sign
EXIT('E');
ELSE
EXIT(WindowsToASCIIChar16Bit(c));
END;
END;
LOCAL PROCEDURE WindowsToASCIIChar8Bit@4(c@1000 : Integer) : Char;
BEGIN
CASE c OF
191:
EXIT('?');
192..198:
EXIT('A');
199:
EXIT('C');
200..203:
EXIT('E');
204..207:
EXIT('I');
208:
EXIT('D');
209:
EXIT('N');
210..214,216:
EXIT('O');
217..220:
EXIT('U');
221:
EXIT('Y');
222:
EXIT('T');
223:
EXIT('s');
224..230:
EXIT('a');
231:
EXIT('c');
232..235:
EXIT('e');
236..239:
EXIT('i');
240:
EXIT('d');
241:
EXIT('n');
242..246,248:
EXIT('o');
249..252:
EXIT('u');
253,255:
EXIT('y');
254:
EXIT('t');
END;
EXIT('.');
END;
LOCAL PROCEDURE WindowsToASCIIChar16Bit@5(c@1000 : Integer) : Char;
BEGIN
CASE c OF
256,258,260,902,913,1040,1066:
EXIT('A');
257,259,261,940,945,1072,1098:
EXIT('a');
1041:
EXIT('B');
1073:
EXIT('b');
262,264,266,268,935,1063:
EXIT('C');
263,265,267,269,967,1095:
EXIT('c');
270,272,916,1044:
EXIT('D');
271,273,948,1076:
EXIT('d');
274,276,278,280,282,904,917,1045:
EXIT('E');
275,277,279,281,283,941,949,1077:
EXIT('e');
934,1060:
EXIT('F');
966,1092:
EXIT('f');
284,286,288,290,915,1043:
EXIT('G');
285,287,289,291,947,1075:
EXIT('g');
292,294,1061:
EXIT('H');
293,295,1093:
EXIT('h');
296,298,300,302,304,306,905,906,919,921,938,1048:
EXIT('I');
297,299,301,303,305,307,912,942,943,951,953,970,1080:
EXIT('i');
308:
EXIT('J');
309:
EXIT('j');
310,922,1050:
EXIT('K');
311,954,1082:
EXIT('k');
313,315,317,319,321,923,1051:
EXIT('L');
314,316,318,320,322,955,1083:
EXIT('l');
924,1052:
EXIT('M');
956,1084:
EXIT('m');
323,325,327,925,1053:
EXIT('N');
324,326,328,957,1085:
EXIT('n');
336,338,908,911,927,937,1054:
EXIT('O');
337,339,959,969,972,974,1086:
EXIT('o');
928,936,1055:
EXIT('P');
960,968,1087:
EXIT('p');
340,342,344,929,1056:
EXIT('R');
341,343,345,961,1088:
EXIT('r');
346,348,350,352,536,931,1057,1064,1065:
EXIT('S');
347,349,351,353,537,962,963,1089,1096,1097:
EXIT('s');
354,356,358,538,920,932,1058,1062:
EXIT('T');
355,357,359,539,952,964,1090,1094:
EXIT('t');
360,362,364,366,368,370,1059:
EXIT('U');
361,363,365,367,369,371,1091:
EXIT('u');
914,1042:
EXIT('V');
946,1074:
EXIT('v');
372:
EXIT('W');
373:
EXIT('w');
926:
EXIT('X');
958:
EXIT('x');
374,376,910,933,939,1049,1068,1070,1071:
EXIT('Y');
375,944,965,971,973,1081,1100,1102,1103:
EXIT('y');
377,379,381,918,1046,1047:
EXIT('Z');
378,380,382,950,1078,1079:
EXIT('z');
END;
EXIT('.');
END;
LOCAL PROCEDURE WindowsToASCIICharEPC@6(c@1000 : Integer) : Char;
BEGIN
CASE c OF
33,35..37,42,61,64,94,127: // !,#,$,%,&,*,=,@,delete
EXIT('.');
34,39,60,62,96: // ",',<,>,`
EXIT(' ');
38: // AMPERSAND
EXIT('+');
59: // ;
EXIT(',');
91,123: // [,{
EXIT('(');
92,124: // \,|
EXIT('/');
93,125: // ],}
EXIT(')');
95,126: // _,~
EXIT('-');
END;
EXIT(c);
END;
LOCAL PROCEDURE CP850toUTF8@1000000(c@1000000 : Integer) : Char;
BEGIN
IF c IN [128..255] THEN
CASE c OF
129: EXIT(252);
130: EXIT(233);
131: EXIT(226);
132: EXIT(228);
136: EXIT(234);
137: EXIT(235);
138: EXIT(232);
139: EXIT(239);
142: EXIT(196);
144: EXIT(201);
147: EXIT(244);
148: EXIT(246);
150: EXIT(251);
153: EXIT(214);
154: EXIT(220);
160: EXIT(225);
161: EXIT(237);
162: EXIT(243);
163: EXIT(250);
181: EXIT(193);
182: EXIT(194);
210: EXIT(202);
211: EXIT(203);
212: EXIT(200);
214: EXIT(205);
216: EXIT(207);
224: EXIT(211);
226: EXIT(212);
233: EXIT(218);
234: EXIT(219);
ELSE
EXIT('.');
END;
EXIT(c);
END;
... -
變更在全域變數 SEPA ISO20022 痛苦 01.01.03 報表 (11000012) 中的程式碼如下所示︰
現有的程式碼...PaymentHistoryLine@1000002 : Record 11000002;
CompanyInfo@1000003 : Record 79;
XMLDomDoc@1000004 : Automation "{F5078F18-C551-11D3-89B9-0000F81FE221} 3.0:{F6D90F11-9C73-11D3-B32E-00C04F990BB4}:'Microsoft XML, v3.0'.DOMDocument";
ExportFileName@1000000 : Text[250];
AlwaysNewFileName@1000001 : Boolean;
...取代程式碼
...PaymentHistoryLine@1000002 : Record 11000002;
CompanyInfo@1000003 : Record 79;
XMLDomDoc@1000004 : Automation "{F5078F18-C551-11D3-89B9-0000F81FE221} 3.0:{F6D90F11-9C73-11D3-B32E-00C04F990BB4}:'Microsoft XML, v3.0'.DOMDocument";
// Add the following line.
CheckSEPA@1000006 : Codeunit 11000010;
// End of the added line.
ExportFileName@1000000 : Text[250];
AlwaysNewFileName@1000001 : Boolean;
... -
變更AddElement SEPA ISO20022 痛苦 01.01.03 報表 (11000012) 中的函式中的程式碼如下所示︰
現有的程式碼...EXIT(FALSE);
IF NodeText <> '' THEN
// Delete the following lines.
NewChildNode.text := CONVERTSTR(NodeText,
'����������������������������������������������i������������������',
'CueaaaaceeeiiiAAEaAooouuyOUoOaiounAAAcyaAoDEEEiIIIEEIOBOOoOuUUUyY');
// End of the deleted lines.
XMLNode.appendChild(NewChildNode);
CreatedXMLNode := NewChildNode;
...取代程式碼
...EXIT(FALSE);
IF NodeText <> '' THEN
// Add the following line.
NewChildNode.text := CheckSEPA.WindowsToASCII(NodeText);
// End of the added line.
XMLNode.appendChild(NewChildNode);
CreatedXMLNode := NewChildNode;
... -
變更在全域變數 SEPA ISO20022 痛苦 008.001.02 報表 (11000013) 中的程式碼如下所示︰
現有的程式碼...PmtHistoryLineSumAmount@1000006 : Text[50];
PmtHistoryLineCount@1000007 : Text[20];
FileMgt@1170000000 : Codeunit 419;
PROCEDURE ExportSEPAFile@1000005();VAR...取代程式碼
...PmtHistoryLineSumAmount@1000006 : Text[50];
PmtHistoryLineCount@1000007 : Text[20];
FileMgt@1170000000 : Codeunit 419;
// Add the following line.
CheckSEPA@1000005 : Codeunit 11000010;
// End of the added line.
PROCEDURE ExportSEPAFile@1000005();VAR... -
變更AddElement SEPA ISO20022 痛苦 008.001.02 報表 (11000013) 中的函式中的程式碼如下所示︰
現有的程式碼...EXIT(FALSE);
IF NodeText <> '' THEN
// Delete the following lines.
NewChildNode.text := CONVERTSTR(NodeText,
'����������������������������������������������i������������������',
'CueaaaaceeeiiiAAEaAooouuyOUoOaiounAAAcyaAoDEEEiIIIEEIOBOOoOuUUUyY');
// End of the deleted lines.
XMLNode.appendChild(NewChildNode);
CreatedXMLNode := NewChildNode;
CLEAR(NewChildNode);
...取代程式碼
...EXIT(FALSE);
IF NodeText <> '' THEN
// Add the following line.
NewChildNode.text := CheckSEPA.WindowsToASCII(NodeText);
// End of the added line.
XMLNode.appendChild(NewChildNode);
CreatedXMLNode := NewChildNode;
CLEAR(NewChildNode);
...
先決條件
您必須具備套用此 hotfix 之後安裝下列產品的其中一個︰
-
荷蘭文版本的 Microsoft 動態航行點 2009 R2
-
荷蘭文版本的 Microsoft 動態航行點 2009 SP1
此外,您必須擁有最新安裝MSDNAV2009sp1SEPANLdebit的 SEPA 版本。
移除資訊
您無法移除此 hotfix。
狀態
Microsoft 已確認這是<套用>一節所列出的 Microsoft 產品的問題。
注意這是直接從 Microsoft 支援組織內建立的「快速發行」文件。本文件所包含的現狀資訊是針對新興問題的回應。為縮短使其可用的時程,資料可能會包含印刷錯誤,且可能會隨時進行修改而不另行通知。如其他考量,請參閱 「使用規定」。