Thank you, it is very useful and i modified some code to meet us (Billy and I ) requirements, below is our code:
var
ReservEntry: Record "Reservation Entry";
CreateReserveEntry: Codeunit "Create Reserv. Entry";
SalesLine: Record "Sales Line";
sourceType: Integer;
sourceSubType: Integer;
trigger OnModify()
begin
sourceType := 37;
sourceSubType := 1;
SalesLine.SetRange("No.", "itemCode");
SalesLine.SetRange("Document No.", "documentNumber");
SalesLine.SetRange("Line No.", "lineNumber");
if (SalesLine.FindSet()) then begin
// Error(SalesLine."No.");
CreateReserveEntry.CreateReservEntryFor(sourceType, sourceSubType, documentNumber, '', 0, lineNumber, SalesLine."Qty. per Unit of Measure"
, quantity, quantityBase, serialNo, lotNo);
//CreateReserveEntry.CreateReservEntry(SalesLine."No.", SalesLine."Variant Code", SalesLine."Location Code", SalesLine.Description, SalesLine."Requested Delivery Date", SalesLine."Planned Shipment Date");
CreateReserveEntry.CreateEntry(itemCode, SalesLine."Variant Code", SalesLine."Location Code", SalesLine.Description, SalesLine."Planned Delivery Date"
, SalesLine."Planned Shipment Date", 0, 2);
//ReservEntry.Init();
if (ReservEntry.FindLast()) then begin
rec."No." := ReservEntry."Entry No.";
ReservEntry."Expiration Date" := "Expiration Date";
ReservEntry."Warranty Date" := "Warranty Date";
ReservEntry.Modify()
end;
end;
//ReserveSalesLine.CreateReservation(SalesLine,SalesLine.Description, SalesLine."Planned Delivery Date",rec.quantity, rec.quantityBase,rec.serialNo, rec.lotNo);
end;
