FlowFact - Entwicklungstools

zurück

Function - GetSinglePlatzhalter
Einen Platzhalter ersetzen (ab Build133)

Diese Funktion liefert den Inhalt eines Platzhalters z.B. AD_NAME. Diese Funktion steht in der Connectorinitialisierung nicht zur Verfügung. Diese Funktion steht erst ab FlowFact Build 133 zur Verfügung.
  Function GetSinglePlatzhalter(ByVal strPlatzhalter As String, ByVal rs As ADODB.Recordset, ByVal strSQL As String, Optional blnHtml As Boolean = False, Optional strDefault As String = "") As String  
 


strPlatzhalter: Name des Platzhalteres
rs: Recordset; der Inhalt muß zu strSql passen
strSql: Sql-Statement z.B. "Select * From Ad Where name='Karl Zufrieden'"


Public Function GetSinglePlatzhalter(ByVal strPlatzhalter As String, ByVal rs As ADODB.Recordset, ByVal strSQL As String, Optional blnHtml As Boolean = False, Optional strDefault As String = "") As String
    Dim strResult As String

    Select Case UCase(strPlatzhalter)
        Case "JETZT"
            strResult = m_oApplication.oUtil.GeneralDate(Now)
        Case "HEUTE"
            strResult = Format$(Now, "SHORT DATE")
        Case Else
            If m_oApplication.FlowFact_InitType = INITTYPE_APPLICATION Then
                If m_oApplication.FlowFact_Application.VersionBuild < 133 Then
                    Err.Raise vbObjectError + 101, "GetSinglePlatzhalter", "Die Funktion 'GetSinglePlatzhalter' benötigt mind. FlowFact Build133"
                Else
                    strResult = m_oApplication.FlowFact_Application.Get_Platzhalter(rs, strPlatzhalter, strSQL)
                End If
            Else
                strResult = "???"
                Err.Raise vbObjectError + 101, "GetSinglePlatzhalter", "Die Funktion 'GetSinglePlatzhalter' steht in der Connectorinitialisierung nicht zur Verfügung"
            End If
            If blnHtml = True Then
                strResult = Replace(strResult, vbCrLf, "
")
            End If
    End Select

    If strResult = "" Then
        strResult = strDefault
    End If

    GetSinglePlatzhalter = strResult
End Function