PMS32 Online- Hilfereferenz
Get_qVVV - under construction
BOOLEAN = Get_qVVV(tcQuery AS STRING , tcAlias AS STRING , tcFilter AS STRING)
Rückgabe der Funktion: BOOLEAN
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
Siehe auch : Hauptmenü / Hauptindex / Such Index / Cursor Index / Programm Module / Tabellen Index / Tabellenmodule / Masken Index / Programmcode Index / Servicepacks / My.Struktur / Funktionen / Sonstiges Index
Lokale Benutzerhilfe : Meine eigene Hilfe / Zurück zur PMS32 - Hilfe
Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022
Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS32
Weitere Informationen finden Sie unter der aktuellen
PMS32 WEB-Hilfe
Die Informationen dieser Mitteilung sind vertraulich und nur für Sie bestimmt. Unbefugtes Weiterleiten,
Veröffentlichen, Kopieren usw. sind untersagt und werden gerichtlich verfolgt.
© PMS Compelec GmbH 2022 ® el-Projekt