當您了解在增值稅應用程式的工作表] 對話方塊的 [Microsoft 動態航行點 2009 R2 波蘭文版本中的 「 延擱 」 的增值稅出現 「 您無法處理延後的增值稅的銷售信用備忘這裡 」 的錯誤訊息


本文適用於 Microsoft 動態航行點波蘭文 (pl) 語言地區設定。

狀況


假設您在波蘭文版本的 Microsoft 動態航行點 2009 R2 張貼包含 「 延擱 」 的 value-added 稅金 (增值稅) 的銷售信用備忘錄。當您嘗試了解增值稅增值稅應用程式的工作表] 對話方塊中時,您會收到下列錯誤訊息︰
您無法針對銷售信用備忘處理延後的增值稅,此處所示。

解決方案


Hotfix 資訊

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

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


安裝資訊

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

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

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

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


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

程式碼變更

注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。
若要解決這個問題,請依照下列步驟執行:
  1. 刪除下列參數中的RealizePostponedVAT函式在 Gen.Jnl。-張貼行 codeunit (12):
    • TransactionNo
    • VATEntryNo
    • VAR TempJnlLineDim2
  2. 新增新的參數中的RealizePostponedVAT函式在 Gen.Jnl。-張貼行 codeunit (12),然後指定參數,如下所示︰
    • 名稱VATEntry
    • 資料型別資料錄
    • 子類型增值稅項目(254)
  3. 變更程式碼中的RealizePostponedVAT函式在 Gen.Jnl。-張貼行 codeunit (12),如下所示︰
    現有的程式碼 1
    ...GenJnlLine.COPY(GenJnlLine2);

    // Delete the following lines.
    TempJnlLineDim.RESET;
    TempJnlLineDim.DELETEALL;
    DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim);
    // End of the lines.

    GLSetup.GET;
    SourceCodeSetup.GET;
    ...
    取代程式碼 1
    ...GenJnlLine.COPY(GenJnlLine2);

    // Add the following line.
    PreparePostponedVATDim(VATEntry,TempJnlLineDim);

    GLSetup.GET;
    SourceCodeSetup.GET;
    ...
    現有的程式碼 2
    ...InitCodeUnit;

    // Delete the following lines.
    VATEntryNoToRealize := VATEntryNo;
    IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN
    CustLedgEntry."Transaction No." := TransactionNo;
    // End of the lines.

    CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
    END ELSE BEGIN
    ...
    取代程式碼 2
    ...InitCodeUnit;

    // Add the following lines.
    VATEntryNoToRealize := VATEntry."Entry No.";
    IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN
    CustLedgEntry."Transaction No." := VATEntry."Transaction No.";
    //End of the lines.

    CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
    END ELSE BEGIN
    ...
    現有的程式碼 3
    ...CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
    END ELSE BEGIN

    // Delete the following line.
    VendLedgEntry."Transaction No." := TransactionNo;

    VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount);
    END;
    VATEntryNoToRealize := 0;
    ...
    取代程式碼 3
    ...CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
    END ELSE BEGIN

    // Add the following line.
    VendLedgEntry."Transaction No." := VATEntry."Transaction No.";

    VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount);
    END;
    VATEntryNoToRealize := 0;
    ...
  4. 刪除下列參數中的ReversePostponedVAT函式在 Gen.Jnl。-張貼行 codeunit (12):
    • TransactionNo
    • VATEntryNo
    • VAR TempJnlLineDim2
  5. 新增新的參數中的ReversePostponedVAT函式在 Gen.Jnl。-張貼行 codeunit (12),然後指定參數,如下所示︰
    • 名稱PostponedVATEntry
    • 資料型別資料錄
    • 子類型增值稅項目(254)
  6. 變更程式碼中的ReversePostponedVAT函式在 Gen.Jnl。-張貼行 codeunit (12),如下所示︰
    現有的程式碼 1
    ...GenJnlLine.COPY(GenJnlLine2);

    // Delete the following lines.
    TempJnlLineDim.RESET;
    TempJnlLineDim.DELETEALL;
    DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim);
    // End of the lines.

    SourceCodeSetup.GET;
    GenJnlLine."Source Code" := SourceCodeSetup.Reversal;
    ...
    取代程式碼 1
    ...GenJnlLine.COPY(GenJnlLine2);

    // Add the following lines.
    PreparePostponedVATDim(PostponedVATEntry,TempJnlLineDim);
    //End of the lines.

    SourceCodeSetup.GET;
    GenJnlLine."Source Code" := SourceCodeSetup.Reversal;
    ...
    現有的程式碼 2
    ...VATEntry.LOCKTABLE;
    UnrealVATEntry.SETCURRENTKEY("Transaction No.");

    // Delete the following lines.
    IF VATEntryNo <> 0 THEN
    UnrealVATEntry.SETRANGE("Entry No.",VATEntryNo)
    ELSE
    UnrealVATEntry.SETRANGE("Transaction No.",TransactionNo);
    // End of the lines.

    IF UnrealVATEntry.FINDSET(TRUE) THEN
    REPEAT
    VATEntry.SETCURRENTKEY("Unrealized VAT Entry No.");
    ...
    取代程式碼 2
    ...VATEntry.LOCKTABLE;
    UnrealVATEntry.SETCURRENTKEY("Transaction No.");

    // Add the following lines.
    IF PostponedVATEntry."Entry No." <> 0 THEN
    UnrealVATEntry.SETRANGE("Entry No.",PostponedVATEntry."Entry No.")
    ELSE
    UnrealVATEntry.SETRANGE("Transaction No.",PostponedVATEntry."Transaction No.");
    //End of the lines.

    IF UnrealVATEntry.FINDSET(TRUE) THEN
    REPEAT
    VATEntry.SETCURRENTKEY("Unrealized VAT Entry No.");
    ...
  7. 建立新的PreparePostponedVATDim函式在 Gen.Jnl。-張貼行 codeunit (12),如下所示︰
    LOCAL PROCEDURE PreparePostponedVATDim@1170010(VATEntry@1170003 : Record 254;VAR TempJnlLineDim@1170000 : Record 356);VAR
    GLEntryVATEntryLink@1170002 : Record 253;
    LedgEntryDim@1170001 : Record 355;
    BEGIN
    TempJnlLineDim.RESET;
    TempJnlLineDim.DELETEALL;
    IF VATEntry.GetCVLedgEntryNo(TempJnlLineDim) = 0 THEN BEGIN
    GLEntryVATEntryLink.SETRANGE("VAT Entry No.",VATEntry."Entry No.");
    IF GLEntryVATEntryLink.FINDFIRST THEN BEGIN
    LedgEntryDim.SETRANGE("Table ID",DATABASE::"G/L Entry");
    LedgEntryDim.SETRANGE("Entry No.",GLEntryVATEntryLink."G/L Entry No.");
    DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim);
    END;
    END;
    END;
  8. 變更 VATManagement codeunit (12376) 的PostponeVATEntry函式中的程式碼如下所示︰
    現有的程式碼
    ...VATEntry.TESTFIELD("Postponed VAT",FALSE);
    VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
    IF NOT AllowSalesCrMemo AND

    // Delete the following lines.
    (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
    (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo")
    // End of the lines.

    THEN
    ERROR(Text010);
    UNTIL VATEntry.NEXT = 0
    ...
    取代程式碼
    ...VATEntry.TESTFIELD("Postponed VAT",FALSE);
    VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
    IF NOT AllowSalesCrMemo AND

    // Add the following line.
    IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.")

    THEN
    ERROR(Text010);
    UNTIL VATEntry.NEXT = 0
    ...
  9. 變更 VATManagement codeunit (12376) 的RealizeVATEntry函式中的程式碼如下所示︰
    現有的程式碼
    ...VATEntry.TESTFIELD("Postponed VAT",TRUE);
    VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
    IF NOT AllowSalesCrMemo AND

    // Delete the following lines.
    (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
    (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo")
    // End of the lines.

    THEN
    ERROR(Text010);
    UNTIL VATEntry.NEXT = 0
    ...
    取代程式碼
    ...VATEntry.TESTFIELD("Postponed VAT",TRUE);
    VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
    IF NOT AllowSalesCrMemo AND

    // Add the following line.
    IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.")

    THEN
    ERROR(Text010);
    UNTIL VATEntry.NEXT = 0
    ...
  10. 刪除下列的本機變數,在 VATManagement codeunit (12376) 中的PostUnrealVAT函式中︰
    • TempJnlLineDim
    • EntryNo
  11. 變更 VATManagement codeunit (12376) 的PostUnrealVAT函式中的程式碼如下所示︰
    現有的程式碼
    ...ERROR(Text011,
    VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date",
    VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No.");

    // Delete the following lines.
    EntryNo := VATEntry.GetCVLedgEntryNo(TempJnlLineDim);
    IF EntryNo <> 0 THEN BEGIN
    GenJnlLine."Document Type" := VATEntry."Document Type";
    GenJnlLine."Document No." := VATEntry."Document No.";
    GenJnlLine."Postponed VAT" := TRUE;
    GenJnlLine."VAT Date" := VATDate;
    GenJnlLine."Posting Date" := VATDate;
    IF VATEntry."Postponed VAT" THEN
    GenJnlLine.Description := Text008
    ELSE
    GenJnlLine.Description := Text009;
    GenJnlLine.Description :=
    COPYSTR(
    STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."),
    1,MAXSTRLEN(GenJnlLine.Description));
    GenJnlLine."System-Created Entry" := TRUE;
    CASE VATEntry.Type OF
    VATEntry.Type::Sale:
    GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer;
    VATEntry.Type::Purchase:
    GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor;
    END;
    IF Type = Type::Realize THEN
    PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim)
    ELSE // Reverse
    PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim);
    END;
    // End of the lines.
    ...
    取代程式碼
    ...ERROR(Text011,
    VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date",
    VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No.");

    // Add the following lines.
    GenJnlLine."Document Type" := VATEntry."Document Type";
    GenJnlLine."Document No." := VATEntry."Document No.";
    GenJnlLine."Postponed VAT" := TRUE;
    GenJnlLine."VAT Date" := VATDate;
    GenJnlLine."Posting Date" := VATDate;
    IF VATEntry."Postponed VAT" THEN
    GenJnlLine.Description := Text008
    ELSE
    GenJnlLine.Description := Text009;
    GenJnlLine.Description :=
    COPYSTR(
    STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."),
    1,MAXSTRLEN(GenJnlLine.Description));
    GenJnlLine."System-Created Entry" := TRUE;
    CASE VATEntry.Type OF
    VATEntry.Type::Sale:
    GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer;
    VATEntry.Type::Purchase:
    GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor;
    END;
    IF Type = Type::Realize THEN
    PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry)
    ELSE // Reverse
    PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry);
    //End of the lines.
    ...
  12. 建立新的HasPostedCrMemo函式在 VATManagement codeunit (12376) 如下所示︰
    LOCAL PROCEDURE HasPostedCrMemo@1170007(DocumentNo@1170000 : Code[20]) : Boolean;VAR
    SalesCrMemoHeader@1170001 : Record 114;
    BEGIN
    EXIT(SalesCrMemoHeader.GET(DocumentNo));
    END;
  13. 建立新的IsPostponedSalesCrMemoVAT函式在 VATManagement codeunit (12376) 如下所示︰
    LOCAL PROCEDURE IsPostponedSalesCrMemoVAT@1170008(VATEntry@1170000 : Record 254) : Boolean;BEGIN
    EXIT(
    (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
    (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo"));
    END;

先決條件

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

移除資訊

您無法移除此 hotfix。

狀態


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