Code: Umsetzung von C-Structure Elementen

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

Memberliste von cOTS

Liste der Methoden von cOTS

Hilfeinformation

Boolean = My.CStructs.cOTS.ChangeDirection(tlDirection AS Variant)
Boolean = My.CStructs.cOTS.ChangeDirection(tlDirection)

Boolean = My.CStructs.cOTS.CopyItems(tcKey AS STRING,tlNoOverwrite AS Boolean)
Boolean = My.CStructs.cOTS.CopyItems(tcKey,tlNoOverwrite)

Variant = My.CStructs.cOTS.ExecUScript(tvScript AS Variant, tlAfter AS Boolean)
Variant = My.CStructs.cOTS.ExecUScript(tvScript,tlAfter)

Variant = My.CStructs.cOTS.GetItem(tcKey AS STRING,tvDefault AS Variant)
Variant = My.CStructs.cOTS.GetItem(tcKey,tvDefault)

String = My.CStructs.cOTS.GetItemText(tcKey AS STRING,tcDefault AS STRING)
String = My.CStructs.cOTS.GetItemText(tcKey,tcDefault)

eIndex = My.CStructs.cOTS.GetKey(eIndex)
eIndex = My.CStructs.cOTS.GetKey(eIndex)

Variant = My.CStructs.cOTS.ITry(tvValue AS Variant)
Variant = My.CStructs.cOTS.ITry(tvValue)

eIndex = My.CStructs.cOTS.Item(eIndex)
eIndex = My.CStructs.cOTS.Item(eIndex)

Variant = My.CStructs.cOTS.JTry(tvValue AS Variant)
Variant = My.CStructs.cOTS.JTry(tvValue)

String = My.CStructs.cOTS.LoadFile(tcFileName AS STRING @)
String = My.CStructs.cOTS.LoadFile(@tcFileName)

Variant = My.CStructs.cOTS.LoadScript(tcFileName AS STRING @)
Variant = My.CStructs.cOTS.LoadScript(@tcFileName)

String = My.CStructs.cOTS.LoadScriptFile(tcMenuFile AS STRING,tcMenuTree AS STRING)
String = My.CStructs.cOTS.LoadScriptFile(tcMenuFile,tcMenuTree)

Object = My.CStructs.cOTS.ObjectToApplication(toObject AS COLLECTION, toMaster AS OBJECT)
Object = My.CStructs.cOTS.ObjectToApplication(toObject,toMaster)

Object = My.CStructs.cOTS.ObjectToScriptS(toStructure AS My_CS_NewCStruct)
Object = My.CStructs.cOTS.ObjectToScriptS(toStructure)

String = My.CStructs.cOTS.ObjectToString(toObject AS COLLECTION,toSubFiles AS COLLECTION @)
String = My.CStructs.cOTS.ObjectToString(toObject,@toSubFiles)

String = My.CStructs.cOTS.ObjectToXML(toObject AS COLLECTION,tcTag AS String)
String = My.CStructs.cOTS.ObjectToXML(toObject,tcTag)

Variant = My.CStructs.cOTS.ReadAndSaveFile(tcFileName AS STRING @,tcFile AS STRING,tlDirection AS Boolean)
Variant = My.CStructs.cOTS.ReadAndSaveFile(@tcFileName,tcFile,tlDirection)

Object = My.CStructs.cOTS.ReadCStructure(tcFile AS STRING,tlDirection AS Variant)
Object = My.CStructs.cOTS.ReadCStructure(tcFile,tlDirection)

Variant = My.CStructs.cOTS.SetInSubFiles(tcText AS STRING,tcFile AS STRING)
Variant = My.CStructs.cOTS.SetInSubFiles(tcText,tcFile)

Object = My.CStructs.cOTS.StringToObject(tcStructure AS STRING,toObject AS OBJECT)
Object = My.CStructs.cOTS.StringToObject(tcStructure,toObject)

String = My.CStructs.cOTS.TransformSpecial(tvValue AS Variant,tlShortChar AS Boolean)
String = My.CStructs.cOTS.TransformSpecial(tvValue,tlShortChar)

Object = My.CStructs.cOTS.XMLtoObject(tcXML AS STRING,toObject AS OBJECT)
Object = My.CStructs.cOTS.XMLtoObject(tcXML,toObject)

Variant = My.CStructs.cOTS.kTry(tvValue AS Variant)
Variant = My.CStructs.cOTS.kTry(tvValue)

Variant = My.CStructs.cOTS.nTry(tvValue AS Variant)
Variant = My.CStructs.cOTS.nTry(tvValue)

Variant = My.CStructs.cOTS.vTry(tcExpression AS STRING,tvReturn AS Variant)
Variant = My.CStructs.cOTS.vTry(tcExpression,tvReturn)

Variant = My.CStructs.cOTS.xProperty(tcProp AS STRING,tlITry AS Boolean)
Variant = My.CStructs.cOTS.xProperty(tcProp,tlITry)

Variant = My.CStructs.cOTS.yProp(tcProp AS STRING)
Variant = My.CStructs.cOTS.yProp(tcProp)

Variant = My.CStructs.cOTS.yProperty(tvProperty AS Variant,tcTyp AS String @)
Variant = My.CStructs.cOTS.yProperty(tvProperty,@tcTyp)

String = My.CStructs.cOTS.Count

Array = My.CStructs.cOTS.aCssDir[tiIndex1 AS Integer , tiIndex2 AS Integer]
Array = My.CStructs.cOTS.aCssDir[tiIndex1,tiIndex2]

Array = My.CStructs.cOTS.aCssDirCount

String = My.CStructs.cOTS.cIdx02

*/ Abfrage der Mandanten-ID
WAIT WINDOW My.CStructs.cOTS.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.CStructs.cOTS.cMethod

*/ Abruf...
WAIT WINDOW My.CStructs.cOTS.cMethod

String = My.CStructs.cOTS.cResetInfos

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

E = My.CStructs.cOTS.eStructure

Boolean = My.CStructs.cOTS.lDirection

Boolean = My.CStructs.cOTS.lWriteOneCFile

Boolean = My.CStructs.cOTS.lWriteWithComments

Boolean = My.CStructs.cOTS.lWriteWithTabs

Number = My.CStructs.cOTS.nError

WAIT WINDOW My.CStructs.cOTS.nError

Number = My.CStructs.cOTS.nLine

WAIT WINDOW My.CStructs.cOTS.nLine