FlowFact - Entwicklungstools

zurück

Sub - cmd_Obj_Create_Click
Objekt anlegen

Objekt in Datenbank anlegen und anschließend in Flowfact anzeigen
  Sub cmd_Obj_Create_Click()  
 




Public Sub cmd_Obj_Create_Click()
    Dim strInput As String
    Dim strItem As String
    Dim strIntern As String
    Dim enumEART As Long 'FFDeveloper.ENUM_EART
    Dim strEMSKDsn As String
    Dim strAnbieterAdDsn As String
    Dim strAuftragsende As String
    Dim rs As ADODB.Recordset
    Dim strObjDsn As String

    strInput = InputBox("Bitte geben Sie ein Objekt in der Form 'interne Bezeichnung, KAUF/MIETE, Eingabemaske, Anbietername, Autragsendedatum' ein.", "Objekt anlegen", "TestHaus;Köln;Hauptstr.23,KAUF,Häuser-Kauf,Zufrieden,20.08.2050")

    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strIntern = strItem

    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    If UCase(strItem) = "MIETE" Then
        enumEART = EART_MIETE
    ElseIf UCase(strItem) = "KAUFMIETE" Then
        enumEART = EART_KAUFMIETE
    Else
        enumEART = EART_KAUF
    End If

    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strEMSKDsn = m_oFFDeveloper.EMSK_FindDsnByName(strItem)
    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    Set rs = m_oFFDeveloper.AD_Find("IDX_NAME like '" & strItem & "%'")
    If rs.EOF = False Then
        strAnbieterAdDsn = rs("DSN")
    End If
    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strAuftragsende = strItem

    '** Objekt mit std. Merkmalen anlegen
    strObjDsn = m_oFFDeveloper.OBJ_Create(strIntern, enumEART, strEMSKDsn, strAnbieterAdDsn, strAuftragsende, "Dieses Objekt wurde automatisch angelegt." & vbCrLf & "Sie können dieses Objekt problemlos löschen.")

    '** Objekt auswählen
    Set rs = m_oFFDeveloper.OBJ_FindByDSN(strObjDsn)

    '-- Provision setzen
    rs("PROV_QUELLE") = "0,1%"
    rs("PROV_EIGENE") = "3,48%"
    rs("PROV_PARTNER") = "0,8%"
    rs("PROV_INT") = "0,2%"
    rs("PROV_ANB") = "0,3%"
    rs("PROV_MITARBEITER") = "1,6%"

    '-- ExposeTexte setzen
    rs("TEXTFREI") = "Das ist ein Freitext"
    rs("TEXTLAGE") = "Das ist ein Text zur Lage"
    rs("TEXTAUSSTATTUNG") = "Das ist ein Text zur Ausstattung"
    rs("TEXTBEBAUBARKEIT") = "Das ist ein Text zur Bebaubarkeit"
    rs("TEXTERSCHLIESSUNG") = "Das ist ein Text zur Erschließung"
    rs("TEXTOBJEKT") = "Das ist ein Text zum Objekt"
    rs("TEXTEXTRA1") = "Das ist der Extra-Text Nr. 1"
    rs("TEXTEXTRA2") = "Das ist der Extra-Text Nr. 2"
    rs("TEXTEXTRA3") = "Das ist der Extra-Text Nr. 3"
    rs("TEXTEXTRA4") = "Das ist der Extra-Text Nr. 4"

    '** WICHTIG! Nach Änderungen Update aufrufen
    m_oFFDeveloper.OBJ_Update rs

    '** Objekt in FlowFact anzeigen
    m_oFFDeveloper.OBJ_ShowDSN strObjDsn
End Sub