FlowFact - Entwicklungstools

zurück

Function - AKT_New
Neue Aktivität anlegen, ohne speichern

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


Rückgabewert: Recordset mit allen Feldern


Public Function AKT_New() As ADODB.Recordset
    Dim rsAkt As ADODB.Recordset

    Set rsAkt = m_oBase.Sql_Find("AKT", "1=2")

    rsAkt.AddNew
    rsAkt("DSN").value = m_oUtil.NewGUID()
    rsAkt("Kennung").value = STD_GetField("Kennung_AKT") 'Hole Vorbelegung i.A. '#'
    rsAkt("Priorität").value = 1
    rsAkt("FArchiv").value = 0

    Set AKT_New = rsAkt
End Function