FlowFact - Entwicklungstools

zurück

Function - ANF_New
Anfrage anlegen, ohne Speichern

Diese Funktion bereitet ein Recordset mit minimalen Angaben einer 'Anfrage' 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 ANF_Update) beachtet werden. Zum Speichern muß abschließend 'ANF_Update' aufgerufen werden.
  Function ANF_New() As ADODB.Recordset  
 


Rückgabewert: Recordset mit allen Feldern der Tabelle ANF (siehe ANF_Update und ANF_New)


Public Function ANF_New() As ADODB.Recordset
    Dim rsANF As ADODB.Recordset

    Set rsANF = m_oBase.Sql_Find("ANF", "1=2")

    rsANF.AddNew
    rsANF("DSN").value = m_oUtil.NewGUID()
    rsANF("Kennung").value = STD_GetField("Kennung_ANF") 'holt die Vorbelegung: i.A. '#'
    rsANF("Aktiv").value = 1
    rsANF("Priorität").value = 1
    rsANF("FArchiv").value = 0

    Set ANF_New = rsANF
End Function