在东欧版本的 Microsoft Dynamics NAV 2009 R2 中交付和开具包含预付款的销售订单时出现“发货数量不能超过 0,9”错误消息

应用对象

Microsoft Dynamics NAV 2009 R2

本文适用于东欧 (EE Microsoft Dynamics NAV) 语言区域设置。

症状

假设在 Microsoft Dynamics NAV 2009 R2 的东欧版本中应用修补程序2672643。您为包含预付款的销售订单发布预付费信。在这种情况下，在发货和开票销售订单时，会收到以下错误消息：

注意

交付数量不能超过 0,9。 in Sales Line Document Type='Order'，Document No.='Number'，Line No.='Number'.

因此，无法过帐销售订单。
有关修补程序2672643的详细信息，请单击下面的文章编号以查看Microsoft知识库中的文章：

2672643 “在东欧版本的 Microsoft Dynamics NAV 2009 R2 中过帐销售订单的部分发货时，出现”订单上未过帐的预付款金额 [编号]“错误消息

解决方法

修补程序信息

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

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

安装信息

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

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

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

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

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

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

代码更改

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

将 Prepmt Amt 中的代码更改为“Sales Line”表中的“扣除 - OnValidate”触发器， (37) 如下所示：
现有代码

...
"Prepmt Amt to Deduct",
STRSUBSTNO(Text045,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Delete the following line. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
...

替换代码

...
"Prepmt Amt to Deduct",
STRSUBSTNO(Text045,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Add the following lines. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
VATPostingSetup.TESTFIELD("Adv. Invoice Correction Type",VATPostingSetup."Adv. Invoice Correction Type"::Percentage);
END;
// End of the added lines. 
...

更改“Sales Line”表中 CalcPrepaymentToDeduct 函数中的代码 (37) ，如下所示：

删除以下局部变量：

PrepmtPct: Decimal;
AbsoluteAdvCorrection : Boolean;

更改代码，如下所示：
现有代码

...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Delete the following lines. 
AbsoluteAdvCorrection :=
VATPostingSetup."Adv. Invoice Correction Type" = VATPostingSetup."Adv. Invoice Correction Type"::Absolute;
IF AbsoluteAdvCorrection THEN BEGIN
PrepmtPct := "Prepayment %";
"Prepayment %" := 100;
END;
END;
IF SalesHeader."Prices Including VAT" THEN
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
("Prepayment %" / 100) / (1 + ("VAT %" / 100)),Currency."Amount Rounding Precision") *
(1 + ("VAT %" / 100)),Currency."Amount Rounding Precision")
ELSE
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
"Prepayment %" / 100 ,Currency."Amount Rounding Precision");
IF AbsoluteAdvCorrection THEN BEGIN
"Prepayment %" := PrepmtPct;
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the deleted lines.
...

替换代码

...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Add the following lines. 
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
("Prepmt. Amt. Inv." - "Prepmt Amt Deducted"),Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT",100);
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted"
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the added lines. 
...

在“Sales Line”表中创建新的 PrepmtAmtToDeduct 函数， (37) 如下所示：

PROCEDURE PrepmtAmtToDeduct@1470002(PricesIncludingVAT@1470000 : Boolean;PrepaymentPct@1470001 : Decimal) : Decimal;
VAR
VATPct@1470002 : Decimal;
BEGIN
IF PricesIncludingVAT THEN
VATPct := "VAT %"
ELSE
VATPct := 0;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / (1 + (VATPct / 100)),Currency."Amount Rounding Precision") *
(1 + (VATPct / 100)),Currency."Amount Rounding Precision"));
END;

将 Prepmt Amt 中的代码更改为“购买行”表中的“扣除 - OnValidate”触发器， (39) 如下所示：
现有代码

...
FIELDERROR(
"Prepmt Amt to Deduct",
STRSUBSTNO(Text039,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Delete the following line. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
...

替换代码

...
FIELDERROR(
"Prepmt Amt to Deduct",
STRSUBSTNO(Text039,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Add the following lines. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
VATPostingSetup.TESTFIELD("Adv. Invoice Correction Type",VATPostingSetup."Adv. Invoice Correction Type"::Percentage);
END;
// End of the added lines. 
...

更改“购买行”表中的 CalcPrepaymentToDeduct 函数中的代码 (39) 。请按以下步骤完成此操作：

删除以下局部变量：

PrepmtPct@ : Decimal;
AbsoluteAdvCorrection@ : Boolean;

更改代码，如下所示：
现有代码

...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Delete the following lines. 
AbsoluteAdvCorrection :=
VATPostingSetup."Adv. Invoice Correction Type" = VATPostingSetup."Adv. Invoice Correction Type"::Absolute;
IF AbsoluteAdvCorrection THEN BEGIN
PrepmtPct := "Prepayment %";
"Prepayment %" := 100;
END;
END;
IF PurchHeader."Prices Including VAT" THEN
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
("Prepayment %" / 100) / (1 + ("VAT %" / 100)),Currency."Amount Rounding Precision") *
(1 + ("VAT %" / 100)),Currency."Amount Rounding Precision")
ELSE
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
"Prepayment %" / 100,Currency."Amount Rounding Precision");
IF AbsoluteAdvCorrection THEN BEGIN
"Prepayment %" := PrepmtPct;
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the deleted lines.
...

替换代码

...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Add the following lines. 
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
("Prepmt. Amt. Inv." - "Prepmt Amt Deducted"),Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT",100);
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted"
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the added lines. 
...

在“购买行”表中创建新的 PrepmtAmtToDeduct 函数， (39) 如下所示：

PROCEDURE PrepmtAmtToDeduct@1470002(PricesIncludingVAT@1470000 : Boolean;PrepaymentPct@1470001 : Decimal) : Decimal;
VAR
VATPct@1470002 : Decimal;
BEGIN
IF PricesIncludingVAT THEN
VATPct := "VAT %"
ELSE
VATPct := 0;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / (1 + (VATPct / 100)),Currency."Amount Rounding Precision") *
(1 + (VATPct / 100)),Currency."Amount Rounding Precision"));
END;

将“Sales-Post”代码单元中的 OnRun 触发器中的代码 (80) 更改，如下所示：
现有代码

...
ItemJnlRollRndg := FALSE;
LineCount := LineCount + 1;
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
SalesLine."VAT Date" := "VAT Date";
IF SalesLine.Type = SalesLine.Type::"Charge (Item)" THEN BEGIN
SalesLine.TESTFIELD(Amount);
SalesLine.TESTFIELD("Job No.",'');
SalesLine.TESTFIELD("Job Contract Entry No.",0);
END;
...

替换代码

...
ItemJnlRollRndg := FALSE;
LineCount := LineCount + 1;
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
SalesLine."VAT Date" := "VAT Date";

// Add the following lines. 
IF Invoice THEN
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN
TestPrepmtAmount;
// End of the added lines. 

IF SalesLine.Type = SalesLine.Type::"Charge (Item)" THEN BEGIN
SalesLine.TESTFIELD(Amount);
SalesLine.TESTFIELD("Job No.",'');
SalesLine.TESTFIELD("Job Contract Entry No.",0);
END;
...

在“Sales-Post”代码单元 (80) 中创建新的 TestPrepmtAmount 函数，如下所示：

PROCEDURE TestPrepmtAmount@1470003();
VAR
AllowedQtyToShip@1470000 : Decimal;
SalesAdvLetterHeader@1470001 : Record 26585;
BEGIN
WITH SalesLine DO BEGIN
IF ("Prepmt. Line Amount" = 0) OR (Quantity = 0) THEN
EXIT;
SalesAdvLetterHeader.SETRANGE("Order No.","Document No.");
IF NOT SalesAdvLetterHeader.ISEMPTY THEN BEGIN
AllowedQtyToShip :=
ROUND(
("Line Amount" - "Prepmt. Line Amount" + "Prepmt. Amt. Inv.") /
"Line Amount" * Quantity - "Quantity Invoiced",0.00001);
IF "Qty. to Ship" > AllowedQtyToShip THEN
FIELDERROR("Qty. to Ship",STRSUBSTNO(Text047,AllowedQtyToShip));
END;
END;
END;

将“Purch.-Post”代码单元中的 OnRun 触发器中的代码 (90) 如下所示：
现有代码

...
IF GUIALLOWED THEN
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
PurchLine."VAT Date" := "VAT Date";
IF Invoice THEN
TestPrepmtAmount;
IF PurchLine.Type = PurchLine.Type::"Charge (Item)" THEN BEGIN
PurchLine.TESTFIELD(Amount);
PurchLine.TESTFIELD("Job No.",'');
END;
...

替换代码

...
IF GUIALLOWED THEN
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
PurchLine."VAT Date" := "VAT Date";
IF Invoice THEN

// Add the following line.
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN

TestPrepmtAmount;
IF PurchLine.Type = PurchLine.Type::"Charge (Item)" THEN BEGIN
PurchLine.TESTFIELD(Amount);
PurchLine.TESTFIELD("Job No.",'');
END;
...

删除 TestPrepmtAmount 函数，并在“Sales-Post”代码单元 (80) 再次创建它，如下所示：

LOCAL PROCEDURE TestPrepmtAmount@55();
VAR
AllowedQtyToReceive@1470000 : Decimal;
PurchAdvLetterHeader@147001 : Record 26587;
BEGIN
WITH PurchLine DO BEGIN
IF ("Prepmt. Line Amount" = 0) OR (Quantity = 0) THEN
EXIT;

PurchAdvLetterHeader.SETRANGE("Order No.","Document No.");
IF NOT PurchAdvLetterHeader.ISEMPTY THEN BEGIN
AllowedQtyToReceive :=
ROUND(
("Line Amount" - "Prepmt. Line Amount" + "Prepmt. Amt. Inv.") /
"Line Amount" * Quantity - "Quantity Invoiced",0.00001);
IF "Qty. to Receive" > AllowedQtyToReceive THEN
FIELDERROR("Qty. to Receive",STRSUBSTNO(Text047,AllowedQtyToReceive));
END;
END;
END;

更改“审批管理”代码单元 (439) TestSalesPrepayment 函数中的代码，如下所示：
现有代码

...
SalesLines.SETRANGE("Document Type",SalesHeader."Document Type");
SalesLines.SETRANGE("Document No.",SalesHeader."No.");
SalesLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF SalesLines.FIND('-') THEN BEGIN
REPEAT
...

替换代码

...
// Add the following lines.
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN
EXIT(IsNotInvoicedSalesAdvLetter(SalesHeader."No."));
// End of the added lines. 

SalesLines.SETRANGE("Document Type",SalesHeader."Document Type");
SalesLines.SETRANGE("Document No.",SalesHeader."No.");
SalesLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF SalesLines.FIND('-') THEN BEGIN
REPEAT
...

更改“审批管理”代码单元 (439) TestPurchasePrepayment 函数中的代码，如下所示：
现有代码

...
PurchaseLines.SETRANGE("Document Type",PurchaseHeader."Document Type");
PurchaseLines.SETRANGE("Document No.",PurchaseHeader."No.");
PurchaseLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF PurchaseLines.FIND('-') THEN BEGIN
REPEAT
...

替换代码

...
// Add the following lines.
IF PurchaseHeader."Prepayment Type" = PurchaseHeader."Prepayment Type"::Advance THEN
EXIT(IsNotInvoicedPurchAdvLetter(PurchaseHeader."No."));
// End of the added lines. 

PurchaseLines.SETRANGE("Document Type",PurchaseHeader."Document Type");
PurchaseLines.SETRANGE("Document No.",PurchaseHeader."No.");
PurchaseLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF PurchaseLines.FIND('-') THEN BEGIN
REPEAT
...

在“审批管理”代码单元 (439) 中创建新的 IsNotInvoicedSalesAdvLetter 本地函数，如下所示：

LOCAL PROCEDURE IsNotInvoicedSalesAdvLetter@38(SalesOrderNo@1170000000 : Code[30]) : Boolean;
VAR
SalesAdvLetterHeader@1001 : Record 26585;
SalesAdvLetterLine@1002 : Record 26586;
BEGIN
WITH SalesAdvLetterHeader DO BEGIN
SETRANGE("Order No.",SalesOrderNo);
IF FIND('-') THEN
REPEAT
SalesAdvLetterLine.SETRANGE("Letter No.","No.");
IF SalesAdvLetterLine.FIND('-') THEN
REPEAT
IF SalesAdvLetterLine."Amount Including VAT" <> SalesAdvLetterLine."Amount Invoiced" THEN
EXIT(TRUE);
UNTIL SalesAdvLetterLine.NEXT = 0;
UNTIL NEXT = 0;
END;
END;

在“审批管理”代码单元 (439) 创建新的 IsNotInvoicedPurchAdvLetter 本地函数，如下所示：

LOCAL PROCEDURE IsNotInvoicedPurchAdvLetter@39(PurchOrderNo@1170000000 : Code[30]) : Boolean;
VAR
PurchAdvLetterHeader@1001 : Record 26587;
PurchAdvLetterLine@1002 : Record 26588;
BEGIN
WITH PurchAdvLetterHeader DO BEGIN
SETRANGE("Order No.",PurchOrderNo);
IF FIND('-') THEN
REPEAT
PurchAdvLetterLine.SETRANGE("Letter No.","No.");
IF PurchAdvLetterLine.FIND('-') THEN
REPEAT
IF PurchAdvLetterLine."Amount Including VAT" <> PurchAdvLetterLine."Amount Invoiced" THEN
EXIT(TRUE);
UNTIL PurchAdvLetterLine.NEXT = 0;
UNTIL NEXT = 0;
END;
END;

先决条件

必须安装东欧版本的 Microsoft Dynamics NAV 2009 R2 才能应用此修补程序。

删除信息

无法删除此修补程序。

状态

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

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

在东欧版本的 Microsoft Dynamics NAV 2009 R2 中交付和开具包含预付款的销售订单时出现“发货数量不能超过 0,9”错误消息

症状

解决方法

修补程序信息

安装信息

代码更改

先决条件

删除信息

状态

此信息是否有用?

谢谢您的反馈!