Artikel ini berlaku untuk Microsoft Dynamics NAV untuk semua bahasa lokal.
Gejala
Di Microsoft Dynamics NAV, saat Anda mengatur Tidak. untuk BOM produksi dengan menggunakan nomor item dalam tabel Item lalu jalankan laporan "Ledakan Jumlah BOM", laporan menampilkan item yang tidak lengkap.
Masalah ini terjadi pada produk berikut ini:
- Microsoft Dynamics NAV 2009 Paket Layanan 1 (SP1)
- Microsoft Dynamics NAV 2009 R2
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 fungsi Item Data Nomor 2 dalam laporan Ledakan Kuantitas BOM (99000753) sebagai berikut:
Kode yang sudah ada 1... BomComponent[Level]."Production BOM No." := Item."Production BOM No."; BomComponent[Level].SETRANGE("Production BOM No.",Item."Production BOM No."); BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]); BomComponent[Level].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); BomComponent[Level].SETFILTER("Ending Date",'%1|%2..',0D,CalculateDate); NoList[Level] := Item."No."; Quantity[Level] := UOMMgt.GetQtyPerUnitOfMeasure(Item,Item."Base Unit of Measure") / UOMMgt.GetQtyPerUnitOfMeasure( Item, ...Kode pengganti 1
... BomComponent[Level]."Production BOM No." := Item."Production BOM No."; BomComponent[Level].SETRANGE("Production BOM No.",Item."Production BOM No."); BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]); BomComponent[Level].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); BomComponent[Level].SETFILTER("Ending Date",'%1|%2..',0D,CalculateDate); // Add the following line. NoListType[Level] := NoListType[Level]::Item; // End of the added line. NoList[Level] := Item."No."; Quantity[Level] := UOMMgt.GetQtyPerUnitOfMeasure(Item,Item."Base Unit of Measure") / UOMMgt.GetQtyPerUnitOfMeasure( Item, ...Kode yang sudah ada 2
... BEGIN WHILE BomComponent[Level].NEXT = 0 DO BEGIN Level := Level - 1; IF Level <1 THEN CurrReport.BREAK; // Delete the following line. IF NOT UpperLevelItem.GET(NoList[Level]) THEN // End of the deleted line. UpperLevelItem."Production BOM No." := NoList[Level]; BomComponent[Level].SETRANGE("Production BOM No.",UpperLevelItem."Production BOM No."); BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]); END; ...Kode pengganti 2
... BEGIN WHILE BomComponent[Level].NEXT = 0 DO BEGIN Level := Level - 1; IF Level <1 THEN CurrReport.BREAK; // Add the following line. IF NoListType[NextLevel] = NoListType[NextLevel]::"Production BOM" THEN // End of the added line. UpperLevelItem."Production BOM No." := NoList[Level]; BomComponent[Level].SETRANGE("Production BOM No.",UpperLevelItem."Production BOM No."); BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]); END; ...Kode yang sudah ada 3
... BEGIN CompItem.GET(BomComponent[Level]."No."); IF CompItem."Production BOM No."<>'' THEN BEGIN NextLevel := Level + 1; CLEAR(BomComponent[NextLevel]); NoList[NextLevel] := CompItem."No."; VersionCode[NextLevel] := VersionMgt.GetBOMVersion(CompItem."Production BOM No.",CalculateDate,FALSE); BomComponent[NextLevel].SETRANGE("Production BOM No.",CompItem."Production BOM No."); BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]); ...Kode pengganti 3
... BEGIN CompItem.GET(BomComponent[Level]."No."); IF CompItem."Production BOM No."<>'' THEN BEGIN NextLevel := Level + 1; CLEAR(BomComponent[NextLevel]); // Add the following line. NoListType[NextLevel] := NoListType[NextLevel]::Item; // End of the added line. NoList[NextLevel] := CompItem."No."; VersionCode[NextLevel] := VersionMgt.GetBOMVersion(CompItem."Production BOM No.",CalculateDate,FALSE); BomComponent[NextLevel].SETRANGE("Production BOM No.",CompItem."Production BOM No."); BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]); ...Kode yang sudah ada 4
... CompItem, VersionMgt.GetBOMUnitOfMeasure( CompItem."Production BOM No.",VersionCode[NextLevel])); END; IF Level > 1 THEN BEGIN // Delete the following lines. IF BomItem.GET(BomComponent[Level - 1]."No.") THEN BEGIN QtyPerUnitOfMeasure := UOMMgt.GetQtyPerUnitOfMeasure(BomItem,BomComponent[Level - 1]."Unit of Measure Code") / UOMMgt.GetQtyPerUnitOfMeasure( BomItem,VersionMgt.GetBOMUnitOfMeasure(BomItem."Production BOM No.",VersionCode[Level])); // End of the deleted lines. END; END; END; BomComponent[Level].Type::"Production BOM": BEGIN ...Kode pengganti 4
... CompItem, VersionMgt.GetBOMUnitOfMeasure( CompItem."Production BOM No.",VersionCode[NextLevel])); END; IF Level > 1 THEN BEGIN // Add the following lines. IF (BomComponent[Level - 1].Type = BomComponent[Level - 1].Type::Item) THEN BEGIN IF BomItem.GET(BomComponent[Level - 1]."No.") THEN BEGIN QtyPerUnitOfMeasure := UOMMgt.GetQtyPerUnitOfMeasure(BomItem,BomComponent[Level - 1]."Unit of Measure Code") / UOMMgt.GetQtyPerUnitOfMeasure( BomItem,VersionMgt.GetBOMUnitOfMeasure(BomItem."Production BOM No.",VersionCode[Level])); END; // End of the added lines. END; END; END; BomComponent[Level].Type::"Production BOM": BEGIN ...Kode yang sudah ada 5
... BomComponent[Level].Type::"Production BOM": BEGIN ProdBOM.GET(BomComponent[Level]."No."); NextLevel := Level + 1; CLEAR(BomComponent[NextLevel]); NoList[NextLevel] := ProdBOM."No."; VersionCode[NextLevel] := VersionMgt.GetBOMVersion(ProdBOM."No.",CalculateDate,FALSE); BomComponent[NextLevel].SETRANGE("Production BOM No.",NoList[NextLevel]); BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]); BomComponent[NextLevel].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); ...Kode pengganti 5
... BomComponent[Level].Type::"Production BOM": BEGIN ProdBOM.GET(BomComponent[Level]."No."); NextLevel := Level + 1; CLEAR(BomComponent[NextLevel]); // Add the following line. NoListType[NextLevel] := NoListType[NextLevel]::"Production BOM"; // End of the added line. NoList[NextLevel] := ProdBOM."No."; VersionCode[NextLevel] := VersionMgt.GetBOMVersion(ProdBOM."No.",CalculateDate,FALSE); BomComponent[NextLevel].SETRANGE("Production BOM No.",NoList[NextLevel]); BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]); BomComponent[NextLevel].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); ...Ubah kode dalam Variabel Global dalam laporan Ledakan Kuantitas BOM (99000753) sebagai berikut:
Kode yang sudah ada... Quantity@1013 : ARRAY [99] OF Decimal; QtyPerUnitOfMeasure@1014 : Decimal; Level@1015 : Integer; NextLevel@1016 : Integer; BOMQty@1017 : Decimal; BEGIN END. } RDLDATA ...Kode pengganti
... Quantity@1013 : ARRAY [99] OF Decimal; QtyPerUnitOfMeasure@1014 : Decimal; Level@1015 : Integer; NextLevel@1016 : Integer; BOMQty@1017 : Decimal; // Add the following line. NoListType@1018 : ARRAY [99] OF ' ,Item,Production BOM'; // End of the added line. BEGIN END. } RDLDATA ...
Prasyarat
Anda harus memiliki salah satu produk berikut yang terinstal untuk menerapkan hotfix ini:
- Microsoft Dynamics NAV 2009 Paket Layanan 1 (SP1)
- Microsoft Dynamics NAV 2009 R2
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".
Referensi
VSTF DynamicsNAV SE: 251802
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.