使用 Microsoft 登录
登录或创建帐户。
你好，
使用其他帐户。
你有多个帐户
选择要登录的帐户。

症状

供应商的合作伙伴类型字段的默认值为零 （空） 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执行权限

    对象。

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

代码更改

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

若要解决此问题，请执行以下步骤：

  1. 更改事务处理模式表 (11000004) 中的CheckTransModePartnerType函数中的代码，如下所示︰
    现有代码

    ...END;
    END;

    // Delete the following lines.
    PROCEDURE CheckTransModePartnerType@1000001(TransactionModeCode@1000001 : Code[20];PartnerType@1000002 : ' ,Company,Person') : Boolean;
    VAR
    TransationMode@1000000 : Record 11000004;
    BEGIN
    IF TransactionModeCode <> '' THEN BEGIN
    // End of the deleted lines.

    SETRANGE(Code,TransactionModeCode);
    FINDFIRST;
    IF PartnerType <> "Partner Type" THEN
    ...

    替换代码

    ...END;
    END;

    // Add the following lines.
    PROCEDURE CheckTransModePartnerType@1000001(AccountType@1000003 : 'Customer,Vendor';TransactionModeCode@1000001 : Code[20];PartnerType@1000002 : ' ,Company,Person') : Boolean;
    VAR
    TransationMode@1000000 : Record 11000004;
    BEGIN
    IF TransactionModeCode <> '' THEN BEGIN
    SETRANGE("Account Type",AccountType);
    // End of the added lines.

    SETRANGE(Code,TransactionModeCode);
    FINDFIRST;
    IF PartnerType <> "Partner Type" THEN
    ...

  2. 更改属性中 (18) 中的客户表中的代码，如下所示︰
    现有代码 1

    ...END;

    OnModify=VAR
    TransactionMode@1000000 : Record 11000004;
    BEGIN
    "Last Date Modified" := TODAY;
    ...

    替换代码 1

    ...END;

    OnModify=VAR

    // Add the following line.
    AccountType@1000001 : 'Customer,Vendor';
    // End of the added line.

    TransactionMode@1000000 : Record 11000004;
    BEGIN
    "Last Date Modified" := TODAY;
    ...

    现有代码 2

    ...(Contact <> xRec.Contact) OR
    ("Partner Type" <> xRec."Partner Type")
    THEN BEGIN

    // Delete the following line.
    IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
    // End of the deleted line.

    ERROR(PartnerTypeMismatchErr);
    MODIFY;
    UpdateContFromCust.OnModify(Rec);
    ...

    替换代码 2

    ...(Contact <> xRec.Contact) OR
    ("Partner Type" <> xRec."Partner Type")
    THEN BEGIN

    // Add the following line.
    IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Customer,"Transaction Mode Code","Partner Type") THEN
    // End of the added line.

    ERROR(PartnerTypeMismatchErr);
    MODIFY;
    UpdateContFromCust.OnModify(Rec);
    ...

  3. 更改字段中 (18) 中的客户表中的代码，如下所示︰
    现有代码

    ...CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order),
    Sell-to Customer No.=FIELD(No.))) }
    { 132 ;   ;Partner Type        ;Option        ;OnValidate=VAR

    // Delete the following lines.
    TransactionMode@1000000 : Record 11000004;
    BEGIN
    IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
    // End of the deleted lines.

    IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
    ERROR('')
    END;
    ...

    替换代码

    ...CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order),
    Sell-to Customer No.=FIELD(No.))) }
    { 132 ;   ;Partner Type        ;Option        ;OnValidate=VAR

    // Add the following lines.
    AccountType@1000001 : 'Customer,Vendor';
    TransactionMode@1000000 : Record 11000004;
    BEGIN
    IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Customer,"Transaction Mode Code","Partner Type") THEN
    // End of the added lines.                                                             

    IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
    ERROR('')
    END;
    ...

  4. 更改属性中 (23) 中的供应商表中的代码，如下所示︰
    现有代码 1

    ...END;

    OnModify=VAR
    TransactionMode@1000000 : Record 11000004;
    BEGIN
    "Last Date Modified" := TODAY;
    ...

    替换代码 1

    ...END;

    OnModify=VAR

    // Add the following line.
    AccountType@1000001 : 'Customer,Vendor';
    // End of the added line.

    TransactionMode@1000000 : Record 11000004;
    BEGIN
    "Last Date Modified" := TODAY;
    ...

    现有代码 2

    ...("Home Page" <> xRec."Home Page") OR
    ("Partner Type" <> xRec."Partner Type")
    THEN BEGIN

    // Delete the following line.
    IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
    // End of the deleted line.

    ERROR(PartnerTypeMismatchErr);
    MODIFY;
    UpdateContFromVend.OnModify(Rec);
    ...

    替换代码 2

    ...("Home Page" <> xRec."Home Page") OR
    ("Partner Type" <> xRec."Partner Type")
    THEN BEGIN

    // Add the following line.
    IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Vendor,"Transaction Mode Code","Partner Type") THEN
    // End of the added line.

    ERROR(PartnerTypeMismatchErr);
    MODIFY;
    UpdateContFromVend.OnModify(Rec);
    ...

  5. 更改字段中 (23) 中的供应商表中的代码，如下所示︰
    现有代码

    ...CalcFormula=Count("Purchase Header Archive" WHERE (Document Type=CONST(Order),
    Buy-from Vendor No.=FIELD(No.))) }
    { 132 ;   ;Partner Type        ;Option        ;OnValidate=VAR

    // Delete the following lines.
    TransactionMode@1000000 : Record 11000004;
    BEGIN
    IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
    IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
    ERROR('')
    END;

    OptionString=,Company,Person }
    // End of the deleted lines.

    { 5049;   ;Primary Contact No. ;Code20        ;TableRelation=Contact;
    OnValidate=VAR
    Cont@1001 : Record 5050;
    ...

    替换代码

    ...CalcFormula=Count("Purchase Header Archive" WHERE (Document Type=CONST(Order),
    Buy-from Vendor No.=FIELD(No.))) }
    { 132 ;   ;Partner Type        ;Option        ;OnValidate=VAR

    // Add the following lines.
    AccountType@1000001 : 'Customer,Vendor';
    TransactionMode@1000000 : Record 11000004;
    BEGIN
    IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Vendor,"Transaction Mode Code","Partner Type") THEN
    IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
    ERROR('')
    END;

    OptionString=[ ,Company,Person] }
    // End of the added lines.

    { 5049;   ;Primary Contact No. ;Code20        ;TableRelation=Contact;
    OnValidate=VAR
    Cont@1001 : Record 5050;
    ...

系统必备组件

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

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

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

此外，您必须有 SEPA 新版MSDNAV2009sp1SEPANLdebit安装。

删除信息

您不能删除此修补程序。

状态

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

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

订阅 RSS 源

需要更多帮助?

需要更多选项?

发现 社区

了解订阅权益、浏览培训课程、了解如何保护设备等。

Microsoft 365 订阅权益

Microsoft 365 培训

Microsoft 安全性

辅助功能中心

社区可帮助你提出和回答问题、提供反馈，并听取经验丰富专家的意见。

咨询 Microsoft 社区

Microsoft 技术社区

Windows 预览体验成员

Microsoft 365 预览体验

此信息是否有帮助?

你对语言质量的满意程度如何?
哪些因素影响了你的体验?
按“提交”即表示你的反馈将用于改进 Microsoft 产品和服务。 你的 IT 管理员将能够收集此数据。 隐私声明。

谢谢您的反馈！

×