![]() |
FlowFact - Entwicklungstools |
![]() |
Function | OBJ_Create(Optional ByVal strIntern As String = "", _ |
strIntern: Interne Bezeichnung des Maklers (z.B. mit Straßenangabe) enumEART: 0=Kauf; 1=Miete; 2=Kauf/Miete strEmskDsn: Datensatznummer (DSN) der Eingabehilfe (oder leer) strAnbieterAdDsn: Datensatznummer (DSN) einer Adresse (oder leer) strAuftragsende: Datum (oder leer) strNotiz: Inhalt des Notizfeldes intAbteilung: Feldeingabe; siehe FlowFact-Hilfe Rückgabewert: Datensatznummer (DSN) des Objektes oder 'LEER' Public Function OBJ_Create(Optional ByVal strIntern As String = "", _ Optional ByVal enumEART As ENUM_EART = EART_KAUF, _ Optional ByVal strEmskDsn As String = "", _ Optional ByVal strAnbieterAdDsn As String = "", _ Optional ByVal strAuftragsende As String = "", _ Optional ByVal strNotiz As String = "", _ Optional ByVal intAbteilung As Long = 0) As String Dim rsOBJ As ADODB.Recordset Dim strMkmDsnList As String Dim strObjDsn As String Set rsOBJ = OBJ_New() rsOBJ("Intern").value = Mid(strIntern, 1, 254) rsOBJ("EART").value = enumEART rsOBJ("EMSK_DSN").value = m_oUtil.SqlStrNull(strEmskDsn) rsOBJ("AD_ANBIETER_DSN").value = m_oUtil.SqlStrNull(strAnbieterAdDsn) If strAuftragsende <> "" Then rsOBJ("Auftragsende").value = CDate(strAuftragsende) End If rsOBJ("Notiz").value = strNotiz rsOBJ("Abteilung").value = intAbteilung '-- Standard Berechtigung hinzufügen rsOBJ("ACL").value = m_oBase.BEN_StdACL '-- Update strObjDsn = rsOBJ("Dsn").value OBJ_Update rsOBJ '-- Standard Merkmale hinzufügen strMkmDsnList = OBJ_Merkmal_StdDsnCommaList() OBJ_Merkmal_Add strObjDsn, strMkmDsnList OBJ_Create = strObjDsn End Function |