當您計算已張貼的發票匈牙利文版本的 Microsoft 動態航行點 2009 R2 的發票統計資料不正確地四捨五入增值稅金額

Hotfix 資訊

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

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

安裝資訊

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

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

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

我們建議您在 Windows 登入] 視窗中的色彩，或資料庫登入] 視窗中的使用者帳戶被指派 「 進階 」 的角色識別碼。如果使用者帳戶不能指派為 「 超級 」 的角色識別碼，您必須確認使用者帳戶具有下列權限︰

• 您將會變更物件的 [修改] 權限。

• 執行權限的系統物件 ID 5210物件和系統物件 ID 9015
  
  物件。

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

程式碼變更

注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。

若要解決這個問題，請依照下列步驟執行：

1. 變更銷售行表格 (37) 中的欄位中的程式碼如下所示︰
   現有的程式碼 1

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   取代程式碼 1

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   現有的程式碼 2

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   取代程式碼 2

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

2. 變更銷售列表 (37) 中的UpdateVATAmounts函式中的程式碼如下所示︰
   現有的程式碼

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   取代程式碼

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

3. 變更銷售列表 (37) 中的UpdateVATOnLines函式中的程式碼如下所示︰
   現有的程式碼

   ..."VAT Base Amount" := NewVATBaseAmount;
   
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   取代程式碼

   ..."VAT Base Amount" := NewVATBaseAmount;
   
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

4. 變更銷售列表 (37) 中的CalcVATAmountLines函式中的程式碼如下所示︰
   現有的程式碼

   ...
   // Delete the following line.CalcVATToReport(SalesHeader,"VAT Base","VAT Amount" - "VAT Difference",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   取代程式碼

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

5. 變更程式碼在CalcVATToReport在銷售列表 (37) 中運作的如下所示︰
   現有的程式碼 1

   ...
   // Delete the following line.
   PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
   // End of the deleted line.
   
   BEGIN
   ...
   

   取代程式碼 1

   ...
   // Add the following lines.
   PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360005 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
   VAR
   AmountLCY@1360006 : Decimal;
   AmtInclVATLCY@1360007 : Decimal;
   // End of the added lines.
   
   BEGIN
   ...
   

   現有的程式碼 2

   ...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   
   // Delete the following lines.
   VATAmountToReport :=
   ROUND(VATAmount / SalesHeader."VAT Currency Factor");
   END ELSE BEGIN
   VATBaseAmountToReport := VATBaseAmount;
   VATAmountToReport := VATAmount;
   // End of the deleted lines.
   
   END;
   ...
   

   取代程式碼 2

   ...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   
   // Add the following lines.
   AmountLCY :=
   ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   AmtInclVATLCY :=
   ROUND(AmtInclVAT / SalesHeader."VAT Currency Factor");
   VATAmountToReport :=
   AmtInclVATLCY - AmountLCY;
   END ELSE BEGIN
   VATBaseAmountToReport := VATBaseAmount;
   VATAmountToReport := AmtInclVAT - VATBaseAmount;
   // End of the added lines.
   
   END;
   ...
   

6. 變更購買行表格 (39) 中的欄位中的程式碼如下所示︰
   現有的程式碼 1

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   取代程式碼 1

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   現有的程式碼 2

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   取代程式碼 2

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

7. 變更購買行資料表 (39) 中的UpdateVATAmounts函式中的程式碼如下所示︰
   現有的程式碼

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   取代程式碼

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

8. 變更購買行資料表 (39) 中的UpdateVATOnLines函式中的程式碼如下所示︰
   現有的程式碼

   ...END;
   
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   取代程式碼

   ...END;
   
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

9. 變更購買行資料表 (39) 中的CalcVATAmountLines中的程式碼如下所示︰
   現有的程式碼

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base","VAT Amount" - "VAT Difference",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   取代程式碼

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

10. 變更購買行資料表 (39) 中的CalcVATToReport函式中的程式碼如下所示︰
    現有的程式碼 1

    ...
    // Delete the following lines.
    PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
    VAR
    NonDeductableVATAmount@1360006 : Decimal;
    BEGIN
    NonDeductableVATAmount := VATAmount * NonDeductableVATPct / 100;
    // End of the deleted lines.
    
    IF PurchHeader."Currency Code" <> '' THEN BEGIN
    ...
    

    取代程式碼 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
    VAR
    NonDeductableVATAmount@1360006 : Decimal;
    AmountLCY@1360008 : Decimal;
    AmtInclVATLCY@1360009 : Decimal;
    BEGIN
    NonDeductableVATAmount := (AmtInclVAT - VATBaseAmount) * NonDeductableVATPct / 100;
    // End of the added lines.
    
    IF PurchHeader."Currency Code" <> '' THEN BEGIN
    ...
    

    現有的程式碼 2

    ...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    
    // Delete the following lines.
    VATAmountToReport :=
    ROUND((VATAmount - NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
    VATAmountToReport := VATAmount - ROUND(NonDeductableVATAmount);
    // End of the deleted lines.
    
    END
    ...
    

    取代程式碼 2

    ...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    
    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / PurchHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / PurchHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY - ROUND(NonDeductableVATAmount / PurchHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
    VATAmountToReport := AmtInclVAT - VATBaseAmount - ROUND(NonDeductableVATAmount);
    // End of the added lines.
    
    END
    ...
    

11. 變更服務線上表格 (5902) 中的欄位中的程式碼如下所示︰
    現有的程式碼 1

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    取代程式碼 1

    ...
    // Add the following line.CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    現有的程式碼 2

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    取代程式碼 2

    ...
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

12. 變更服務行資料表 (5902) 中的UpdateVATAmounts函式中的程式碼如下所示︰
    現有的程式碼

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    取代程式碼

    ...
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

13. 變更服務行資料表 (5902) 中的CalcVATAmountLines函式中的程式碼如下所示︰
    現有的程式碼

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base","VAT Amount" - "VAT Difference",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    取代程式碼

    ...
    // Add the following line.CalcVATToReport(ServHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

14. 變更服務行資料表 (5902) 中的UpdateVATOnLines函式中的程式碼如下所示︰
    現有的程式碼

    ..."VAT Base Amount" := NewVATBaseAmount;
    
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    取代程式碼

    ..."VAT Base Amount" := NewVATBaseAmount;
    
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

15. 變更服務行資料表 (5902) 中的CalcVATToReport函式中的程式碼如下所示︰
    現有的程式碼 1

    ...
    // Delete the following line.
    PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
    // End of the deleted line.
    
    BEGIN
    ...
    

    取代程式碼 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
    VAR
    AmountLCY@1360005 : Decimal;
    AmtInclVATLCY@1360006 : Decimal;
    // End of the added lines.
    
    BEGIN
    ...
    

    現有的程式碼 2

    ...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    
    // Delete the following lines.
    VATAmountToReport :=
    ROUND(VATAmount / ServHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := VATAmount;
    // End of the deleted lines.
    
    END;
    ...
    

    取代程式碼 2

    ...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    
    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / ServHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY;
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := AmtInclVAT - VATBaseAmount;
    // End of the added lines.
    
    END;
    ...
    

16. 變更銷售張貼 Codeunit (80) 的DivideAmount函式中的程式碼如下所示︰
    現有的程式碼 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
    
    // Delete the following lines.
    VAR
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    取代程式碼 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
    BEGIN
    ...
    

    現有的程式碼 2

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    CalcVATToReport(SalesHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    取代程式碼 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(SalesLine,SalesHeader);
    // End of the added line.
    
    ...
    

17. 建立函式中銷售張貼 Codeunit (80) 如下所示︰

    LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR SalesLine@1360002 : Record 37;SalesHeader@1360003 : Record 36);VAR
      TotalVATBaseAmtLCY@1360005 : Decimal;
      TotalVATAmountLCY@1360004 : Decimal;
    BEGIN
      WITH SalesLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(SalesHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY);
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

18. 變更在 [Purch 的DivideAmount函式中的程式碼-張貼 Codeunit (90)，如下所示︰
    現有的程式碼 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
    
    // Delete the following lines.
    VAR
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    取代程式碼 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
    BEGIN
    ...
    

    現有的程式碼 2

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    PurchLine.CalcVATToReport(PurchHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    取代程式碼 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(PurchLine,PurchHeader);
    // End of the added line.
    ...
    

19. 建立中的函式 Purch.-後置 Codeunit (90)，如下所示︰

    LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR PurchLine@1360002 : Record 39;PurchHeader@1360003 : Record 38);VAR
      TotalVATBaseAmtLCY@1360005 : Decimal;
      TotalVATAmountLCY@1360004 : Decimal;
    BEGIN
      WITH PurchLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(PurchHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

20. 變更 Serv 量 Mgt.Codeunit (5986) 的DivideAmount函式中的程式碼如下所示︰
    現有的程式碼 1

    ...ChargeableQty@1006 : Decimal;
    
    // Delete the following lines.
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    取代程式碼 1

    ...ChargeableQty@1006 : Decimal;
    BEGIN
    ...
    

    現有的程式碼 2

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    CalcVATToReport(ServiceHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    取代程式碼 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(ServiceLine,TempVATAmountLineRemainder,ServHeader);
    // End of the added line.
    ...
    

21. 建立中的函式中 Serv 量 Mgt.Codeunit (5986)，如下所示︰

    LOCAL PROCEDURE CalcRoundedVATToReport@1360001(VAR ServiceLine@1360002 : Record 5902;VAR TempVATAmountLineRemainder@1360004 : Record 290;ServHeader@1360003 : Record 5900);VAR
      TotalVATBaseAmtLCY@1360006 : Decimal;
      TotalVATAmountLCY@1360005 : Decimal;
    BEGIN
      WITH ServiceLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(ServHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY);
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

先決條件

您必須套用此 hotfix 之後所安裝的 Microsoft 動態航行點 2009 R2 匈牙利文版本。

移除資訊

您無法移除此 hotfix。