Biaya penyesuaian dikirim ke account kerugian atau keuntungan salah dalam Umum buku dalam bahasa Portugis versi Microsoft Dynamics NAV 2009

Informasi Hotfix

Sekarang tersedia hotfix yang didukung dari Microsoft. Namun, hanya ditujukan untuk memperbaiki masalah yang dijelaskan di artikel ini. Terapkan hanya ke sistem yang mengalami masalah khusus ini. Perbaikan terbaru ini dapat menerima pengujian tambahan. Oleh karena itu, jika Anda tidak terlalu dipengaruhi oleh masalah ini, kami sarankan Anda menunggu paket layanan Microsoft Dynamics NAV 2009 atau versi Microsoft Dynamics NAV berikutnya yang berisi perbaikan terbaru ini.

Catatan Dalam kasus tertentu, biaya yang biasanya diadakan untuk panggilan mungkin dibatalkan apabila profesional dukungan teknis untuk Microsoft Dynamics dan produk-produk terkait dukungan menentukan bahwa pembaruan khusus akan memecahkan masalah Anda. Biaya dukungan biasa akan berlaku untuk pertanyaan dan masalah yang tidak termasuk pada pembaruan tertentu yang dimaksud dukungan tambahan.

Informasi penginstalan

Microsoft menyediakan contoh pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Namun, mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Catatan Sebelum Anda menginstal perbaikan terbaru ini, verifikasi bahwa semua pengguna klien Microsoft Dynamics NAV log off sistem. Ini termasuk layanan Microsoft Dynamics NAV aplikasi Server (NAS). Anda harus klien hanya pengguna yang masuk saat Anda menerapkan perbaikan terbaru ini.

Untuk menerapkan hotfix ini, Anda harus memiliki lisensi pengembang.

Kami menyarankan bahwa akun pengguna di jendela login Windows atau jendela login Database ditetapkan id peran "SUPER" Jika account pengguna tidak dapat ditetapkan ID peran "SUPER", Anda harus memverifikasi bahwa account pengguna yang memiliki izin berikut ini:

• Ubah izin untuk objek yang Anda akan berubah.

• Izin eksekusi untuk objek sistem objek ID 5210 dan sistem objek ID 9015
  
  objek.

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

Perubahan kode

Catatan Selalu menguji kode perbaikan di lingkungan yang dikontrol sebelum menerapkan perbaikan untuk komputer produksi.

Untuk menyelesaikan masalah ini, Ubah kode fungsi GetPhysicalInv dalam Item Jnl-posting baris Codeunit (22) sebagai berikut:

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

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

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

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

Prasyarat

Anda harus memiliki salah satu produk berikut yang diinstal dan hotfix berikut ini diterapkan untuk menerapkan hotfix ini:

• Portugis versi Microsoft Dynamics NAV 2009 R2

• Portugis versi Microsoft Dynamics NAV 2009 Paket Layanan 1

Selain itu, Anda harus menginstal hotfix 2845151 diinstal untuk menerapkan hotfix ini. Untuk informasi selengkapnya tentang hotfix 2845151, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

2845151 kerugian dalam inventaris tidak dipertimbangkan dalam versi bahasa Portugis Microsoft Dynamics NAV 2009

Informasi penghapusan

Anda tidak dapat menghapus hotfix ini.