Share
Report
3,390Hi All
Im using below code to insert item tarcking without actual reservation against item ledger entry. However when the revervation line is created it shows as an extra line rather than adding to the requested qty on reservations
result
requested qty must be allocted to existing lines rather than creating a new line (first line)
Code
local procedure CreateReservationEntry(SalesLine: Record /Sales Line/)
var
TempReservationEntry: Record /Reservation Entry/ temporary;
TempTrackingSpecification: Record /Tracking Specification/ temporary;
UnitofMeasureManagement: Codeunit /Unit of Measure Management/;
CreateReservEntry: Codeunit /Create Reserv. Entry/;
QtyToAssign: Decimal;
QtyToAssignBase: Decimal;
begin
QtyToAssign := SalesLine./Outstanding Quantity/;
QtyToAssignBase := UnitofMeasureManagement.CalcBaseQty(QtyToAssign, SalesLine./Qty. per Unit of Measure/);
TempReservationEntry./Lot No./ := 'TEST';
CreateReservEntry.CreateReservEntryFor(Database::/Sales Line/, SalesLine./Document Type/.AsInteger(), SalesLine./Document No./, '', 0,
SalesLine./Line No./, SalesLine./Qty. per Unit of Measure/, QtyToAssign, QtyToAssignBase, TempReservationEntry);
begin
CreateReservEntry.CreateEntry(SalesLine./No./, SalesLine./Variant Code/, SalesLine./Location Code/, SalesLine.Description, 0D,
SalesLine./Shipment Date/, 0, Enum::/Reservation Status/::Surplus);
end;
end;
Categories:
All responses (
Answers (
