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