PMS32 Online- Hilfereferenz
Action - Führt Datensatz Operationen aus
*/ Kurzbeispiel für den Zugriff auf diese Struktur */ Der Zugriff erfolgt über: My.Clients.Action */ Wird dieses Objekt in einem REPLACE oder einer Schleife SCAN ... ENDSCAN | FOR ... NEXT benötigt */ so sollte vor der Schleife die Objektstruktur in eine Variable geholt werden! */ Die Ausführungsgeschwindigkeit wird dadurch sehr vergrößert! */ Beispiel: */ Definieren einer LOKALEN Variablen LOCAL loAction AS My.Clients.Action */ Setzen der Variablen loAction = My.Clients.Action */ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein... REPLACE ALL Feldname1 WITH loAction.Function1(),Feldname2 WITH loAction.Function1(), ... */ Oder in einer Schleife... SCAN lvValue = loAction.Function(Alias.Spalte) + 25 lvValue = loAction.Function2(m.lvValue) REPLACE Feldname WITH m.lvValue,... ENDSCAN */ Es sind auch geschachtelte Aufrufe möglich...
Boolean = My.Clients.Action.ActionChild(tnAction AS INTEGER,tnSubAction AS INTEGER,tvValue AS Variant,tlQuiet AS Boolean) Boolean = My.Clients.Action.ActionChild(tnAction,tnSubAction,tvValue,tlQuiet)
Boolean = My.Clients.Action.ActionError(tlError AS Boolean , tcField AS STRING, tcComment AS STRING,tlSError AS Boolean @) Boolean = My.Clients.Action.ActionError(tlError,tcField,tcComment,@tlSError)
Boolean = My.Clients.Action.ActionField(tnAction AS INTEGER,tnSubAction AS INTEGER,tvValue AS Variant,tlQuiet AS Boolean) Boolean = My.Clients.Action.ActionField(tnAction,tnSubAction,tvValue,tlQuiet)
Variant = My.Clients.Action.ActionGetControls(toForm AS Variant @, toControl AS Variant @) Variant = My.Clients.Action.ActionGetControls(@toForm,@toControl)
Boolean = My.Clients.Action.ActionGo(tvWhat AS Variant ,tcFilter AS STRING ,tcAlias AS STRING,tnDataSession AS NUMBER) Boolean = My.Clients.Action.ActionGo(tvWhat,tcFilter,tcAlias,tnDataSession)
Boolean = My.Clients.Action.ActionMaster(tnAction AS INTEGER,tnSubAction AS INTEGER,tvValue AS Variant,tlQuiet AS Boolean) Boolean = My.Clients.Action.ActionMaster(tnAction,tnSubAction,tvValue,tlQuiet)
Boolean = My.Clients.Action.ActionRecordNumber(toGrid AS OBJECT,tnRow AS INTEGER @,tnCol AS INTEGER @) Boolean = My.Clients.Action.ActionRecordNumber(toGrid,@tnRow,@tnCol)
Boolean = My.Clients.Action.ActionScript(tcMenuFile AS STRING,tcScript AS STRING,tlScript AS Boolean @,tlReturn AS Boolean @ , tp1 as Variant @, tp2 as Variant @, tp3 as Variant @, tp4 as Variant @, tp5 as Variant @, tp6 as Variant @, tp7 as Variant @, tp8 as Variant @, tp9 as Variant @) Boolean = My.Clients.Action.ActionScript(tcMenuFile,tcScript,@tlScript,@tlReturn,@tp1,@tp2,@tp3,@tp4,@tp5,@tp6,@tp7,@tp8,@tp9)
Boolean = My.Clients.Action.ActionSz(tlAdd AS Boolean ,tlChange AS Boolean ,tlCancel AS Boolean) Boolean = My.Clients.Action.ActionSz(tlAdd,tlChange,tlCancel)
Boolean = My.Clients.Action.ActionTable(tnAction AS NUMBER,tnSubAction AS NUMBER,tvValue AS Variant,tlQuiet AS Boolean) Boolean = My.Clients.Action.ActionTable(tnAction,tnSubAction,tvValue,tlQuiet)
Boolean = My.Clients.Action.CanEndForm(toFormSet AS OBJECT,tiWhatEnd AS INTEGER) Boolean = My.Clients.Action.CanEndForm(toFormSet,tiWhatEnd)
Boolean = My.Clients.Action.ChangeLChange(toFormset AS OBJECT) Boolean = My.Clients.Action.ChangeLChange(toFormset)
Boolean = My.Clients.Action.ClearLastKey()
Boolean = My.Clients.Action.ClearMasterFilter(tlAdd AS Boolean ,tlChange AS Boolean) Boolean = My.Clients.Action.ClearMasterFilter(tlAdd,tlChange)
Variant = My.Clients.Action.Evaluate(pcExpression AS STRING,pvDefault AS Variant,tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant, tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant) Variant = My.Clients.Action.Evaluate(pcExpression,pvDefault,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)
*/ Mit Evaluate kann eine Befehlszeile ausgeführt werden */ Eventuell benutzte Variablen sind PRIVATE zu deklarieren PRIVATE pnVar1 AS Number , pnVar2 AS Number LOCAL lnVar AS Number STORE 2 TO pnVar1,pnVar2 lnVar = My.Clients.Action.Evaluate([m.pnVar1+m.pnVar2]) WAIT WINDOW m.lnVar && Ergibt 4... ENDTEXT
Variant = My.Clients.Action.ExecScript(_es_pcAlias AS STRING,_es_pcScript AS STRING,_es_tlBoolean AS Boolean, _es_tvP1 AS Variant,_es_tvP2 AS Variant,_es_tvP3 AS Variant,_es_tvP4 AS Variant,_es_tvP5 AS Variant,_es_tvP6 AS Variant, _es_tvP7 AS Variant,_es_tvP8 AS Variant,_es_tvP9 AS V) Variant = My.Clients.Action.ExecScript(_es_pcAlias,_es_pcScript,_es_tlBoolean,_es_tvP1,_es_tvP2,_es_tvP3,_es_tvP4,_es_tvP5,_es_tvP6,_es_tvP7,_es_tvP8,_es_tvP9)
*/ Mit EXECSCRIPT kann ein VFP-Script ausgeführt werden
LOCAL lcScript AS String,lnVar1 AS Number,lnVar2 AS Number,lnVar AS Number
TEXT TO lcScript NOSHOW TEXTMERGE
LPARAMETERS tnVar1 AS Number @,tnVar2 AS Number @
tnVar1 = m.tnVar1 + 1
tnVar2 = m.tnVar2 - 2
RETURN m.tnVar1 + m.tnVar2
ENDTEXT
*/ Vorbelegen der Variablen (Parameter)
STORE 2 TO lnVar1,lnVar2
lnVar = My.Clients.Action.ExecScript("",m.lcScript,0,@lnVar1,@lnVar2)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2
Variant = My.Clients.Action.ExecScriptP(tcScript AS STRING,toPara AS COLLECTION) Variant = My.Clients.Action.ExecScriptP(tcScript,toPara)
*/ Mit EXECSCRIPTP kann ein VFP-Script ausgeführt werden
LOCAL lcScript AS String,lnVar AS Number,loColl AS Collection
loColl = CREATEOBJECT("Collection")
loColl.Add(2,"Var1")
loColl.Add(2,"Var2")
TEXT TO lcScript NOSHOW TEXTMERGE
LPARAMETERS toColl AS Collection
RETURN toColl.Item("Var1") + toColl.Item("Var2")
ENDTEXT
lnVar = My.Clients.Action.ExecScriptP(m.lcScript,m.loColl)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar
String = My.Clients.Action.FieldDblClickInfo(toField AS TextBox) String = My.Clients.Action.FieldDblClickInfo(toField)
Boolean = My.Clients.Action.GetActionControls(toFormSet AS Variant @,toForm AS Variant @, toControl AS Variant @, toGrid AS Variant @) Boolean = My.Clients.Action.GetActionControls(@toFormSet,@toForm,@toControl,@toGrid)
String = My.Clients.Action.GetActionFilter(tlBrowFor AS Boolean ,tcAlias AS STRING,tnDataSession AS NUMBER) String = My.Clients.Action.GetActionFilter(tlBrowFor,tcAlias,tnDataSession)
Variant = My.Clients.Action.GetChildScriptProgram(tcModul AS STRING,tnAction AS INTEGER,tnSubAction AS INTEGER,tcGridName AS STRING) Variant = My.Clients.Action.GetChildScriptProgram(tcModul,tnAction,tnSubAction,tcGridName)
String = My.Clients.Action.GetMasterScriptProgram(tcModul AS STRING,tnAction AS INTEGER,tnSubAction AS INTEGER) String = My.Clients.Action.GetMasterScriptProgram(tcModul,tnAction,tnSubAction)
Boolean = My.Clients.Action.GetOriginalRecordBeforeSave()
Variant = My.Clients.Action.GetParameters(tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant,tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant) Variant = My.Clients.Action.GetParameters(tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)
*/ Hier können mehrere Parameter in eine Collection übertragen werden LOCAL loCollection AS Collection , lni AS Integer , lcNames AS String loCollection = My.Clients.Action.GetParameters(1,DATE(),TIME()) WAIT WINDOW m.loCollection.Count && Anzahl der Werte (3) */ Die Namen der Parameter bestimmen lcNames = "" FOR m.lni = 1 TO m.loCollection.Count lcNames = m.lcNames + ";" + m.loCollection.GetKey(m.lni) NEXT m.lni WAIT WINDOW SUBSTR(m.lcNames,2)
Variant = My.Clients.Action.GetParametersCount(tnCnt AS Number,tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant,tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant) Variant = My.Clients.Action.GetParametersCount(tnCnt,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)
*/ Hier können mehrere Parameter in eine Collection übertragen werden */ Als Beispiel kann nur der Aufruf eines Scripts / einer Methode dienen LPARAMETERS tp1 AS Variant , tp2 AS Variant , tp3 AS Variant && Es könnten mehr sein! LOCAL loCollection AS Collection , lni AS Integer lni = PCOUNT() && Wieviele Parameter wurden übergeben? loCollection = My.Clients.Action.GetParametersCount(m.lni,m.tp1,m.tp2,m.tp3) WAIT WINDOW m.loCollection.Count && Anzahl der Werte (?)
String = My.Clients.Action.GetScriptProgramObject(tcMethod AS STRING,toControl AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) String = My.Clients.Action.GetScriptProgramObject(tcMethod,toControl,toForm,toFormSet)
Boolean = My.Clients.Action.GoRecno(tnRecno AS INTEGER,tcAlias AS STRING,tcPruef AS STRING) Boolean = My.Clients.Action.GoRecno(tnRecno,tcAlias,tcPruef)
Boolean = My.Clients.Action.HbuLock(tlNoUnlock AS Boolean,tnDataSession AS NUMBER) Boolean = My.Clients.Action.HbuLock(tlNoUnlock,tnDataSession)
Boolean = My.Clients.Action.HdeMenuAction(tnAction AS NUMBER,tnSubAction AS NUMBER,tvValue AS Variant,tlQuiet AS Boolean) Boolean = My.Clients.Action.HdeMenuAction(tnAction,tnSubAction,tvValue,tlQuiet)
Integer = My.Clients.Action.LastPmsKey(tlShiftAltCtrl AS Boolean) Integer = My.Clients.Action.LastPmsKey(tlShiftAltCtrl)
Boolean = My.Clients.Action.LookForRecordsInGrid(tnGridRecno AS INTEGER) Boolean = My.Clients.Action.LookForRecordsInGrid(tnGridRecno)
Variant = My.Clients.Action.MenuMode(tnMode AS INTEGER, tcName AS STRING) Variant = My.Clients.Action.MenuMode(tnMode,tcName)
Boolean = My.Clients.Action.NoRecs(tvRecno AS Variant,tnDataSession AS NUMBER) Boolean = My.Clients.Action.NoRecs(tvRecno,tnDataSession)
Variant = My.Clients.Action.ReadFieldDblclick(poActiveInputField AS TEXTBOX,poActiveForm AS FORM) Variant = My.Clients.Action.ReadFieldDblclick(poActiveInputField,poActiveForm)
Boolean = My.Clients.Action.ReadFieldGotFocus(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldGotFocus(toField,toForm,toFormSet)
Boolean = My.Clients.Action.ReadFieldGrpResetFocus(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldGrpResetFocus(toField,toForm,toFormSet)
Boolean = My.Clients.Action.ReadFieldHelp(toField AS OBJECT,toForm AS OBJECT,tcWhat AS STRING) Boolean = My.Clients.Action.ReadFieldHelp(toField,toForm,tcWhat)
Boolean = My.Clients.Action.ReadFieldInit(toField AS OBJECT) Boolean = My.Clients.Action.ReadFieldInit(toField)
Boolean = My.Clients.Action.ReadFieldInterActiveChange(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldInterActiveChange(toField,toForm,toFormSet)
Boolean = My.Clients.Action.ReadFieldKeyPress(toObject AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT,tnKeyCode AS INTEGER,tnShiftAltCtrl AS INTEGER,tcFxField AS STRING) Boolean = My.Clients.Action.ReadFieldKeyPress(toObject,toForm,toFormSet,tnKeyCode,tnShiftAltCtrl,tcFxField)
Boolean = My.Clients.Action.ReadFieldKeyPressGrid(toObject AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT,tnKeyCode AS INTEGER,tnShiftAltCtrl AS INTEGER,tcFxField AS STRING) Boolean = My.Clients.Action.ReadFieldKeyPressGrid(toObject,toForm,toFormSet,tnKeyCode,tnShiftAltCtrl,tcFxField)
Boolean = My.Clients.Action.ReadFieldLostFocus(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldLostFocus(toField,toForm,toFormSet)
Boolean = My.Clients.Action.ReadFieldResetFocus(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldResetFocus(toField,toForm,toFormSet)
Boolean = My.Clients.Action.ReadFieldRightClick(toObject AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldRightClick(toObject,toForm,toFormSet)
Boolean = My.Clients.Action.ReadFieldValid(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldValid(toField,toForm,toFormSet)
Boolean = My.Clients.Action.ReadFieldValid_Modal(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldValid_Modal(toField,toForm,toFormSet)
Boolean = My.Clients.Action.ReadFieldWhen(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT,tlModal AS Boolean) Boolean = My.Clients.Action.ReadFieldWhen(toField,toForm,toFormSet,tlModal)
Boolean = My.Clients.Action.ReadFieldWhen_Modal(toField AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadFieldWhen_Modal(toField,toForm,toFormSet)
Boolean = My.Clients.Action.ReadGridFieldGotFocus(toField AS OBJECT) Boolean = My.Clients.Action.ReadGridFieldGotFocus(toField)
Boolean = My.Clients.Action.ReadGridFieldLostFocus(toField AS OBJECT) Boolean = My.Clients.Action.ReadGridFieldLostFocus(toField)
Boolean = My.Clients.Action.ReadGridFieldResetFocus(toField AS OBJECT) Boolean = My.Clients.Action.ReadGridFieldResetFocus(toField)
Boolean = My.Clients.Action.ReadGridFieldValid(toField AS OBJECT) Boolean = My.Clients.Action.ReadGridFieldValid(toField)
Boolean = My.Clients.Action.ReadGridFieldWhen(toField AS OBJECT) Boolean = My.Clients.Action.ReadGridFieldWhen(toField)
Boolean = My.Clients.Action.ReadGridReadValid(toField AS OBJECT) Boolean = My.Clients.Action.ReadGridReadValid(toField)
Boolean = My.Clients.Action.ReadMenuAction(tnAction AS NUMBER,tnSubAction AS NUMBER,tvValue AS Variant,tlQuiet AS Boolean) Boolean = My.Clients.Action.ReadMenuAction(tnAction,tnSubAction,tvValue,tlQuiet)
Boolean = My.Clients.Action.ReadMenuTableAction(tnAction AS NUMBER,tnSubAction AS NUMBER,tvValue AS Variant,tlQuiet AS Boolean) Boolean = My.Clients.Action.ReadMenuTableAction(tnAction,tnSubAction,tvValue,tlQuiet)
Boolean = My.Clients.Action.ReadPageRightClick(toPage AS OBJECT,toForm AS OBJECT,toFormSet AS OBJECT) Boolean = My.Clients.Action.ReadPageRightClick(toPage,toForm,toFormSet)
Boolean = My.Clients.Action.ResetFocus(toControl AS OBJECT) Boolean = My.Clients.Action.ResetFocus(toControl)
cProperty = My.Clients.Action.ResetToDefault(cProperty) cProperty = My.Clients.Action.ResetToDefault(cProperty)
Variant = My.Clients.Action.SetParameters(toPara AS Collection,tvP1 AS Variant @,tvP2 AS Variant @,tvP3 AS Variant @,tvP4 AS Variant @,tvP5 AS Variant @,tvP6 AS Variant @,tvP7 AS Variant @,tvP8 AS Variant @,tvP9 AS Variant @) Variant = My.Clients.Action.SetParameters(toPara,@tvP1,@tvP2,@tvP3,@tvP4,@tvP5,@tvP6,@tvP7,@tvP8,@tvP9)
*/ Umwandeln einer Collection in Parameter
LOCAL loCollection AS Collection,lnVar1 AS Number,lnVar2 AS Number
loCollection = CREATEOBJECT("Collection")
=loCollection.Add(1,"tvp1")
=loCollection.Add(2,"tvp2")
=My.Clients.Action.SetParameters(m.loCollection,@lnVar1,@lnVar2)
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2
Boolean = My.Clients.Action.ShowGets()
Boolean = My.Clients.Action.Show_Gets(toFormSet AS FORMSET) Boolean = My.Clients.Action.Show_Gets(toFormSet)
Boolean = My.Clients.Action.SystemLock(tcAlias AS STRING,tlEof AS Boolean,tnAnzahl AS INTEGER,tlUnlockBefore AS Boolean) Boolean = My.Clients.Action.SystemLock(tcAlias,tlEof,tnAnzahl,tlUnlockBefore)
String = My.Clients.Action.XType(tcExpression AS STRING) String = My.Clients.Action.XType(tcExpression)
Variant = My.Clients.Action._SqlCount(tcSql AS String) Variant = My.Clients.Action._SqlCount(tcSql)
LOCAL lcSql AS String lcSql = [SELECT COUNT(*) FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Clients.Action._SqlCount(m.lcSql)>0 WAIT WINDOW "Es sind Daten vorhanden!" ENDIF */ Bemerkung: */ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht!
Variant = My.Clients.Action._SqlExist(tcSql AS String) Variant = My.Clients.Action._SqlExist(tcSql)
LOCAL lcSql AS String lcSql = [SELECT ipy01 FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Clients.Action._SqlExist(m.lcSql) && Gibt Boolean zurück WAIT WINDOW "Es sind Daten vorhanden!" ENDIF */ Bemerkung: */ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht!
Variant = My.Clients.Action._SqlRead(tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String) Variant = My.Clients.Action._SqlRead(tcSql,tcAlias,tvTable,tcIndex)
LOCAL lcSql AS String lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Clients.Action._SqlRead(m.lcSql,"qY01",2) && Gibt Boolean zurück ACTIVATE _SCREEN BROWSE ENDIF */ Bemerkung: */ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht! */ Die einzelnen Parameter: */ tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String */ Ein muss sind: tcSql AS String,tcAlias AS String */ tvTable kann angegeben werden mit: */ .F. => Cursor incl. __Changed [L] und __New [L], .T. - Tabelle incl. */ Bit-0 => 1 - Als Tabelle, 0 - Als Cursor */ Bit-1 => 1 - Ohne __Changed und __New, 0 - Mit... */ tcIndex kann angegeben werden, wenn Indizes auf dem Cursor / der Tabelle benötigt werden. */ "IndexKey1#IndexTag1;IndexKey2#IndexTag2;...." */ Wird kein IndexTag angegeben und der IndexKey NICHT aus einer Funktion ermittelt, so hat der IndexKey den Namen des IndexTag! */ Wird der IndexKey aus einer Funktion gebildet und es ist kein IndexTag angegeben, so erhält der IndexTag den Namen _Index<Nummer>
Variant = My.Clients.Action._SqlReadArray(tcSql AS String,toObject AS Object,taArray) Variant = My.Clients.Action._SqlReadArray(tcSql,toObject,taArray)
LOCAL lcSql AS String , laErg[1] , loObject AS Object
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
*/ Ausführen in ein lokales Array
IF My.Clients.Action._SqlReadArray(m.lcSql,.NULL.,@laErg) && Es gibt Datensätze...
*/ FOR i = ... NEXT i
ENDIF
*/ Ausführen in ein Objekt-Array
loObject = CREATEOBJECT("EMPTY")
=ADDPROPERTY(loObject,"aErg[1]")
IF My.Clients.Action._SqlReadArray(m.lcSql,m.loObject,"aErg") && Es gibt Datensätze...
*/ FOR i = ... NEXT i
ENDIF
Variant = My.Clients.Action._SqlReadCollection(tcSql AS String,tcIndex AS String) Variant = My.Clients.Action._SqlReadCollection(tcSql,tcIndex)
LOCAL lcSql AS String , loColl AS Collection lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] */ Normale Ausführung OHNE Indexangabe. */ Die Keys der Collection sind fortlaufend nummeriert! loColl= My.Clients.Action._SqlReadCollection(m.lcSql) WAIT WINDOW loColl.GetKey(1) && "0000001" */ Hat der SQL einen eindeutigen Key so kann dieser benutzt werden! loColl= My.Clients.Action._SqlReadCollection(m.lcSql,"ipy01") WAIT WINDOW loColl.GetKey(1) && "SU0"
Variant = My.Clients.Action._SqlReadValue(tcSql AS String,tiValue AS Integer) Variant = My.Clients.Action._SqlReadValue(tcSql,tiValue)
LOCAL lcSql AS String , lvValue AS Variant */ Gibt den Inhalt der ERSTEN Spalte zurück lcSql = [SELECT bezei,kurz,master FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] lvValue = My.Clients.Action._SqlReadValue(m.lcSql) && y01.Bezei */ Gibt den Inhalt der ZWEITEN Spalte zurück lcSql = [SELECT bezei,kurz,master FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] lvValue = My.Clients.Action._SqlReadValue(m.lcSql,2) && y01.Kurz
Variant = My.Clients.Action._SqlUpdate(tcTable AS STRING,tcAlias AS STRING,tcIdName AS STRING,tcFilter AS String) Variant = My.Clients.Action._SqlUpdate(tcTable,tcAlias,tcIdName,tcFilter)
LOCAL lcSql AS String , tlUpdate AS Boolean
lcSql = [SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH']
*/ Lesen der Daten vom Backend
IF My.Clients.Action._SqlRead(m.lcSql,"qB01",1)
*/ Ändern der Daten...
SELECT qB01
REPLACE ALL match WITH "LEISTUNGSSCHALTER",__Changed WITH .T.
tlUpdate = My.Clients.Action._SqlUpdate("B01",ALIAS(),"IDB01")
IF NOT m.tlUpdate
WAIT WINDOW My.Clients.Action.cLastError
ENDIF
ENDIF
;Filter1 = My.Clients.Action._SqlUpdateAll(tcList AS STRING) ;Filter1 = My.Clients.Action._SqlUpdateAll(tcList)
LOCAL tlUpdate AS Boolean
*/ Lesen der Daten vom Backend
IF My.Clients.Action._SqlRead([SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH'],"qB01",1) AND ;
My.Clients.Action._SqlRead([SELECT d03.* FROM CDBFDIR!D03 INNER JOIN CDBFDIR!B01 ON d03.idd03=b01.idd03 WHERE b01.artnr='SIE.3TH'],"qD03",1)
*/ Ändern der Daten...
UPDATE qB01 SET lang = qD03.bez, __Changed = .T. FROM qD03 WHERE qB01.idd03=qD03.idd03
UPDATE qD03 SET ekpdatum = My.xDate, __Changed = .T.
tlUpdate = My.Clients.Action._SqlUpdateAll("B01;QB01;IDB01#D03;QD03;IDD03")
IF NOT m.tlUpdate
WAIT WINDOW My.Clients.Action.cLastError
ENDIF
ENDIF
*/ Hinweis:
*/ Der Update der einzel angegebenen Cursor wird mit einer Transaktion durchgeführt!
*/ Läuft einer der Updates auf einen Fehler wird die Änderung rückgängig gemacht!
*/ Der String ist folgendermaßen aufgebaut:
*/ "Tableinfo1#Tableinfo2#Tableinfo3#..."
*/ Tableinfo:
*/ Tabelle;Cursor;ID-Field[;Filter]
Boolean = My.Clients.Action._ac_sort(tcSort as String, tlDescending as Boolean) Boolean = My.Clients.Action._ac_sort(tcSort,tlDescending)
Variant = My.Clients.Action.lMenuHitDim(tcForm AS STRING) Variant = My.Clients.Action.lMenuHitDim(tcForm)
Variant = My.Clients.Action.lMenuHitEnable(tcForm AS String) Variant = My.Clients.Action.lMenuHitEnable(tcForm)
String = My.Clients.Action.cGridName
String = My.Clients.Action.cIdx02
*/ Abfrage der Mandanten-ID
WAIT WINDOW My.Clients.Action.cIdx02
*/ Wenn man mittels VFP Zugriff auf die Applikation braucht:
*/ 1. vfp9.exe öffenen
*/ 2. In das Startverzeichnis von PMS32 wechseln (MUSS)
CD c:\pms\pms32
*/ 3. My Instanziieren
My = NEWOBJECT("pmsmy","pmsmyhandler.vcx","pmsmyhandler.app")
*/ 4. Den letzten aktuellen Mandanten zuweisen
My.cIdx02 = My.cIdx02
*/ 5. Los gehts...
String = My.Clients.Action.cLastError
*/ Vorausgesetzt wird, dass My bekannt ist... LOCAL lcError AS String lcError = My.Clients.Action.cLastError
String = My.Clients.Action.cMethod
*/ Abruf... WAIT WINDOW My.Clients.Action.cMethod
Number = My.Clients.Action.iActionAllDim
Number = My.Clients.Action.iActionAllEnable
Number = My.Clients.Action.iActionAllTDim
Number = My.Clients.Action.iActionAllTEnable
Number = My.Clients.Action.iActionChildAllDim
Number = My.Clients.Action.iActionChildAllEnable
Number = My.Clients.Action.iActionChildBlkDim
Number = My.Clients.Action.iActionChildBlkEnable
Number = My.Clients.Action.iActionChildFncDim
Number = My.Clients.Action.iActionChildFncEnable
Number = My.Clients.Action.iActionFieldDim
Number = My.Clients.Action.iActionFieldEnable
Number = My.Clients.Action.iActionFieldTypDim
Number = My.Clients.Action.iActionFieldTypEnable
Number = My.Clients.Action.iActionMasterDim
Number = My.Clients.Action.iActionMasterEnable
Number = My.Clients.Action.iTableAllDim
Number = My.Clients.Action.iTableAllEnable
Number = My.Clients.Action.iTableAllTDim
Number = My.Clients.Action.iTableAllTEnable
Boolean = My.Clients.Action.lShowThermos
My.Clients.Action.lShowThermos = .T.
Number = My.Clients.Action.nError
WAIT WINDOW My.Clients.Action.nError
Number = My.Clients.Action.nKeyCode
Number = My.Clients.Action.nLine
WAIT WINDOW My.Clients.Action.nLine
Number = My.Clients.Action.nRecords
WAIT WINDOW My.Clients.Action.nRecords
Number = My.Clients.Action.nSeconds
WAIT WINDOW My.Clients.Action.nSeconds
Number = My.Clients.Action.nShiftAltCtrl
Number = My.Clients.Action.nStatus
WAIT WINDOW My.Clients.Action.nStatus
Object = My.Clients.Action.oSelected
LOCAL loSelected AS My_Fu_Selected loSelected = My.Clients.Action.oSelected */ Danach können Tabellen und Cursor geöffnet werden... */ Mit dem Nachfolgenden Befehl wird der obige Zustand der Datenumgebung wieder hergestellt RELEASE loSelected
Object = My.Clients.Action.oThermos
LOCAL loThermos AS My_Sy_Thermos */ Instanziieren loThermos = My.Clients.Action.oThermos loThermos.AutoCenter = .T. loThermos.cFaktor(1,1/10,.F.,"Info-1...") loThermos.cFaktor(1,2/10,.F.,"Info-2...") */ ... */ Schliesst den Thermos RELEASE loThermos
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