FlowFact - Entwicklungstools

zurück

Function - AKTEN_New
Akte anlegen, ohne Speichern

Diese Funktion bereitet ein Recordset mit minimalen Angaben eine Akte vor. Die Datensatznummer (DSN) wird gesetzt. Die Kennung wird mit '#' vorbesetzt (Es sei denn in den Grundeinstellungen wurde ein anderer Wert eingetragen). Alle Tabellenfelder können im Recordset gesetzt werden. Dabei sollten die automatisch gesetzten Felder (siehe AKTEN_Update) beachtet werden. Zum Speichern muß abschließend 'AKTEN_Update' aufgerufen werden.
  Function AKTEN_New() As Recordset  
 


Rückgabewert: Recordset mit allen Feldern der Tabelle AKTEN (siehe AKTEN_Update und AKTEN_New)


Public Function AKTEN_New() As Recordset
    Dim rsAKTEN As Recordset

    Set rsAKTEN = m_oBase.Sql_Find("AKTEN", "1=2")

    rsAKTEN.AddNew
    rsAKTEN("DSN").value = m_oUtil.NewGUID()
    rsAKTEN("Kennung").value = STD_GetField("Kennung_AKTEN") 'holt die Vorbelegung: i.A. '#'
    rsAKTEN("FArchiv").value = 0

    Set AKTEN_New = rsAKTEN
End Function