在西班牙语版本的 Microsoft Dynamics NAV 2009 Service Pack 1 中运行 VAT 对账单报表时，不会为模型 320 中的完整增值税交易计算基本金额

应用对象

Dynamics NAV 2009 Service Pack 1

本文适用于西班牙语 (es) 语言区域设置的 Microsoft Dynamics NAV。

症状

在西班牙语版本的 Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) 中运行 VAT 对账单报表时，不会计算模型 320 中完整增值税交易的基金额。

解决方法

修补程序信息

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

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

代码更改

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

将 VAT 对账单报表中的 CalcLineTotal2C 函数中的代码更改为 12) (，如下所示：
现有代码

...
              IF VATStmtLine2."Amount Type" = VATStmtLine2."Amount Type"::"Amount+Base" THEN BEGIN
                VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
                Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");

// Delete the following line.
                 Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");

              END;
              CalculateTotalAmount(VATStmtLine2);
            END;
...

替换代码

...
              IF VATStmtLine2."Amount Type" = VATStmtLine2."Amount Type"::"Amount+Base" THEN BEGIN
                VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
                Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");

// Add the following lines.
                IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN
                   Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr),
                     CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr))
                 ELSE
                   Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
// End of the lines.

              END;
              CalculateTotalAmount(VATStmtLine2);
            END;
...

将 VAT 对账单报表中的 CalcLineTotal 函数中的代码更改为 12) (，如下所示：
现有代码 1

...
                  BEGIN
                    VATEntry.CALCSUMS(Base,Amount,"Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                  END;
                VATStmtLine2."Amount Type"::"Unrealized Amount":
                  BEGIN
...

替换代码 1

...
                  BEGIN
                    VATEntry.CALCSUMS(Base,Amount,"Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");

// Add the following lines.
                     IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN
                       Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr),
                         CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr));
                       Amount := Amount + Base;
                     END;
// End of the lines.

                  END;
                VATStmtLine2."Amount Type"::"Unrealized Amount":
                  BEGIN
...

现有代码 2

...
                  END;
               VATStmtLine2."Amount Type"::"Amount+Base":
                 BEGIN

// Delete the following lines.
                   VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base");
                   IF VATPostSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group") THEN BEGIN
                     IF VATPostSetup."VAT+EC %" <> 0 THEN BEGIN
                       VATAmount := (VATEntry.Amount / VATPostSetup."VAT+EC %") * VATEntry."VAT %";
                       VATAmountAC := (VATEntry."Additional-Currency Amount" / VATPostSetup."VAT+EC %")* VATEntry."VAT %";
                      END;
                      Amount := ConditionalAdd(0,VATAmount,VATAmountAC);
                  END;
                   Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                   Amount := Amount + Base;
// End of the lines.

                END;

              END;
...

替换代码 2

...
                  END;
               VATStmtLine2."Amount Type"::"Amount+Base":
                 BEGIN

// Add the following lines.
                    VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN
                      Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr),
                        CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr))
                    ELSE
                      Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                    Amount := Amount + Base;
// End of the lines.

                END;

              END;
...

现有代码 3

...
                   BEGIN
                    VATEntry.CALCSUMS(Base,"Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                  END;
                VATStmtLine2."Amount Type"::"Unrealized Amount":
                  BEGIN
...

替换代码 3

...
                  BEGIN
                    VATEntry.CALCSUMS(Base,"Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");

// Add the following lines.
                     IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN
                       Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr),
                         CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr));
                       Amount := Amount + Base;
                     END;
// End of the lines.

                  END;
                VATStmtLine2."Amount Type"::"Unrealized Amount":
                  BEGIN
...

现有代码 4

...
                  END;
               VATStmtLine2."Amount Type"::"Amount+Base":
                 BEGIN

// Delete the following lines.
                   VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base");
                   IF VATPostSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group") THEN BEGIN
                     IF VATPostSetup."VAT+EC %" <> 0 THEN BEGIN
                       VATAmount := (VATEntry.Amount / VATPostSetup."VAT+EC %") * VATEntry."EC %";
                       VATAmountAC := (VATEntry."Additional-Currency Amount" / VATPostSetup."VAT+EC %")* VATEntry."EC %";
                     END;
                     Amount := ConditionalAdd(0,VATAmount,VATAmountAC);
                   END;
                   Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                   Amount := Amount + Base;
                 END;
// End of the lines.

              END;
...

替换代码 4

...
                  END;
               VATStmtLine2."Amount Type"::"Amount+Base":
                 BEGIN

// Add the following lines.
                    VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN
                      Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,FALSE),
                        CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",FALSE))
                    ELSE
                      Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                    Amount := Amount + Base;
                  END
// End of the lines.

              END;
...

将远程信息处理增值税申报报告中的属性代码更改为 (10715) ，如下所示：
现有代码

...
                      Header := Text1100000
                    ELSE
                      Header := Text1100001 + "VAT Declaration Line".GETFILTER("Date Filter");
                  END;

      OnPostReport=BEGIN
...

替换代码

...
                      Header := Text1100000
                    ELSE
                      Header := Text1100001 + "VAT Declaration Line".GETFILTER("Date Filter");

// Add the following lines.
                     GLSetup.GET;
                     IF PrintAmtInAddCurr THEN
                       Currency.GET(GLSetup."Additional Reporting Currency");
// End of the lines.

                  END;

      OnPostReport=BEGIN
...

(10715) ，在 Telematic VAT 申报报表中添加全局变量，然后指定该变量，如下所示：
- 名称：Currency
- DataType：Record

更改 Telematic VAT Declaration report (10715) CalcTotLine 函数中的代码，如下所示：
现有代码 1

...
                  BEGIN
                    VATEntry.CALCSUMS(Base,"Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                  END;
                VATStatementLine2."Amount Type"::"Unrealized Amount":
                  BEGIN
...

替换代码 1

...
                  BEGIN
                    VATEntry.CALCSUMS(Base,"Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");

// Add the following lines.
                      IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN
                        Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr),
                          CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr));
                        Amount := Amount + Base;
                      END;
// End of the lines.

                  END;
                VATStatementLine2."Amount Type"::"Unrealized Amount":
                  BEGIN
...

现有代码 2

...
                  BEGIN
                    VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");

// Delete the following line.
                     Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");

                  END;
              END;
              CalcTotAmount(VATStatementLine2,TotalAmount);
...

替换代码 2

...
                  BEGIN
                    VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");

// Add the following lines.
                      IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN
                        Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr),
                          CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr))
                      ELSE
                        Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                      Amount := Amount + Base;
// End of the lines.

                  END;
              END;
              CalcTotAmount(VATStatementLine2,TotalAmount);
...

现有代码 3

...
                  BEGIN
                    VATEntry.CALCSUMS(Base,"Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                  END;
                VATStatementLine2."Amount Type"::"Unrealized Amount":
                  BEGIN
...

替换代码 3

...
                  BEGIN
                    VATEntry.CALCSUMS(Base,"Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");

// Add the following lines.
                      IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN
                        Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr),
                          CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr));
                        Amount := Amount + Base;
                      END;
// End of the lines.

                  END;
                VATStatementLine2."Amount Type"::"Unrealized Amount":
                  BEGIN
...

现有代码 4

...
                  BEGIN
                    VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");

// Delete the following line.
                     Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");

                  END;
              END;
              CalcTotAmount(VATStatementLine2,TotalAmount);
...

替换代码 4

...
                  BEGIN
                    VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
                    Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");

// Add the following lines.
                      IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN
                        Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr),
                          CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr))
                      ELSE
                        Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
                      Amount := Amount + Base;
// End of the lines.

                  END;
              END;
              CalcTotAmount(VATStatementLine2,TotalAmount);
...

更改 Telematic VAT Declaration report (10715) CalcTotalVATBase 函数中的代码，如下所示：
现有代码

...
        OutFile := Text1100006 + "VAT Declaration Line"."Statement Name" + Text1100007
      END;

      BEGIN
      END.
    }
...

替换代码

...
        OutFile := Text1100006 + "VAT Declaration Line"."Statement Name" + Text1100007
      END;

// Add the following lines. 
        PROCEDURE CalcTotalVATBase@1100000(VAT@1100000 : Decimal;EC@1100001 : Decimal;VATAmount@1100002 : Decimal;UseAddCurr@1100003 : Boolean) VATBase : Decimal;
        BEGIN
          IF (VAT + EC) = 0 THEN
            EXIT;
          IF UseAddCurr THEN
            EXIT(ROUND(100 * VATAmount / (VAT + EC),Currency."Amount Rounding Precision"))
          ELSE
            EXIT(ROUND(100 * VATAmount / (VAT + EC),GLSetup."Amount Rounding Precision"));
        END;

// End of the lines.

      BEGIN
      END.
    }
...

注意控件位于节的最后一个字段旁边。

先决条件

必须安装西班牙语版本的 Microsoft Dynamics NAV 2009 Service Pack 1 才能应用此修补程序。

删除信息

无法删除此修补程序。

状态

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

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

在西班牙语版本的 Microsoft Dynamics NAV 2009 Service Pack 1 中运行 VAT 对账单报表时，不会为模型 320 中的完整增值税交易计算基本金额

症状

解决方法

修补程序信息

安装信息

代码更改

先决条件

删除信息

状态

此信息是否有用?

谢谢您的反馈!