症状
如果您创建单一欧元支付区 (SEPA) 付款文件,并不是所有特殊字符在荷兰语版本的 Microsoft Dynamics 导航 2009年正确移除。按照在代码更改部分,若要解决此问题的步骤。下列产品中发生此问题︰
-
荷兰语版本的 Microsoft Dynamics 导航 2009 R2
-
荷兰语版本的 Microsoft Dynamics 导航 2009 SP1
解决方案
修补程序信息
受支持的修补程序现已从 Microsoft 推出。然而,它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此,如果这个问题没有对您造成严重的影响,我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。
注意: 在特殊情况下,可免收的支持电话,可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。
安装信息
Microsoft 提供的编程示例仅用于说明,没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能。但是,他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。
注意:安装此修复程序之前,请验证所有 Microsoft Dynamics 导航客户端用户都注销系统。这包括 Microsoft Dynamics 导航应用程序服务器 (NAS) 服务。要实现此修补程序时,在登录的唯一客户端用户。
若要实现此修补程序,必须使用开发人员许可证。
我们建议在 Windows 登录窗口或数据库登录窗口中的用户帐户将分配该"超级"角色 id。如果不能将用户帐户分配成"超级"角色 ID,则必须验证用户帐户具有下列权限:
-
您将更改该对象的修改权限。
-
为系统对象 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;
... -
更改在 SEPA ISO20022 痛 01.01.03 报告 (11000012) 中的AddElement函数中的代码,如下所示︰
现有代码...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... -
更改在 SEPA ISO20022 痛 008.001.02 报告 (11000013) 中的AddElement函数中的代码,如下所示︰
现有代码...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);
...
系统必备组件
您必须具有要应用此修补程序的安装以下产品之一︰
-
荷兰语版本的 Microsoft Dynamics 导航 2009 R2
-
荷兰语版本的 Microsoft Dynamics 导航 2009 SP1
此外,您必须有 SEPA 新版MSDNAV2009sp1SEPANLdebit安装。
删除信息
您不能删除此修补程序。
状态
Microsoft 已经确认这是“适用于”一节中列出的 Microsoft 产品中的问题。
注意:这是直接从创建 Microsoft 支持部门内的"快速发布"的文章。此处包含的信息是作为为了响应新出现的问题而提供的。由于以使其可用的速度,而材料可能包含印刷错误,恕不另行通知,随时可能进行修订。其他考虑因素,请参阅使用条款。