Microsoft Dynamics NAV 2009 年のオーストリアのバージョンでは VAT 文レポートの要求ページがいません。

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) をインストールする必要があります。

アンインストール情報

この修正プログラムを削除することはできません。

状況

マイクロソフトは、この問題を「対象製品」セクションに記載されているマイクロソフト製品の問題として認識しています。

注: これは、マイクロソフトサポートの組織内から直接作成した「高速公開」の資料です。ここに含まれる情報は、新たに発生している問題に応じて現状のまま提供されています。速やかに利用できるようにした結果として、内容には誤植が含まれている可能性があり、事前告知なしで改訂する場合があります。その他の考慮事項については、使用条件を参照してください。

Microsoft Dynamics NAV 2009 年のオーストリアのバージョンでは VAT 文レポートの要求ページがいません。

解決策

修正プログラムの情報

インストール情報

コードの変更

必要条件

アンインストール情報

状況

ヘルプを表示

その他のオプションが必要ですか?

この情報は役に立ちましたか?

フィードバックをいただき、ありがとうございます。