ReservationEntry.INIT;
ReservationEntry."Entry No." := ReservationEntryNo;
ReservationEntry.Positive := False;
ReservationEntry."Item No." := SalesLine."No.";
ReservationEntry.INSERT(True);
ReservationEntry."Location Code" := "Location Code";
ReservationEntry."Reservation Status" := ReservationEntry."Reservation Status"::Surplus;
ReservationEntry.Description := SalesLine.Description;
ReservationEntry."Creation Date" := "Posting Date";
ReservationEntry."Source Type" := 37;
ReservationEntry."Source Batch Name" := '';
ReservationEntry."Source ID" := "No.";
ReservationEntry."Source Subtype" := 1;
ReservationEntry."Source Ref. No." := SalesLine."Line No.";
ReservationEntry."Expected Receipt Date" := "Posting Date";
ReservationEntry."Lot No." := BatchNo;
ReservationEntry.VALIDATE("Quantity (Base)", -1);
ReservationEntry."Qty. per Unit of Measure" := 1;
ReservationEntry."Warranty Date" := ManfDate;
ReservationEntry."Expiration Date" := ExpDate;
ReservationEntry."Item Tracking" := ReservationEntry."Item Tracking"::"Lot No.";
ReservationEntry.Modify(True);
Regards
Amit Sharma