在意大利版 Microsoft Dynamics NAV 中过帐预扣税发票付款时，不会收到任何警告

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

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

本文适用于) 语言区域设置的意大利语 (的 Microsoft Dynamics NAV。

症状

假设你有一张发票，其中包含意大利版 Microsoft Dynamics NAV 中的预扣税。 在不使用 Withh 的情况下过帐发票付款时。 Tax-Soc。用于计算预扣税的 Sec. 函数，Microsoft Dynamics NAV 过账付款。 但是，此帖子不正确。 应会收到一条警告消息，通知你使用 Withh。 Tax-Soc。如果在未计算预缴税金的情况下过帐预扣税发票付款，则为 Sec. 函数。

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

  • Microsoft Dynamics NAV 2009 SP1 的意大利版本
  • Microsoft Dynamics NAV 5.0 SP1 的意大利版本
  • Microsoft Dynamics NAV 5.0 的意大利版本

解决方法

修补程序信息

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

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

            
          

安装信息

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

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

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

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

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

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

代码更改

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

若要安装此修补程序，请在 Gen 中更改 中的代码。 Jnl.-Post Line codeunit (12) 如下所示。
请按以下步骤完成此操作：

  1. 在“ 视图 ”菜单上，单击“ C/AL 全局”，然后在“ 测试常量 ”选项卡上添加以下内容：

    • 名称：Text1130023
    • ConstValue：发票包含预扣税不应直接应用。 请使用函数付款日记帐 -> 付款 -> Withh.Tax-Soc.Sec.

  2. 更改 ApplyVendLedgEntry 触发器中的代码，如下所示：
    现有代码 1

    ...

IF GenJnlLine."Applies-to Doc. No." <> '' THEN BEGIN
// Find the entry to be applied to
OldVendLedgEntry.RESET;
OldVendLedgEntry.SETCURRENTKEY("Document Type","Document No.","Document Occurrence","Vendor No.");
...

    替换代码 1

    ...

IF GenJnlLine."Applies-to Doc. No." <> '' THEN BEGIN
CheckWithholdTax(GenJnlLine."Applies-to Doc. Type",GenJnlLine."Applies-to Doc. No.",GenJnlLine,TRUE); // Add this line. 
// Find the entry to be applied to
OldVendLedgEntry.RESET;
OldVendLedgEntry.SETCURRENTKEY("Document Type","Document No.","Document Occurrence","Vendor No.");
...

    现有代码 2

    ...

OldVendLedgEntry.SETFILTER("Amount to Apply",'<>%1',0);

//Check and Move Ledger Entries to Temp
IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
REPEAT
IF GenJnlApply.CheckAgainstApplnCurrency(
....

    替换代码 2

    ...

OldVendLedgEntry.SETFILTER("Amount to Apply",'<>%1',0);

//Check and Move Ledger Entries to Temp
IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
REPEAT
CheckWithholdTax(OldVendLedgEntry."Document Type",OldVendLedgEntry."Document No.",GenJnlLine,FALSE); // Add this line. 
IF GenJnlApply.CheckAgainstApplnCurrency(
...

  3. 在“ 视图 ”菜单上，单击“ C/AL 全局”，然后在“ 函数 ”选项卡上添加以下信息：

    1. 在“ 名称 ”框中，键入 CheckWithholdTax。

    2. 单击“ 本地”。

    3. 在“ 参数 ”选项卡上，指定以下设置：
      对于第一个参数：

      • Var： 否
      • 名称：DocType
      • DataType： 选项
      • 在“ 视图 ”菜单上，单击“ 属性”，添加 OptionString 属性的值：、、发票、信用单

      对于第二个参数：

      • Var： 否
      • 名称：DocNo
      • DataType： 代码
      • 长度： 20

      对于第三个参数：

      • Var： 否
      • 名称：GenJnlLine
      • DataType： Record
      • 子类型：Gen。 日记帐行

      对于第四个参数：

      • Var： 否
      • 名称：ApplyInGenJnlLine
      • DataType： 布尔值

    4. 在“ 变量 ”选项卡上，指定以下设置：
      对于第一个变量：

      • 名称 ：ComputedWithholdTax
      • DataType ： Record
      • 子类型 ：计算预扣税

      对于第二个变量：

      • 名称 ：TmpWithholdingContribution
      • DataType ： Record
      • 子类型 ：Tmp 扣留贡献

      对于第三个变量：

      • 名称 ：WithholdCode
      • DataType ： Record
      • 子类型 ：保留代码

  4. 按如下所示添加新触发器“CheckWithholdTax”：

    CheckWithholdTax(DocType : ',,Invoice,Credit Memo';DocNo : Code[20];GenJnlLine : Record "Gen. Journal Line";ApplyInGenJnlLine : Boolean )

IF DocType IN [DocType::Invoice,DocType::"Credit Memo"] THEN BEGIN
ComputedWithholdTax.RESET;
ComputedWithholdTax.SETRANGE("Document No.",DocNo);
IF ComputedWithholdTax.FINDFIRST THEN BEGIN
IF NOT ApplyInGenJnlLine THEN
ERROR(Text1130023)
ELSE BEGIN
TmpWithholdingContribution.RESET;
TmpWithholdingContribution.SETRANGE("Invoice No.",DocNo);
IF NOT TmpWithholdingContribution.FINDFIRST THEN BEGIN
WithholdCode.GET(ComputedWithholdTax."Withholding Tax Code");
WithholdCode.TESTFIELD("Withholding Taxes Payable Acc.");
IF NOT((GenJnlLine."Bal. Account Type" = GenJnlLine."Bal. Account Type"::"G/L Account") AND
(GenJnlLine."Bal. Account No." = WithholdCode."Withholding Taxes Payable Acc.")) THEN
ERROR(Text1130023);
END;
END;
END;
END;

先决条件

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

  • Microsoft Dynamics NAV 2009 SP1 的意大利版本
  • Microsoft Dynamics NAV 5.0 SP1 的意大利版本
  • Microsoft Dynamics NAV 5.0 的意大利版本

删除信息

无法删除此修补程序。

状态

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

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

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