FlowFact - Entwicklungstools

zurück

Function - OBJ_Create
Objekt anlegen

Diese Funktion legt mit minimalen Angaben ein Objekt mit seinen Std.-Merkmalen in der Datenbank an.
  Function OBJ_Create(Optional ByVal strIntern As String = "", _  
 


strIntern: Interne Bezeichnung des Maklers (z.B. mit Straßenangabe)
enumEART: 0=Kauf; 1=Miete; 2=Kauf/Miete
strEmskDsn: Datensatznummer (DSN) der Eingabehilfe (oder leer)
strAnbieterAdDsn: Datensatznummer (DSN) einer Adresse (oder leer)
strAuftragsende: Datum (oder leer)
strNotiz: Inhalt des Notizfeldes
intAbteilung: Feldeingabe; siehe FlowFact-Hilfe
Rückgabewert: Datensatznummer (DSN) des Objektes oder 'LEER'


Public Function OBJ_Create(Optional ByVal strIntern As String = "", _
                          Optional ByVal enumEART As ENUM_EART = EART_KAUF, _
                          Optional ByVal strEmskDsn As String = "", _
                          Optional ByVal strAnbieterAdDsn As String = "", _
                          Optional ByVal strAuftragsende As String = "", _
                          Optional ByVal strNotiz As String = "", _
                          Optional ByVal intAbteilung As Long = 0) As String
    Dim rsOBJ As ADODB.Recordset
    Dim strMkmDsnList As String
    Dim strObjDsn As String

    Set rsOBJ = OBJ_New()

    rsOBJ("Intern").value = Mid(strIntern, 1, 254)
    rsOBJ("EART").value = enumEART

    rsOBJ("EMSK_DSN").value = m_oUtil.SqlStrNull(strEmskDsn)
    rsOBJ("AD_ANBIETER_DSN").value = m_oUtil.SqlStrNull(strAnbieterAdDsn)

    If strAuftragsende <> "" Then
        rsOBJ("Auftragsende").value = CDate(strAuftragsende)
    End If
    rsOBJ("Notiz").value = strNotiz
    rsOBJ("Abteilung").value = intAbteilung

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

    '-- Update
    strObjDsn = rsOBJ("Dsn").value
    OBJ_Update rsOBJ

    '-- Standard Merkmale hinzufügen
    strMkmDsnList = OBJ_Merkmal_StdDsnCommaList()
    OBJ_Merkmal_Add strObjDsn, strMkmDsnList

    OBJ_Create = strObjDsn
End Function