スウェーデン語バージョンの Microsoft Dynamics NAV 2009 のレポート フィルター処理日内で内向き登録エントリを閉じる場合でも、"仕入先 - 残高から日付までの" レポート (321) に、内向き登録エントリが予期せず印刷されます

適用先
Dynamics NAV 2009

この記事は、スウェーデン語 (se) 言語ロケールの Microsoft Dynamics NAV に適用されます。

現象

スウェーデン語バージョンの Microsoft Dynamics NAV 2009 では、次のシナリオを検討してください。

  • 修正プログラム 2801885を適用します。
  • 仕入先の購買請求書に対して、内向き登録エントリを転記します。
  • 購買請求書を転記して、内向き登録エントリを閉じます。
  • 仕入先の "仕入先 - 残高終了日" レポート (321) を実行するには、内向き登録エントリの転記日と購買請求書の両方を含む日付にフィルター処理します。

このシナリオでは、内向き登録エントリが予期せず出力されます。 この問題は、次の製品で発生します。

  • Microsoft Dynamics NAV 2009 R2 のスウェーデン語バージョン
  • Microsoft Dynamics NAV 2009 Service Pack 1 のスウェーデン語バージョン

修正プログラム 2801885の詳細については、次の記事番号をクリックして、Microsoft サポート技術情報の記事を参照してください。

2801885 スウェーデン語バージョンの Microsoft Dynamics NAV 2009 のレポート フィルター処理日より後の日付に対して内向き登録エントリを閉じた場合、"仕入先 - 残高から日付" レポートにインワード登録エントリが表示されません

解決策

修正プログラムの情報

サポートされている修正プログラムが Microsoft から入手できるようになりました。 ただし、この記事で説明されている問題を修正することのみを目的としています。 この特定の問題が発生しているシステムにのみ適用します。 この修正プログラムは、追加のテストを受け取る場合があります。 したがって、この問題の影響を大きく受けない場合は、次の Microsoft Dynamics NAV 2009 Service Pack またはこの修正プログラムを含む次の Microsoft Dynamics NAV バージョンを待つことをおすすめします。

注 特別なケースでは、Microsoft Dynamics および関連製品のテクニカル サポート プロフェッショナルが特定の更新プログラムによって問題が解決されると判断した場合、通常はサポート呼び出しに対して発生する料金が取り消されることがあります。 ただし、特定の更新プログラムの対象とならない追加の質問および問題については、通常のサポート料金が適用されます。

            
          

インストール情報

Microsoft は、明示または黙示の保証なしで、説明のみを目的としてプログラミング例を提供しています。 これには、商品性または特定の目的への適合性に関する暗黙の保証が含まれますが、これらに限定されません。 この記事では、デモンストレーションされているプログラミング言語と、プロシージャの作成とデバッグに使用されるツールについてよく理解していることを前提としています。 マイクロソフト サポート窓口では、特定のプロシージャの機能説明に関するご質問に対して支援いたしますが、本例を特定の目的を満たすために機能を追加したり、プロシージャを構築することは行いません。

注 この修正プログラムをインストールする前に、すべての Microsoft Navision クライアント ユーザーがシステムからログオフされていることを確認します。 これには、Microsoft Navision Application Services (NAS) クライアント ユーザーが含まれます。 この修正プログラムを実装するときにログオンする唯一のクライアント ユーザーである必要があります。

この修正プログラムを実装するには、開発者ライセンスが必要です。

[Windows ログイン] ウィンドウまたは [データベース ログイン] ウィンドウのユーザー アカウントに "SUPER" ロール ID を割り当てることをお勧めします。 ユーザー アカウントに "SUPER" ロール ID を割り当てることができない場合は、ユーザー アカウントに次のアクセス許可があることを確認する必要があります。

  • 変更するオブジェクトの [変更] アクセス許可。
  • システム オブジェクト ID 5210 オブジェクトとシステム オブジェクト ID 9015 オブジェクトの Execute アクセス許可。

                
メモ データ修復を実行する必要がない限り、データ ストアに対する権限は必要ありません。

コードの変更

メモ 運用環境のコンピューターに修正プログラムを適用する前に、制御された環境でコード修正を常にテストします。
この問題を解決するには、次の手順を実行します。

  1. "仕入先 - 残高から日付への" レポート (321) のデータ項目番号 4 セクションのコードを次のように変更します。
    既存のコード

    ...
    IF FINDSET THEN
    REPEAT
    IF Open THEN
    MARK(TRUE);
    
    // Delete the following lines.
    IF AppliedInwardRegEntry.GET("Applies-to Entry") THEN
    MARK(AppliedInwardRegEntry."Posting Date" <= MaxDate);
    // End of the lines.
    
    UNTIL NEXT = 0;
    SETCURRENTKEY("Entry No.");
    SETRANGE(Open);
    ...
    

    置換コード

    ...
    IF FINDSET THEN
    REPEAT
    IF Open THEN
    MARK(TRUE);
    
    // Add the following lines.
    IF AppliedInwardRegEntry.GET("Applies-to Entry") THEN
    MARK(AppliedInwardRegEntry."Posting Date" > MaxDate);
    // End of the lines.
    
    UNTIL NEXT = 0;
    SETCURRENTKEY("Entry No.");
    SETRANGE(Open);
    ...
    
  2. "Purch.-Post" codeunit (90) の [プロパティ] セクションのコードを次のように変更します。
    既存のコード

    ...
    PurchSetup.GET;
    InwRegHeader.SETRANGE("Document Type",PurchHeader."Document Type");
    InwRegHeader.SETRANGE("Document No.",PurchHeader."No.");
    InwRegHeader.SETRANGE(Status, InwRegHeader.Status::Posted);
    
    // Delete the following lines.
    IF InwRegHeader.FIND('-') THEN
    InwRegReverse.RUN(InwRegHeader);
    // End of the lines.
    
    PurchInvHeader.INIT;
    PurchInvHeader.TRANSFERFIELDS(PurchHeader);
    IF "Document Type" = "Document Type"::Order THEN BEGIN
    PurchInvHeader."Pre-Assigned No. Series" := '';
    ...
    

    置換コード

    ...
    PurchSetup.GET;
    InwRegHeader.SETRANGE("Document Type",PurchHeader."Document Type");
    InwRegHeader.SETRANGE("Document No.",PurchHeader."No.");
    InwRegHeader.SETRANGE(Status, InwRegHeader.Status::Posted);
    
    // Add the following lines.
    IF InwRegHeader.FINDFIRST THEN BEGIN
    InwRegReverse.SetPostingDate("Posting Date");
    InwRegReverse.RUN(InwRegHeader);
    END;
    // End of the lines.
    
    PurchInvHeader.INIT;
    PurchInvHeader.TRANSFERFIELDS(PurchHeader);
    IF "Document Type" = "Document Type"::Order THEN BEGIN
    PurchInvHeader."Pre-Assigned No. Series" := '';
    ...
    
  3. "Inward Reg.-Reverse" codeunit (11203) のグローバル変数セクションのコードを次のように変更します。
    既存のコード

    ...
    PreviousDim1Code@1070021 : Code[20];
    PreviousDim2Code@1070022 : Code[20];
    DimensionsOnTotalTrans@1070023 : Boolean;
    GenJnlCheckLine@1070024 : Codeunit 11;
    Text005@1070025 : TextConst 'ENU=is not within your range of allowed posting dates;SVE=„r inte i ditt till†tna intervall f”r bokf”ringsdatum';
    PROCEDURE MakeInwRegEntriesReverse@1070000();
    BEGIN
    IF InwRegEntry.FIND('+') THEN
    ...
    

    置換コード

    ...
    PreviousDim1Code@1070021 : Code[20];
    PreviousDim2Code@1070022 : Code[20];
    DimensionsOnTotalTrans@1070023 : Boolean;
    GenJnlCheckLine@1070024 : Codeunit 11;
    Text005@1070025 : TextConst 'ENU=is not within your range of allowed posting dates;SVE=„r inte i ditt till†tna intervall f”r bokf”ringsdatum';
    
    // Add the following line.
    PostingDate@1070030 : Date;
    
    PROCEDURE MakeInwRegEntriesReverse@1070000();
    BEGIN
    IF InwRegEntry.FIND('+') THEN
    ...
    
  4. "Inward Reg.-Reverse" codeunit (11203) の MakeInwRegEntryReverse 関数のコードを次のように変更します。
    既存のコード

    ...
    InwRegEntry."Entry No." := NextEntryNo;
    InwRegEntry."Applies-to Entry" := "Entry No.";
    InwRegEntry.Open := FALSE;
    InwRegEntry."Source Type" := "Source Type";
    InwRegEntry."Source No." := "Source No.";
    
    // Delete the following line.
    InwRegEntry."Posting Date" := InwHeader."Posting Date";
    
    InwRegEntry."Vendor Posting Group" := "Vendor Posting Group";
    InwRegEntry."Gen. Bus. Posting Group" := "Gen. Bus. Posting Group";
    InwRegEntry."Vendor No." := "Vendor No.";
    InwRegEntry."Document No." := "Document No.";
    InwRegEntry."Line No." := "Line No.";
    ...
    

    置換コード

    ...
    InwRegEntry."Entry No." := NextEntryNo;
    InwRegEntry."Applies-to Entry" := "Entry No.";
    InwRegEntry.Open := FALSE;
    InwRegEntry."Source Type" := "Source Type";
    InwRegEntry."Source No." := "Source No.";
    
    // Add the following line.
    InwRegEntry."Posting Date" := PostingDate; 
    
    InwRegEntry."Vendor Posting Group" := "Vendor Posting Group";
    InwRegEntry."Gen. Bus. Posting Group" := "Gen. Bus. Posting Group";
    InwRegEntry."Vendor No." := "Vendor No.";
    InwRegEntry."Document No." := "Document No.";
    InwRegEntry."Line No." := "Line No.";
    ...
    

          

前提条件

この修正プログラムを適用するには、次のいずれかの製品がインストールされている必要があります。

  • Microsoft Dynamics NAV 2009 R2 のスウェーデン語バージョン
  • Microsoft Dynamics NAV 2009 Service Pack 1 のスウェーデン語バージョン

アンインストール情報

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

状態

Microsoft は、これが "適用対象" セクションに記載されている Microsoft 製品の問題であることを確認しました。

注: この資料は、"迅速な公開" を目的としてマイクロソフト サポート組織により直接作成されたものです。 ここに含まれる情報は、新しい問題に対応するため、そのままの状態で提供されます。 情報を迅速に公開するため、この資料には誤植などが含まれる可能性があり、また、予告なく改訂される場合があります。 その他の注意事項については、使用条件を参照してください。