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