VAT ステートメントの更新プログラム (Microsoft Dynamics NAV 2009 SP1 - オーストリアの VAT ステートメントのレイアウトの変更 2014) をインポートするとします。VAT 文レポートには、Microsoft Dynamics NAV 2009 年のオーストリアのバージョンで要求ページがありません。そのため、従来のクライアントと比較される RoleTailored クライアント (RTC) で同じオプションを使うことはできません。この問題は、次の製品で発生します。
-
オーストリアのバージョンの Microsoft Dynamics NAV 2009 の R2
-
オーストリアのバージョンの Microsoft Dynamics NAV 2009 サービス パック 1 (SP1)
解決策
修正プログラムの情報
サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。
注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。
インストール情報
マイクロソフトでは解説することのみを目的としてプログラミング例を提供しています。暗示あるいは明示していることに対しての保証はしておりません。ここで言う保証とは、特定の目的に対する商品性や適合性の暗示的保証を含んでいますが、それに限定されるわけではありません。この資料では、例示されているプログラミング言語およびプロシージャの作成やデバッグに使用するツールにお客様が精通していることを前提としています。マイクロソフトのサポート エンジニアは、特定のプロシージャの機能について説明することができます。ただし、お客様固有の要件を満たすために、追加機能の提供またはプロシージャの作成のために、これらの例に変更を加えたりはしません。
注: この修正プログラムをインストールする前に、Microsoft Dynamics NAV のすべてのクライアント ユーザーがシステムの電源を記録することを確認します。これには、Microsoft Dynamics NAV アプリケーション サーバー (NAS) のサービスが含まれます。この修正プログラムを実装すると、ログオンしている唯一のクライアント ユーザーが必要です。
この修正プログラムを実装するには、開発者用のライセンスが必要です。
ユーザー アカウントまたはデータベース ログイン ウィンドウに Windows のログイン ウィンドウにある「スーパー」ロール id を割り当てられていることをお勧めします。ユーザー アカウントには、「スーパー」ロール ID を割り当てることができません、する場合は、ユーザー アカウントが次のアクセス許可を持っているを確認する必要があります。
-
変更するオブジェクトの変更のアクセス許可。
-
実行のアクセス許可、システム オブジェクトの ID 5210オブジェクトおよびシステム オブジェクトの ID 9015
オブジェクトです。
注: データの修復を実行する必要があるない限り、データ ストアへの権限を持っている必要はありません。
コードの変更
注常にテスト コードの修正プログラムの制御された環境で、運用コンピューターに修正プログラムを適用する前にします。変更を適用するには、前に SEPA のすべての更新プログラムをインポートしてください。
この問題を解決するには、次の手順を実行します。
-
次のように VAT ステートメントのレポート (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
... -
VAT ステートメントのレポート (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
... -
VAT ステートメントのレポート (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.
}
...
必要条件
この修正プログラムを適用するのにはインストールされている製品は次のいずれかが必要です。
-
オーストリアのバージョンの Microsoft Dynamics NAV 2009 の R2
-
オーストリアのバージョンの Microsoft Dynamics NAV 2009 の SP1
さらに、VAT ステートメントの更新プログラム (Microsoft Dynamics NAV 2009 SP1 - オーストリアの VAT ステートメントのレイアウトの変更 2014) をインストールする必要があります。
アンインストール情報
この修正プログラムを削除することはできません。
状況
マイクロソフトは、この問題を「対象製品」セクションに記載されているマイクロソフト製品の問題として認識しています。
注: これは、マイクロソフト サポートの組織内から直接作成した「高速公開」の資料です。ここに含まれる情報は、新たに発生している問題に応じて現状のまま提供されています。速やかに利用できるようにした結果として、内容には誤植が含まれている可能性があり、事前告知なしで改訂する場合があります。その他の考慮事項については、使用条件を参照してください。
