如果在 Microsoft Dynamics NAV 中从客户卡创建销售订单，则销售订单中的“付款折扣 %”字段为零

应用对象
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1

快速发布文章直接从MICROSOFT支持组织内部提供信息。 此处包含的信息是针对新出现或独特的主题创建的，或旨在补充其他知识库信息。

本文适用于所有国家/地区和所有语言区域设置的 Microsoft Dynamics NAV。

症状

请考虑以下情形。 Microsoft Dynamics NAV 2009 中提供了客户的付款期限代码。 从客户卡创建销售订单。 在此方案中，销售订单标头中的“付款折扣 %”字段为零。 此外，如果稍后过帐销售订单，则不会计算付款折扣。

解决方法

修补程序信息

Microsoft现在提供了受支持的修补程序。 但是，它仅用于更正本文中所述的问题。 仅将其应用于遇到此特定问题的系统。 此修补程序可能会收到其他测试。 因此，如果你没有受到此问题的严重影响，我们建议你等待下一个Microsoft Dynamics NAV 2009 Service Pack 或包含此修补程序的下一Microsoft Dynamics NAV 版本。

注意 在特殊情况下，如果 Microsoft Dynamics 和相关产品的技术支持专业人员确定特定更新将解决你的问题，则通常由支持呼叫产生的费用可能会被取消。 对于相关特定升级无法解决的其他支持问题和事项，将照常收取支持费用。

          

安装信息

Microsoft 的编程示例仅用于说明，不做任何明示或暗示的保证。 这包括但不限于特定用途的适销性或适用性的隐含保证。 本文假定你熟悉所演示的编程语言以及用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释特定过程的功能，但他们不会修改这些示例以提供新增功能或构建步骤以满足你的特定需要。

注意 在安装此修补程序之前，请验证所有 Microsoft Navision 客户端用户是否已从系统注销。 这包括 Microsoft Navision Application Services (NAS) 客户端用户。 实现此修补程序时，应是唯一登录的客户端用户。

若要实现此修补程序，必须具有开发人员许可证。

建议为 Windows 登录窗口或数据库登录名窗口中的用户帐户分配“SUPER”角色 ID。 如果无法为用户帐户分配“SUPER”角色 ID，则必须验证该用户帐户是否具有以下权限：

  • 要更改的 对象的“修改”权限。
  • 系统对象 ID 5210 对象和系统对象 ID 9015 对象的 Execute 权限。

                
注意 除非必须执行数据修复，否则您不必拥有数据存储的权限。

代码更改

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

若要安装此代码修复，请将 Sales Header 表 (36) 中的代码更改为“购买标头”表中 (38) ，如下所示。

注意 以下步骤指示您必须对 36) (Sales Header 表所做的更改。 必须对 38) (“购买标头”表进行相同的更改。

  1. 添加新的全局变量：

    名称：UpdateDocumentDate
    数据类型：布尔值

  2. 在“帐单给客户编号。 - OnValidate () “ 函数，按如下所示更改代码。

    现有代码 1

    …
IF NOT SkipBillToContact THEN
  "Bill-to Contact" := Cust.Contact;
"Payment Terms Code" := Cust."Payment Terms Code";
IF "Document Type" = "Document Type"::"Credit Memo" THEN BEGIN
…

    替换代码 1

    …
IF NOT SkipBillToContact THEN
  "Bill-to Contact" := Cust.Contact;
"Payment Terms Code" := Cust."Payment Terms Code";
"Prepmt. Payment Terms Code" := Cust."Payment Terms Code";
IF "Document Type" = "Document Type"::"Credit Memo" THEN BEGIN
…

    现有代码 2

    …
  DATABASE::"Customer Template","Bill-to Customer Template Code");
VALIDATE("Payment Terms Code");
VALIDATE("Payment Method Code");
VALIDATE("Currency Code");
IF (xRec."Sell-to Customer No." = "Sell-to Customer No.") AND
…

    替换代码 2

    …
  DATABASE::"Customer Template","Bill-to Customer Template Code");
VALIDATE("Payment Terms Code");
VALIDATE("Prepmt. Payment Terms Code");
VALIDATE("Payment Method Code");
VALIDATE("Currency Code");
IF (xRec."Sell-to Customer No." = "Sell-to Customer No.") AND
…

  3. 在“付款条款代码 - OnValidate () ”函数中，更改代码，如下所示。

    现有代码

    IF ("Payment Terms Code" <> '') AND ("Document Date" <> 0D) THEN BEGIN
  PaymentTerms.GET("Payment Terms Code");
  IF (("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND
      NOT PaymentTerms."Calc. Pmt. Disc. on Cr. Memos")
  THEN BEGIN
    VALIDATE("Due Date","Document Date");
    VALIDATE("Pmt. Discount Date",0D);
    VALIDATE("Payment Discount %",0);
  END ELSE BEGIN
    "Due Date" := CALCDATE(PaymentTerms."Due Date Calculation","Document Date");
    "Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
  IF xRec."Document Date"="Document Date" THEN
     VALIDATE("Payment Discount %",PaymentTerms."Discount %")
  END;
END ELSE BEGIN
  VALIDATE("Due Date","Document Date");
IF xRec."Document Date"="Document Date" THEN BEGIN
  VALIDATE("Pmt. Discount Date",0D);
  VALIDATE("Payment Discount %",0);
END;
…

    替换代码

    IF ("Payment Terms Code" <> '') AND ("Document Date" <> 0D) THEN BEGIN
  PaymentTerms.GET("Payment Terms Code");
  IF (("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND
      NOT PaymentTerms."Calc. Pmt. Disc. on Cr. Memos")
  THEN BEGIN
    VALIDATE("Due Date","Document Date");
    VALIDATE("Pmt. Discount Date",0D);
    VALIDATE("Payment Discount %",0);
  END ELSE BEGIN
    "Due Date" := CALCDATE(PaymentTerms."Due Date Calculation","Document Date");
    "Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
    IF NOT UpdateDocumentDate THEN
     VALIDATE("Payment Discount %",PaymentTerms."Discount %")
  END;
END ELSE BEGIN
  VALIDATE("Due Date","Document Date");
IF NOT UpdateDocumentDate THEN BEGIN
  VALIDATE("Pmt. Discount Date",0D);
  VALIDATE("Payment Discount %",0);
END;
…

  4. 在“Document Date - OnValidate () ”函数中，更改代码，如下所示。

    现有代码

    VALIDATE("Payment Terms Code");
VALIDATE("Prepmt. Payment Terms Code");

    替换代码

    IF xRec."Document Date" <> "Document Date" THEN
  UpdateDocumentDate := TRUE;
VALIDATE("Payment Terms Code");
VALIDATE("Prepmt. Payment Terms Code");

  5. 在“Prepmt.付款条款代码 - OnValidate () “函数，更改代码，如下所示。

    现有代码

    …
  END ELSE BEGIN
    "Prepayment Due Date" := CALCDATE(PaymentTerms."Due Date Calculation","Document Date");
    "Prepmt. Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
    VALIDATE("Prepmt. Payment Discount %",PaymentTerms."Discount %")
  END;
END ELSE BEGIN
  VALIDATE("Prepayment Due Date","Document Date");
  VALIDATE("Prepmt. Pmt. Discount Date",0D);
  VALIDATE("Prepmt. Payment Discount %",0);
END;

    替换代码

    …
  END ELSE BEGIN
    "Prepayment Due Date" := CALCDATE(PaymentTerms."Due Date Calculation","Document Date");
    "Prepmt. Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
    IF NOT UpdateDocumentDate THEN
      VALIDATE("Prepmt. Payment Discount %",PaymentTerms."Discount %")
  END;
END ELSE BEGIN
  VALIDATE("Prepayment Due Date","Document Date");
  IF NOT UpdateDocumentDate THEN BEGIN
    VALIDATE("Prepmt. Pmt. Discount Date",0D);
    VALIDATE("Prepmt. Payment Discount %",0);
  END;
END;

先决条件

若要安装此 codefix，必须安装以下产品之一：

  • Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV SP1

重启信息

应用此代码修复后，无需重新启动计算机。

状态

Microsoft 已确认在 "适用于" 部分中所列的 Microsoft 产品中存在问题。

详细信息

MICROSOFT和/或其供应商不就此网站上发布的文档和相关图形中包含的信息的适用性、可靠性或准确性作出任何声明或保证， (“材料”) 出于任何目的。

这些材料可能包含技术不准确或排版错误，可随时修订，不另行通知。 在适用法律允许的最大范围内，MICROSOFT和/或其供应商否认并排除所有明示、默示或法定的陈述、保证和条件，包括但不限于与材料有关的所有权、不侵权、令人满意的条件或质量、适销性和特定用途适用性的陈述、保证或条件。