Aufruf: under construction

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

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

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