Microsoft Dynamics NAV で Average costing メソッドを使用する項目に対して再評価を実行すると、項目の単価がマイナスになります

適用先

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1

この記事は、すべての国とすべての言語ロケールの Microsoft Dynamics NAV に適用されます。

現象

平均原価計算方法を使用する項目があるとします。品目に対して再評価を実行すると、品目の単価が予期せず負になります。さらに、アイテムのコストの調整バッチジョブを実行すると、パフォーマンスが低下します。
この問題は、次の製品で発生します。

Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Microsoft Dynamics NAV 2009
修正プログラムが適用された Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) 975251

注修正プログラムの975251の詳細については、Microsoft サポート技術情報の記事を表示するには、次の資料番号をクリックします。

975251 Microsoft Dynamics NAV 5.0 で平均コストのコストの調整バッチジョブを実行すると、パフォーマンスが低下します

解決策

修正プログラムの情報

サポートされている修正プログラムが 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 アクセス許可。

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

コードの変更

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

インベントリ調整コードユニット (5895) の AvgValueEntriesToAdjustExist 関数のコードを次のように変更します。

...
         IF FindNextRange THEN BEGIN
           AvgCostAdjmtEntryPoint."Valuation Date" := GetNextDate(AvgCostAdjmtEntryPoint."Valuation Date");
           AvgValueEntriesToAdjustExist(OutbndValueEntry,ExcludedValueEntry,AvgCostAdjmtEntryPoint);
         END;  

  // Add the following line.
  OutbndValueEntry.SETCURRENTKEY("Item Ledger Entry No."); 

...

インベントリ調整コードユニット (5895) の IsExcludeEntryFromAvgCostCalc 関数のコードを次のように変更します。

...
         IF NOT "Valued By Average Cost" THEN
           EXIT(FALSE);
         ItemLedgEntry.GET("Item Ledger Entry No.");
         IF ItemLedgEntry.Positive THEN
           EXIT(FALSE);

// Delete the following line.
EXIT(TRUE); 

// Add the following line.
       EXIT("Item Ledger Entry No." > OutbndValueEntry."Item Ledger Entry No."); 
...

...
    // Delete the following lines.
    LOCAL PROCEDURE GetEntryNoToStartAt@78
    BEGIN
      StartAt := 0;
      WITH ExcludedValueEntry DO BEGIN
        RESET;
        IF FINDFIRST THEN
          REPEAT
            IF "Partial Revaluation" AND
               (OutbndValueEntry."Entry No." > "Entry No.")
            THEN
              StartAt := "Entry No.";
          UNTIL NEXT = 0;
      END;
      EXIT(StartAt + 1);
    END;
    // End of the lines.
...

インベントリ調整コードユニット (5895) の AdjustItemAvgCost 関数のコードを次のように変更します。

...
            WHILE NOT Restart AND AvgValueEntriesToAdjustExist(
                    TempOutbndValueEntry,TempExcludedValueEntry,AvgCostAdjmtEntryPoint)
            DO BEGIN
              REPEAT

                // Delete the following lines.
                TempExcludedValueEntry.SETFILTER("Entry No.",'>=%1',                          
                  GetEntryNoToStartAt(TempOutbndValueEntry,TempExcludedValueEntry)); 
                // End of the lines.

                AdjustOutbndAvgEntry(TempOutbndValueEntry,TempExcludedValueEntry);
                UpdateConsumpAvgEntry(TempOutbndValueEntry);
              UNTIL TempOutbndValueEntry.NEXT = 0;
...

インベントリ調整コードユニット (5895) の IsExcludeEntryFromAvgCostCalc 関数のコードを次のように変更します。

...
    BEGIN
      WITH ValueEntry DO BEGIN
        IF "Partial Revaluation" THEN         

          // Delete the following line.
          EXIT(TRUE);                                                                           

          // Add the following lines.
          EXIT(                                                                                 
            ("Entry No." > OutbndValueEntry."Entry No.") OR                                     
            (("Entry No." < OutbndValueEntry."Entry No.") AND NOT                               
             IncludedInCostCalculation(ValueEntry,OutbndValueEntry."Item Ledger Entry No.")));  
          // End of the lines.

        IF "Item Ledger Entry No." = OutbndValueEntry."Item Ledger Entry No." THEN
          EXIT(TRUE);
...

前提条件

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

Microsoft Dynamics NAV 2009 Service Pack 1
Microsoft Dynamics NAV 2009
修正プログラムが適用された Microsoft Dynamics NAV 5.0 Service Pack 1 975251

アンインストール情報

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

状態

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

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