奧地利版本的 Microsoft 動態航行點 2009年增值稅陳述式報表上沒有 [要求] 頁面

範本︰ CPR-Navision 程式碼 Fiacx 範本

錯誤 #: 211708 (內容維護)

之後您匯入增值稅陳述式更新 (Microsoft 動態航行點 2009 sp1 奧地利增值稅陳述式版面配置變更 2014年)。奧地利版本的 Microsoft 動態航行點 2009年,增值稅陳述式報表並沒有要求] 頁面。因此,您無法使用 RoleTailored 用戶端 (RTC) 中的相較於傳統的用戶端的相同選項。下列產品中,就會發生這個問題︰

  • 奧地利的版本的 Microsoft 動態航行點 2009 R2

  • Microsoft 動態航行點 2009 Service Pack 1 (SP1) 的奧地利文版本

解決方案

Hotfix 資訊

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

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

如果這個 hotfix 沒有公布出來讓公眾下載 (亦即本文中未提供此 hotfix 公開的 URL),則散佈需要技術指導人員、 重大問題小組成員或管理員核准,下列條件︰

  • 接獲此 hotfix,客戶必須遭遇 < 徵狀=""> 一節所述的錯誤。

  • 您必須追蹤您傳送這個檔案,並提供他們下一步的 service pack 時可供使用 (如果 service pack 發佈) 的客戶。

此 hotfix 並未排定隨附於 Microsoft 動態航行點的 Service Pack。

安裝資訊

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

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

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

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

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

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

    物件。

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

程式碼變更

注意一定要測試程式碼修正在受控制的環境中生產電腦套用修正程式之前。前套用變更,請匯入所有的 SEPA 更新。

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

  1. 變更要求] 頁面中的增值稅陳述式在報表 (11110) 中的程式碼如下所示︰
    現有的程式碼 1

    ...{
    PROPERTIES
    {
    }
    CONTROLS
    {
    ...

    取代程式碼 1

    ...{
    PROPERTIES
    {
    SaveValues=Yes;
    OnInit=BEGIN
    XMLFilenameControlVisible := TRUE;
    FDFFilenameControlVisible := TRUE;
    END;

    OnOpenPage=BEGIN
    CLEAR(NumberPar6Abs1);

    IF (Startingdate <> 0D) AND (Endingdate <> 0D) THEN BEGIN
    IF (Startingdate = CALCDATE('<-CQ>',Startingdate)) AND (Endingdate = CALCDATE('<+CQ>',Startingdate)) THEN
    PeriodType := PeriodType::quarter
    ELSE IF (Startingdate = CALCDATE('<-CM>',Startingdate)) AND (Endingdate = CALCDATE('<+CM>',Startingdate)) THEN
    PeriodType := PeriodType::month
    ELSE
    PeriodType := PeriodType::"defined period";
    END ELSE
    PeriodType := PeriodType::"defined period";

    FDFFilenameControlVisible := NOT ISSERVICETIER;
    XMLFilenameControlVisible := NOT ISSERVICETIER;
    END;

    }
    CONTROLS
    {
    ...

    現有的程式碼 2

    ...}
    CONTROLS
    {
    }
    }
    CODE
    ...

    取代程式碼 2

    ...}
    CONTROLS
    {
    { 1900000001;0;Container;
    ContainerType=ContentArea }

    { 1900000002;1;Group ;
    CaptionML=ENU=Options }

    { 1160010;2;Field ;
    CaptionML=[ENU=Starting Date;
    DEA=Startdatum];
    SourceExpr=Startingdate;
    OnValidate=VAR
    RefDate@1160000 : Date;
    BEGIN
    CLEAR(RefDate);
    IF Startingdate <> 0D THEN
    RefDate := Startingdate
    ELSE IF Endingdate <> 0D THEN
    RefDate := Endingdate;
    IF RefDate <> 0D THEN BEGIN
    IF PeriodType = PeriodType::quarter THEN BEGIN
    Startingdate := CALCDATE('<-CQ>',RefDate);
    Endingdate := CALCDATE('<+CQ>',RefDate);
    END ELSE IF PeriodType = PeriodType::month THEN BEGIN
    Startingdate := CALCDATE('<-CM>',RefDate);
    Endingdate := CALCDATE('<+CM>',RefDate);
    END ELSE BEGIN
    IF Endingdate = 0D THEN
    Endingdate := RefDate;
    IF Startingdate = 0D THEN
    Startingdate := RefDate;
    END;
    END;
    END;
    }

    { 1160012;2;Field ;
    CaptionML=[ENU=Ending Date;
    DEA=Enddatum];
    SourceExpr=Endingdate;
    OnValidate=VAR
    RefDate@1160000 : Date;
    BEGIN
    CLEAR(RefDate);
    IF Endingdate <> 0D THEN
    RefDate := Endingdate
    ELSE IF Startingdate <> 0D THEN
    RefDate := Startingdate;
    IF RefDate <> 0D THEN BEGIN
    IF PeriodType = PeriodType::quarter THEN BEGIN
    Startingdate := CALCDATE('<-CQ>',RefDate);
    Endingdate := CALCDATE('<+CQ>',RefDate);
    END ELSE IF PeriodType = PeriodType::month THEN BEGIN
    Startingdate := CALCDATE('<-CM>',RefDate);
    Endingdate := CALCDATE('<+CM>',RefDate);
    END ELSE BEGIN
    IF Startingdate = 0D THEN
    Startingdate := RefDate;
    IF Endingdate = 0D THEN
    Endingdate := RefDate;
    END;
    END;
    END;
    }

    { 8 ;2 ;Field ;
    CaptionML=[ENU=Include VAT Entries;
    DEA=MwSt.-Posten einschlie�en];
    OptionCaptionML=[ENU=Open,Closed,Open and Closed;
    DEA=Offen,Geschlossen,Offen und geschlossen];
    SourceExpr=Selection }

    { 4 ;2 ;Field ;
    CaptionML=[ENU=Include VAT Entries;
    DEA=MwSt.-Posten einschlie�en];
    OptionCaptionML=[ENU=Before and Within Period,Within Period;
    DEA=Vor und innerhalb Periode,Innerhalb Periode];
    SourceExpr=PeriodSelection }

    { 11 ;2 ;Field ;
    CaptionML=[ENU=Reporting Type;
    DEA=Berichtstyp];
    OptionCaptionML=[ENU=Quarter,Month,Defined period;
    DEA=Quartal,Monat,Definierte Periode];
    SourceExpr=PeriodType;
    OnValidate=BEGIN
    IF PeriodType = PeriodType::month THEN
    monthPeriodTypeOnValidate;
    IF PeriodType = PeriodType::quarter THEN
    quarterPeriodTypeOnValidate;
    END;
    }

    { 1160007;2;Field ;
    CaptionML=[ENU=Check Positions;
    DEA=Positionen pr�fen];
    SourceExpr=CheckPositions }

    { 1 ;2 ;Field ;
    CaptionML=[ENU=Round to Whole Numbers;
    DEA=Auf ganze Zahlen runden];
    SourceExpr=PrintInWholeNumbers }

    { 1160015;2;Field ;
    Name=PDFFilenameControl;
    CaptionML=[ENU=PDF File Name;
    DEA=PDF-Dateiname];
    SourceExpr=PDFFileName;
    OnAssistEdit=BEGIN
    PDFFileName := CommonDlgMgt.OpenFile(Text1160052,PDFFileName,4,Text1160053,0);
    END;
    }

    { 1160017;2;Field ;
    Name=FDFFilenameControl;
    CaptionML=[ENU=FDF File Name;
    DEA=FDF-Dateiname];
    SourceExpr=FDFFileName;
    Visible=FDFFilenameControlVisible;
    OnAssistEdit=BEGIN
    FDFFileName := CommonDlgMgt.OpenFile(Text1160054,FDFFileName,4,Text1160055,1);
    END;
    }

    { 1160001;2;Field ;
    Name=XMLFilenameControl;
    CaptionML=[ENU=XML File Name;
    DEA=XML-Dateiname];
    SourceExpr=XMLFileName;
    Visible=XMLFilenameControlVisible;
    OnAssistEdit=BEGIN
    XMLFileName := CommonDlgMgt.OpenFile(Text1160056,XMLFileName,4,Text1160057,1);
    END;
    }

    { 1160003;2;Field ;
    CaptionML=[ENU=Surplus Used to Pay Dues;
    DEA=F�r Zahlung von Verbindlichkeiten genutzter �berschuss];
    SourceExpr=UseARE }

    { 1160005;2;Field ;
    CaptionML=[ENU=Additional Invoices sent via Mail;
    DEA=Weitere per Post geschickte Rechnungen];
    SourceExpr=UseREPO }

    { 1160000;2;Field ;
    CaptionML=[ENU=Number �6 Abs. 1;
    DEA=Nummer � 6 Abs. 1];
    Numeric=Yes;
    BlankZero=Yes;
    SourceExpr=NumberPar6Abs1;
    MinValue=0;
    MaxValue=99 }

    }
    }
    CODE
    ...
  2. 變更全域變數中的增值稅陳述式在報表 (11110) 中的程式碼如下所示︰
    現有的程式碼

    ...Text1160061@1160061 : TextConst 'ENU=Would you like to set the Starting and Ending Date according to the selected Reporting Type?;DEA=M�chten Sie das Start- und Enddatum entsprechend dem ausgew�hlten Berichtstyp festlegen?';
    Text1160062@1160062 : TextConst 'ENU=Due to improper filter settings on the fields %1 and/or %2, your VAT Statement might contain incorrect values. Please check.;DEA=Aufgrund von nicht ordnungsgem��en Filtereinstellungen f�r die Felder %1 und/oder %2 enth�lt Ihre MwSt-Erkl�rung m�glicherweise fehlerhafte Werte. Bitte �berpr�fen Sie diese.';
    Text1160063@1160063 : TextConst 'ENU=Default;DEA=Standard';

    LOCAL PROCEDURE CalcLineTotal@3(VATStmtLine2@1160000 : Record 256;VAR TotalAmount@1160001 : Decimal;Level@1160002 : Integer) : Boolean;
    BEGIN
    ...

    取代程式碼

    ...Text1160061@1160061 : TextConst 'ENU=Would you like to set the Starting and Ending Date according to the selected Reporting Type?;DEA=M�chten Sie das Start- und Enddatum entsprechend dem ausgew�hlten Berichtstyp festlegen?';
    Text1160062@1160062 : TextConst 'ENU=Due to improper filter settings on the fields %1 and/or %2, your VAT Statement might contain incorrect values. Please check.;DEA=Aufgrund von nicht ordnungsgem��en Filtereinstellungen f�r die Felder %1 und/oder %2 enth�lt Ihre MwSt-Erkl�rung m�glicherweise fehlerhafte Werte. Bitte �berpr�fen Sie diese.';
    Text1160063@1160063 : TextConst 'ENU=Default;DEA=Standard';
    FDFFilenameControlVisible@19016139 : Boolean INDATASET;
    XMLFilenameControlVisible@19067901 : Boolean INDATASET;

    LOCAL PROCEDURE CalcLineTotal@3(VATStmtLine2@1160000 : Record 256;VAR TotalAmount@1160001 : Decimal;Level@1160002 : Integer) : Boolean;
    BEGIN
    ...
  3. 變更增值稅陳述式在報表 (11110) 中的quarterPeriodTypeOnValidate函式中的程式碼如下所示︰
    現有的程式碼

    ...XMLFile.CLOSE;
    END;

    BEGIN
    END.
    }
    ...

    取代程式碼

    ...XMLFile.CLOSE;
    END;

    LOCAL PROCEDURE quarterPeriodTypeOnValidate@19029369();
    BEGIN
    IF Startingdate <> 0D THEN
    IF (Startingdate <> CALCDATE('<-CQ>',Startingdate)) OR (Endingdate <> CALCDATE('<+CQ>',Startingdate)) THEN
    IF CONFIRM(Text1160061, TRUE) THEN BEGIN
    Startingdate := CALCDATE('<-CQ>',Startingdate);
    Endingdate := CALCDATE('<+CQ>',Startingdate);
    END ELSE
    ERROR('');
    END;

    LOCAL PROCEDURE monthPeriodTypeOnValidate@19063435();
    BEGIN
    IF Startingdate <> 0D THEN
    IF (Startingdate <> CALCDATE('<-CM>',Startingdate)) OR (Endingdate <> CALCDATE('<+CM>',Startingdate)) THEN
    IF CONFIRM(Text1160061, TRUE) THEN BEGIN
    Startingdate := CALCDATE('<-CM>',Startingdate);
    Endingdate := CALCDATE('<+CM>',Startingdate);
    END ELSE
    ERROR('');
    END;

    BEGIN
    END.
    }
    ...


先決條件

您必須具備套用此 hotfix 之後安裝下列產品的其中一個︰

  • 奧地利的版本的 Microsoft 動態航行點 2009 R2

  • Microsoft 動態航行點 2009 SP1 的奧地利的版本

此外,您必須安裝增值稅陳述式更新 (Microsoft 動態航行點 2009 sp1 奧地利增值稅陳述式版面配置變更 2014年)。

移除資訊

您無法移除此 hotfix。

狀態

Microsoft 已確認這是<套用>一節所列出的 Microsoft 產品的問題。

參考

VSFT DynamicsNAVSE: 357984

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

作者︰ andregu
Writer: v-six
技術編審︰ andregu
Editor:

需要更多協助?

擴展您的技能
探索訓練
優先取得新功能
加入 Microsoft 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與我們的其中一個 Office 支援專員連絡以深入了解您的意見。

×