FlowFact - Entwicklungstools

zurück

Function - OBJ_New
Neues Objekt anlegen, ohne speichern

Diese Funktion bereitet ein Recordset mit minimalen Angaben vor. Die Datensatznummer (DSN) wird gesetzt. Zum Speichern muß abschließend 'OBJ_Update' aufgerufen werden.
  Function OBJ_New() As ADODB.Recordset  
 


Rückgabewert: Recordset mit allen Feldern


Public Function OBJ_New() As ADODB.Recordset
    Dim rsOBJ As ADODB.Recordset

    Set rsOBJ = m_oBase.Sql_Find("OBJ", "1=2")

    rsOBJ.AddNew
    rsOBJ("DSN").value = m_oUtil.NewGUID()
    rsOBJ("Kennung").value = STD_GetField("Kennung_OBJ") 'Hole Vorbelegung i.A. '#'
    rsOBJ("Aktiv").value = 1
    rsOBJ("Priorität").value = 1
    rsOBJ("FARCHIV").value = 0


    Set OBJ_New = rsOBJ
End Function