Aufruf: under construction

BOOLEAN = Get_qK10(tcQuery AS STRING , tcAlias AS STRING , tcFilter AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE Get_qK10 (tcQuery AS STRING,tcAlias AS STRING,tcFilter AS STRING) AS Boolean
	*/ Das Projekt ermitteln aus I20...
	*/ tcQuery => Ziel, tcAlias => Quelle, tcFilter => Filterbed.
	LOCAL lcSql AS STRING,lcFilter AS STRING
	lcFilter = My.TVL(m.tcFilter,"")
	lcFilter = ICASE(;
		EMPTY(m.lcFilter),"1=1",;
		"*"$m.lcFilter OR "?"$m.lcFilter,"k10.prjnr LIKE '"+STRTRAN(STRTRAN(m.lcFilter,"?","_"),"*","%")+"'",;
		"k10.prjnr='"+m.lcFilter+"'")
	=My.DATA.Tabellen.CloseCursor(m.tcQuery,.T.)
	TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 3
	SELECT k10.* ;
		FROM ('<<My.Clients.Path.cDbfDir>>k10.dbf') AS k10 INNER JOIN ('<<m.tcAlias>>') AS qIn ON k10.idk10=qIn.idk10 ;
		WHERE <<m.lcFilter>> ;
		INTO CURSOR <<m.tcQuery>> NOFILTER READWRITE
	IF USED('<<m.tcQuery>>')
		=My.DATA.Tabellen.AllIndex('<<m.tcQuery>>')
		SET ORDER TO prjnr
	ENDIF
	RETURN USED('<<m.tcQuery>>')
	ENDTEXT
	RETURN EXECSCRIPT(m.lcSql)
ENDPROC