![]() |
FlowFact - Entwicklungstools |
![]() |
Function | VERTRAEGE_Create(Optional ByVal strVertragsnummer As String = "", _ |
strVertragsnummer: Vertragsnummer strIntern: interne Bezeichnung strNotiz: Inhalt des Notizfeldes strEMSKDsn: Datensatznummer (DSN) der Eingabehilfe strAdNehmerDsn: Datensatznummer (DSN) der Adresse: Nehmer strAdGesellschaftDsn: Datensatznummer (DSN) der Adresse: Gesellschaft strAdVermittlerDsn: Datensatznummer (DSN) der Adresse: Vermittler Rückgabewert: Datensatznummer (DSN) des Vertrags oder 'LEER' Public Function VERTRAEGE_Create(Optional ByVal strVertragsnummer As String = "", _ Optional ByVal strIntern As String = "", _ Optional ByVal strNotiz As String = "", _ Optional ByVal strEmskDsn As String = "", _ Optional ByVal strAdNehmerDsn As String = "", _ Optional ByVal strAdGesellschaftDsn As String = "", _ Optional ByVal strAdVermittlerDsn As String = "") As String Dim rsVERTRAEGE As ADODB.Recordset Dim strMkmDsnList As String Dim strVertraegeDsn As String Set rsVERTRAEGE = VERTRAEGE_New() rsVERTRAEGE("Vertragsnummer").value = Mid(strVertragsnummer, 1, 50) rsVERTRAEGE("Intern").value = Mid(strIntern, 1, 40) rsVERTRAEGE("Notiz").value = strNotiz rsVERTRAEGE("EMSK_Dsn").value = m_oUtil.SqlStrNull(strEmskDsn) rsVERTRAEGE("AD_Nehmer_Dsn").value = m_oUtil.SqlStrNull(strAdNehmerDsn) rsVERTRAEGE("AD_Gesellschaft_Dsn").value = m_oUtil.SqlStrNull(strAdGesellschaftDsn) rsVERTRAEGE("AD_Vermittler_Dsn").value = m_oUtil.SqlStrNull(strAdVermittlerDsn) '-- Standard Berechtigung hinzufügen rsVERTRAEGE("ACL").value = m_oBase.BEN_StdACL '-- Update strVertraegeDsn = rsVERTRAEGE("Dsn").value VERTRAEGE_Update rsVERTRAEGE '-- Standard Merkmale hinzufügen strMkmDsnList = VERTRAEGE_Merkmal_StdDsnCommaList() VERTRAEGE_Merkmal_Add strVertraegeDsn, strMkmDsnList VERTRAEGE_Create = strVertraegeDsn End Function |