Aufruf: API Funktionen

STRING = GetCExpression(tcFieldExpression AS STRING , tcAlias AS STRING , tcFilter AS STRING , tcOrder AS STRING)

Rückgabe: API Funktionen

Rückgabe der Funktion: STRING

Code: API Funktionen

FUNCTION GetCExpression (tcFieldExpression AS String,tcAlias AS String,tcFilter AS String,tcOrder AS String) AS String
	LOCAL loSelect AS My_Fu_Selected,lni,lcFilter,lcReturn,lcSql,loException AS Exception
	PRIVATE paErg[1]
	loSelect = My.Functions.Selected.SetInit(SET("Datasession"))
	DO CASE
		CASE VARTYPE(m.tcFieldExpression)<>"C" OR EMPTY(m.tcFieldExpression)
			RETURN ""
		CASE VARTYPE(m.tcAlias)<>"C" OR EMPTY(m.tcAlias) OR !USED(m.tcAlias)
			RETURN ""
		CASE !EXECSCRIPT([SELECT ]+m.tcAlias)
		CASE TYPE(m.tcFieldExpression)<>"C"
			RETURN ""
		CASE !My.SetValue(EVL(m.tcFilter,"1=1"),@lcFilter)
		CASE TYPE(m.lcFilter)<>"L"
			RETURN ""
		OTHERWISE
			lcReturn = ""
			DIMENSION paErg[1]
			lcSql = "SELECT "+m.tcFieldExpression+" FROM "+m.tcAlias+" WHERE "+m.lcFilter +;
				IIF(!EMPTY(m.tcOrder)," ORDER BY "+m.tcOrder,"") +;
				" INTO ARRAY paErg" + CRLF + "RETURN _TALLY"
			TRY
				IF EXECSCRIPT(m.lcSql)>0
					FOR m.lni = 1 TO ALEN(paErg)
						lcReturn = m.lcReturn + paErg[m.lni]
					NEXT m.lni
				ENDIF
			CATCH TO loException
				loException.Procedure = [GetCExpression()]
				loException.Details = m.lcSql
				My.oException = m.loException
				lcReturn = ""
			ENDTRY
	ENDCASE
	RETURN m.lcReturn
ENDFUNC