当使用 Microsoft Dynamics 导航 2009 年的荷兰语版本中的 Digipoort 接口的验证错误

模板︰ CPR-Navision 代码 Fiacx 模板

错误 #: 211509 (内容维护)

假定您在 Microsoft Dynamics 导航 2009 年的荷兰语版本中实现"增值税和 Microsoft 动态导航 SP1 NL 的欧盟销售列表提交的税金 Authorties 采用 Digipoort"。使用 Digipoort 接口时,您会收到下面的验证错误之一︰

SBR_DIGIPOORT bd-alg:ContactPrefix 不能为空。

ICP 数量不能为零。

下列产品中发生此问题︰

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

  • 荷兰语版本的 Microsoft Dynamics 导航 2009 Service Pack 1 (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. 更改创建 Elec.ICP 声明报告 (11404) 中的代码,如下所示︰
    现有代码 1

    ...ElecTaxDeclarationHeader@1000000 : Record 11409;
    ApplicationManagement@1000001 : Codeunit 1;
    UseVATRegNo@1000010 : Text[20];
    BEGIN
    IF Status > Status::Created THEN
    ERROR(StatusErr);
    ...

    替换代码 1

    ...ElecTaxDeclarationHeader@1000000 : Record 11409;
    ApplicationManagement@1000001 : Codeunit 1;
    UseVATRegNo@1000010 : Text[20];
    StreetName@1000002 : Text[50];
    HouseNo@1000003 : Text[50];
    AdditionHouseNo@1000004 : Text[50];
    ContactPrefix@1000011 : Text[35];
    BEGIN
    IF Status > Status::Created THEN
    ERROR(StatusErr);
    ...

    现有代码 2

    ...// zbrli:xbrl->bd-ob:VATIdentificationNumberNLFiscalEntityDivision
    IF ElecTaxDeclarationSetup."Part of Fiscal Entity" THEN BEGIN
    IF COPYSTR(
    UPPERCASE(CompanyInfo."VAT Registration No."),
    1,STRLEN(CompanyInfo."Country/Region Code")) = CompanyInfo."Country/Region Code"
    THEN
    CompanyInfo."VAT Registration No." := DELSTR(CompanyInfo."VAT Registration No.",1,STRLEN(CompanyInfo."Country/Region Code"));
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-ob:VATIdentificationNumberNLFiscalEntityDivision',
    CompanyInfo."VAT Registration No.",'','Msg','');
    END;

    // zbrli:xbrl->bd-alg:Contact*
    ...

    替换代码 2

    ...// zbrli:xbrl->bd-ob:VATIdentificationNumberNLFiscalEntityDivision
    IF ElecTaxDeclarationSetup."Part of Fiscal Entity" THEN BEGIN
    IF COPYSTR(
    UPPERCASE(CompanyInfo."Fiscal Entity No."),
    1,STRLEN(CompanyInfo."Country/Region Code")) = CompanyInfo."Country/Region Code"
    THEN
    CompanyInfo."Fiscal Entity No." := DELSTR(CompanyInfo."Fiscal Entity No.",1,STRLEN(CompanyInfo."Country/Region Code"));
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-ob:VATIdentificationNumberNLFiscalEntityDivision',
    CompanyInfo."Fiscal Entity No.",'','Msg','');
    END;

    // zbrli:xbrl->bd-alg:Contact*
    ...

    现有代码 3

    ...IF ElecTaxDeclarationSetup."ICP Contact Type" = ElecTaxDeclarationSetup."ICP Contact Type"::"Tax Payer" THEN BEGIN
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
    ExtractInitials(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',
    ExtractNamePrefix(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
    ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
    ...

    替换代码 3

    ...IF ElecTaxDeclarationSetup."ICP Contact Type" = ElecTaxDeclarationSetup."ICP Contact Type"::"Tax Payer" THEN BEGIN
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
    ExtractInitials(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
    ContactPrefix := ExtractNamePrefix(ElecTaxDeclarationSetup."Tax Payer Contact Name");
    IF ContactPrefix <> '' THEN
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',ContactPrefix,'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
    ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
    ...

    现有代码 4

    ...ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
    ElecTaxDeclarationSetup."Tax Payer Contact Phone No.",'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',
    ExtractStreetName(CompanyInfo.Address),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',
    ExtractStreetNo(CompanyInfo.Address),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
    DELCHR(CompanyInfo."Post Code",'=',' '),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
    ...

    替换代码 4

    ...ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
    ElecTaxDeclarationSetup."Tax Payer Contact Phone No.",'','Msg','');

    PostCodeMgt.ParseAddressAdditionHouseNo(StreetName,HouseNo,AdditionHouseNo,CompanyInfo.Address);
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',StreetName,'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',HouseNo,'','Msg','');
    IF AdditionHouseNo <> '' THEN
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberAddition',AdditionHouseNo,'','Msg','');

    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
    DELCHR(CompanyInfo."Post Code",'=',' '),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
    ...

    现有代码 5

    ...END ELSE BEGIN
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
    ExtractInitials(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',
    ExtractNamePrefix(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
    ExtractSurname(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
    ...

    替换代码 5

    ...END ELSE BEGIN
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
    ExtractInitials(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
    ContactPrefix := ExtractNamePrefix(ElecTaxDeclarationSetup."Agent Contact Name");
    IF ContactPrefix <> '' THEN
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',ContactPrefix,'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
    ExtractSurname(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
    ...

    现有代码 6

    ...ElecTaxDeclarationSetup."Agent Contact Phone No.",'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:TaxConsultantNumber',
    ElecTaxDeclarationSetup."Agent Contact ID",'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',
    ExtractStreetName(ElecTaxDeclarationSetup."Agent Contact Address"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',
    ExtractStreetNo(ElecTaxDeclarationSetup."Agent Contact Address"),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
    DELCHR(ElecTaxDeclarationSetup."Agent Contact Post Code",'=',' '),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
    ...

    替换代码 6

    ...ElecTaxDeclarationSetup."Agent Contact Phone No.",'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:TaxConsultantNumber',
    ElecTaxDeclarationSetup."Agent Contact ID",'','Msg','');

    PostCodeMgt.ParseAddressAdditionHouseNo(
    StreetName,HouseNo,AdditionHouseNo,ElecTaxDeclarationSetup."Agent Contact Address");
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',StreetName,'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',HouseNo,'','Msg','');
    IF AdditionHouseNo <> '' THEN
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberAddition',AdditionHouseNo,'','Msg','');

    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
    DELCHR(ElecTaxDeclarationSetup."Agent Contact Post Code",'=',' '),'','Msg','');
    InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
    ...

    现有代码 7

    ...SETRANGE("VAT Registration No.", "VAT Registration No.");
    CALCSUMS(Base);

    "Elec. Tax Declaration Header".InsertLine(0,1,CurrentType,'');
    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:CountryCodeISO-EC',
    COPYSTR("Country/Region Code",1,2),'','Msg','');

    IF COPYSTR(UPPERCASE("VAT Registration No."),1,STRLEN("Country/Region Code")) = "Country/Region Code" THEN
    "VAT Registration No." := DELSTR("VAT Registration No.",1,STRLEN("Country/Region Code"));
    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:SuppliesAmount',
    FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:VATIdentificationNumberNational',
    "VAT Registration No.",'','Msg','');

    FIND('+');
    SETRANGE("Country/Region Code");
    ...

    替换代码 7

    ...SETRANGE("VAT Registration No.", "VAT Registration No.");
    CALCSUMS(Base);

    IF ABS(Base) >= 1 THEN BEGIN
    "Elec. Tax Declaration Header".InsertLine(0,1,CurrentType,'');
    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:CountryCodeISO-EC',
    COPYSTR("Country/Region Code",1,2),'','Msg','');

    IF COPYSTR(UPPERCASE("VAT Registration No."),1,STRLEN("Country/Region Code")) = "Country/Region Code" THEN
    "VAT Registration No." := DELSTR("VAT Registration No.",1,STRLEN("Country/Region Code"));

    CASE Integer.Number OF
    0,2:
    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:SuppliesAmount',
    FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
    1:
    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:ServicesAmount',
    FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
    END;
    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:VATIdentificationNumberNational',
    "VAT Registration No.",'','Msg','');
    END;

    FIND('+');
    SETRANGE("Country/Region Code");
    ...
  2. 更改全局变量中创建的 Elec.ICP 声明报告 (11404) 中的代码,如下所示︰
    现有代码

    ...CompanyInfo@1000003 : Record 79;
    ElecTaxDeclarationSetup@1000001 : Record 11408;
    StatusErr@1000005 : TextConst 'ENU=The report status need to have value " " or Created to create the report content.';
    CurrentType@1000000 : Text[60];

    LOCAL PROCEDURE GetStrippedAppVersion@1101100000(AppVersion@1101100001 : Text[250]) Res : Text[250];
    ...

    替换代码

    ...CompanyInfo@1000003 : Record 79;
    ElecTaxDeclarationSetup@1000001 : Record 11408;
    StatusErr@1000005 : TextConst 'ENU=The report status need to have value " " or Created to create the report content.';
    PostCodeMgt@1000002 : Codeunit 11401;
    CurrentType@1000000 : Text[60];

    LOCAL PROCEDURE GetStrippedAppVersion@1101100000(AppVersion@1101100001 : Text[250]) Res : Text[250];
    ...
  3. 更改创建 Elec.ICP 声明报告 (11404) 中的ExtractStreetName函数中的代码,如下所示︰
    现有代码

    ...ElecTaxDeclHeader.InsertLine(1,Indentation + 1,'unitRef',unitRef);
    END;

    LOCAL PROCEDURE ExtractStreetName@1000013(Address@1000000 : Text[50]) : Text[50];
    BEGIN
    IF IndexOfFirstNumber(Address) > 1 THEN
    EXIT(COPYSTR(Address,1,IndexOfFirstNumber(Address) - 2));
    EXIT(Address);
    END;

    LOCAL PROCEDURE ExtractStreetNo@1000012(Address@1000000 : Text[50]) : Text[50];
    BEGIN
    IF IndexOfFirstNumber(Address) > 0 THEN
    EXIT(COPYSTR(Address,IndexOfFirstNumber(Address)));
    EXIT('');
    END;

    LOCAL PROCEDURE ExtractInitials@1000014(FullName@1000000 : Text[35]) Initials : Text[30];
    VAR
    Pos@1000001 : Integer;
    ...

    替换代码

    ...ElecTaxDeclHeader.InsertLine(1,Indentation + 1,'unitRef',unitRef);
    END;

    LOCAL PROCEDURE ExtractInitials@1000014(FullName@1000000 : Text[35]) Initials : Text[30];
    VAR
    Pos@1000001 : Integer;
    ...
  4. 更改创建 Elec.ICP 声明报告 (11404) 中的IndexOfFirstNumber函数中的代码,如下所示︰
    现有代码

    ...Surname := COPYSTR(FullName,STRPOS(FullName,' ') + 1);
    END;

    LOCAL PROCEDURE IndexOfFirstNumber@1000017(Str@1000000 : Text[50]) : Integer;
    VAR
    Index@1000001 : Integer;
    BEGIN
    FOR Index := 1 TO STRLEN(Str) DO BEGIN
    IF Str[Index] IN ['0'..'9'] THEN
    EXIT(Index);
    END;
    EXIT(0);
    END;

    BEGIN
    END.
    }
    ...

    替换代码

    ...Surname := COPYSTR(FullName,STRPOS(FullName,' ') + 1);
    END;

    BEGIN
    END.
    }
    ...
  5. 更改开机自检代码管理 codeunit (11401) 中的ParseAddressAdditionHouseNo函数中的代码,如下所示︰
    现有代码

    ...EXIT(TRUE);
    END;

    BEGIN
    {
    <changelog>
    ...

    替换代码

    ...EXIT(TRUE);
    END;

    PROCEDURE ParseAddressAdditionHouseNo@1000003(VAR StreetName@1000001 : Text[50];VAR HouseNo@1000002 : Text[50];VAR AdditionHouseNo@1000003 : Text[50];Address@1000000 : Text[50]);
    VAR
    HouseString@1000004 : Text[50];
    BEGIN
    StreetName := '';
    HouseNo := '';
    AdditionHouseNo := '';
    IF Address = '' THEN
    EXIT;

    // Suppose that house string is a last word in the Address
    HouseString := GetHouseString(Address);

    IF HouseString = '' THEN BEGIN
    StreetName := Address;
    EXIT;
    END;

    // The last word is a House string with possible AdditionHouseNo information. All before last word is a StreetName.
    StreetName := COPYSTR(Address,1,STRLEN(Address) - STRLEN(HouseString) - 1);
    HouseNo := GetHouseNoFromHouseString(HouseString);
    AdditionHouseNo := HouseString;
    END;

    LOCAL PROCEDURE GetHouseString@1000002(Address@1000000 : Text[50]) : Text[50];
    VAR
    i@1000003 : Integer;
    BEGIN
    // If there's only one word then return empty HouseString
    IF STRPOS(Address,' ') = 0 THEN
    EXIT('');

    //Lookup from end of string first space after a number

    // Find the last word: revert address string, cut first word, revert result
    RevertString(Address);
    // Delete Spaces at beginning
    Address := DELCHR(Address,'<');

    i := 1;

    // Find first number i ==> position of first number
    WHILE (NOT (Address[i] IN ['0'..'9']) AND (i < STRLEN(Address))) DO
    i += 1;

    IF ((i = STRLEN(Address)) AND NOT (Address[i] IN ['0'..'9'])) THEN //No number found
    EXIT('');

    // look further until number stops
    WHILE ((Address[i] IN ['0'..'9']) AND (i < STRLEN(Address))) DO
    i+= 1;

    Address := DELCHR(COPYSTR(Address,1, i-1), '<=>'); // remove all spaces

    RevertString(Address);
    EXIT(Address);
    END;

    LOCAL PROCEDURE GetHouseNoFromHouseString@1000000(VAR HouseString@1000000 : Text[50]) HouseNo : Text[50];
    VAR
    Pos@1000002 : Integer;
    BEGIN
    Pos := 1;
    WHILE HouseString[Pos] IN ['0'..'9'] DO
    Pos += 1;
    HouseNo := COPYSTR(HouseString,1,Pos - 1);

    // remove HouseNo from the HouseString including special separating char if such exist
    IF HouseString[Pos] IN ['/','\','-'] THEN
    Pos += 1;
    HouseString := COPYSTR(HouseString,Pos);
    END;

    LOCAL PROCEDURE RevertString@1170000000(VAR String@1170000000 : Text[50]);
    VAR
    StringCopy@1170000001 : Text[50];
    i@1170000002 : Integer;
    Length@1170000003 : Integer;
    BEGIN
    StringCopy := String;
    Length := STRLEN(String);
    FOR i := 1 TO Length DO
    String[i] := StringCopy[Length - i + 1];
    END;

    BEGIN
    {
    <changelog>
    ...


系统必备组件

您必须具有要应用此修补程序的安装以下产品之一︰

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

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

此外,您必须实现"增值税和 Microsoft 动态导航 SP1 NL 的欧盟销售列表提交税务 Authorties 采用 Digipoort。"

删除信息

您不能删除此修补程序。

状态

Microsoft 已经确认这是“适用于”一节中列出的 Microsoft 产品中的问题。

参考资料

VSFT DynamicsNAVSE: 359638,359044,358345,360154,359348,357995

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

作者︰ andregu
Writer: v-six
技术审阅︰ andregu
Editor:

需要更多帮助?

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

此信息是否有帮助?

谢谢您的反馈意见!

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

×