Artikel ini berlaku untuk Microsoft Dynamics NAV untuk bahasa lokal Rusia (ru).
Gejala
Misalnya Anda memiliki jurnal prabayar yang menggunakan mata uang asing untuk vendor dalam microsoft Dynamics NAV 2009 versi Rusia. Anda menyelesaikan pembayaran di awal dengan faktur yang menggunakan nilai tukar yang berbeda untuk mata uang. Dalam situasi ini, ketika Anda menjalankan laporan "Kartu Akuntansi Vendor" (12445) untuk pembayaran di awal, hasil yang salah ditampilkan. Masalah ini juga terjadi dalam laporan "Kartu Akuntansi Pelanggan" (12441) setelah Anda menyelesaikan pembayaran di awal dalam mata uang asing untuk pelanggan. Masalah ini terjadi pada produk berikut ini:
- Microsoft Dynamics NAV 2009 R2 versi Rusia
- Microsoft Dynamics NAV 2009 Service Pack 1 versi Rusia
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:
Ubah kode dalam Variabel Global dalam laporan Kartu Akuntansi Pelanggan (12441) sebagai berikut:
Kode yang sudah ada... AdjBalance@1210001 : Decimal; RowNumber@1210017 : Integer; ...Kode pengganti
... AdjBalance@1210001 : Decimal; // Add the following lines. DebitPrepmtDiff@1210021 : Decimal; CreditPrepmtDiff@1210020 : Decimal; // End of the lines. RowNumber@1210017 : Integer; ...Ubah kode di bagian Item Data Nomor 1 dalam laporan Kartu Akuntansi Pelanggan (12441) sebagai berikut:
Kode yang sudah ada... CurrReport.SKIP; END; ...Kode pengganti
... CurrReport.SKIP; // Add the following lines. DebitPrepmtDiff := 0; CreditPrepmtDiff := 0; // End of the lines. END; ...Ubah kode di bagian Item Data Nomor 2 dalam laporan Kartu Akuntansi Pelanggan (12441) sebagai berikut:
Kode yang sudah ada 1.. BlankZero=Yes; // Delete the following line. SourceExpr="Cust. Ledger Entry"."Debit Amount (LCY)" + AdjBalance; DataSetFieldName=Cust__Ledger_Entry___Debit_Amount__LCY_____AdjBalance } ...Kode pengganti 1
... BlankZero=Yes; // Add the following line. SourceExpr="Cust. Ledger Entry"."Debit Amount (LCY)" + AdjBalance + DebitPrepmtDiff; DataSetFieldName=Cust__Ledger_Entry___Debit_Amount__LCY_____AdjBalance } ...Kode yang sudah ada 2
... BlankZero=Yes; // Delete the following line. SourceExpr="Cust. Ledger Entry"."Credit Amount (LCY)" + AdjBalance; DataSetFieldName=Cust__Ledger_Entry___Credit_Amount__LCY_____AdjBalance } ...Kode pengganti 2
... BlankZero=Yes; // Add the following line. SourceExpr="Cust. Ledger Entry"."Credit Amount (LCY)" + AdjBalance + CreditPrepmtDiff; DataSetFieldName=Cust__Ledger_Entry___Credit_Amount__LCY_____AdjBalance } ...Ubah kode di bagian Item Data Nomor 4 dalam laporan Kartu Akuntansi Pelanggan (12441) sebagai berikut:
Kode yang sudah ada 1... DataItemTable=Table379; DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date) // Delete the following line. WHERE(Entry Type=FILTER(<>Application)); OnPreDataItem=BEGIN ...Kode pengganti 1
... DataItemTable=Table379; DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date); OnPreDataItem=BEGIN ...Kode yang sudah ada 2
... OnAfterGetRecord=BEGIN CASE "Entry Type" OF ...Kode pengganti 2
... OnAfterGetRecord=BEGIN // Add the following lines. IF "Entry Type" = "Entry Type"::Application THEN BEGIN IF "Prepmt. Diff." THEN BEGIN DebitPrepmtDiff += "Debit Amount (LCY)"; CreditPrepmtDiff += "Credit Amount (LCY)"; IF HasRelatedRealizedEntry("Transaction No.") OR (NOT IsCurrencyAdjEntry) THEN CurrReport.SKIP; END ELSE CurrReport.SKIP; END; // End of the lines. CASE "Entry Type" OF ...Buat prosedur lokal baru HasRelatedRealizedEntry dalam laporan Kartu Akuntansi Pelanggan (12441) sebagai berikut:
LOCAL PROCEDURE HasRelatedRealizedEntry@1210000(TransactionNo@1210000 : Integer) : Boolean; VAR DtldCustLedgEntry@1210001 : Record 379; BEGIN WITH DtldCustLedgEntry DO BEGIN SETFILTER("Entry Type",'%1|%2',"Entry Type"::"Realized Gain","Entry Type"::"Realized Loss"); SETRANGE("Transaction No.",TransactionNo); EXIT(NOT ISEMPTY); END; END;Buat prosedur lokal baru IsCurrencyAdjEntry dalam laporan Kartu Akuntansi Pelanggan (12441) sebagai berikut:
LOCAL PROCEDURE IsCurrencyAdjEntry@1210001() : Boolean; BEGIN WITH "Detailed Cust. Ledg. Entry" DO EXIT((Amount = 0) AND ("Amount (LCY)" <> 0)); END;Ubah kode dalam Variabel Global dalam laporan Kartu Akuntansi Vendor (12445) sebagai berikut:
Kode penggalian... AdjBalance@1210001 : Decimal; RowNumber@1470000 : Integer; ...Kode pengganti
... AdjBalance@1210001 : Decimal; // Add the following lines. DebitPrepmtDiff@1210018 : Decimal; CreditPrepmtDiff@1210019 : Decimal; // End of the lines. RowNumber@1470000 : Integer; ...Ubah kode di bagian Item Data Nomor 1 dalam laporan Kartu Akuntansi Vendor (12445) sebagai berikut:
Kode yang sudah ada... CurrReport.SKIP; END; ...Kode pengganti
.. CurrReport.SKIP; // Add the following lines. DebitPrepmtDiff := 0; CreditPrepmtDiff := 0; // End of the lines. END; ..Ubah kode di bagian Item Data Nomor 2 dalam laporan Kartu Akuntansi Vendor (12445) sebagai berikut:
Kode yang sudah ada 1... BlankZero=Yes; // Delete the following line. SourceExpr="Vendor Ledger Entry"."Debit Amount (LCY)" + AdjBalance; DataSetFieldName=Vendor__Ledger_Entry___Debit_Amount__LCY_____AdjBalance } ...Kode pengganti 1
... BlankZero=Yes; // Add the following line. SourceExpr="Vendor Ledger Entry"."Debit Amount (LCY)" + AdjBalance + DebitPrepmtDiff; DataSetFieldName=Vendor__Ledger_Entry___Debit_Amount__LCY_____AdjBalance } ...Kode yang sudah ada 2
... BlankZero=Yes; // Delete the following line. SourceExpr="Vendor Ledger Entry"."Credit Amount (LCY)" + AdjBalance; DataSetFieldName=Vendor__Ledger_Entry___Credit_Amount__LCY_____AdjBalance } ...Kode pengganti 2
... BlankZero=Yes; // Add the following line. SourceExpr="Vendor Ledger Entry"."Credit Amount (LCY)" + AdjBalance + CreditPrepmtDiff; DataSetFieldName=Vendor__Ledger_Entry___Credit_Amount__LCY_____AdjBalance } ...Ubah kode di bagian Item Data Nomor 4 dalam laporan Kartu Akuntansi Vendor (12445) sebagai berikut:
Kode yang sudah ada 1... DataItemTable=Table380; DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date) // Delete the following line. WHERE(Entry Type=FILTER(<>Application)); OnPreDataItem=BEGIN ...Kode pengganti 1
... DataItemTable=Table380; DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date); OnPreDataItem=BEGIN ...Kode yang sudah ada 2
... OnAfterGetRecord=BEGIN CASE "Entry Type" OF ..Kode pengganti 2
... OnAfterGetRecord=BEGIN // Add the following lines. IF "Entry Type" = "Entry Type"::Application THEN BEGIN IF "Prepmt. Diff." THEN BEGIN DebitPrepmtDiff += "Debit Amount (LCY)"; CreditPrepmtDiff += "Credit Amount (LCY)"; IF HasRelatedRealizedEntry("Transaction No.") OR (NOT IsCurrencyAdjEntry) THEN CurrReport.SKIP; END ELSE CurrReport.SKIP; END; // End of the lines. CASE "Entry Type" OF ...Buat prosedur lokal baru HasRelatedRealizedEntry dalam laporan Kartu Akuntansi Vendor (12445) sebagai folow:
LOCAL PROCEDURE HasRelatedRealizedEntry@1210000(TransactionNo@1210000 : Integer) : Boolean; VAR DtldVendLedgEntry@1210001 : Record 380; BEGIN WITH DtldVendLedgEntry DO BEGIN SETFILTER("Entry Type",'%1|%2',"Entry Type"::"Realized Gain","Entry Type"::"Realized Loss"); SETRANGE("Transaction No.",TransactionNo); EXIT(NOT ISEMPTY); END; END;Buat prosedur lokal baru IsCurrencyAdjEntry dalam laporan Kartu Akuntansi Vendor (12445) sebagai folow:
LOCAL PROCEDURE IsCurrencyAdjEntry@1210001() : Boolean; BEGIN WITH "Detailed Vendor Ledg. Entry" DO EXIT((Amount = 0) AND ("Amount (LCY)" <> 0)); END;
Prasyarat
Anda harus memiliki salah satu produk berikut yang terinstal untuk menerapkan hotfix ini:
- Microsoft Dynamics NAV 2009 R2 versi Rusia
- Microsoft Dynamics NAV 2009 Service Pack 1 versi Rusia
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.