FlowFact - Entwicklungstools

zurück

Function - AD_Create
Adresse anlegen

Diese Funktion legt mit minimalen Angaben eine Adresse mit ihren Std.-Merkmalen in der Datenbank an.
  Function AD_Create(Optional ByVal strFirma As String = "", _  
 


strFirma: Firmenname
strName: Vor- und Nachname; Der Nachname wird zusätzlich im Feld IDX_NAME gespeichert
strStraße: Straßenname
strPLZ: Postleitzahl; die Länderangabe kann vor der PLZ angegeben werden z.B. Österreich 1234
strOrt: Ortsname
strNotiz: Inhalt des Notizfeldes
strRootAdDsn: Datensatznummer (DSN) der übergeordneten verknüpften Adresse (Adressbaum)
Rückgabewert: Datensatznummer (DSN) der Adresse oder 'LEER'


Public Function AD_Create(Optional ByVal strFirma As String = "", _
                          Optional ByVal strName As String = "", _
                          Optional ByVal strStrasse As String = "", _
                          Optional ByVal strPLZ As String = "", _
                          Optional ByVal strOrt As String = "", _
                          Optional ByVal strNotiz As String = "", _
                          Optional ByVal strAdRootDsn As String) As String

    Dim rsAd As ADODB.Recordset
    Dim strMkmDsnList As String
    Dim strAdDsn As String

    Set rsAd = AD_New()

    rsAd("Firma").value = Mid(strFirma, 1, 254)
    rsAd("Name").value = Mid(strName, 1, 100)
    rsAd("Straße").value = Mid(strStrasse, 1, 254)
    rsAd("Land_Plz").value = Mid(strPLZ, 1, 50)
    rsAd("Ort").value = Mid(strOrt, 1, 30)
    rsAd("Notiz").value = strNotiz
    rsAd("AD_DSN").value = m_oUtil.SqlStrNull(strAdRootDsn)

    '-- Standard Berechtigung hinzufügen
    rsAd("ACL").value = m_oBase.BEN_StdACL

    '-- Update
    strAdDsn = rsAd("Dsn").value
    AD_Update rsAd

    '-- Standard Merkmale hinzufügen
    strMkmDsnList = AD_Merkmal_StdDsnCommaList()
    AD_Merkmal_Add strAdDsn, strMkmDsnList

    AD_Create = strAdDsn
End Function