FlowFact - Entwicklungstools

zurück

Function - VERTRAEGE_Create
Vertrag anlegen

Diese Funktion legt mit minimalen Angaben einen Vertrag mit seinen Std.-Merkmalen in der Datenbank an.
  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