若在西班牙語版 Microsoft Dynamics NAV 的增值稅入帳設定對話框中勾選 EU 服務，則 349 申報檔案中的金額不正確

套用到
Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1

本文適用於Microsoft Dynamics 的西班牙語 (es) 語言區域的導航。

症狀

假設在西班牙語版 Microsoft Dynamics NAV 的增值稅貼付設定對話框中，已勾選歐盟服務勾選框。 當你產生 349 聲明檔案時，匯出檔案中的金額是錯誤的。
此問題發生於以下產品：

  • Microsoft Dynamics 2009 服務包 1 (SP1) 的西班牙版本
  • Microsoft Dynamics NAV 5.0 服務包 1 (SP1) 的西班牙版本

      

解決方式

Hotfix 資訊

Microsoft 現在已經支援熱修補程式。 然而，這僅是為了修正本文所描述的問題。 只應用在遇到這個特定問題的系統上。 此熱修補可能會進行額外測試。 因此，如果您未受到此問題嚴重影響，我們建議您等待下一個 Microsoft Dynamics NAV 2009 服務包或包含此熱修補的 Microsoft Dynamics NAV 版本。

注意：在特殊情況下，若 Microsoft Dynamics 及相關產品的技術支援專業人員判斷特定更新能解決您的問題，通常因支援電話而產生的費用可能會被取消。 一般來說，如果有所描述之特定更新無法解決的其他支援問題，才會收取支援費用。

            
          

安裝資訊

Microsoft 僅提供圖例的程式設計範例，不含明示或暗示的擔保。 這包括 (但不限於) 適用于特定目的之可操作性或適用性的暗示擔保。 本文假設您熟悉正在示範的程式設計語言，以及用來建立和進行程式偵錯工具的工具。 Microsoft 技術支援工程師可以協助說明特定程序的功能，但不會修改這些範例以提供附加功能或建構程序來滿足您的特定需求。

注意：安裝此熱修補程式前，請確認所有 Microsoft Navision 用戶端使用者都已登出系統。 這包括Microsoft Navision 應用服務 (NAS) 用戶端使用者。 當你實施這個熱修補時，應該只有你一個登入的客戶端使用者。

要實作這個熱修補，你必須擁有開發者授權。

我們建議在 Windows 登入視窗或資料庫登入視窗中，將使用者帳號分配「SUPER」角色 ID。 若使用者帳號無法被指派「SUPER」角色 ID，您必須驗證該帳號擁有以下權限：

  • 你要更改的物件的修改權限。
  • 系統物件 ID 5210 的執行權限，以及系統物件 ID 9015 的執行權限。

                
注意：除非你必須進行資料修復，否則你不必擁有資料儲存的權利。

法規變更

注意：在將修正程式套用到生產電腦之前，務必在受控環境中測試修正。
如果要解決這個問題，請依照下列步驟執行。

  1. 將Make 349聲明報告中資料項目第5章節 (88) 中，變更代碼如下：
    現行法規1

                                  BEGIN
                                REPEAT

                                  //Delete the following line.
                                  VATInvSales.RESET;

                                  VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);

    替換代碼1

                                  BEGIN
                                REPEAT

                                  //Add the follwing lines.
                                  LastTransactionNo := 0;
                                  VATInvSales.RESET;
                                  VATInvSales.SETCURRENTKEY("Transaction No."); 
                                  //End of the lines.                               

                                  VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);

    現有的第二號法規

                                              IF "VAT Registration No." <> '' THEN BEGIN
                                            IF AmountToIncludein349 <> 0 THEN BEGIN

                                              //Delete the following lines.
                                              OpTriang := 'X';
                                              AmountOpTri := AmountOpTri + AmountToIncludein349
                                              //End of the lines.                                           

                                            END ELSE BEGIN
                                              OpTriang := 'X';

    替換代碼2

                                              IF "VAT Registration No." <> '' THEN BEGIN
                                            IF AmountToIncludein349 <> 0 THEN BEGIN

                                              //Add the following lines.
                                              IF VATInvSales."Transaction No." <> LastTransactionNo THEN BEGIN
                                                OpTriang := 'X';
                                                AmountOpTri := AmountOpTri + AmountToIncludein349;
                                              END;
                                              //End of the lines.                                           

                                            END ELSE BEGIN
                                              OpTriang := 'X';

    現行法規3

                                          // OpTriang := 'X';
                                      // AmountOpTri := AmountOpTri + VATInvSales.Base;
                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

    替代代碼3

                                          // OpTriang := 'X';
                                      // AmountOpTri := AmountOpTri + VATInvSales.Base;

                                      //Add the following line.
                                      LastTransactionNo := VATInvSales."Transaction No.";

                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

    現行代碼4

                                        UNTIL VATInvSales.NEXT = 0;
                                  END;

                                  //Delete the following line.
                                  VATInvSales.RESET;

                                  VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);

    替換代碼4

                                        UNTIL VATInvSales.NEXT = 0;
                                  END;

                                  //Add the following lines.
                                  LastTransactionNo := 0;
                                  VATInvSales.RESET;
                                  VATInvSales.SETCURRENTKEY("Transaction No."); 
                                  //End of the lines.

                                  VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);

    現行代碼5

                                              ((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                           //Delete the following lines.
                                           IF AmountToIncludein349 <> 0 THEN
                                             NormalAmount := NormalAmount + AmountToIncludein349
                                           ELSE
                                           //End of the lines.

                                             NormalAmount := NormalAmount + VATInvSales.Base;
                                          END ELSE

    替換代碼5

                                              ((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                           //Add the following lines.
                                           IF AmountToIncludein349 <> 0 THEN BEGIN
                                             IF VATInvSales."Transaction No." <> LastTransactionNo THEN
                                               NormalAmount := NormalAmount + AmountToIncludein349;
                                           END ELSE
                                           //End of the lines.                                        

                                             NormalAmount := NormalAmount + VATInvSales.Base;
                                          END ELSE

    現有的代碼6

                                          END;
                                      // NormalAmount := NormalAmount + VATInvSales.Base;
                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

    替代代碼6

                                          END;
                                      // NormalAmount := NormalAmount + VATInvSales.Base;

                                      //Add the following line.
                                      LastTransactionNo := VATInvSales."Transaction No.";

                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

    現行代碼7

                                      END;

                                  //Delete the following line.
                                  VATInvSales.RESET;

                                  VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE("Document Type",VATInvSales."Document Type"::Invoice);

    替換代碼7

                                      END;

                                  //Add the following lines.
                                  LastTransactionNo := 0; 
                                  VATInvSales.RESET;
                                  VATInvSales.SETCURRENTKEY("Transaction No."); 
                                  //End of the lines.

                                  VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE("Document Type",VATInvSales."Document Type"::Invoice);

    現行代碼8

                                              ((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Delete the following lines.
                                            IF AmountToIncludein349 <> 0 THEN
                                              AmountEUService := AmountEUService + AmountToIncludein349
                                            ELSE
                                            //End of the lines.                                         

                                              AmountEUService := AmountEUService + VATInvSales.Base;
                                          END ELSE

    替代代碼8

                                              ((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Add the following lines.
                                            IF AmountToIncludein349 <> 0 THEN BEGIN
                                              IF VATInvSales."Transaction No." <> LastTransactionNo THEN
                                                AmountEUService := AmountEUService + AmountToIncludein349;
                                            END ELSE
                                            //End of the lines.                                         

                                              AmountEUService := AmountEUService + VATInvSales.Base;
                                          END ELSE

    現有代碼9

                                            END;
                                      END;
                                    UNTIL VATInvSales.NEXT = 0;

    替代代碼9

                                            END;
                                      END;

                                      //Add the following line.
                                      LastTransactionNo := VATInvSales."Transaction No.";

                                    UNTIL VATInvSales.NEXT = 0;

  2. 將 Make 349 聲明報告中第 6 項資料 (88) 中的代碼變更如下：
    現行法規1

                                  BEGIN
                                REPEAT

                                  //Delete the following line.
                                  VATInvPurch.RESET;

                                  VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);

    替換代碼1

                                  BEGIN
                                REPEAT

                                  //Add the following lines.
                                  LastTransactionNo := 0;
                                  VATInvPurch.RESET;
                                  VATInvPurch.SETCURRENTKEY("Transaction No.");
                                  //End of the lines.                          

                                  VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);

    現有的第二號法規

                                              IF "VAT Registration No." <> '' THEN BEGIN
                                            IF AmountToIncludein349 <> 0 THEN BEGIN

                                              //Delete the following lines.
                                              OpTriang := 'X';
                                              AmountOpTri := AmountOpTri + AmountToIncludein349;
                                              //End of the lines.                                           

                                            END ELSE BEGIN
                                              OpTriang := 'X';

    替換代碼2

                                              IF "VAT Registration No." <> '' THEN BEGIN
                                            IF AmountToIncludein349 <> 0 THEN BEGIN

                                              //Add the following lines.
                                              IF VATInvPurch."Transaction No." <> LastTransactionNo THEN BEGIN
                                                OpTriang := 'X';
                                                AmountOpTri := AmountOpTri + AmountToIncludein349;
                                              END;
                                              //End of the lines.

                                            END ELSE BEGIN
                                              OpTriang := 'X';

    現行法規3

                                          // OpTriang := 'X';
                                      // AmountOpTri := AmountOpTri + VATInvPurch.Base;
                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

    替代代碼3

                                          // OpTriang := 'X';
                                      // AmountOpTri := AmountOpTri + VATInvPurch.Base;

                                      //Add the following line.
                                      LastTransactionNo := VATInvPurch."Transaction No.";

                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

    現行代碼4

                                        UNTIL VATInvPurch.NEXT = 0;
                                  END;

                                  //Delete the following line.
                                  VATInvPurch.RESET;

                                  VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);

    替換代碼4

                                        UNTIL VATInvPurch.NEXT = 0;
                                  END;

                                  //Add the following lines.
                                  LastTransactionNo := 0;
                                  VATInvPurch.RESET;
                                  VATInvPurch.SETCURRENTKEY("Transaction No.");
                                  //End of the lines.                               

                                  VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);

    現行代碼5

                                              ((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Delete the following lines.
                                            IF AmountToIncludein349 <> 0 THEN
                                              NormalAmount := NormalAmount + AmountToIncludein349
                                            ELSE
                                            //End of the lines.

                                              NormalAmount := NormalAmount + VATInvPurch.Base;
                                          END ELSE

    替換代碼5

                                              ((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Add the following lines.
                                            IF AmountToIncludein349 <> 0 THEN BEGIN
                                              IF VATInvPurch."Transaction No." <> LastTransactionNo THEN
                                                NormalAmount := NormalAmount + AmountToIncludein349;
                                            END ELSE
                                            //End of the lines.

                                              NormalAmount := NormalAmount + VATInvPurch.Base;
                                          END ELSE

    現有的代碼6

                                          END;
                                      // NormalAmount := NormalAmount + VATInvPurch.Base;
                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

    替代代碼6

                                          END;
                                      // NormalAmount := NormalAmount + VATInvPurch.Base;

                                      //Add the following line.
                                      LastTransactionNo := VATInvPurch."Transaction No.";

                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

    現行代碼7

                                        UNTIL VATInvPurch.NEXT = 0;
                                  END;

                                  //Delete the following line.
                                  VATInvPurch.RESET;

                                  VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);

    替換代碼7

                                        UNTIL VATInvPurch.NEXT = 0;
                                  END;

                                  //Add the following lines.
                                  LastTransactionNo := 0;
                                  VATInvPurch.RESET;
                                  VATInvPurch.SETCURRENTKEY("Transaction No.");
                                  //End of the lines.                            

                                  VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);

    現行代碼8

                                            THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Delete the following lines.
                                            IF AmountToIncludein349 <> 0 THEN
                                              AmountEUService := AmountEUService + AmountToIncludein349
                                            ELSE
                                            //End of the lines.                                         

                                              AmountEUService := AmountEUService + VATInvPurch.Base;
                                          END ELSE

    替代代碼8

                                            THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Add the following lines.
                                            IF AmountToIncludein349 <> 0 THEN BEGIN
                                              IF VATInvPurch."Transaction No." <> LastTransactionNo THEN
                                                AmountEUService := AmountEUService + AmountToIncludein349;
                                            END ELSE
                                            //End of the lines.                                         

                                              AmountEUService := AmountEUService + VATInvPurch.Base;
                                          END ELSE

    現有代碼9

                                            END;
                                      END;
                                    UNTIL VATInvPurch.NEXT = 0;

    替代代碼9

                                            END;
                                      END;

                                      //Add the following line.
                                      LastTransactionNo := VATInvPurch."Transaction No.";

                                    UNTIL VATInvPurch.NEXT = 0;

  3. 在 Make 349 宣告報告中新增一個全域變數， (88) ，然後指定該變數如下：

    • 姓名：LastTransactionNo@1100072
    • DataType： 整數

先決條件

您必須安裝以下其中一項產品才能套用此熱修補：

  • Microsoft Dynamics 2009 服務包 1 (SP1) 的西班牙版本
  • Microsoft Dynamics NAV 5.0 服務包 1 (SP1) 的西班牙版本

你必須安裝西班牙語 349 報告才能套用這個熱修正。
如需詳細資訊，請造訪下列 Microsoft 網站：
西班牙語349報告
此外，您必須安裝 VAT 2010 套件才能套用此熱修補程式。
如需詳細資訊，請造訪下列 Microsoft 網站：
Microsoft Dynamics 對 VAT 2010 的 NAV 支援

移除資訊

你無法移除這個熱修正。

狀態

Microsoft 已確認這是「適用對象」一節中列出的 Microsoft 產品中的問題。

注意本文為 Microsoft 支援單位內部直接建立的「快速發佈」文章。 此處包含的資訊是以其現況提供，用於回應新產生的問題。 由於快速發佈，資料可能包含拼字錯誤，並可能會隨時修訂，不另行通知。 請參閱使用條款以瞭解其他相關考量。