不正確的交易回傳,如果反向充電歐盟廠商採購發票部分都未 deductible 在義大利文版本的 Microsoft 動態航行點的增值稅所建立的增值稅交易


本文適用於 Microsoft 動態航行點 (它) 義大利文語言地區設定。

狀況


假設您在義大利文版本的 Microsoft 動態 NAV.的 value-added 稅金 (增值稅) 張貼群組中的增值稅計算類型] 欄位中,選取反向充電增值稅值您過帳採購發票,您可以歐盟 (EU) 廠商使用發佈群組。在此情況下,如果反向充電增值稅交易部分是增值稅未 deductible,張貼在一般的 leger 的 [資料編輯] 表格中的交易不正確。
下列產品中,就會發生這個問題︰
  • 義大利文版本的 Microsoft 動態航行點 2009 R2
  • 義大利文版本的 Microsoft 動態航行點 2009 Service Pack 1 (SP1)
  • 義大利文版本的 Microsoft 動態航行點 5.0 Service Pack 1 (SP1)

解決方案


Hotfix 資訊

已經可以從 Microsoft 取得支援的 hotfix。不過,它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此,如果此問題不會嚴重影響,我們建議您等候下一步的 Microsoft 動態航行點 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。

注意 在特殊的情況下,通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用,如果有其他支援問題是,不能限定的特定更新程式。


安裝資訊

Microsoft 會提供程式設計範例僅供說明,而不做任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序中,功能,但它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。

注意套用此 hotfix 之前,請確認所有的 Microsoft Navision 用戶端使用者會登出系統。這包括 Microsoft Navision 應用程式服務 (NAS) 用戶端的使用者。您應該是唯一的用戶端使用者已登入,當您實作此 hotfix。

若要實作此 hotfix,您必須有開發人員授權。

我們建議您在 Windows 登入] 視窗中的色彩,或資料庫登入] 視窗中的使用者帳戶被指派 「 進階 」 的角色識別碼。如果使用者帳戶不能指派為 「 超級 」 的角色識別碼,您必須確認使用者帳戶具有下列權限︰
  • 您將會變更物件的 [修改] 權限。
  • 執行權限的系統物件 ID 5210物件和系統物件 ID 9015物件。


注意您沒有擁有資料存放區的權限,除非您需要執行資料修復。

程式碼變更

注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。
若要解決這個問題,請變更 InsertVAT codeunit (12) 的InsertVAT函式中的程式碼如下所示︰
現有的程式碼 1
...VATEntry."Entry No." := NextVATEntryNo;
VATEntry.Type := VATEntry.Type::Sale;
VATEntry."Reverse Sales VAT" := TRUE;

// Delete the following lines.
VATEntry.Base := -(VATEntry.Base + VATEntry."Nondeductible Base");
VATEntry."Nondeductible Base" := 0;
VATEntry.Amount := -(VATEntry.Amount + VATEntry."Nondeductible Amount");
VATEntry."Nondeductible Amount" := 0;
VATEntry."Deductible %" := 100;
VATEntry."Additional-Currency Base" :=
-(VATEntry."Additional-Currency Base" + VATEntry."Add. Curr. Nondeductible Base");
VATEntry."Add. Curr. Nondeductible Base" := 0;
VATEntry."Additional-Currency Amount" :=
-(VATEntry."Additional-Currency Amount" + VATEntry."Add. Curr. Nondeductible Amt.");
VATEntry."Add. Curr. Nondeductible Amt." := 0;
// End of the lines.

IF GenJnlLine."Reverse Sales VAT No." <> '' THEN BEGIN
VATEntry."Document No." := GenJnlLine."Reverse Sales VAT No.";
VATEntry."No. Series" := GenJnlLine."Reverse Sales VAT No. Series";
...
取代程式碼 1
...VATEntry."Entry No." := NextVATEntryNo;
VATEntry.Type := VATEntry.Type::Sale;
VATEntry."Reverse Sales VAT" := TRUE;

// Add the following lines.
VATEntry.Base := -VATEntry.Base;
VATEntry."Nondeductible Base" := -VATEntry."Nondeductible Base";
VATEntry.Amount := -VATEntry.Amount;
VATEntry."Nondeductible Amount" := -VATEntry."Nondeductible Amount";
VATEntry."Additional-Currency Base" := -VATEntry."Additional-Currency Base";
VATEntry."Add. Curr. Nondeductible Base" := -VATEntry."Add. Curr. Nondeductible Base";
VATEntry."Additional-Currency Amount" := -VATEntry."Additional-Currency Amount";
VATEntry."Add. Curr. Nondeductible Amt." := -VATEntry."Add. Curr. Nondeductible Amt.";
// End of the lines.

IF GenJnlLine."Reverse Sales VAT No." <> '' THEN BEGIN
VATEntry."Document No." := GenJnlLine."Reverse Sales VAT No.";
VATEntry."No. Series" := GenJnlLine."Reverse Sales VAT No. Series";
...
現有的程式碼 2
...VATPostingSetup."Purchase VAT Account",
VATAmount,SrcCurrVATAmount,TRUE,TRUE);
InsertGLEntry(TRUE);

// Delete the following lines.
END;
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Acc.");
InitGLEntry(
VATPostingSetup."Reverse Chrg. VAT Acc.",
-GLEntryVATAmount,-SrcCurrGLEntryVATAmt,TRUE,TRUE);
InsertGLEntry(TRUE);
IF "Deductible %" <> 100 THEN BEGIN
IF VATPostingSetup."Nondeductible VAT Account" = '' THEN BEGIN
IF "Account Type" <> GenJnlLine."Account Type"::"Fixed Asset" THEN
InitGLEntry(
"Account No.",
NondeducVATAmount,SrcCurrNondeducVATAmount,TRUE,TRUE)
ELSE
InitGLEntry(
FAUndGlAccNo,
NondeducVATAmount,SrcCurrNondeducVATAmount,TRUE,TRUE);
END ELSE BEGIN
VATPostingSetup.TESTFIELD("Nondeductible VAT Account");
InitGLEntry(
VATPostingSetup."Nondeductible VAT Account",
NondeducVATAmount,SrcCurrNondeducVATAmount,TRUE,TRUE);
END;
// End of the lines.

InsertGLEntry(TRUE);
END;
...
取代程式碼 2
...VATPostingSetup."Purchase VAT Account",
VATAmount,SrcCurrVATAmount,TRUE,TRUE);
InsertGLEntry(TRUE);

// Add the following lines.
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Acc.");
InitGLEntry(
VATPostingSetup."Reverse Chrg. VAT Acc.",
-VATAmount,-SrcCurrVATAmount,TRUE,TRUE);
InsertGLEntry(TRUE);
END;
IF "Deductible %" <> 100 THEN BEGIN
IF VATPostingSetup."Nondeductible VAT Account" = '' THEN BEGIN
IF "Account Type" <> GenJnlLine."Account Type"::"Fixed Asset" THEN BEGIN // IT0001
InitGLEntry(
"Account No.",
NondeducVATAmount,SrcCurrNondeducVATAmount,TRUE,TRUE);
InsertGLEntry(TRUE);
InitGLEntry(
"Account No.",
-NondeducVATAmount,-SrcCurrNondeducVATAmount,TRUE,TRUE);
InsertGLEntry(TRUE);
END ELSE BEGIN
InitGLEntry(
FAUndGlAccNo,
NondeducVATAmount,SrcCurrNondeducVATAmount,TRUE,TRUE);
InsertGLEntry(TRUE);
InitGLEntry(
FAUndGlAccNo,
-NondeducVATAmount,-SrcCurrNondeducVATAmount,TRUE,TRUE);
InsertGLEntry(TRUE);
END;
END ELSE BEGIN
VATPostingSetup.TESTFIELD("Nondeductible VAT Account");
InitGLEntry(
VATPostingSetup."Nondeductible VAT Account",
NondeducVATAmount,SrcCurrNondeducVATAmount,TRUE,TRUE);
InsertGLEntry(TRUE);
InitGLEntry(
VATPostingSetup."Nondeductible VAT Account",
-NondeducVATAmount,-SrcCurrNondeducVATAmount,TRUE,TRUE);
// End of the lines.

InsertGLEntry(TRUE);
END;
...
現有的程式碼 3
...InsertGLEntry(TRUE);
END;
END;
END;
VATPostingSetup."VAT Calculation Type"::"Sales Tax":
...
取代程式碼 3
InsertGLEntry(TRUE);END;

// Add the following line.
END;

END;
END;
VATPostingSetup."VAT Calculation Type"::"Sales Tax":
...

先決條件

您必須擁有其中一種套用此 hotfix 之後安裝下列產品︰
  • 義大利文版本的 Microsoft 動態航行點 2009 R2
  • 義大利文版本的 Microsoft 動態航行點 2009 Service Pack 1 (SP1)
  • 義大利文版本的 Microsoft 動態航行點 5.0 Service Pack 1 (SP1)

移除資訊

您無法移除此 hotfix。

狀態


Microsoft 已確認這是<套用>一節所列出的 Microsoft 產品的問題。
注意這是直接從 Microsoft 支援組織內建立的「快速發行」文件。本文件所包含的現狀資訊是針對新興問題的回應。為縮短使其可用的時程,資料可能會包含印刷錯誤,且可能會隨時進行修改而不另行通知。如其他考量,請參閱 「使用規定」。