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