Diskon pada biaya item yang ditetapkan untuk pengiriman penjualan tidak didistribusikan sesuai pilihan yang dipilih untuk masing-masing nilai entri di Microsoft Dynamics NAV 2009. Ikuti langkah-langkah di bagian perubahan kode untuk memecahkan masalah ini. Masalah ini terjadi di dalam produk berikut ini:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
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 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 menetapkan 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 mengatasi masalah ini, ikuti langkah-langkah berikut:
-
Ubah kode di properti di codeunit penjualan-Post (80) sebagai berikut:
Kode yang ada 1...PostJobContractLine(JobTaskSalesLine,TempJnlLineDim2);
END;
SalesLine.Type::"Charge (Item)":
IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
// Delete the following line.
ItemJnlRollRndg := FALSE;
// End of the deleted line.
ClearItemChargeAssgntFilter;
TempItemChargeAssgntSales.SETCURRENTKEY("Applies-to Doc. Type");
TempItemChargeAssgntSales.SETRANGE("Document Line No.",SalesLine."Line No.");
IF TempItemChargeAssgntSales.FINDSET THEN
...Penggantian kode 1
...PostJobContractLine(JobTaskSalesLine,TempJnlLineDim2);
END;
SalesLine.Type::"Charge (Item)":
IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
// Add the following line.
ItemJnlRollRndg := TRUE;
// End of the added line.
ClearItemChargeAssgntFilter;
TempItemChargeAssgntSales.SETCURRENTKEY("Applies-to Doc. Type");
TempItemChargeAssgntSales.SETRANGE("Document Line No.",SalesLine."Line No.");
IF TempItemChargeAssgntSales.FINDSET THEN
...Kode yang ada 2
...GenJnlLineDocNo := TempItemChargeAssgntSales."Applies-to Doc. No.";
CASE TempItemChargeAssgntSales."Applies-to Doc. Type" OF
TempItemChargeAssgntSales."Applies-to Doc. Type"::Shipment:
BEGIN
// Delete the following line.
PostItemChargePerShpt(SalesLine);
TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
BEGIN
...Penggantian kode 2
...GenJnlLineDocNo := TempItemChargeAssgntSales."Applies-to Doc. No.";
CASE TempItemChargeAssgntSales."Applies-to Doc. Type" OF
TempItemChargeAssgntSales."Applies-to Doc. Type"::Shipment:
BEGIN
// Add the following lines.
PostItemChargePerShpt(SalesLine,SalesLine."Inv. Discount Amount",
SalesLine.Quantity,SalesLine."Line Discount Amount",SalesLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
BEGIN
...Kode yang ada 3
...TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
BEGIN
// Delete the following line.
PostItemChargePerRetRcpt(SalesLine);
TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::Order,
TempItemChargeAssgntSales."Applies-to Doc. Type"::Invoice:
...Penggantian kode 3
...TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
BEGIN
// Add the following lines.
PostItemChargePerRetRcpt(SalesLine,SalesLine."Inv. Discount Amount",
SalesLine.Quantity,SalesLine."Line Discount Amount",SalesLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::Order,
TempItemChargeAssgntSales."Applies-to Doc. Type"::Invoice:
... -
Ubah kode di fungsi PostItemChargePerShpt dalam posting penjualan codeunit (80) sebagai berikut:
Kode yang ada 1...END;
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemChargePerShpt@5807(SalesLine@1000 : Record 37);
VAR
SalesShptLine@1003 : Record 111;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Penggantian kode 1
...END;
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemChargePerShpt@5807(SalesLine@1000 : Record 37;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
VAR
SalesShptLine@1003 : Record 111;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Kode yang ada 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Delete the following line.
AmountToAssign,QtyToAssign);
NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Penggantian kode 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Add the following lines.
AmountToAssign,QtyToAssign,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Kode yang ada 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Delete the following line.
NonDistrAmountToAssign,NonDistrQtyToAssign);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
PostItemCharge(SalesLine,
SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
...Penggantian kode 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Add the following lines.
NonDistrAmountToAssign,NonDistrQtyToAssign,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
PostItemCharge(SalesLine,
SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
...Ada kode 4
...END ELSE
PostItemCharge(SalesLine,
SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
TempItemChargeAssgntSales."Amount to Assign",
// Delete the following lines.
TempItemChargeAssgntSales."Qty. to Assign");
END;
LOCAL PROCEDURE PostItemChargePerRetRcpt@5810(SalesLine@1000 : Record 37);
// End of the deleted lines.
VAR
ReturnRcptLine@1002 : Record 6661;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Penggantian kode 4
...END ELSE
PostItemCharge(SalesLine,
SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
TempItemChargeAssgntSales."Amount to Assign",
// Add the following lines.
TempItemChargeAssgntSales."Qty. to Assign",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
END;
LOCAL PROCEDURE PostItemChargePerRetRcpt@5810(SalesLine@1000 : Record 37;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
// End of the added lines.
VAR
ReturnRcptLine@1002 : Record 6661;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
... -
Ubah kode di fungsi PostItemChargePerRetRcpt dalam posting penjualan codeunit (80) sebagai berikut:
Kode yang ada 1...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Delete the following line.
AmountToAssign,QtyToAssign);
NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Penggantian kode 1
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Add the following lines.
AmountToAssign,QtyToAssign,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Kode yang ada 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Delete the following line.
NonDistrAmountToAssign,NonDistrQtyToAssign);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
PostItemCharge(SalesLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
...Penggantian kode 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Add the following lines.
NonDistrAmountToAssign,NonDistrQtyToAssign,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
PostItemCharge(SalesLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
...Kode yang ada 3
...END ELSE
PostItemCharge(SalesLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
TempItemChargeAssgntSales."Amount to Assign",
// Delete the following line.
TempItemChargeAssgntSales."Qty. to Assign")
END;
LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
VAR
...Penggantian kode 3
...END ELSE
PostItemCharge(SalesLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
TempItemChargeAssgntSales."Amount to Assign",
// Add the following lines.
TempItemChargeAssgntSales."Qty. to Assign",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
// End of the added lines.
END;
LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
VAR
... -
Ubah kode di fungsi PostItemCharge dalam posting penjualan codeunit (80) sebagai berikut:
Kode yang ada 1...TempValueEntryRelation.DELETEALL;
END;
END;
// Delete the following line.
PROCEDURE PostItemCharge@42(SalesLine@1005 : Record 37;ItemEntryNo@1004 : Integer;QuantityBase@1003 : Decimal;AmountToAssign@1002 : Decimal;QtyToAssign@1001 : Decimal);
VAR
DummyTrackingSpecification@1000 : Record 336;
BEGIN
WITH TempItemChargeAssgntSales DO BEGIN
...Penggantian kode 1
...TempValueEntryRelation.DELETEALL;
END;
END;
// Add the following line.
PROCEDURE PostItemCharge@42(SalesLine@1005 : Record 37;ItemEntryNo@1004 : Integer;QuantityBase@1003 : Decimal;AmountToAssign@1002 : Decimal;QtyToAssign@1001 : Decimal;VAR TotalInvDiscAmtRemaining@1006 : Decimal;VAR TotalQtyRemaining@1007 : Decimal;VAR TotalLineDiscAmtRemaining@1008 : Decimal;VAR TotalLineAmtRemaining@1009 : Decimal);
VAR
DummyTrackingSpecification@1000 : Record 336;
BEGIN
WITH TempItemChargeAssgntSales DO BEGIN
...Kode yang ada 2
...SalesLine.Amount :=
CurrExchRate.ExchangeAmtFCYToLCY(
UseDate,SalesHeader."Currency Code",TotalChargeAmt,SalesHeader."Currency Factor");
SalesLine."Inv. Discount Amount" := ROUND(
// Delete the following lines.
SalesLine."Inv. Discount Amount" / SalesLine.Quantity * QtyToAssign,
GLSetup."Amount Rounding Precision");
// End of the deleted lines.
SalesLine.Amount := ROUND(SalesLine.Amount,GLSetup."Amount Rounding Precision") - TotalChargeAmtLCY;
IF SalesHeader."Currency Code" <> '' THEN
TotalChargeAmtLCY := TotalChargeAmtLCY + SalesLine.Amount;
SalesLine."Unit Cost (LCY)" := ROUND(
...Penggantian kode 2
...SalesLine.Amount :=
CurrExchRate.ExchangeAmtFCYToLCY(
UseDate,SalesHeader."Currency Code",TotalChargeAmt,SalesHeader."Currency Factor");
SalesLine."Inv. Discount Amount" := ROUND(
// Add the following lines.
TotalInvDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
SalesLine."Line Discount Amount" := ROUND(
TotalLineDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
SalesLine."Line Amount" := ROUND(
TotalLineAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
TotalInvDiscAmtRemaining := TotalInvDiscAmtRemaining - SalesLine."Inv. Discount Amount";
TotalLineDiscAmtRemaining := TotalLineDiscAmtRemaining - SalesLine."Line Discount Amount";
TotalLineAmtRemaining := TotalLineAmtRemaining - SalesLine."Line Amount";
TotalQtyRemaining := TotalQtyRemaining - QtyToAssign;
// End of the added lines.
SalesLine.Amount := ROUND(SalesLine.Amount,GLSetup."Amount Rounding Precision") - TotalChargeAmtLCY;
IF SalesHeader."Currency Code" <> '' THEN
TotalChargeAmtLCY := TotalChargeAmtLCY + SalesLine.Amount;
SalesLine."Unit Cost (LCY)" := ROUND(
... -
Ubah kode di properti dalam thePurch-posting codeunit (90) sebagai berikut:
Kode yang ada 1...3:
ERROR(Text015);
PurchLine.Type::"Charge (Item)":
IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
// Delete the following line.
ItemJnlRollRndg := FALSE;
ClearItemChargeAssgntFilter;
TempItemChargeAssgntPurch.SETCURRENTKEY("Applies-to Doc. Type");
TempItemChargeAssgntPurch.SETRANGE("Document Line No.",PurchLine."Line No.");
IF TempItemChargeAssgntPurch.FINDSET THEN
...Penggantian kode 1
...3:
ERROR(Text015);
PurchLine.Type::"Charge (Item)":
IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
// Add the following line.
ItemJnlRollRndg := TRUE;
ClearItemChargeAssgntFilter;
TempItemChargeAssgntPurch.SETCURRENTKEY("Applies-to Doc. Type");
TempItemChargeAssgntPurch.SETRANGE("Document Line No.",PurchLine."Line No.");
IF TempItemChargeAssgntPurch.FINDSET THEN
...Kode yang ada 2
...GenJnlLineDocNo := TempItemChargeAssgntPurch."Applies-to Doc. No.";
CASE TempItemChargeAssgntPurch."Applies-to Doc. Type" OF
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Receipt:
BEGIN
// Delete the following line.
PostItemChargePerRcpt(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
BEGIN
...Penggantian kode 2
...GenJnlLineDocNo := TempItemChargeAssgntPurch."Applies-to Doc. No.";
CASE TempItemChargeAssgntPurch."Applies-to Doc. Type" OF
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Receipt:
BEGIN
// Add the following lines.
PostItemChargePerRcpt(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
BEGIN
...Kode yang ada 3
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
BEGIN
// Delete the following line.
PostItemChargePerTransfer(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
BEGIN
...Penggantian kode 3
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
BEGIN
// Add the following lines.
PostItemChargePerTransfer(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
BEGIN
...Ada kode 4
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
BEGIN
// Delete the following line.
PostItemChargePerRetShpt(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
BEGIN
...Penggantian kode 4
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
BEGIN
// Add the following lines.
PostItemChargePerRetShpt(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
BEGIN
...Ada kode 5
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
BEGIN
// Delete the following line.
PostItemChargePerSalesShpt(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
BEGIN
...Penggantian kode 5
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
BEGIN
// Add the following lines.
PostItemChargePerSalesShpt(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
BEGIN
...Kode yang ada 6
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
BEGIN
// Delete the following line.
PostItemChargePerRetRcpt(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Order,
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Invoice:
...Penggantian kode 6
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
BEGIN
// Add the following lines.
PostItemChargePerRetRcpt(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Order,
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Invoice:
... -
Ubah kode di fungsi PostItemChargePerRcpt di thePurch.-posting codeunit (90) sebagai berikut:
Kode yang ada 1...END;
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemChargePerRcpt@5807(PurchLine@1000 : Record 39);
VAR
PurchRcptLine@1002 : Record 121;
TempItemLedgEntry@1003 : TEMPORARY Record 32;
ItemTrackingMgt@1005 : Codeunit 6500;
...Penggantian kode 1
...END;
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemChargePerRcpt@5807(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
VAR
PurchRcptLine@1002 : Record 121;
TempItemLedgEntry@1003 : TEMPORARY Record 32;
ItemTrackingMgt@1005 : Codeunit 6500;
...Kode yang ada 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign * Sign,QtyToAssign,PurchRcptLine."Indirect Cost %");
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Penggantian kode 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign * Sign,QtyToAssign,PurchRcptLine."Indirect Cost %",
TotalInvDiscAmtRemaining,TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Kode yang ada 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,PurchRcptLine."Indirect Cost %");
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Penggantian kode 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,PurchRcptLine."Indirect Cost %",
TotalInvDiscAmtRemaining,TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Ada kode 4
...PostItemCharge(PurchLine,
PurchRcptLine."Item Rcpt. Entry No.",PurchRcptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
TempItemChargeAssgntPurch."Qty. to Assign",
// Delete the following lines.
PurchRcptLine."Indirect Cost %");
END;
LOCAL PROCEDURE PostItemChargePerRetShpt@5811(PurchLine@1000 : Record 39);
// End of the deleted lines.
VAR
ReturnShptLine@1002 : Record 6651;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Penggantian kode 4
...PostItemCharge(PurchLine,
PurchRcptLine."Item Rcpt. Entry No.",PurchRcptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
TempItemChargeAssgntPurch."Qty. to Assign",
// Add the following lines.
PurchRcptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
END;
LOCAL PROCEDURE PostItemChargePerRetShpt@5811(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
// End of the added lines.
VAR
ReturnShptLine@1002 : Record 6651;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
... -
Ubah kode di fungsi PostItemChargePerRetShpt di thePurch.-posting codeunit (90) sebagai berikut:
Kode yang ada 1...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign * Sign,QtyToAssign,ReturnShptLine."Indirect Cost %");
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Penggantian kode 1
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign * Sign,QtyToAssign,ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Kode yang ada 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,ReturnShptLine."Indirect Cost %");
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Penggantian kode 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Kode yang ada 3
...PostItemCharge(PurchLine,
ReturnShptLine."Item Shpt. Entry No.",-ReturnShptLine."Quantity (Base)",
ABS(TempItemChargeAssgntPurch."Amount to Assign") * Sign,
TempItemChargeAssgntPurch."Qty. to Assign",
// Delete the following lines.
ReturnShptLine."Indirect Cost %");
END;
LOCAL PROCEDURE PostItemChargePerTransfer@23(PurchLine@1000 : Record 39);
// End of the deleted lines.
VAR
TransRcptLine@1002 : Record 5747;
ItemApplnEntry@1003 : Record 339;
DummyTrackingSpecification@1001 : Record 336;
...Penggantian kode 3
...PostItemCharge(PurchLine,
ReturnShptLine."Item Shpt. Entry No.",-ReturnShptLine."Quantity (Base)",
ABS(TempItemChargeAssgntPurch."Amount to Assign") * Sign,
TempItemChargeAssgntPurch."Qty. to Assign",
// Add the following lines.
ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
END;
LOCAL PROCEDURE PostItemChargePerTransfer@23(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1016 : Decimal;VAR TotalQtyRemaining@1017 : Decimal;VAR TotalLineDiscAmtRemaining@1018 : Decimal;VAR TotalLineAmtRemaining@1019 : Decimal);
// End of the added lines.
VAR
TransRcptLine@1002 : Record 5747;
ItemApplnEntry@1003 : Record 339;
DummyTrackingSpecification@1001 : Record 336;
... -
Ubah kode di fungsi PostItemChargePerTransfer di thePurch.-posting codeunit (90) sebagai berikut
Kode yang ada...PurchLine."Bin Code" := '';
PurchLine."Line No." := "Document Line No.";
IF TransRcptLine."Item Rcpt. Entry No." = 0 THEN
// Delete the following line.
PostItemChargePerITTransfer(PurchLine,TransRcptLine)
ELSE BEGIN
TotalAmountToPostFCY := "Amount to Assign";
IF PurchHeader."Currency Code" <> '' THEN
TotalAmountToPostLCY :=
...Penggantian kode
...PurchLine."Bin Code" := '';
PurchLine."Line No." := "Document Line No.";
IF TransRcptLine."Item Rcpt. Entry No." = 0 THEN
// Add the following lines.
PostItemChargePerITTransfer(PurchLine,TransRcptLine,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
// End of the added lines.
ELSE BEGIN
TotalAmountToPostFCY := "Amount to Assign";
IF PurchHeader."Currency Code" <> '' THEN
TotalAmountToPostLCY :=
... -
Ubah kode di fungsi PostItemChargePerITTransfer di thePurch.-posting codeunit (90) sebagai berikut:
Kode yang ada 1...END;
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemChargePerITTransfer@43(PurchLine@1000 : Record 39;TransRcptLine@1017 : Record 5747);
VAR
TempItemLedgEntry@1016 : TEMPORARY Record 32;
ItemTrackingMgt@1001 : Codeunit 6500;
Factor@1023 : Decimal;
...Penggantian kode 1
...END;
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemChargePerITTransfer@43(PurchLine@1000 : Record 39;TransRcptLine@1017 : Record 5747;VAR TotalInvDiscAmtRemaining@1026 : Decimal;VAR TotalQtyRemaining@1024 : Decimal;VAR TotalLineDiscAmtRemaining@1025 : Decimal;VAR TotalLineAmtRemaining@1030 : Decimal);
VAR
TempItemLedgEntry@1016 : TEMPORARY Record 32;
ItemTrackingMgt@1001 : Codeunit 6500;
Factor@1023 : Decimal;
...Kode yang ada 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign,QtyToAssign,0);
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Penggantian kode 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign,QtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Kode yang ada 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign,NonDistrQtyToAssign,0);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042);
END;
...Penggantian kode 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042);
END;
... -
Ubah kode di fungsi PostItemChargePerSalesShpt di thePurch.-posting codeunit (90) sebagai berikut:
Kode yang ada 1...ERROR(Text042);
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemChargePerSalesShpt@41(PurchLine@1000 : Record 39);
VAR
SalesShptLine@1002 : Record 111;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Penggantian kode 1
...ERROR(Text042);
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemChargePerSalesShpt@41(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
VAR
SalesShptLine@1002 : Record 111;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Kode yang ada 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign * Sign,QtyToAssign,0);
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Penggantian kode 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign * Sign,QtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Kode yang ada 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Penggantian kode 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Ada kode 4
...ELSE
PostItemCharge(PurchLine,
SalesShptLine."Item Shpt. Entry No.",-SalesShptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
// Delete the following lines.
TempItemChargeAssgntPurch."Qty. to Assign",0)
END;
PROCEDURE PostItemChargePerRetRcpt@37(PurchLine@1001 : Record 39);
// End of the deleted lines.
VAR
ReturnRcptLine@1000 : Record 6661;
TempItemLedgEntry@1011 : TEMPORARY Record 32;
ItemTrackingMgt@1010 : Codeunit 6500;
...Penggantian kode 4
...ELSE
PostItemCharge(PurchLine,
SalesShptLine."Item Shpt. Entry No.",-SalesShptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
// Add the following lines.
TempItemChargeAssgntPurch."Qty. to Assign",0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
END;
PROCEDURE PostItemChargePerRetRcpt@37(PurchLine@1001 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
// End of the added lines.
VAR
ReturnRcptLine@1000 : Record 6661;
TempItemLedgEntry@1011 : TEMPORARY Record 32;
ItemTrackingMgt@1010 : Codeunit 6500;
... -
Ubah kode di fungsi PostItemChargePerRetRcpt di thePurch.-posting codeunit (90) sebagai berikut:
Kode yang ada 1...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign * Sign,QtyToAssign,0);
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Penggantian kode 1
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign * Sign,QtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Kode yang ada 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Penggantian kode 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Kode yang ada 3
...ELSE
PostItemCharge(PurchLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
// Delete the following line.
TempItemChargeAssgntPurch."Qty. to Assign",0)
END;
LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
VAR
...Penggantian kode 3
...ELSE
PostItemCharge(PurchLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
// Add the following lines.
TempItemChargeAssgntPurch."Qty. to Assign",0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
// End of the added lines.
END;
LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
VAR
... -
Ubah kode di fungsi PostItemCharge di thePurch.-posting codeunit (90) sebagai berikut:
Kode yang ada 1...TempValueEntryRelation.DELETEALL;
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemCharge@42(PurchLine@1000 : Record 39;ItemEntryNo@1004 : Integer;QuantityBase@1005 : Decimal;AmountToAssign@1006 : Decimal;QtyToAssign@1007 : Decimal;IndirectCostPct@1008 : Decimal);
VAR
DummyTrackingSpecification@1001 : Record 336;
BEGIN
WITH TempItemChargeAssgntPurch DO BEGIN
...Penggantian kode 1
...TempValueEntryRelation.DELETEALL;
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemCharge@42(PurchLine@1000 : Record 39;ItemEntryNo@1004 : Integer;QuantityBase@1005 : Decimal;AmountToAssign@1006 : Decimal;QtyToAssign@1007 : Decimal;IndirectCostPct@1008 : Decimal;VAR TotalInvDiscAmtRemaining@1009 : Decimal;VAR TotalQtyRemaining@1010 : Decimal;VAR TotalLineDiscAmtRemaining@1011 : Decimal;VAR TotalLineAmtRemaining@1012 : Decimal);
VAR
DummyTrackingSpecification@1001 : Record 336;
BEGIN
WITH TempItemChargeAssgntPurch DO BEGIN
...Kode yang ada 2
...ROUND(
PurchLine.Amount / QuantityBase,GLSetup."Unit-Amount Rounding Precision");
PurchLine."Inv. Discount Amount" := ROUND(
// Delete the following lines.
PurchLine."Inv. Discount Amount" / PurchLine.Quantity * QtyToAssign,
GLSetup."Amount Rounding Precision");
PurchLine."Line Discount Amount" := ROUND(
PurchLine."Line Discount Amount" / PurchLine.Quantity * QtyToAssign,
GLSetup."Amount Rounding Precision");
// End of the deleted lines.
PostItemJnlLine(
PurchLine,
0,0,
QuantityBase,QuantityBase,
...Penggantian kode 2
...ROUND(
PurchLine.Amount / QuantityBase,GLSetup."Unit-Amount Rounding Precision");
PurchLine."Inv. Discount Amount" := ROUND(
// Add the following lines.
TotalInvDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
PurchLine."Line Discount Amount" := ROUND(
TotalLineDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
PurchLine."Line Amount" := ROUND(
TotalLineAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
TotalInvDiscAmtRemaining := TotalInvDiscAmtRemaining - PurchLine."Inv. Discount Amount";
TotalLineDiscAmtRemaining := TotalLineDiscAmtRemaining - PurchLine."Line Discount Amount";
TotalLineAmtRemaining := TotalLineAmtRemaining - PurchLine."Line Amount";
TotalQtyRemaining := TotalQtyRemaining - QtyToAssign;
// End of the added lines.
PostItemJnlLine(
PurchLine,
0,0,
QuantityBase,QuantityBase,
...
Prasyarat
Anda harus memiliki salah satu produk berikut ini diinstal untuk menerapkan perbaikan terbaru ini:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
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 Ketentuanuntuk pertimbangan lainnya.
