PMS32 Online- Hilfereferenz
FireEvents - Enthält Funktionen zur Steuerung der Forms von PMS32. MenuHit() und Stack Steuerung
Enthält Funktionen zur Steuerung der Forms von PMS32. MenuHit() und Stack Steuerung
*/ Kurzbeispiel für den Zugriff auf diese Struktur */ Der Zugriff erfolgt über: My.Clients.FireEvents */ 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 loFireEvents AS My.Clients.FireEvents */ Setzen der Variablen loFireEvents = My.Clients.FireEvents */ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein... REPLACE ALL Feldname1 WITH loFireEvents.Function1(),Feldname2 WITH loFireEvents.Function1(), ... */ Oder in einer Schleife... SCAN lvValue = loFireEvents.Function(Alias.Spalte) + 25 lvValue = loFireEvents.Function2(m.lvValue) REPLACE Feldname WITH m.lvValue,... ENDSCAN */ Es sind auch geschachtelte Aufrufe möglich...
Rückgabe:[Boolean], Setzt die genannte Form im FormStack auf "geschlossen" .FormStack(n,2).Closed=.T.
Boolean = My.Clients.FireEvents.CloseForm(tcForm AS STRING) Boolean = My.Clients.FireEvents.CloseForm(tcForm)
Rückgabe:[Variant], Gibt das aktive Control der Form zurück.
Variant = My.Clients.FireEvents.GetActiveControl(toForm AS Object,toControl AS Variant @) Variant = My.Clients.FireEvents.GetActiveControl(toForm,@toControl)
Rückgabe: [Variant], Ermittelt die aktive Form eines gegebenen Formsets
Variant = My.Clients.FireEvents.GetActiveForm(toFormSet AS OBJECT, toForm AS Variant @) Variant = My.Clients.FireEvents.GetActiveForm(toFormSet,@toForm)
Rückgabe:[Boolean], Gibt alle AKTIVEN Controls eines FormSets incl. Form und Control zurück. Beinhaltet die Funktionen: GetActiveFormSet(), GetActiveForm(), GetActiveControl()
Boolean = My.Clients.FireEvents.GetActiveFormControls(toFormSet AS Variant@, toForm AS Variant @, toControl AS Variant @) Boolean = My.Clients.FireEvents.GetActiveFormControls(@toFormSet,@toForm,@toControl)
Rückgabe:[Variant], ermittelt das momentan aktive Formset. Rückgabe ist Zeiger auf FormSet oder .NULL. Kann auch mit Parameter @oFormSet aufgerufen werden...
Variant = My.Clients.FireEvents.GetActiveFormSet(toFormSet AS Variant @) Variant = My.Clients.FireEvents.GetActiveFormSet(@toFormSet)
Rückgabe:[Object], gibt ein leeres Formstack.Object zurück.
Object = My.Clients.FireEvents.GetEmptyFormStack(tcForm AS STRING) Object = My.Clients.FireEvents.GetEmptyFormStack(tcForm)
Rückgabe:[Object], gibt den Zeiger auf ein Lookup Objekt der Form zurück
Object = My.Clients.FireEvents.GetFormLookup(tcForm AS String) Object = My.Clients.FireEvents.GetFormLookup(tcForm)
Rückgabe:[Object], gibt den Zeiger auf das FormStack.Object der genannten Form zurück
Object = My.Clients.FireEvents.GetFormStackObject(tcForm AS STRING) Object = My.Clients.FireEvents.GetFormStackObject(tcForm)
Rückgabe:[Object], gibt das FormStack.Object zurück, auch wenn die genannte Form noch nicht existiert.
Object = My.Clients.FireEvents.GetFormStackObjectNew(tcForm AS STRING) Object = My.Clients.FireEvents.GetFormStackObjectNew(tcForm)
Ermittelt die Zeilennummer zum FormStack für die angegebene Maske / Form. Zweiter Parameter kann als Referenz abgerufen werden
Variant = My.Clients.FireEvents.GetRowNumber(tcForm AS STRING, tnRow AS NUMBER @) Variant = My.Clients.FireEvents.GetRowNumber(tcForm,@tnRow)
Variant = My.Clients.FireEvents.GoCloseAll()
Wird von außen aufgerufen... Zurück zum Hauptmenü
Variant = My.Clients.FireEvents.GoExtMainMenu()
Rückgabe:[Boolean], Wird ausgeführt, wenn das MainMenü angezeigt wird.
Boolean = My.Clients.FireEvents.GoInMainMenu(tlCloseTables AS Boolean) Boolean = My.Clients.FireEvents.GoInMainMenu(tlCloseTables)
Rückgabe:[Boolean], Schliesst alle Masken und geht zum Hauptmenü zurück. Der FormStack bleibt erhalten!
Boolean = My.Clients.FireEvents.GoMainMenu()
Variant = My.Clients.FireEvents.GoMainRelease()
Rückgabe: [Boolean], prüft, ob der Benutzer Rechte hat die Maske zu betreten.
Boolean = My.Clients.FireEvents.HatRecht(tcProgram AS String,tlReset AS Boolean) Boolean = My.Clients.FireEvents.HatRecht(tcProgram,tlReset)
Rückgabe:[Boolean], Ist die genannte Form eine READ EVENTS Form?
Boolean = My.Clients.FireEvents.IsReadEventForm(tcForm) Boolean = My.Clients.FireEvents.IsReadEventForm(tcForm)
Rückgabe: [Integer], Gibt die "letzte" Form des Formstacks zurück, die noch angezeigt wird... Rückgabe ist Anzahl der Forms
Integer = My.Clients.FireEvents.IsThereAnOtherFormInStack(tnRow AS INTEGER @) Integer = My.Clients.FireEvents.IsThereAnOtherFormInStack(@tnRow)
Rückgabe: [String], Sieht nach, ob die angegebene Form im FormStack enthalten ist. Rückgabe ist der FormStackName und tnRow
String = My.Clients.FireEvents.LookForFormInStack(tcForm AS STRING,tnRow AS INTEGER @) String = My.Clients.FireEvents.LookForFormInStack(tcForm,@tnRow)
Rückgabe:[Object], Gibt das FormStack.Object der genannten Form zurück. Weiterer Rückgabeparameter tnRow, (Index des FormStacks)
Object = My.Clients.FireEvents.LookForFormStack(tcForm AS STRING,tnRow AS INTEGER @) Object = My.Clients.FireEvents.LookForFormStack(tcForm,@tnRow)
Rückgabe: [String], Sieht im Formstack nach der "ersten" Maske, die noch im Änderungsmodus ist. Rückgabe ist der Name der Form zum FormStack
String = My.Clients.FireEvents.LookForMaskInChange(tnRow AS INTEGER @) String = My.Clients.FireEvents.LookForMaskInChange(@tnRow)
Rückgabe: [Boolean], Gibt es noch eine Maske im Stack, die wieder aktiviert werden kann?
Boolean = My.Clients.FireEvents.LookForNextMask(tcAktProgram AS String) Boolean = My.Clients.FireEvents.LookForNextMask(tcAktProgram)
Rückgabe:[Boolean], Aufruf einer Eventmaske. Parameter: Programm,Rückgabewerte,Suchbegriff,Index,AufrufVonAussen
Boolean = My.Clients.FireEvents.MenuHit(tcNextProgram,tp2,tp3,tp4,tlHit) Boolean = My.Clients.FireEvents.MenuHit(tcNextProgram,tp2,tp3,tp4,tlHit)
Variant = My.Clients.FireEvents.MenuHitE1X(tcIde10 AS STRING,tcSeite AS STRING,RcIpE10 AS STRING @,RcExtern AS STRING @) Variant = My.Clients.FireEvents.MenuHitE1X(tcIde10,tcSeite,@RcIpE10,@RcExtern)
Rückgabe:[Boolean], Wird von Außen aufgerufen ohne Aufruf von MenuHit in MAINX_32
Boolean = My.Clients.FireEvents.MenuHitExt(tcProgram AS STRING,tvReturn AS Variant,tvId AS Variant,tvTag AS Variant) Boolean = My.Clients.FireEvents.MenuHitExt(tcProgram,tvReturn,tvId,tvTag)
Rückgabe: [Integer], Gibt den Index auf FormStack zurück legt einen neuen FormStack Eintrag an.
Integer = My.Clients.FireEvents.NewFormStack(tcForm AS STRING,toFormStack AS OBJECT,tnRow AS Number @) Integer = My.Clients.FireEvents.NewFormStack(tcForm,toFormStack,@tnRow)
Rückgabe: [Boolean], aktiviert bzw. startet die angegebene HDE Form
Boolean = My.Clients.FireEvents.NextHDEMask(tcNextProgram AS STRING,tp2 AS Variant,tp3 AS Variant,tp4 AS Variant) Boolean = My.Clients.FireEvents.NextHDEMask(tcNextProgram,tp2,tp3,tp4)
Rückgabe:[Boolean], starten einer HDM Form. "Alte" Form Generation
Boolean = My.Clients.FireEvents.NextHDMMask(tcNextProgram AS STRING,tp2 AS Variant,tp3 AS Variant,tp4 AS Variant) Boolean = My.Clients.FireEvents.NextHDMMask(tcNextProgram,tp2,tp3,tp4)
Rückgabe:[Boolean], Schliessen einer HDM Maske
Boolean = My.Clients.FireEvents.ReleaseHDMMask(toFormSet AS OBJECT) Boolean = My.Clients.FireEvents.ReleaseHDMMask(toFormSet)
Rückgabe: [Boolean], Zurücksetzen aller Menüs
Boolean = My.Clients.FireEvents.ReleaseMenus()
Rückgabe:[Boolean], Schliesst spezielle Forms des Screens.
Boolean = My.Clients.FireEvents.ReleaseSpecialForms()
Boolean = My.Clients.FireEvents.ResetFormPara1(toFormSet AS FORMSET,tiFormWhat AS Integer) Boolean = My.Clients.FireEvents.ResetFormPara1(toFormSet,tiFormWhat)
Rückgabe:[Boolean], Löscht den FormStack. Je nach Angabe des Parameters kann der FormName oder der FormStack.Index angegeben werden. Kein Parameter=Alle
Boolean = My.Clients.FireEvents.ResetFormStack(tvForm AS Variant) Boolean = My.Clients.FireEvents.ResetFormStack(tvForm)
Rückgabe:[Boolean], Löscht den kompletten FormStack
Boolean = My.Clients.FireEvents.ResetFormStackAll()
Rückgabe:[Boolean], Setzt der FormStack der genannten Form zurück
Boolean = My.Clients.FireEvents.ResetFormStackByName(tcForm AS String) Boolean = My.Clients.FireEvents.ResetFormStackByName(tcForm)
Rückgabe:[Integer], Löscht den FormStack der angegebenen Zeile. Gibt die verbleibenen Zeilen (Index) zurück.
Integer = My.Clients.FireEvents.ResetFormStackByRow(tnRow AS NUMBER) Integer = My.Clients.FireEvents.ResetFormStackByRow(tnRow)
Ermittelt alle Informationen der aktiven Form (WONTOP).
Variant = My.Clients.FireEvents.SetActiveFormParameters()
Setzt die Zielform im FormStack für die momentan aktive Form
Variant = My.Clients.FireEvents.SetDestFormInStack(tcForm AS STRING) Variant = My.Clients.FireEvents.SetDestFormInStack(tcForm)
Variant = My.Clients.FireEvents.SetFireEnabled()
Rückgabe:[Integer], Erzeugt einen FormStack Eintrag für die angegebene Form, soweit diese nicht bekannt ist. Gibt den Index auf FormStack zurück
Integer = My.Clients.FireEvents.SetFormInStack(tcNextProgram AS STRING,tp2 AS Variant,tp3 AS Variant,tp4 AS Variant) Integer = My.Clients.FireEvents.SetFormInStack(tcNextProgram,tp2,tp3,tp4)
Rückgabe:[Boolean], setzt diverse Informationen im FormStack der genannten Form
Boolean = My.Clients.FireEvents.SetFormLoad(tcForm AS STRING,tnDataSession AS NUMBER) Boolean = My.Clients.FireEvents.SetFormLoad(tcForm,tnDataSession)
Rückgabe:[Boolean], setzt das angegebene FormStack.Object
Boolean = My.Clients.FireEvents.SetFormStackObject(tcForm AS String,toFSObject AS Object) Boolean = My.Clients.FireEvents.SetFormStackObject(tcForm,toFSObject)
Rückgabe:[Boolean], setzt alle benannten Werte, wenn die Form (HDM) verlassen wird...
Boolean = My.Clients.FireEvents.SetFormUnload(tcForm,tnDataSession) Boolean = My.Clients.FireEvents.SetFormUnload(tcForm,tnDataSession)
Rückgabe:[Boolean], setzt die Form im FormStack bei einem multiplen FormSet.
Boolean = My.Clients.FireEvents.SetMultipleFormInStack(tcForm AS String,tcFormSet AS String) Boolean = My.Clients.FireEvents.SetMultipleFormInStack(tcForm,tcFormSet)
Rückgabe:[Boolean], Setzt die angegebene Property im FormStack der angegebenen Form.
Boolean = My.Clients.FireEvents.SetPropertyForForm(tcForm AS STRING,tcProperty AS STRING,tvValue AS Variant) Boolean = My.Clients.FireEvents.SetPropertyForForm(tcForm,tcProperty,tvValue)
Setzt bestimmte Parameter der Form in PRIVATE Variablen
Variant = My.Clients.FireEvents.SetunLoadParameters(toFormSet AS OBJECT) Variant = My.Clients.FireEvents.SetunLoadParameters(toFormSet)
Prüft, ob PMS32 noch im Startmodus ist, also das Hauptmenü noch nicht erreicht hat
Variant = My.Clients.FireEvents.StartInProgress()
Name des aktiven Menüs, dass zum Programm ausgeführt wird
Array = My.Clients.FireEvents.ActiveMenu
Momentan aktives Programm, dass ausgeführt wird...
Array = My.Clients.FireEvents.ActiveProgram
Wert:[Boolean], Wird auf .T. gesetzt, wenn alle Events gestoppt werden sollen. Hier können EXTERNE Timer abgreifen, ob sie Triggern sollen oder nicht.
Boolean = My.Clients.FireEvents.EventsStoped
Nächstes Programm, dass durch MenuHit() ausgeführt werden soll
Number = My.Clients.FireEvents.NextProgram
Parameter 1 von MenuHit() => Rückgabewerte an die aufrufende Maske
P = My.Clients.FireEvents.PrgPARA1
Suchbegriff in der aufgerufenen Maske. Zweiter Parameter von MenuHit()
P = My.Clients.FireEvents.PrgPARA2
Indexname des Suchbegriffs in der aufgerufenen Maske. Dritter Parameter von MenuHit()
P = My.Clients.FireEvents.PrgPARA3
Mandanten-ID. Diese ist in der Datei pms32.pth gespeichert und dient dort zur Zuordnung des Mandante und dessen Pfade.
Auszug aus der Pfaddatei pms32.pth:
*/ Verzeichnis der Microcube - Dateien. Wenn leer dann gleich: cDbfdir
cCubdir = ""
*/ Ein 'anderes' Dokumentenverzeichnis kann angegeben werden. Wenn nicht angegeben dann gleich: cDbfdir+'docs\'
*/ cDocDir = ""
*/ Verzeichnis der Mandantentabellen. Hier ein Beispiel mit UNC Pfaden.
*/ Wird die Freigabe auf dem Server 'versteckt' \pms$\ angegeben, so kann ein Cryptovirius das Verzeichnis nicht finden!
cDbfdir = "\\server\pms$\pms32\daten\demo.32\"
*/ Verzeichnis der Reporttabellen
*/ Gibt man Bilddateien in einem Report mit My.Clients.Path.cFrxDir+'BILDNAME.JPG' an, so kann PMS32 einfach auf einen anderen Rechner kopiert werden!
cFrxdir = "\\server\pms$\pms32\reports\demo.32\"
*/ Beschreibung des Mandanten
cIcx02 = "TESTMANDANT DEMO"
*/ ID der Firmenparameter zum Mandant.
cIdx09 = "DEMO"
*/ Kann unter der Mandanteninformation leer sein, wenn für mehrere Mandanten das 'gleiche' Systemverzeichnis gültig ist.
cSysdir = ""
*/ Willkommens-Information als Hintergrundbild in PMS32
cWelcome= "pms32.htm"
*/ Nummer des Mandanten, beim Einsatz eines BarcodeScanners sollte diese Nummer EINDEUTIG sein!
nNumber = 1
<>
String = My.Clients.FireEvents.cIdx02
*/ Abfrage der Mandanten-ID WAIT WINDOW My.Clients.FireEvents.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...
Methode in der der letzte Fehler auftrat.
Aufbau: [Fehlernummer] [Methode] [Zeilennummer] [Message]
String = My.Clients.FireEvents.cMethod
*/ Abruf... WAIT WINDOW My.Clients.FireEvents.cMethod
Fehlernummer des letzten Fehlers.
Ist der Wert kleiner null, so handelt es sich um einen logischen Fehler.
Number = My.Clients.FireEvents.nError
WAIT WINDOW My.Clients.FireEvents.nError
Zeilennummer, in der der letzte Fehler auftrat
Number = My.Clients.FireEvents.nLine
WAIT WINDOW My.Clients.FireEvents.nLine
Ausführungszeit in Sekunden
Number = My.Clients.FireEvents.nSeconds
WAIT WINDOW My.Clients.FireEvents.nSeconds
Wert:[Object], Ermittelt die AKTIVE Form ausgehend vom SCREEN. Gibt .NULL. zurück, wenn keine Form aktiv ist!
Object = My.Clients.FireEvents.oActiveForm
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