FlowFact - Entwicklungstools

zurück

Function - ANF_Create
Anfrage anlegen

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


strAdDsn: Datensatznummer (DSN) der verknüpften Adresse
strEMSKDsn: Datensatznummer (DSN) der Eingabehilfe
strNotiz: Inhalt des Notizfeldes
enumEART: 0=Kauf; 1=Miete; 2=Kauf/Miete
lngAbteilung: Feldeingabe; siehe FlowFact-Hilfe zum Fenster ANF
strManuell: Feldeingabe; siehe FlowFact-Hilfe zum Fenster ANF
Rückgabewert: Datensatznummer (DSN) der Anfrage oder 'LEER'


Public Function ANF_Create(Optional ByVal strAdDsn As String = "", _
                           Optional ByVal strEmskDsn As String = "", _
                           Optional ByVal strNotiz As String = "", _
                           Optional ByVal enumEART As ENUM_EART = EART_KAUF, _
                           Optional ByVal lngAbteilung As Long = 0, _
                           Optional ByVal strManuell As String = "") As String

    Dim rsANF As ADODB.Recordset
    Dim strMkmDsnList As String
    Dim strAnfDsn As String

    Set rsANF = ANF_New()

    rsANF("AD_Dsn").value = m_oUtil.SqlStrNull(strAdDsn)
    rsANF("EMSK_Dsn").value = m_oUtil.SqlStrNull(strEmskDsn)
    rsANF("Notiz").value = strNotiz
    rsANF("EART").value = enumEART
    rsANF("Abteilung").value = lngAbteilung
    rsANF("Manuell").value = Mid(strManuell, 1, 255)

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

    '-- Update
    strAnfDsn = rsANF("Dsn").value
    ANF_Update rsANF

    '-- Standard Merkmale hinzufügen
    strMkmDsnList = ANF_Merkmal_StdDsnCommaList()
    ANF_Merkmal_Add strAnfDsn, strMkmDsnList

    ANF_Create = strAnfDsn
End Function