之後您匯入增值稅陳述式更新 (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 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用，如果有其他支援問題是，不能限定的特定更新程式。
安裝資訊
Microsoft 會提供程式設計範例僅供說明，而不做任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能。不過，它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。
注意套用此 hotfix 之前，請確認所有的 Microsoft 動態航行點用戶端使用者會登出系統。這包括 Microsoft 動態航行點應用程式伺服器 (NAS) 服務。您應該是唯一的用戶端使用者已登入，當您實作此 hotfix。
若要實作此 hotfix，您必須有開發人員授權。
我們建議您在 Windows 登入] 視窗中的色彩，或資料庫登入] 視窗中的使用者帳戶被指派 「 進階 」 的角色識別碼。如果使用者帳戶不能指派為 「 超級 」 的角色識別碼，您必須確認使用者帳戶具有下列權限︰
-
您將會變更物件的 [修改] 權限。
-
執行權限的系統物件 ID 5210物件和系統物件 ID 9015
物件。
注意您沒有擁有資料存放區的權限，除非您需要執行資料修復。
程式碼變更
注意一定要測試程式碼修正在受控制的環境中生產電腦套用修正程式之前。前套用變更，請匯入所有的 SEPA 更新。
若要解決這個問題，請依照下列步驟執行：
-
變更要求] 頁面中的增值稅陳述式在報表 (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
... -
變更全域變數中的增值稅陳述式在報表 (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
... -
變更增值稅陳述式在報表 (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 產品的問題。
注意這是直接從 Microsoft 支援組織內建立的「快速發行」文件。本文件所包含的現狀資訊是針對新興問題的回應。為縮短使其可用的時程，資料可能會包含印刷錯誤，且可能會隨時進行修改而不另行通知。如其他考量，請參閱 「使用規定」。
