FlowFact - Entwicklungstools

zurück

Function - VERTRAEGE_New
Vertrag anlegen, ohne Speichern

Diese Funktion bereitet ein Recordset mit minimalen Angaben eines Vertrags 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 VERTRAEGE_Update) beachtet werden. Zum Speichern muß abschließend 'VERTRAEGE_Update' aufgerufen werden.
  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