Artikel ini berlaku untuk Microsoft Dynamics NAV untuk semua negara dan semua bahasa lokal.
Gejala
Misalnya Anda mengaktifkan pengaturan Pembalikan biaya tepat di kotak dialog penjualan & piutang penataan di Microsoft Dynamics NAV. Dalam situasi ini, saat menjalankan fungsi Salinan dokumen di sebagian penjualan kembali, Anda menerima pesan galat berikut:
Penjualan pengiriman Shipment_No, nomor baris Line_No tidak disalin karena jumlah penuh di baris dokumen yang dikirim secara manual telah diterapkan.
Masalah ini terjadi di dalam produk berikut ini:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1
Pemecahan masalah
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 Navision log off sistem. Ini termasuk Microsoft Navision aplikasi Layanan (NAS) klien pengguna. 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 sistem objek ID 5210 objek dan objek sistem objek ID 9015 .
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 mengatasi masalah ini, ikuti langkah-langkah berikut:
-
Hapus variabel global berikut di codeunit salinan dokumen Mgt. (6620):
Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean; -
Menambahkan variabel global berikut di codeunit salinan dokumen Mgt. (6620):
Text030@1025 : TextConst 'ENU=One or more return document lines were not copied. This is because quantities on the posted document line are already fully or partially applied and therefore the Exact Cost Reversing Link could not be created.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean;
WarningDone@1051 : Boolean;
LinesApplied@1052 : Boolean; -
Ubah kode di fungsi SplitPstdSalesLinesPerILE di codeunit salinan dokumen Mgt. (6620) sebagai berikut:
Kode yang ada 1... IF "Shipped Qty. Not Returned" = 0 THEN
// Delete the following lines.
ERROR(Text030,"Document Type","Document No.","Document Line No.");
FromSalesLineBuf := FromSalesLine;
IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
IF FromSalesLine."Quantity (Base)" > 0 THEN
FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
ELSE
FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
ELSE
FromSalesLineBuf.Quantity :=
ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
END;
FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
FromSalesLineBuf."Line No." := NextLineNo;
NextLineNo := NextLineNo + 1;
FromSalesLineBuf."Document No." := "Document No.";
IF GetSalesDocType(ItemLedgEntry) IN
[FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
THEN
FromSalesLineBuf."Shipment Line No." := 1;
IF NOT FromShptOrRcpt THEN
UpdateRevSalesLineAmount(
FromSalesLineBuf,OrgQtyBase,
FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");
FromSalesLineBuf.INSERT;
// End of the lines.
UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...Penggantian kode 1
... IF "Shipped Qty. Not Returned" = 0 THEN
// Add the following lines.
LinesApplied := TRUE;
IF "Shipped Qty. Not Returned" < 0 THEN BEGIN
FromSalesLineBuf := FromSalesLine;
IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
IF FromSalesLine."Quantity (Base)" > 0 THEN
FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
ELSE
FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
ELSE
FromSalesLineBuf.Quantity :=
ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
END;
FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
FromSalesLineBuf."Line No." := NextLineNo;
NextLineNo := NextLineNo + 1;
FromSalesLineBuf."Document No." := "Document No.";
IF GetSalesDocType(ItemLedgEntry) IN
[FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
THEN
FromSalesLineBuf."Shipment Line No." := 1;
IF NOT FromShptOrRcpt THEN
UpdateRevSalesLineAmount(
FromSalesLineBuf,OrgQtyBase,
FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");
FromSalesLineBuf.INSERT;
END;
// End of the lines.
UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...Kode yang ada 2
... MissingExCostRevLink := TRUE;
END;
...Penggantian kode 2
... MissingExCostRevLink := TRUE;
// Add the following line.
CheckUnappliedLines(LinesApplied,MissingExCostRevLink);
END;
... -
Ubah kode di fungsi SplitPstdPurchLinesPerILE di codeunit salinan dokumen Mgt. (6620) sebagai berikut:
Kode yang ada 1... ApplyRec@1011 : Record 339;
// Delete the following line.
AllAreFixed@1012 : Boolean;
BEGIN
...Penggantian kode 1
... ApplyRec@1011 : Record 339;
BEGIN
...Kode yang ada 2
... REPEAT
// Delete the following lines.
IF "Remaining Quantity" = 0 THEN BEGIN
AllAreFixed := TRUE;
ApplyRec.AppliedOutbndEntryExists("Entry No.",FALSE);
IF ApplyRec.FINDFIRST THEN
REPEAT
AllAreFixed := AllAreFixed AND ApplyRec.Fixed;
UNTIL ApplyRec.NEXT = 0;
IF AllAreFixed THEN
ERROR(Text030,"Document Type","Document No.","Document Line No.");
END;
// End of the lines.
IF NOT ApplyFully THEN BEGIN
...Penggantian kode 2
... REPEAT
IF NOT ApplyFully THEN BEGIN
...Kode yang ada 3
... END;
...Penggantian kode 3
... END;
// Add the following line.
CheckUnappliedLines(SkippedLine,MissingExCostRevLink);
... -
Ubah kode di fungsi CheckUnappliedLines di codeunit salinan dokumen Mgt. (6620) sebagai berikut:
Kode yang ada... BEGIN
...Penggantian kode
...
// Add the following lines.
LOCAL PROCEDURE CheckUnappliedLines@86(SkippedLine@1000 : Boolean;VAR MissingExCostRevLink@1001 : Boolean);
BEGIN
IF SkippedLine AND MissingExCostRevLink THEN BEGIN
IF NOT WarningDone THEN
MESSAGE(Text030);
MissingExCostRevLink := FALSE;
WarningDone := TRUE;
END;
END;
// End of the lines.
BEGIN
...
Prasyarat
Anda harus memiliki salah satu produk berikut ini diinstal untuk menerapkan perbaikan terbaru ini:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1
Informasi penghapusan
Anda tidak dapat menghapus hotfix ini.
Status
Microsoft telah memastikan bahwa ini merupakan masalah di dalam produk Microsoft sebagaimana tercantum di bagian "Berlaku untuk".
Catatan Ini adalah artikel "Penerbitan cepat" dibuat langsung dari dalam organisasi dukungan Microsoft. Informasi yang terkandung di dalamnya disediakan sebagai tanggapan masalah yang muncul. Sebagai akibat dari kecepatan untuk menjadikannya tersedia, materi dapat mengandung kesalahan ketik dan dapat direvisi setiap saat tanpa pemberitahuan. Lihat Ketentuan untuk pertimbangan lainnya.
