Aufruf: under construction

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

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE Get_qC66 (tcQuery AS STRING,tcAlias AS STRING,tcFilter AS STRING) AS Boolean
	*/ Den Lagerort 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,"c66.match LIKE '"+STRTRAN(STRTRAN(m.lcFilter,"?","_"),"*","%")+"'",;
		"c66.match='"+m.lcFilter+"'")
	=My.DATA.Tabellen.CloseCursor(m.tcQuery,.T.)
	TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 3
	SELECT c66.* ;
		FROM ('<<My.Clients.Path.cDbfDir>>c66.dbf') AS c66 INNER JOIN ('<<m.tcAlias>>') AS qIn ON c66.idc66==qIn.idc66 ;
		WHERE <<m.lcFilter>> ;
		INTO CURSOR <<m.tcQuery>> NOFILTER READWRITE
	IF USED('<<m.tcQuery>>')
		=My.DATA.Tabellen.AllIndex('<<m.tcQuery>>')
		SET ORDER TO idc66
	ENDIF
	RETURN USED('<<m.tcQuery>>')
	ENDTEXT
	RETURN EXECSCRIPT(m.lcSql)
ENDPROC