PMS32 Online- Hilfereferenz
GetCExpression - API Funktionen zur grafischen Bearbeitung und WINDOWS Systemfunktionen, die in div. Klassen verwendet werden
STRING = GetCExpression(tcFieldExpression AS STRING , tcAlias AS STRING , tcFilter AS STRING , tcOrder AS STRING)
Rückgabe der Funktion: STRING
FUNCTION GetCExpression (tcFieldExpression AS String,tcAlias AS String,tcFilter AS String,tcOrder AS String) AS String LOCAL loSelect AS My_Fu_Selected,lni,lcFilter,lcReturn,lcSql,loException AS Exception PRIVATE paErg[1] loSelect = My.Functions.Selected.SetInit(SET("Datasession")) DO CASE CASE VARTYPE(m.tcFieldExpression)<>"C" OR EMPTY(m.tcFieldExpression) RETURN "" CASE VARTYPE(m.tcAlias)<>"C" OR EMPTY(m.tcAlias) OR !USED(m.tcAlias) RETURN "" CASE !EXECSCRIPT([SELECT ]+m.tcAlias) CASE TYPE(m.tcFieldExpression)<>"C" RETURN "" CASE !My.SetValue(EVL(m.tcFilter,"1=1"),@lcFilter) CASE TYPE(m.lcFilter)<>"L" RETURN "" OTHERWISE lcReturn = "" DIMENSION paErg[1] lcSql = "SELECT "+m.tcFieldExpression+" FROM "+m.tcAlias+" WHERE "+m.lcFilter +; IIF(!EMPTY(m.tcOrder)," ORDER BY "+m.tcOrder,"") +; " INTO ARRAY paErg" + CRLF + "RETURN _TALLY" TRY IF EXECSCRIPT(m.lcSql)>0 FOR m.lni = 1 TO ALEN(paErg) lcReturn = m.lcReturn + paErg[m.lni] NEXT m.lni ENDIF CATCH TO loException loException.Procedure = [GetCExpression()] loException.Details = m.lcSql My.oException = m.loException lcReturn = "" ENDTRY ENDCASE RETURN m.lcReturn ENDFUNC
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