![]() |
FlowFact - Entwicklungstools |
![]() |
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 |