FlowFact - Entwicklungstools

zurück

Function - AKTEN_Create
Akte anlegen

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


strEMSKDsn: Datensatznummer (DSN) der Eingabehilfe
strNotiz: Inhalt des Notizfeldes
strRubrum: Das Rubrum ist der Kopf der Urteilsschrift
Rückgabewert: Datensatznummer (DSN) der Akte oder 'LEER'


Public Function AKTEN_Create(Optional ByVal strEmskDsn As String = "", _
                          Optional ByVal strNotiz As String = "", _
                          Optional ByVal strRubrum As String = "") As String

    Dim rsAKTEN As Recordset
    Dim strMkmDsnList As String
    Dim strAktenDsn As String

    Set rsAKTEN = AKTEN_New()

    rsAKTEN("EMSK_Dsn").value = m_oUtil.SqlStrNull(strEmskDsn)
    rsAKTEN("Notiz").value = strNotiz
    rsAKTEN("Rubrum").value = Mid(strRubrum, 1, 50)

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

    '-- Update
    strAktenDsn = rsAKTEN("Dsn").value
    AKTEN_Update rsAKTEN


    '-- Standard Merkmale hinzufügen
    strMkmDsnList = AKTEN_Merkmal_StdDsnCommaList()
    AKTEN_Merkmal_Add strAktenDsn, strMkmDsnList

    AKTEN_Create = strAktenDsn
End Function