FlowFact - Entwicklungstools

zurück

Sub - cmd_Obj_Fldart_Click
Feldart setzen

Bei einem Objekt wird ein Detailwert eingegeben.
  Sub cmd_Obj_Fldart_Click()  
 




Public Sub cmd_Obj_Fldart_Click()
    Dim rsObj As ADODB.Recordset
    Dim rsFldArt As ADODB.Recordset
    Dim strInput As String
    Dim strFldArtKuerzel As String
    Dim strWert As String
    Dim strFldArtDsn As String
    Dim strObjDsn As String

    test1
    Exit Sub

    '** Objekt mit der internen Bezeichnung 'TestHaus' suchen.
    Set rsObj = m_oFFDeveloper.OBJ_Find("Intern like 'TestHaus%'", "Angelegt DESC")
    If rsObj.EOF = True Then
        MsgBox "Kein 'TestHaus' gefunden. Bitte zuerst Objekt-Create ausführen."
        Exit Sub
    End If

    '** Eingabe
    strInput = InputBox("Bitte geben sie einen Wert in der Form: 'Feldartname=Wert' ein", "Details setzen", "Kaufpreis=150000")
    strFldArtKuerzel = Trim(m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, "="))
    strWert = Trim(strInput)

    '** DSN der Feldart bestimmen
    Set rsFldArt = m_oFFDeveloper.FldArt_FindByName(strFldArtKuerzel)
    If rsFldArt.EOF = True Then
        MsgBox "Feldart '" & strFldArtKuerzel & "' nicht gefunden."
        Exit Sub
    End If
    strFldArtDsn = rsFldArt("DSN")

    '** Optionstypen ausschliessen
    If m_oFFDeveloper.FldArt_GetTyp(rsFldArt) = FLDARTTYP_OPTION Then
        MsgBox "Feldart-Optionen werden im nächsten Beispiel behandelt. Bitte wählen Sie eine andere Feldart."
        Exit Sub
    End If

    '** Deatailwert setzen
    strObjDsn = rsObj("DSN")
    m_oFFDeveloper.OBJ_Detail_Set strObjDsn, strFldArtDsn, strWert

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