LKundenBO1.Add()If Me.Childlkunden.ShowDialog() = DialogResult.OK ThenDim nLkunr As Integer = NextIDBO1.nextid("LKUNDEN") ' Another BO with a function to call a sp to get an incremented valueLKundenBO1.LKUNDENNR = nLkunrLKundenBO1.KUNDENNR = Me.nKundennrIf LKundenBO1.Save <> MicroFour.StrataFrame.Data.SaveUndoResult.Success ThenLKundenBO1.Undo(MicroFour.StrataFrame.Business.BusinessUndoType.CurrentRowOnly)End IfEnd If