如果在 Microsoft Dynamics 导航 2009年的荷兰语版本创建了 SEPA 文件误删除某些特殊字符

随时随地通过任何设备使用 Microsoft 365 工作

升级到 Microsoft 365 以在任何位置使用最新的功能和更新。

立即升级

模板︰ CPR-Navision 代码 Fiacx 模板

错误 #: 216703 (内容维护)

症状

如果您创建单一欧元支付区 (SEPA) 付款文件,并不是所有特殊字符在荷兰语版本的 Microsoft Dynamics 导航 2009年正确移除。按照在代码更改部分,若要解决此问题的步骤。下列产品中发生此问题︰

  • 荷兰语版本的 Microsoft Dynamics 导航 2009 R2

  • 荷兰语版本的 Microsoft Dynamics 导航 2009 SP1

解决方案

修补程序信息

受支持的修补程序现已从 Microsoft 推出。然而,它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此,如果这个问题没有对您造成严重的影响,我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。

注意: 在特殊情况下,可免收的支持电话,可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。

如果此修补程序未放在网上供公共下载 (指本文中未提供此修复程序的公共 URL),分发需要技术组长、 问题上报小组成员或经理的批准并且以下信息适用︰

  • 要收到此修复程序,客户必须遇到"症状"一节中提到的错误。

  • 您必须跟踪客户向其发送此和可用 (如果发布服务包) 时提供他们的下一个 service pack。

此修补程序不计划将包含在 Microsoft Dynamics 导航服务包。

安装信息

Microsoft 提供的编程示例仅用于说明,没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能。但是,他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。

注意:安装此修复程序之前,请验证所有 Microsoft Dynamics 导航客户端用户都注销系统。这包括 Microsoft Dynamics 导航应用程序服务器 (NAS) 服务。要实现此修补程序时,在登录的唯一客户端用户。

若要实现此修补程序,必须使用开发人员许可证。

我们建议在 Windows 登录窗口或数据库登录窗口中的用户帐户将分配该"超级"角色 id。如果不能将用户帐户分配成"超级"角色 ID,则必须验证用户帐户具有下列权限:

  • 您将更改该对象的修改权限。

  • 为系统对象 ID™ 5210对象和系统对象 ID 9015执行权限

    对象。

注意:您不需要具有对数据存储区的权限,除非您需要执行数据修复。

代码更改

注意:始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。

若要解决此问题,请执行以下步骤:

  1. 检查 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;
    ...
  2. 更改全局变量中 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;
    ...
  3. 更改在 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;
    ...
  4. 更改全局变量中 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...
  5. 更改在 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 产品中的问题。

参考资料

VSFT DynamicsNAVSE: 353138

注意:这是直接从创建 Microsoft 支持部门内的"快速发布"的文章。此处包含的信息是作为为了响应新出现的问题而提供的。由于以使其可用的速度,而材料可能包含印刷错误,恕不另行通知,随时可能进行修订。其他考虑因素,请参阅使用条款

Author: Andreas.Guenther
Writer: v-luzo
技术审阅︰ Andreas.Guenther
Editor:

需要更多帮助?

扩展你的技能
了解培训
抢先获得新功能
加入 Microsoft 内部人员

此信息是否有帮助?

谢谢您的反馈意见!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×