"最新のトランザクションなし。顧客のアプリケーションをする必要があります。元帳エントリ [番号]"Microsoft dynamics NAV 2009 顧客勘定元帳のエントリを反映しないと、エラー メッセージ


この資料では、すべての国と言語ロケールのすべての Microsoft Dynamics NAV に該当します。

現象


Microsoft Dynamics NAV 2009 年には、次のシナリオを検討してください。
  • 外貨を使用する顧客の元帳エントリがあります。
  • 一部エントリを別のエントリに適用します。
  • エントリを使用する外国通貨の為替レートの調整機能を実行するとします。
  • 顧客勘定元帳のエントリを適用しない場合とします。
この場合、次のようなエラー メッセージが表示されます。
最新のトランザクションなし。顧客のアプリケーションをする必要があります。元帳エントリ番号ではありません。

この問題は、次の製品で発生します。
  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 サービス パック 1 (SP1)

解決策


修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV の service pack または修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。


インストール情報

マイクロソフトでは解説することのみを目的としてプログラミング例を提供しています。暗示あるいは明示していることに対しての保証はしておりません。ここで言う保証とは、特定の目的に対する商品性や適合性の暗示的保証を含んでいますが、それに限定されるわけではありません。この資料では、例示されているプログラミング言語およびプロシージャの作成やデバッグに使用するツールにお客様が精通していることを前提としています。マイクロソフトのサポート エンジニアは、特定のプロシージャの機能を説明することができますが、機能の追加またはお客様固有の要件を満たすようにプロシージャを作成するこれらの例は変更されません。

注: この修正プログラムをインストールする前に、Microsoft Navision のすべてのクライアント ユーザーがシステムの電源を記録することを確認します。これには、Microsoft Navision アプリケーション サービス (NAS) クライアントのユーザーが含まれます。この修正プログラムを実装すると、ログオンしている唯一のクライアント ユーザーが必要です。

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

ユーザー アカウントまたはデータベース ログイン ウィンドウに Windows のログイン ウィンドウにある「スーパー」ロール id を割り当てられていることをお勧めします。ユーザー アカウントには、「スーパー」ロール ID を割り当てることができません、する場合は、ユーザー アカウントが次のアクセス許可を持っているを確認する必要があります。
  • 変更するオブジェクトの変更のアクセス許可。
  • システム オブジェクトの ID 5210オブジェクトおよびシステム オブジェクトの ID 9015オブジェクトの実行が許可されます。


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

コードの変更

注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。
この問題を解決するには、次の手順を実行します。
  1. 為替レートの調整レポート (595) 内のAdjustCustomerLedgerEntry関数内のコードを次のように変更します。
    既存のコード 1
    ...AdjAmount := AdjAmount + OldAdjAmount;
    TempDtldCustLedgEntry."Amount (LCY)" := -OldAdjAmount;
    TempDtldCustLedgEntry."Entry Type" := TempDtldCustLedgEntry."Entry Type"::"Unrealized Gain";
    HandleCustDebitCredit(
    Amount,"Amount (LCY)",Correction,TempDtldCustLedgEntry."Amount (LCY)");
    TempDtldCustLedgEntry.INSERT;
    NewEntryNo := NewEntryNo + 1;
    AdjExchRateBufferUpdate(
    "Currency Code",Customer."Customer Posting Group",

    // Delete the following line.
    0,0,-OldAdjAmount,0,-OldAdjAmount,DimEntryNo,PostingDate2,Customer."IC Partner Code");

    Adjust := FALSE;
    END;
    END;
    END;
    END;
    IF OldAdjAmount < 0 THEN BEGIN
    ...
    置換用コード 1
    ...AdjAmount := AdjAmount + OldAdjAmount;
    TempDtldCustLedgEntry."Amount (LCY)" := -OldAdjAmount;
    TempDtldCustLedgEntry."Entry Type" := TempDtldCustLedgEntry."Entry Type"::"Unrealized Gain";
    HandleCustDebitCredit(
    Amount,"Amount (LCY)",Correction,TempDtldCustLedgEntry."Amount (LCY)");
    TempDtldCustLedgEntry.INSERT;
    NewEntryNo := NewEntryNo + 1;
    AdjExchRateBufferUpdate(
    "Currency Code",Customer."Customer Posting Group",

    // Add the following line.
    0,0,-OldAdjAmount,-OldAdjAmount,0,DimEntryNo,PostingDate2,Customer."IC Partner Code");

    Adjust := FALSE;
    END;
    END;
    END;
    END;
    IF OldAdjAmount < 0 THEN BEGIN
    ...
    既存のコード 2
    ...AdjAmount := OldAdjAmount + AdjAmount;
    TempDtldCustLedgEntry."Amount (LCY)" := -OldAdjAmount;
    TempDtldCustLedgEntry."Entry Type" := TempDtldCustLedgEntry."Entry Type"::"Unrealized Loss";
    HandleCustDebitCredit(
    Amount,"Amount (LCY)",Correction,TempDtldCustLedgEntry."Amount (LCY)");
    TempDtldCustLedgEntry.INSERT;
    NewEntryNo := NewEntryNo + 1;
    AdjExchRateBufferUpdate(
    "Currency Code",Customer."Customer Posting Group",

    // Delete the following line.
    0,0,-OldAdjAmount,-OldAdjAmount,0,DimEntryNo,PostingDate2,Customer."IC Partner Code");

    Adjust := FALSE;
    END;
    END;
    END;
    END;
    IF NOT Adjust THEN BEGIN
    ...
    置換用コード 2
    ...AdjAmount := OldAdjAmount + AdjAmount;
    TempDtldCustLedgEntry."Amount (LCY)" := -OldAdjAmount;
    TempDtldCustLedgEntry."Entry Type" := TempDtldCustLedgEntry."Entry Type"::"Unrealized Loss";
    HandleCustDebitCredit(
    Amount,"Amount (LCY)",Correction,TempDtldCustLedgEntry."Amount (LCY)");
    TempDtldCustLedgEntry.INSERT;
    NewEntryNo := NewEntryNo + 1;
    AdjExchRateBufferUpdate(
    "Currency Code",Customer."Customer Posting Group",

    // Add the following line.
    0,0,-OldAdjAmount,0,-OldAdjAmount,DimEntryNo,PostingDate2,Customer."IC Partner Code");

    Adjust := FALSE;
    END;
    END;
    END;
    END;
    IF NOT Adjust THEN BEGIN
    ...
  2. 投稿エントリの CustEntry の適用 codeunit (226) 内のFindLastTransactionNo関数内のコードを次のように変更します。
    既存のコード
    ...// Delete the following lines.
    DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.","Entry Type");
    DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntryNo);
    LastTransactionNo := 0;
    IF DtldCustLedgEntry.FIND('-') THEN
    REPEAT
    IF (DtldCustLedgEntry."Transaction No." > LastTransactionNo) AND NOT DtldCustLedgEntry.Unapplied THEN
    LastTransactionNo := DtldCustLedgEntry."Transaction No.";
    UNTIL DtldCustLedgEntry.NEXT = 0;
    EXIT(LastTransactionNo);
    // End of the lines.
    ...
    置換用コード
    ...// Add the following lines. 
    WITH DtldCustLedgEntry DO BEGIN
    SETCURRENTKEY("Cust. Ledger Entry No.","Entry Type");
    SETRANGE("Cust. Ledger Entry No.",CustLedgEntryNo);
    SETRANGE(Unapplied,FALSE);
    SETFILTER("Entry Type",'<>%1&<>%2',"Entry Type"::"Unrealized Loss","Entry Type"::"Unrealized Gain");
    LastTransactionNo := 0;
    IF FINDSET THEN
    REPEAT
    IF LastTransactionNo < "Transaction No." THEN
    LastTransactionNo := "Transaction No.";
    UNTIL NEXT = 0;
    END;
    EXIT(LastTransactionNo);
    //End of the lines.
    ...
  3. 投稿エントリの VendEntry の適用 codeunit (227) 内のFindLastTransactionNo関数内のコードを次のように変更します。
    既存のコード
    ...// Delete the following lines.
    DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.","Entry Type");
    DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntryNo);
    LastTransactionNo := 0;
    IF DtldVendLedgEntry.FIND('-') THEN
    REPEAT
    IF (DtldVendLedgEntry."Transaction No." > LastTransactionNo) AND NOT DtldVendLedgEntry.Unapplied THEN
    LastTransactionNo := DtldVendLedgEntry."Transaction No.";
    UNTIL DtldVendLedgEntry.NEXT = 0;
    EXIT(LastTransactionNo);
    // End of the lines.
    ...
    置換用コード
    ...// Add the following lines. 
    WITH DtldVendLedgEntry DO BEGIN
    SETCURRENTKEY("Vendor Ledger Entry No.","Entry Type");
    SETRANGE("Vendor Ledger Entry No.",VendLedgEntryNo);
    SETRANGE(Unapplied,FALSE);
    SETFILTER("Entry Type",'<>%1&<>%2',"Entry Type"::"Unrealized Loss","Entry Type"::"Unrealized Gain");
    LastTransactionNo := 0;
    IF FINDSET THEN
    REPEAT
    IF LastTransactionNo < "Transaction No." THEN
    LastTransactionNo := "Transaction No.";
    UNTIL NEXT = 0;
    END;
    EXIT(LastTransactionNo);
    //End of the lines.
    ...

必要条件

この修正プログラムを適用するのにはインストールされている製品は次のいずれかが必要です。
  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 サービス パック 1

アンインストール情報

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

状況


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