コスト調整が不適切な利益の損失または取引先企業に一般に総勘定元帳転記 Microsoft Dynamics NAV 2009 年のポルトガル語版で

この資料は、ポルトガル語 (pt) の言語のロケールには、Microsoft Dynamics NAV に適用されます。

現象

いくつかの行を記録するを参照する別の在庫転記グループと別の損失または利益、現物在庫仕訳帳で勘定 Microsoft Dynamics NAV 2009 年のポルトガル語版で場合、コスト調整が不適切な利益の損失または取引先企業に総勘定元帳転記します。

この問題は、次の製品で発生します。

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

オブジェクトです。

注: データの修復を実行する必要があるない限り、データストアへの権限を持っている必要はありません。

コードの変更

注: 常にテストコードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。

この問題を解決するには、項目の Jnl。内のGetPhysicalInv関数内のコードを変更する-次のように Post 行 Codeunit (22)。

既存のコード 1

...VAR
PhysInvLedgEntry@1110002 : Record 281;
IsPhysInventory@1110003 : Boolean;
PrevAdjAcc@1110004 : Text[20];
GLEntry@1110005 : Record 17;
BEGIN
WITH ValueEntry DO BEGIN
IsPhysInventory := FALSE;
PhysInvLedgEntry.SETCURRENTKEY("Document No.","Posting Date");
PhysInvLedgEntry.SETRANGE(PhysInvLedgEntry."Document No.","Document No.");
...

置換用コード 1

...VAR
PhysInvLedgEntry@1110002 : Record 281;
IsPhysInventory@1110003 : Boolean;
PrevAdjAcc@1110004 : Text[20];
GLEntry@1110005 : Record 17;

// Add the following line.
GLItemLedgRelation@1110006 : Record 5823;
// End of the added line.

BEGIN
WITH ValueEntry DO BEGIN
IsPhysInventory := FALSE;
PhysInvLedgEntry.SETCURRENTKEY("Document No.","Posting Date");
PhysInvLedgEntry.SETRANGE(PhysInvLedgEntry."Document No.","Document No.");
...

既存のコード 2

...IsPhysInventory := FALSE;
 PhysInvLedgEntry.SETCURRENTKEY("Document No.","Posting Date");
PhysInvLedgEntry.SETRANGE(PhysInvLedgEntry."Document No.","Document No.");
IF PhysInvLedgEntry.FINDSET THEN BEGIN
IsPhysInventory := TRUE;

// Delete the following lines.
GLEntry.SETCURRENTKEY("Document No.","Posting Date");
GLEntry.SETRANGE(GLEntry."Document No.","Document No.");
IF GLEntry.FINDSET THEN BEGIN
GLEntry.FINDLAST;
IF CalledFromAdjustment THEN
PrevAdjAcc := GLEntry."G/L Account No.";
END;
// End of the deleted lines.

END;

IF (("Item Ledger Entry Type" IN ["Item Ledger Entry Type"::"Negative Adjmt.","Item Ledger Entry Type"::"Positive Adjmt."]) AND
("Entry Type" = "Entry Type"::"Direct Cost") AND Adjustment AND IsPhysInventory) OR ItemJnlLine."Phys. Inventory" THEN
InvtPost.GetPhysicalInventory(TRUE,ItemJnlLine."Location Code",ItemJnlLine."Inventory Posting Group",PrevAdjAcc)
...

置換用コード 2

...IsPhysInventory := FALSE;
PhysInvLedgEntry.SETCURRENTKEY("Document No.","Posting Date");
PhysInvLedgEntry.SETRANGE(PhysInvLedgEntry."Document No.","Document No.");
IF PhysInvLedgEntry.FINDSET THEN BEGIN
IsPhysInventory := TRUE;

// Add the following lines.
IF CalledFromAdjustment THEN BEGIN
GLItemLedgRelation.SETCURRENTKEY("Value Entry No.");
GLItemLedgRelation.SETRANGE("Value Entry No.",ItemJnlLine."Applies-to Value Entry");
IF GLItemLedgRelation.FINDLAST THEN BEGIN
GLEntry.GET(GLItemLedgRelation."G/L Entry No.");
PrevAdjAcc := GLEntry."G/L Account No.";
END;
END;
// End of the added lines.

END;

IF (("Item Ledger Entry Type" IN ["Item Ledger Entry Type"::"Negative Adjmt.","Item Ledger Entry Type"::"Positive Adjmt."]) AND
("Entry Type" = "Entry Type"::"Direct Cost") AND Adjustment AND IsPhysInventory) OR ItemJnlLine."Phys. Inventory" THEN
InvtPost.GetPhysicalInventory(TRUE,ItemJnlLine."Location Code",ItemJnlLine."Inventory Posting Group",PrevAdjAcc)
...

必要条件

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

Microsoft Dynamics NAV 2009 の R2 のポルトガル語版
ポルトガル語バージョンの Microsoft Dynamics NAV 2009 サービスパック 1

さらに、修正プログラム 2845151 をインストールするこの修正プログラムを適用する必要があります。2845151 の修正プログラムに関する詳細については、マイクロソフトサポート技術情報の記事を表示するのには次の資料番号をクリックします:

在庫の損失を2845151で Microsoft Dynamics NAV 2009 年のポルトガル語版ではありません。

アンインストール情報

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

状況

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

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