FlowFact - Entwicklungstools

zurück

Function - AD_New
Adresse anlegen, ohne Speichern

Diese Funktion bereitet ein Recordset mit minimalen Angaben einer 'Adresse' vor. Die Datensatznummer (DSN) wird gesetzt. Die Kennung wird mit '#' vorbesetzt (Es sei denn in den Grundeinstellungen wurde ein anderer Wert eingetragen). Die Briefanrede wird auf den Wert aus den Grundeinstellungen (Tabelle Std) gesetzt. Alle Tabellenfelder können im Recordset gesetzt werden. Dabei sollten die automatisch gesetzten Felder (siehe AD_Update) beachtet werden. Hinweis: AD_DSN ist eine Verknüpfung zu einer übergeordneten Adresse. Dadurch ist der Aufbau eines Adressbaumes möglich. Zum Speichern muß abschließend 'AD_Update' aufgerufen werden.
  Function AD_New() As ADODB.Recordset  
 


Rückgabewert: Recordset mit allen Feldern der Tabelle AD (siehe AD_Update und AD_New)


Public Function AD_New() As ADODB.Recordset
    Dim rsAd As ADODB.Recordset

    Set rsAd = m_oBase.Sql_Find("AD", "1=2")

    rsAd.AddNew
    rsAd("DSN").value = m_oUtil.NewGUID()
    rsAd("Kennung").value = STD_GetField("Kennung_AD") 'holt die Vorbelegung: i.A. '#'
    rsAd("FArchiv").value = 0
    rsAd("BRIEFANREDE").value = Mid(AD_GetStdBriefAnrede, 1, 200)

    Set AD_New = rsAd
End Function