FlowFact - Entwicklungstools

zurück

Function - Details_Create
Details-Datensatz anlegen

Diese Funktion legt mit minimalen Angaben einen Details-Datensatz mit seinen Std.-Merkmalen in der Datenbank an.
  Function Details_Create(ByVal strAdDsn As String, _  
 


strAdDsn: Datensatznummer (DSN) der Adresse
strEmskDsn: Datensatznummer (DSN) der Eingabehilfe (oder leer)
Optional strOberbegriff Bezeichnung für den Details-Datensatz
Optional strNotiz: Bemerkung
Rückgabewert: Datensatznummer (DSN) Details oder 'LEER'


Public Function Details_Create(ByVal strAdDsn As String, _
                               ByVal strEmskDsn As String, _
                               Optional ByVal strOberbegriff As String = "", _
                               Optional ByVal strNotiz As String = "") As String
    Dim rsDetails As ADODB.Recordset
    Dim strMkmDsnList As String
    Dim strDetailsDsn As String

    Set rsDetails = Details_New()

    rsDetails("Ad_Dsn").value = m_oUtil.SqlStrNull(strAdDsn)
    rsDetails("EMSK_DSN").value = m_oUtil.SqlStrNull(strEmskDsn)
    rsDetails("Oberbegriff").value = Mid(strOberbegriff, 1, 50)
    rsDetails("Notiz").value = strNotiz

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

    '-- Update
    strDetailsDsn = rsDetails("Dsn").value
    Details_Update rsDetails

    '-- Standard Merkmale hinzufügen
    strMkmDsnList = Details_Merkmal_StdDsnCommaList()
    Details_Merkmal_Add strDetailsDsn, strMkmDsnList

    Details_Create = strDetailsDsn
End Function