You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Hi
Can you please remove the local access modifier from procedure AssignPurchItemCharge in codeunit 5805 "Item Charge Assgnt. (Purch.)"?
// >>>>>>>>>>
local procedure AssignPurchItemCharge(var ItemChargeAssgntPurch: Record "Item Charge Assignment (Purch)"; ItemChargeAssgntPurch2: Record "Item Charge Assignment (Purch)"; Currency: Record Currency; var QtyRemainder: Decimal; var AmountRemainder: Decimal)
begin
ItemChargeAssgntPurch.Get(
ItemChargeAssgntPurch2."Document Type",
ItemChargeAssgntPurch2."Document No.",
ItemChargeAssgntPurch2."Document Line No.",
ItemChargeAssgntPurch2."Line No.");
ItemChargeAssgntPurch."Qty. to Assign" := Round(ItemChargeAssgntPurch2."Qty. to Assign", UOMMgt.QtyRndPrecision());
ItemChargeAssgntPurch."Amount to Assign" :=
ItemChargeAssgntPurch."Qty. to Assign" * ItemChargeAssgntPurch."Unit Cost" + AmountRemainder;
AmountRemainder := ItemChargeAssgntPurch."Amount to Assign" -
Round(ItemChargeAssgntPurch."Amount to Assign", Currency."Amount Rounding Precision");
QtyRemainder := ItemChargeAssgntPurch2."Qty. to Assign" - ItemChargeAssgntPurch."Qty. to Assign";
ItemChargeAssgntPurch."Amount to Assign" :=
Round(ItemChargeAssgntPurch."Amount to Assign", Currency."Amount Rounding Precision");
ItemChargeAssgntPurch."Qty. to Handle" := ItemChargeAssgntPurch."Qty. to Assign";
ItemChargeAssgntPurch."Amount to Handle" := ItemChargeAssgntPurch."Amount to Assign";
ItemChargeAssgntPurch.Modify();
end;
// <<<<<<<<<<
The text was updated successfully, but these errors were encountered:
Hi
Can you please remove the local access modifier from procedure AssignPurchItemCharge in codeunit 5805 "Item Charge Assgnt. (Purch.)"?
// >>>>>>>>>>
local procedure AssignPurchItemCharge(var ItemChargeAssgntPurch: Record "Item Charge Assignment (Purch)"; ItemChargeAssgntPurch2: Record "Item Charge Assignment (Purch)"; Currency: Record Currency; var QtyRemainder: Decimal; var AmountRemainder: Decimal)
begin
ItemChargeAssgntPurch.Get(
ItemChargeAssgntPurch2."Document Type",
ItemChargeAssgntPurch2."Document No.",
ItemChargeAssgntPurch2."Document Line No.",
ItemChargeAssgntPurch2."Line No.");
ItemChargeAssgntPurch."Qty. to Assign" := Round(ItemChargeAssgntPurch2."Qty. to Assign", UOMMgt.QtyRndPrecision());
ItemChargeAssgntPurch."Amount to Assign" :=
ItemChargeAssgntPurch."Qty. to Assign" * ItemChargeAssgntPurch."Unit Cost" + AmountRemainder;
AmountRemainder := ItemChargeAssgntPurch."Amount to Assign" -
Round(ItemChargeAssgntPurch."Amount to Assign", Currency."Amount Rounding Precision");
QtyRemainder := ItemChargeAssgntPurch2."Qty. to Assign" - ItemChargeAssgntPurch."Qty. to Assign";
ItemChargeAssgntPurch."Amount to Assign" :=
Round(ItemChargeAssgntPurch."Amount to Assign", Currency."Amount Rounding Precision");
ItemChargeAssgntPurch."Qty. to Handle" := ItemChargeAssgntPurch."Qty. to Assign";
ItemChargeAssgntPurch."Amount to Handle" := ItemChargeAssgntPurch."Amount to Assign";
ItemChargeAssgntPurch.Modify();
end;
// <<<<<<<<<<
The text was updated successfully, but these errors were encountered: