Aufruf: under construction

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

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE Get_qVVV (tcQuery AS STRING,tcAlias AS STRING,tcFilter AS STRING) AS Boolean
	*/ Den Vorgang 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,"UPPER(####) LIKE '"+STRTRAN(STRTRAN(m.lcFilter,"?","_"),"*","%")+"'",;
		"UPPER(####)='"+m.lcFilter+"'")
	=My.DATA.Tabellen.CloseCursor(m.tcQuery,.T.)
	TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 3
	SELECT DISTINCT;
		e10.nummer,;
		e10.ide10 	AS ID,;
		c80.bezei	AS VART,;
		c80.ipc80	AS ip,;
		e10.prjnr,;
		e10.idc63,;
		CAST(e10.anlage AS C(80)) 		AS anlage,;
		CAST(e10.kommision AS C(50))	AS Kommision;
		FROM ("<<m.tcAlias>>") AS qIn ;
			INNER JOIN ('<<My.Clients.Path.cDbfDir>>e10.dbf') ON qIn.idzwi = e10.ide10 ;
			INNER JOIN ('<<My.Clients.Path.cSysDir>>c80.dbf') ON qIn.ipzwi = c80.ipzwi ;
		WHERE qIn.ipzwi IN ('101','105','107','108','201','208','211','218') ;
		AND   <<STRTRAN(m.lcFilter,"####","e10.nummer")>> ;
		UNION ALL ;
	SELECT DISTINCT;
		d40.match	AS nummer,;
		d40.idd40	AS ID,;
		c80.bezei	AS VART,;
		c80.ipc80	AS ip,;
		CAST('' AS C(25))	AS prjnr,;
		d40.idc61 	AS idc63,;
		CAST('' AS C(80)) AS anlage,;
		CAST('' AS C(50)) AS kommision;
		FROM ("<<m.tcAlias>>") AS qIn ;
			INNER JOIN ('<<My.Clients.Path.cDbfDir>>d40.dbf') ON qIn.idzwi = d40.idd40 ;
			INNER JOIN ('<<My.Clients.Path.cSysDir>>c80.dbf') ON qIn.ipzwi = c80.ipzwi ;
		WHERE qIn.ipzwi IN ('300','310','311') ;
		AND   <<STRTRAN(m.lcFilter,"####","d40.match")>> ;
		UNION ALL;
	SELECT DISTINCT;
		d43.match	AS nummer,;
		d43.idd43	AS ID,;
		c80.bezei	AS VART,;
		c80.ipc80	AS ip,;
		CAST('' AS C(25))	AS prjnr,;
		d43.idc61	AS idc63,;
		CAST('' AS C(80)) AS anlage,;
		CAST('' AS C(50)) AS kommision;
		FROM ("<<m.tcAlias>>") AS qIn ;
			INNER JOIN ('<<My.Clients.Path.cDbfDir>>d43.dbf') ON qIn.idzwi = d43.idd43 ;
			INNER JOIN ('<<My.Clients.Path.cSysDir>>c80.dbf') ON qIn.ipzwi = c80.ipzwi ;
		WHERE qIn.ipzwi IN ('121','128','129','130') ;
		AND   <<STRTRAN(m.lcFilter,"####","d43.match")>> ;
		UNION ALL;
	SELECT DISTINCT;
		i28.match	AS nummer,;
		i28.idi28	AS ID,;
		c80.bezei	AS VART,;
		c80.ipc80	AS ip,;
		CAST('' AS C(25))	AS prjnr,;
		CAST('' AS C(6))	AS idc63,;
		CAST('' AS C(80)) AS anlage,;
		CAST('' AS C(50)) AS kommision;
		FROM ("<<m.tcAlias>>") AS qIn ;
			INNER JOIN ('<<My.Clients.Path.cDbfDir>>i28.dbf') ON qIn.idzwi = i28.idi28 ;
			INNER JOIN ('<<My.Clients.Path.cSysDir>>c80.dbf') ON qIn.ipzwi = c80.ipzwi ;
		WHERE qIn.ipzwi IN ('380') ;
		AND   <<STRTRAN(m.lcFilter,"####","i28.match")>> ;
		UNION ALL;
	SELECT DISTINCT;
		i26.match	AS nummer,;
		i26.idi26	AS ID,;
		c80.bezei	AS VART,;
		c80.ipc80	AS ip,;
		CAST('' AS C(25))	AS prjnr,;
		CAST('' AS C(6))	AS idc63,;
		CAST('' AS C(80))	AS anlage,;
		CAST('' AS C(50))	AS kommision;
		FROM ("<<m.tcAlias>>") AS qIn ;
			INNER JOIN ('<<My.Clients.Path.cDbfDir>>i26.dbf') ON qIn.idzwi = i26.idi26 ;
			INNER JOIN ('<<My.Clients.Path.cSysDir>>c80.dbf') ON qIn.ipzwi = c80.ipzwi ;
		WHERE qIn.ipzwi IN ('370') ;
		AND   <<STRTRAN(m.lcFilter,"####","i26.match")>> ;
		INTO CURSOR <<m.tcQuery>> NOFILTER READWRITE
	IF USED('<<m.tcQuery>>')
		=My.DATA.Tabellen.AllIndex('<<m.tcQuery>>')
		SET ORDER TO nummer
	ENDIF
	RETURN USED('<<m.tcQuery>>')
	ENDTEXT
	RETURN EXECSCRIPT(m.lcSql)
ENDPROC