Code: Datenbank Update

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

Memberliste von Update

Liste der Methoden von Update

Hilfeinformation

String = My.Clients.Update.DefektTables()

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

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

String = My.Clients.Update.GetTableInfoSegment(tcInfo as String,tnSegment as Integer)
String = My.Clients.Update.GetTableInfoSegment(tcInfo,tnSegment)

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

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

Boolean = My.Clients.Update.ResetErrors(tlReset as Boolean)
Boolean = My.Clients.Update.ResetErrors(tlReset)

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

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

Integer = My.Clients.Update.SetWrongTableInfo(tcDir as String)
Integer = My.Clients.Update.SetWrongTableInfo(tcDir)

Boolean = My.Clients.Update.ShortPack(tcPathTable as String,tlCheck as Boolean,tlNewIndex as Boolean,tlNoPack as Boolean)
Boolean = My.Clients.Update.ShortPack(tcPathTable,tlCheck,tlNewIndex,tlNoPack)

Variant = My.Clients.Update.ShowThermos(tnF1 as Double,tnF2 as Double,tcMessage as String)
Variant = My.Clients.Update.ShowThermos(tnF1,tnF2,tcMessage)

Variant = My.Clients.Update.Terminate()

Variant = My.Clients.Update.UpdateTables(tcWhat as String,tnWhat as Integer,tcHeaderInfo as String)
Variant = My.Clients.Update.UpdateTables(tcWhat,tnWhat,tcHeaderInfo)

String = My.Clients.Update.WhatUpdateDirectory(tcDirectory as String)
String = My.Clients.Update.WhatUpdateDirectory(tcDirectory)

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

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

Variant = My.Clients.Update.WrongTables(tpRow as Variant,tnCol as Integer)
Variant = My.Clients.Update.WrongTables(tpRow,tnCol)

String = My.Clients.Update.WrongTablesBitPattern(tnBitPattern as Integer,tlOr as Boolean)
String = My.Clients.Update.WrongTablesBitPattern(tnBitPattern,tlOr)

String = My.Clients.Update._Clsid

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

String = My.Clients.Update._ComServer

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

Boolean = My.Clients.Update._Isreleased_

String = My.Clients.Update._Name

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

Variant = My.Clients.Update._Pcreleaselog_

String = My.Clients.Update._ServerName

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

Number = My.Clients.Update._StartMode

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

Integer = My.Clients.Update._Sys1016

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

String = My.Clients.Update._Version

WAIT WINDOW My.Clients.Update._Version

String = My.Clients.Update._VfpVersion

WAIT WINDOW My.Clients.Update._VfpVersion

Array = My.Clients.Update.aWrongTableCount

String = My.Clients.Update.cAppNameExe

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

String = My.Clients.Update.cClass

String = My.Clients.Update.cDbfDir

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

String = My.Clients.Update.cFrxDir

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

String = My.Clients.Update.cIdx02

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

String = My.Clients.Update.cLogFile

String = My.Clients.Update.cMethod

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

String = My.Clients.Update.cNetDir

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

String = My.Clients.Update.cResetInfos

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

String = My.Clients.Update.cSysDir

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

String = My.Clients.Update.cTmpDir

*/ Same as: ADDBS(SYS(2023))
IF !DIRECTORY(My.Clients.Update.cTmpDir)
	*/ Benötigte Pfade sollten eigentlich da sein!
	=MESSAGEBOX("Pfad fehlt:" + My.Clients.Update.cTmpDir,64,"Temporäres Verzeichnis")
ENDIF

String = My.Clients.Update.cVersion

Boolean = My.Clients.Update.lDontCopyNullRecords

Boolean = My.Clients.Update.lSoftPack

Boolean = My.Clients.Update.lUpdateWithDefaultIndex

Number = My.Clients.Update.nError

WAIT WINDOW My.Clients.Update.nError

Number = My.Clients.Update.nLine

WAIT WINDOW My.Clients.Update.nLine

Number = My.Clients.Update.nShowThermos

Number = My.Clients.Update.nSoftPack

Object = My.Clients.Update.oClass