FlowFact - Entwicklungstools

zurück

Function - PROJEKTE_New
Projekt anlegen, ohne Speichern

Diese Funktion bereitet ein Recordset mit minimalen Angaben eines Projektes 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 PROJEKTE_Update) beachtet werden. Hinweis: PROJEKTE_DSN ist eine Verknüpfung zu einer übergeordneten Projekt. Dadurch ist der Aufbau eines Projektbaumes möglich. Zum Speichern muß abschließend 'PROJEKTE_Update' aufgerufen werden.
  Function PROJEKTE_New() As ADODB.Recordset  
 


Rückgabewert: Recordset mit allen Feldern der Tabelle Projekte (siehe PROJEKTE_Update und PROJEKTE_New)


Public Function PROJEKTE_New() As ADODB.Recordset
    Dim rsPROJEKTE As ADODB.Recordset

    Set rsPROJEKTE = m_oBase.Sql_Find("Projekte", "1=2")

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

    Set PROJEKTE_New = rsPROJEKTE
End Function