IF ("Shipment Date" <> 0D) AND (Reserve = Reserve::Always) THEN BEGIN IF "Shipment Date" <> xRec."Shipment Date" THEN BEGIN IF (ReserveSalesLine.ReservQuantity(Rec) <> 0) THEN BEGIN ReservMgt.SetSalesLine(Rec); TESTFIELD("Shipment Date"); ReservMgt.AutoReserve(FullAutoReservation,'',"Shipment Date",ReserveSalesLine.ReservQuantity(Rec)); END; END; CALCFIELDS("Reserved Quantity"); END;
Answers
"Never memorize what you can easily find in a book".....Or Mibuso
My Blog