Code: Systemtabellen Funktionen

*/ Kurzbeispiel für den Zugriff auf diese Struktur
*/ Der Zugriff erfolgt über: My.Clients.SysTables
*/ 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 loSysTables AS My.Clients.SysTables
*/ Setzen der Variablen
loSysTables = My.Clients.SysTables
*/ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein...
REPLACE ALL Feldname1 WITH loSysTables.Function1(),Feldname2 WITH loSysTables.Function1(), ...
*/ Oder in einer Schleife...
SCAN
	lvValue = loSysTables.Function(Alias.Spalte) + 25
	lvValue = loSysTables.Function2(m.lvValue)
	REPLACE Feldname WITH m.lvValue,...
ENDSCAN
*/ Es sind auch geschachtelte Aufrufe möglich...

Memberliste von SysTables

Liste der Methoden von SysTables

Hilfeinformation

Boolean = My.Clients.SysTables.CheckUpdate(tlForce as Boolean)
Boolean = My.Clients.SysTables.CheckUpdate(tlForce)

Variant = My.Clients.SysTables.GetProperty(tcProperty as String,tnAsXMLStructure as Variant)
Variant = My.Clients.SysTables.GetProperty(tcProperty,tnAsXMLStructure)

*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lnError AS Number
lnError = My.Clients.SysTables.GetProperty('nError')

Variant = My.Clients.SysTables.GetValue(tcScript as String)
Variant = My.Clients.SysTables.GetValue(tcScript)

*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcIdx02 AS String
lcIdx02 = My.Clients.SysTables.GetValue('My.cIdx02')
IF !ISNULL(m.lcIdx02)
	WAIT WINDOW m.lcIdx02
ELSE
	*/ My in der Klasse nicht bekannt!
ENDIF

Variant = My.Clients.SysTables.SetProperty(tcProperty as String,tvValue as Variant,tnAsObject as Integer)
Variant = My.Clients.SysTables.SetProperty(tcProperty,tvValue,tnAsObject)

*/ Als Beispielcode für eine Klasse in einem COM+ Server
*/ Vorausgesetzt wird, dass My bekannt ist...
=My.Clients.SysTables.SetProperty('nError',0,0)
*/ oder auch...
=My.Clients.SysTables.SetProperty('nError',0)

Variant = My.Clients.SysTables.Terminate()

Variant = My.Clients.SysTables.WriteSettings(tcWann as String)
Variant = My.Clients.SysTables.WriteSettings(tcWann)

*/ Als Beispielcode für eine Klasse in einem COM+ Server
*/ Vorausgesetzt wird, dass My bekannt ist...
=My.Clients.SysTables.WriteSettings('Heute um 15:00Uhr')
*/ oder auch...
=My.Clients.SysTables.WriteSettings(TTOC(DATETIME(),1))		&& Ausgabe: JJJJMMTThhmmss

Variant = My.Clients.SysTables.SMTP_Port

Variant = My.Clients.SysTables.SMTP_Sender

Variant = My.Clients.SysTables.SMTP_Server

Variant = My.Clients.SysTables.SMTP_info

String = My.Clients.SysTables._Clsid

LOCAL lcClsID AS String
lcClsID = My.Clients.SysTables._Clsid
WAIT WINDOW m.lcClsID

String = My.Clients.SysTables._ComServer

LOCAL lcComServer AS String
lcComServer = My.Clients.SysTables._ComServer
WAIT WINDOW m.lcComServer

Boolean = My.Clients.SysTables._Isreleased_

String = My.Clients.SysTables._Name

LOCAL lcComName AS String
lcComName = My.Clients.SysTables._Name
WAIT WINDOW m.lcComName

Variant = My.Clients.SysTables._Pcreleaselog_

String = My.Clients.SysTables._ServerName

LOCAL lcServerName AS String
lcServerName = My.Clients.SysTables._ServerName
WAIT WINDOW m.lcServerName

Number = My.Clients.SysTables._StartMode

*/ Abfrage des Modus
WAIT WINDOW My.Clients.SysTables._StartMode

Integer = My.Clients.SysTables._Sys1016

LOCAL liBytes AS Integer
*/ Abfrage des Speichers
liBytes = My.Clients.SysTables._Sys1016
WAIT WINDOW LTRIM(STR(m.liBytes/1024))+" kB"

String = My.Clients.SysTables._Version

WAIT WINDOW My.Clients.SysTables._Version

String = My.Clients.SysTables._VfpVersion

WAIT WINDOW My.Clients.SysTables._VfpVersion

String = My.Clients.SysTables.cAppNameExe

*/ Als Beispielcode für eine Klasse in einem COM+ Server
*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcName AS String
lcName = My.Clients.SysTables.cAppNameExe

String = My.Clients.SysTables.cClass

String = My.Clients.SysTables.cCssDir

IF !DIRECTORY(My.Clients.SysTables.cCssDir)
	*/ Benötigte Pfade sollten eigentlich da sein!
	=MESSAGEBOX("Pfad fehlt:" + My.Clients.SysTables.cCssDir,64,"Systemscript Verzeichnis")
ENDIF

String = My.Clients.SysTables.cIdx02

*/ Abfrage der Mandanten-ID
WAIT WINDOW My.Clients.SysTables.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.SysTables.cLogDir

IF !DIRECTORY(My.Clients.SysTables.cLogDir)
	*/ Benötigte Pfade sollten eigentlich da sein!
	=MESSAGEBOX("Pfad fehlt:" + My.Clients.SysTables.cLogDir,64,"LOG-Dateien")
ENDIF

String = My.Clients.SysTables.cMethod

*/ Abruf...
WAIT WINDOW My.Clients.SysTables.cMethod

String = My.Clients.SysTables.cMitDir

IF !DIRECTORY(My.Clients.SysTables.cMitDir)
	*/ Benötigte Pfade sollten eigentlich da sein!
	=MESSAGEBOX("Pfad fehlt:" + My.Clients.SysTables.cMitDir,64,"Vorlagen-Dateien")
ENDIF

String = My.Clients.SysTables.cResetInfos

*/ Verschiedene RESET Befehle...
My.Clients.SysTables.cResetInfos = "REMOVE-MENUES"
My.Clients.SysTables.cResetInfos = "REMOVE-CS-FILES"
My.Clients.SysTables.cResetInfos = "REMOVE-CS-SCRIPTS"
My.Clients.SysTables.cResetInfos = "CHANGE-IDX09"
My.Clients.SysTables.cResetInfos = "USER_LOGIN"
*/ Je nach Klasse wird ein entsprechender RESET ausgeführt!

String = My.Clients.SysTables.cSysDir

IF !DIRECTORY(My.Clients.SysTables.cSysDir)
	*/ Benötigte Pfade sollten eigentlich da sein!
	=MESSAGEBOX("Pfad fehlt:" + My.Clients.SysTables.cSysDir,64,"Systemverzeichnis")
ENDIF

Number = My.Clients.SysTables.nError

WAIT WINDOW My.Clients.SysTables.nError

Number = My.Clients.SysTables.nLine

WAIT WINDOW My.Clients.SysTables.nLine

Object = My.Clients.SysTables.oClass