不能在“客户销售历史记录”窗体中运行“复制到文档”函数，为在北美版本的 Microsoft D 中选择了“自动生成工具包 BOM”检查框的项目创建销售订单。

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

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

  • 加拿大英语 () (en-ca)
  • 英语 (美国) (en-us)
  • 西班牙语 (墨西哥) (es-mx)
  • 加拿大法语 () (fr-ca)

症状

假设你为北美版 Microsoft Dynamics NAV 2009 中的项选择了“自动生成工具包 BOM 检查”框。 在“客户销售历史记录”窗体中运行 “复制到文档 ”功能为客户创建项的销售订单时，会收到以下错误消息：

注意

销售行中的生成工具包必须为“否”。

以下产品中会出现此问题：

  • Microsoft Dynamics NAV 2009 R2 的北美版本
  • Microsoft Dynamics NAV 2009 Service Pack 1 的北美版本

      

解决方法

修补程序信息

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 权限。

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

代码更改

注意 在将修补程序应用到生产计算机之前，始终在受控环境中测试代码修复。
要解决此问题，请按照下列步骤操作：

  1. 从 Copy Document Mgt. codeunit (6620) 的以下过程中删除 LOCAL 属性，如下所示：
    现有代码 1

    ...
// Delete the following line.
LOCAL PROCEDURE CopyFromKitSalesToLine@1462000(VAR ToSalesLine@1462000 : Record 37;VAR FromSalesLine@1462001 : Record 37);
...

    替换代码 1

    ...
// Add the following line.
PROCEDURE CopyFromKitSalesToLine@1462000(VAR ToSalesLine@1462000 : Record 37;VAR FromSalesLine@1462001 : Record 37);
...

    现有代码 2

    ...
// Delete the following line.LOCAL PROCEDURE CopyFromKitSalesShptToLine@1462001(VAR ToSalesLine@1462000 : Record 37;VAR FromSalesShptLine@1462001 : Record 111);
...

    替换代码 2

    ...
// Add the following line.PROCEDURE CopyFromKitSalesShptToLine@1462001(VAR ToSalesLine@1462000 : Record 37;VAR FromSalesShptLine@1462001 : Record 111);
...

    现有代码 3

    ...
// Delete the following line.LOCAL PROCEDURE CopyFromKitSalesInvToLine@1462002(VAR ToSalesLine@1462000 : Record 37;VAR FromSalesInvLine@1462001 : Record 113);
...

    替换代码 3

    ...
// Add the following line.PROCEDURE CopyFromKitSalesInvToLine@1462002(VAR ToSalesLine@1462000 : Record 37;VAR FromSalesInvLine@1462001 : Record 113);
...

  2. 在 Sales History Copy Line Mgt. codeunit (7172) 的 CopyLinesToDoc 过程中添加以下局部变量，如下所示：

    CopytoKitLine@1015 : Codeunit 6620;
FromSalesInvLine@1018 : Record 113;
FromSalesShptLine@1020 : Record 111;
FromArchiveLine@1021 : Record 5108;

  3. 更改销售历史记录复制行 Mgt. codeunit (7172) CopyLinesToDoc 过程中的代码，如下所示：
    现有代码 1

    ...
FromDocType::"Return Order":
BEGIN
FromSalesHeader.GET(FromSalesLine."Document Type",FromSalesLine."Document No.");
ItemChargeAssgntNextLineNo := 0;
CopyLine(ToSalesHeader,ToSalesLine,FromSalesHeader,FromSalesLine,NextLineNo);

// Delete the following lines. 
IF FromSalesLine.Type = FromSalesLine.Type::"Charge (Item)" THEN
CopyFromSalesDocAssgntToLine(ToSalesLine,FromSalesLine,ItemChargeAssgntNextLineNo);
END;
FromDocType::"Posted Shipment":
BEGIN
FromSalesShptHeader.GET(FromSalesLine."Document No.");
FromSalesHeader.TRANSFERFIELDS(FromSalesShptHeader);
CopyLine(ToSalesHeader,ToSalesLine,FromSalesHeader,FromSalesLine,NextLineNo);
END;
FromDocType::"Posted Invoice":
BEGIN
FromSalesInvHeader.GET(FromSalesLine."Document No.");
FromSalesHeader.TRANSFERFIELDS(FromSalesInvHeader);
CopyLine(ToSalesHeader,ToSalesLine,FromSalesHeader,FromSalesLine,NextLineNo);
// End of the lines.

END;
FromDocType::"Posted Return Order":
BEGIN
...

    替换代码1

    ...
FromDocType::"Return Order":
BEGIN
FromSalesHeader.GET(FromSalesLine."Document Type",FromSalesLine."Document No.");
ItemChargeAssgntNextLineNo := 0;
CopyLine(ToSalesHeader,ToSalesLine,FromSalesHeader,FromSalesLine,NextLineNo);

// Add  the following lines.
IF NOT (FromDocType IN ["Document Type"::"Credit Memo","Document Type"::"Return Order"]) THEN
CopytoKitLine.CopyFromKitSalesToLine(ToSalesLine,FromSalesLine);
IF FromSalesLine.Type = FromSalesLine.Type::"Charge (Item)" THEN BEGIN
CopyFromSalesDocAssgntToLine(ToSalesLine,FromSalesLine,ItemChargeAssgntNextLineNo);
CopytoKitLine.CopyFromKitSalesToLine(ToSalesLine,FromSalesLine);
END;
END;
FromDocType::"Posted Shipment":
BEGIN
FromSalesShptHeader.GET(FromSalesLine."Document No.");
FromSalesShptLine.GET(FromSalesLine."Document No.",FromSalesLine."Line No.");
FromSalesHeader.TRANSFERFIELDS(FromSalesShptHeader);
CopyLine(ToSalesHeader,ToSalesLine,FromSalesHeader,FromSalesLine,NextLineNo);
CopytoKitLine.CopyFromKitSalesShptToLine(ToSalesLine,FromSalesShptLine);
END;
FromDocType::"Posted Invoice":
BEGIN
FromSalesInvHeader.GET(FromSalesLine."Document No.");
FromSalesInvLine.GET(FromSalesLine."Document No.",FromSalesLine."Line No.");
FromSalesHeader.TRANSFERFIELDS(FromSalesInvHeader);
CopyLine(ToSalesHeader,ToSalesLine,FromSalesHeader,FromSalesLine,NextLineNo);
CopytoKitLine.CopyFromKitSalesInvToLine(ToSalesLine,FromSalesInvLine);
// End of the lines.

END;
FromDocType::"Posted Return Order":
BEGIN
...

    现有代码 2

    ...
FromDocType::"Archived Order":
BEGIN
FromSalesArchHeader.GET(FromSalesLine."Document Type",FromSalesLine."Document No.",
DocNoOccurrence,DocVersionNo);

// Delete the following lines.
FromSalesHeader.TRANSFERFIELDS(FromSalesArchHeader);
CopyLine(ToSalesHeader,ToSalesLine,FromSalesHeader,FromSalesLine,NextLineNo);
// End of the lines.

END;
END;
END;
...

    替换代码 2

    ...
FromDocType::"Archived Order":
BEGIN
FromSalesArchHeader.GET(FromSalesLine."Document Type",FromSalesLine."Document No.",
DocNoOccurrence,DocVersionNo);

// Add the following lines.
FromArchiveLine.GET(FromSalesLine."Document Type",FromSalesLine."Document No.",
DocNoOccurrence,DocVersionNo,FromSalesLine."Line No.");
FromSalesHeader.TRANSFERFIELDS(FromSalesArchHeader);
CopyLine(ToSalesHeader,ToSalesLine,FromSalesHeader,FromSalesLine,NextLineNo);
CopyFromKitArchiveToLine(ToSalesLine,FromArchiveLine);
// End of the lines. 

END;
END;
END;
...

  4. 更改销售历史记录复制行 Mgt 中的 CopyLine 过程中的代码， (7172) 如下所示：
    现有代码

    ...
VALIDATE("Variant Code",FromSalesLine."Variant Code");

// Delete the following lines.
VALIDATE("Location Code",FromSalesLine."Location Code");
VALIDATE("Unit of Measure",FromSalesLine."Unit of Measure");
VALIDATE("Unit of Measure Code",FromSalesLine."Unit of Measure Code");
VALIDATE(Quantity,0);
// End of the lines.

IF NOT (FromSalesLine.Type IN [FromSalesLine.Type::Item,FromSalesLine.Type::Resource]) THEN BEGIN
IF (FromSalesHeader."Currency Code" <> ToSalesHeader."Currency Code") OR
...

    替换代码

    ...
VALIDATE("Variant Code",FromSalesLine."Variant Code");

// Add the following lines.
"Location Code" := FromSalesLine."Location Code";
VALIDATE("Unit of Measure",FromSalesLine."Unit of Measure");
VALIDATE("Unit of Measure Code",FromSalesLine."Unit of Measure Code");
VALIDATE(Quantity,0);
Quantity := FromSalesLine.Quantity;
"Qty. to Ship" := FromSalesLine.Quantity;
"Qty. to Invoice" := FromSalesLine.Quantity;
"Line Amount" := FromSalesLine."Line Amount";
"Quantity (Base)" := FromSalesLine.Quantity;
"Qty. to Invoice (Base)" := FromSalesLine.Quantity;
// End of the lines.

IF NOT (FromSalesLine.Type IN [FromSalesLine.Type::Item,FromSalesLine.Type::Resource]) THEN BEGIN
IF (FromSalesHeader."Currency Code" <> ToSalesHeader."Currency Code") OR
...

  5. 在 Sales History Copy Line Mgt. codeunit (7172) 中添加以下本地过程，如下所示：

    LOCAL PROCEDURE CopyFromKitArchiveToLine@7(VAR ToSalesLine@1001 : Record 37;VAR FromArchiveLine@1002 : Record 5108);
VAR
FromKitArchiveLine@1003 : Record 25003;
ToKitArchiveLine@1004 : Record 25003;
ToKitSalesLine@1005 : Record 25000;
BEGIN
IF ToSalesLine."Build Kit" THEN BEGIN
FromKitArchiveLine.RESET;
FromKitArchiveLine.SETRANGE("Document No.",FromArchiveLine."Document No.");
FromKitArchiveLine.SETRANGE("Document Line No.",FromArchiveLine."Line No.");
IF FromKitArchiveLine.FINDSET THEN
REPEAT
ToKitSalesLine.TRANSFERFIELDS(FromKitArchiveLine);
ToKitSalesLine."Document Type" := ToSalesLine."Document Type";
ToKitSalesLine."Document No." := ToSalesLine."Document No.";
ToKitSalesLine."Document Line No." := ToSalesLine."Line No.";
CASE ToKitSalesLine.Type OF
ToKitSalesLine.Type::Item,ToKitSalesLine.Type::Resource:
BEGIN
ToKitSalesLine."Extended Quantity" := ToKitSalesLine."Quantity per" * ToSalesLine."Quantity (Base)";
ToKitSalesLine."Extended Quantity (Base)" := ToKitSalesLine."Quantity per (Base)" * ToSalesLine."Quantity (Base)"
END;
ToKitSalesLine.Type::"Setup Resource":
BEGIN
ToKitSalesLine."Extended Quantity" := ToKitSalesLine."Quantity per";
ToKitSalesLine."Extended Quantity (Base)" := ToKitSalesLine."Quantity per (Base)";
END;
END;
ToKitSalesLine."Outstanding Quantity" := ToKitSalesLine."Extended Quantity";
ToKitSalesLine."Outstanding Qty. (Base)" := ToKitSalesLine."Extended Quantity (Base)";
ToKitSalesLine.INSERT;
UNTIL FromKitArchiveLine.NEXT = 0;
END;
END;

          

先决条件

必须安装以下产品之一才能应用此修补程序：

  • Microsoft Dynamics NAV 2009 R2 的北美版本
  • Microsoft Dynamics NAV 2009 Service Pack 1 的北美版本

删除信息

无法删除此修补程序。

状态

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

注意这是一篇由 Microsoft 支持组织直接创建的“快速发布”文章。 本文所包含的信息是按原样提供的，以应对新出现的问题。 由于发布速度较快，这些材料可能包含印刷错误，无需通知即可随时修改。 有关其他注意事项，请参阅使用条款。