Forum Post: RE: Automatic numbering in shipment address

Just Replace Code in oNinsert As Below Directly //Custom Code Start IF Code = '' THEN BEGIN RMSetup2.GET; RMSetup2.TESTFIELD("Example Nos."); NoSeriesMgt.InitSeries(RMSetup2."Example Nos.",xRec."No. Series",0D,Code,"No. Series"); END; //Custom Code End AssistEdit(OldCustomerAddress : Record "Ship-to Address") : Boolean WITH OldCustomerAddress2 DO BEGIN OldCustomerAddress2 := Rec; RMSetup2.GET; RMSetup2.TESTFIELD(RMSetup2."Example Nos."); IF NoSeriesMgt.SelectSeries(RMSetup2."Example Nos.",OldCustomerAddress."No. Series","No. Series") THEN BEGIN NoSeriesMgt.SetSeries(Code); Rec := OldCustomerAddress2; EXIT(TRUE); END; END;