![]() |
FlowFact - Entwicklungstools |
![]() |
Function | VERTRAEGE_New() As ADODB.Recordset |
Rückgabewert: Recordset mit allen Feldern der Tabelle VERTRÄGE (siehe VERTRAEGE_Update und VERTRAEGE_New) Public Function VERTRAEGE_New() As ADODB.Recordset Dim rsVERTRAEGE As ADODB.Recordset Set rsVERTRAEGE = m_oBase.Sql_Find("VERTRÄGE", "1=2") rsVERTRAEGE.AddNew rsVERTRAEGE("DSN").value = m_oUtil.NewGUID() rsVERTRAEGE("Kennung").value = STD_GetField("Kennung_VERTRÄGE") 'holt die Vorbelegung: i.A. '#' rsVERTRAEGE("Aktiv").value = 1 rsVERTRAEGE("FArchiv").value = 0 Set VERTRAEGE_New = rsVERTRAEGE End Function |