Biaya satuan item menjadi negatif setelah Anda menjalankan revaluasi pada item yang menggunakan metode Biaya rata-rata di Microsoft Dynamics NAV

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

Artikel ini berlaku untuk Microsoft Dynamics NAV untuk semua negara dan semua bahasa lokal.

Gejala

Misalnya Anda memiliki item yang menggunakan metode Biaya rata-rata . Saat Anda menjalankan revaluasi pada item, biaya satuan item menjadi negatif secara tidak terduga. Selain itu, Anda mengalami kinerja lambat saat Anda melakukan pekerjaan kumpulan Sesuaikan Biaya untuk item tersebut.
Masalah ini terjadi pada produk berikut ini:

  • Microsoft Dynamics NAV 2009 Paket Layanan 1 (SP1)
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 Paket Layanan 1 (SP1) dengan hotfix 975251 diterapkan

Catatan Untuk informasi selengkapnya tentang hotfix 975251, klik nomor artikel berikut ini untuk menampilkan artikel di Pangkalan Pengetahuan Microsoft:

975251 Anda mengalami kinerja yang lambat ketika Anda melakukan pekerjaan kumpulan Sesuaikan Biaya untuk biaya rata-rata di Microsoft Dynamics NAV 5.0

Resolusi

Informasi hotfix

Hotfix yang didukung kini tersedia dari Microsoft. Namun, hanya dimaksudkan untuk memperbaiki masalah yang dijelaskan dalam artikel ini. Terapkan hanya ke sistem yang mengalami masalah khusus ini. Hotfix ini mungkin menerima pengujian tambahan. Oleh karena itu, jika Anda tidak terpengaruh oleh masalah ini, kami menyarankan agar Anda menunggu paket layanan Microsoft Dynamics NAV 2009 berikutnya atau versi Microsoft Dynamics NAV berikutnya yang berisi hotfix ini.

Catatan Dalam kasus khusus, biaya yang biasanya ditimbulkan untuk panggilan dukungan mungkin dibatalkan jika Profesional Dukungan Teknis untuk Microsoft Dynamics dan produk terkait menentukan bahwa pembaruan tertentu akan mengatasi masalah Anda. Biaya dukungan biasa akan berlaku untuk pertanyaan dan masalah dukungan tambahan yang tidak memenuhi syarat untuk pembaruan tertentu yang dimaksud.

            
          

Informasi penginstalan

Microsoft menyediakan contoh pemrograman untuk ilustrasi saja, tanpa jaminan baik tersurat maupun tersirat. Ini termasuk, tetapi tidak terbatas pada, jaminan tersirat dari kelayakan jual atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan men-debug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh ini untuk menyediakan fungsionalitas tambahan atau prosedur konstruksi untuk memenuhi persyaratan tertentu Anda.

Catatan Sebelum Anda menginstal hotfix ini, verifikasi bahwa semua pengguna klien Microsoft Navision telah keluar dari sistem. Ini termasuk pengguna klien Microsoft Navision Application Services (NAS). Anda harus menjadi satu-satunya pengguna klien yang masuk ketika Anda menerapkan hotfix ini.

Untuk menerapkan hotfix ini, Anda harus memiliki lisensi pengembang.

Kami menyarankan agar akun pengguna di jendela Windows Logins atau di jendela Login Database diberi ID peran "SUPER". Jika akun pengguna tidak dapat ditetapkan sebagai ID peran "SUPER", Anda harus memverifikasi bahwa akun pengguna memiliki izin berikut:

  • Izin Ubah untuk objek yang akan Anda ubah.
  • Izin Jalankan untuk objek System Object ID 5210 dan untuk objek System Object ID 9015.

                
Catatan Anda tidak harus memiliki hak untuk penyimpanan data kecuali Anda harus melakukan perbaikan data.

Perubahan kode

Catatan Selalu uji perbaikan kode di lingkungan terkontrol sebelum Anda menerapkan perbaikan pada komputer produksi Anda.
Untuk mengatasi masalah ini, ikuti langkah-langkah ini:

  1. Ubah kode dalam fungsi AvgValueEntriesToAdjustExist dalam codeunit Penyesuaian Inventaris (5895) menjadi yang berikut:

    ...
             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."); 
    
    ...
    
  2. Ubah kode dalam fungsi IsExcludeEntryFromAvgCostCalc dalam codeunit Penyesuaian Inventaris (5895) menjadi yang berikut:

    ...
             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.
    ...
    
  3. Ubah kode dalam fungsi AdjustItemAvgCost dalam codeunit Penyesuaian Inventori (5895) menjadi yang berikut:

    ...
                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;
    ...
    
  4. Ubah kode dalam fungsi IsExcludeEntryFromAvgCostCalc dalam codeunit Penyesuaian Inventaris (5895) menjadi yang berikut:

    ...
        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);
    ...
    

Prasyarat

Anda harus memiliki salah satu produk berikut yang terinstal untuk menerapkan hotfix ini:

  • Microsoft Dynamics NAV 2009 Paket Layanan 1
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 Paket Layanan 1 dengan hotfix 975251 diterapkan

Informasi penghapusan

Anda tidak dapat menghapus hotfix ini.

Status

Microsoft telah mengonfirmasi bahwa ini adalah masalah dalam produk Microsoft sebagaimana tercantum di bagian "Berlaku untuk".

Catatan Ini adalah artikel "FAST PUBLISH" yang dibuat langsung dari dalam organisasi dukungan Microsoft. Informasi yang dimuat di sini disediakan sebagaimana adanya sebagai respons terhadap masalah yang muncul. Sebagai akibat dari kecepatan dalam membuatnya tersedia, materi mungkin menyertakan kesalahan pengetikan dan dapat direvisi kapan saja tanpa pemberitahuan. Lihat Ketentuan Penggunaan untuk pertimbangan lain.