FlowFact - Entwicklungstools

zurück

Sub - test1
Feldart setzen

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




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

    '** 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
    strFldArtKuerzel = "Kaufpreis"


    '** 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")

    '** Deatailwert setzen
    strObjDsn = rsObj("DSN")

    strWert = "€ 50.000,00"

    m_oFFDeveloper.oBase.Det_SetValue "OBJ", strObjDsn, strFldArtDsn, strWert
    '(ByVal strTable As String, ByVal strTableDsn As String, ByVal strFldArtDsn As String, strValue As String, Optional ByVal strAcl As String = STRNOTHING, Optional ByVal strLinkDsn As String = STRNOTHING) As Boolean
    'm_oFFDeveloper.OBJ_Detail_Set strObjDsn, strFldArtDsn, strWert

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