本文適用於以下國家及語言地區的 Microsoft Dynamics NAV。
- 英語 (加拿大) (en-ca)
- 英文 (美國) (en-us)
- 西班牙 (墨西哥) (es-mx)
- 法語 (加拿大) (fr-ca)
症狀
假設你發行的銷售發票中,Microsoft Dynamics 2009 北美版指定了稅務區碼。 你在稅務區碼中新增了一個稅務管轄區。 在這種情況下,當您列印張貼銷售發票時,會收到以下錯誤訊息:
注意
以下參數內找不到稅務詳細記錄:/稅務管轄區代碼:code,Tax GroupCode:group code,生效日期: <=日期。
此問題發生於以下產品:
- Microsoft Dynamics NAV 2009 R2 的北美版本
- 北美版的 Microsoft Dynamics NAV 2009 服務包 1 (SP1)
解決方式
Hotfix 資訊
Microsoft 現在已經支援熱修補程式。 然而,這僅是為了修正本文所描述的問題。 只應用在遇到這個特定問題的系統上。 此熱修補可能會進行額外測試。 因此,如果你沒有受到這個問題嚴重影響,我們建議你等待下一個包含此熱修補的 Microsoft Dynamics NAV 服務包或下一個 Microsoft Dynamics NAV 版本。
注意:在特殊情況下,若 Microsoft Dynamics 及相關產品的技術支援專業人員判斷特定更新能解決您的問題,通常因支援電話而產生的費用可能會被取消。 一般來說,如果有所描述之特定更新無法解決的其他支援問題,才會收取支援費用。
安裝資訊
Microsoft 僅提供圖例的程式設計範例,不含明示或暗示的擔保。 這包括 (但不限於) 適用于特定目的之可操作性或適用性的暗示擔保。 本文假設您熟悉正在示範的程式設計語言,以及用來建立和進行程式偵錯工具的工具。 Microsoft 技術支援工程師可以協助說明特定程序的功能,但不會修改這些範例以提供附加功能或建構程序來滿足您的特定需求。
注意:安裝此熱修補程式前,請確認所有 Microsoft Navision 用戶端使用者都已登出系統。 這包括Microsoft Navision 應用服務 (NAS) 用戶端使用者。 當你實施這個熱修補時,應該只有你一個登入的客戶端使用者。
要實作這個熱修補,你必須擁有開發者授權。
我們建議在 Windows 登入視窗或資料庫登入視窗中,將使用者帳號分配「SUPER」角色 ID。 若使用者帳號無法被指派「SUPER」角色 ID,您必須驗證該帳號擁有以下權限:
- 你要更改的物件的修改權限。
- 系統物件 ID 5210 的執行權限,以及系統物件 ID 9015 的執行權限。
注意:除非你必須進行資料修復,否則你不必擁有資料儲存的權利。
法規變更
注意:在將修正程式套用到生產電腦之前,務必在受控環境中測試修正。
如果要解決這個問題,請依照下列步驟執行。
在銷售稅計算代碼單元 (398) 中,將 AddSalesInvoiceLines 函式中的代碼變更如下:
現有程式碼PROCEDURE AddSalesInvoiceLines@1020003(DocNo@1020004 : Code[20]); VAR SalesInvoiceHeader@1020000 : Record 112; SalesInvoiceLine@1020001 : Record 113; InsertRec@1020002 : Boolean; BEGIN SalesInvoiceHeader.GET(DocNo); SalesInvoiceHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(SalesInvoiceHeader."Tax Area Code") THEN EXIT; SetUpCurrency(SalesInvoiceHeader."Currency Code"); ...替換代碼
PROCEDURE AddSalesInvoiceLines@1020003(DocNo@1020004 : Code[20]); VAR SalesInvoiceHeader@1020000 : Record 112; SalesInvoiceLine@1020001 : Record 113; InsertRec@1020002 : Boolean; BEGIN // Add the following line. Posted := TRUE; SalesInvoiceHeader.GET(DocNo); SalesInvoiceHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(SalesInvoiceHeader."Tax Area Code") THEN EXIT; SetUpCurrency(SalesInvoiceHeader."Currency Code"); ...在銷售稅計算代碼單元 (398) 中,將 AddSalesCrMemoLines 函式中的程式碼變更如下:
現有程式碼PROCEDURE AddSalesCrMemoLines@1020006(DocNo@1020000 : Code[20]); VAR SalesCrMemoHeader@1020001 : Record 114; SalesCrMemoLine@1020002 : Record 115; InsertRec@1020003 : Boolean; BEGIN SalesCrMemoHeader.GET(DocNo); SalesCrMemoHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(SalesCrMemoHeader."Tax Area Code") THEN EXIT; ...替換代碼
PROCEDURE AddSalesCrMemoLines@1020006(DocNo@1020000 : Code[20]); VAR SalesCrMemoHeader@1020001 : Record 114; SalesCrMemoLine@1020002 : Record 115; InsertRec@1020003 : Boolean; BEGIN // Add the following line. Posted := TRUE; SalesCrMemoHeader.GET(DocNo); SalesCrMemoHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(SalesCrMemoHeader."Tax Area Code") THEN EXIT; ...在銷售稅計算代碼單元 (398) 中,將 AddPurchInvoiceLines 函式中的代碼變更如下:
現有程式碼PROCEDURE AddPurchInvoiceLines@1020008(DocNo@1020000 : Code[20]); VAR PurchInvHeader@1020001 : Record 122; PurchInvLine@1020002 : Record 123; InsertRec@1020003 : Boolean; BEGIN PurchInvHeader.GET(DocNo); PurchInvHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(PurchInvHeader."Tax Area Code") THEN EXIT; ...替換代碼
PROCEDURE AddPurchInvoiceLines@1020008(DocNo@1020000 : Code[20]); VAR PurchInvHeader@1020001 : Record 122; PurchInvLine@1020002 : Record 123; InsertRec@1020003 : Boolean; BEGIN // Add the following line. Posted := TRUE; PurchInvHeader.GET(DocNo); PurchInvHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(PurchInvHeader."Tax Area Code") THEN EXIT; ...在銷售稅計算代碼單元 (398) 中,將 AddPurchCrMemoLines 函式中的代碼變更如下:
現有程式碼PROCEDURE AddPurchCrMemoLines@1020004(DocNo@1020000 : Code[20]); VAR PurchCrMemoHeader@1020001 : Record 124; PurchCrMemoLine@1020002 : Record 125; InsertRec@1020003 : Boolean; BEGIN PurchCrMemoHeader.GET(DocNo); PurchCrMemoHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(PurchCrMemoHeader."Tax Area Code") THEN EXIT; ...替換代碼
PROCEDURE AddPurchCrMemoLines@1020004(DocNo@1020000 : Code[20]); VAR PurchCrMemoHeader@1020001 : Record 124; PurchCrMemoLine@1020002 : Record 125; InsertRec@1020003 : Boolean; BEGIN // Add the following line. Posted := TRUE; PurchCrMemoHeader.GET(DocNo); PurchCrMemoHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(PurchCrMemoHeader."Tax Area Code") THEN EXIT; ...在銷售稅計算代碼單元 (398) 中,將 AddServInvoiceLines 函式中的代碼變更如下:
現有程式碼PROCEDURE AddServInvoiceLines@1480008(DocNo@1020000 : Code[20]); VAR ServInvHeader@1020001 : Record 5992; ServInvLine@1020002 : Record 5993; InsertRec@1020003 : Boolean; BEGIN ServInvHeader.GET(DocNo); ServInvHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(ServInvHeader."Tax Area Code") THEN EXIT; ...替換代碼
PROCEDURE AddServInvoiceLines@1480008(DocNo@1020000 : Code[20]); VAR ServInvHeader@1020001 : Record 5992; ServInvLine@1020002 : Record 5993; InsertRec@1020003 : Boolean; BEGIN // Add the following line. Posted := TRUE; ServInvHeader.GET(DocNo); ServInvHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(ServInvHeader."Tax Area Code") THEN EXIT; ...在銷售稅計算代碼單元 (398) 中,將 AddServCrMemoLines 函式中的程式碼變更如下:
現有程式碼PROCEDURE AddServCrMemoLines@1480004(DocNo@1020000 : Code[20]); VAR ServCrMemoHeader@1020001 : Record 5994; ServCrMemoLine@1020002 : Record 5995; InsertRec@1020003 : Boolean; BEGIN ServCrMemoHeader.GET(DocNo); ServCrMemoHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(ServCrMemoHeader."Tax Area Code") THEN EXIT; ...替換代碼
PROCEDURE AddServCrMemoLines@1480004(DocNo@1020000 : Code[20]); VAR ServCrMemoHeader@1020001 : Record 5994; ServCrMemoLine@1020002 : Record 5995; InsertRec@1020003 : Boolean; BEGIN // Add the following line. Posted := TRUE; ServCrMemoHeader.GET(DocNo); ServCrMemoHeader.TESTFIELD("Prices Including VAT",FALSE); IF NOT GetSalesTaxCountry(ServCrMemoHeader."Tax Area Code") THEN EXIT; ...在 Sales Tax Calculate codeunit (398) 中,將 EndSalesTaxCalculation 函式中的程式碼變更如下:
現有程式碼... TaxDetail.SETRANGE("Tax Type",TaxDetail."Tax Type"::"Excise Tax"); IF TaxDetail.FIND('+') THEN BEGIN TaxDetailFound := TRUE; "Tax Type" := "Tax Type"::"Excise Tax"; INSERT; "Tax Type" := "Tax Type"::"Sales and Use Tax"; END; // Delete the following line. IF NOT TaxDetailFound THEN ERROR( Text1020002, TaxDetail.TABLECAPTION, FIELDCAPTION("Tax Jurisdiction Code"),"Tax Jurisdiction Code", FIELDCAPTION("Tax Group Code"),"Tax Group Code", TaxDetail.FIELDCAPTION("Effective Date"),TaxDetail.GETFILTER("Effective Date")); UNTIL NEXT = 0; RESET; ...替換代碼
... TaxDetail.SETRANGE("Tax Type",TaxDetail."Tax Type"::"Excise Tax"); IF TaxDetail.FIND('+') THEN BEGIN TaxDetailFound := TRUE; "Tax Type" := "Tax Type"::"Excise Tax"; INSERT; "Tax Type" := "Tax Type"::"Sales and Use Tax"; // NA0012 END; // Add the following line. IF NOT TaxDetailFound AND NOT Posted THEN ERROR( Text1020002, TaxDetail.TABLECAPTION, FIELDCAPTION("Tax Jurisdiction Code"),"Tax Jurisdiction Code", FIELDCAPTION("Tax Group Code"),"Tax Group Code", TaxDetail.FIELDCAPTION("Effective Date"),TaxDetail.GETFILTER("Effective Date")); UNTIL NEXT = 0; RESET; ...
先決條件
您必須安裝以下其中一項產品才能套用此熱修補:
- Microsoft Dynamics NAV 2009 R2 的北美版本
- Microsoft Dynamics NAV 2009 服務包 1 的北美版本
移除資訊
你無法移除這個熱修正。
狀態
Microsoft 已確認這是「適用對象」一節中列出的 Microsoft 產品中的問題。
注意本文為 Microsoft 支援單位內部直接建立的「快速發佈」文章。 此處包含的資訊是以其現況提供,用於回應新產生的問題。 由於快速發佈,資料可能包含拼字錯誤,並可能會隨時修訂,不另行通知。 請參閱使用條款以瞭解其他相關考量。