InitInsert; New implementation if "No." = '' then begin TestNoSeries(); NoSeriesCode := GetNoSeriesCode(); #if not CLEAN24 NoSeriesMgt.RaiseObsoleteOnBeforeInitSeries(NoSeriesCode, xRec."No. Series", "Posting Date", "No.", "No. Series", IsHandled); if not IsHandled then begin #endif "No. Series" := NoSeriesCode; if NoSeries.AreRelated("No. Series", xRec."No. Series") then "No. Series" := xRec."No. Series"; "No." := NoSeries.GetNextNo("No. Series", "Posting Date"); SalesHeader2.ReadIsolation(IsolationLevel::ReadUncommitted); SalesHeader2.SetLoadFields("No."); while SalesHeader2.Get("Document Type", "No.") do "No." := NoSeries.GetNextNo("No. Series", "Posting Date"); #if not CLEAN24 NoSeriesMgt.RaiseObsoleteOnAfterInitSeries("No. Series", NoSeriesCode, "Posting Date", "No."); end; #endif