Code: Zahlungspläne

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

Memberliste von Zahlungen

Liste der Methoden von Zahlungen

Hilfeinformation

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

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

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

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

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

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

Variant = My.Clients.Zahlungen.Terminate()

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

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

Boolean = My.Clients.Zahlungen.ZPBerechnet(tcTable as String,tcId as String,tcReturn as String)
Boolean = My.Clients.Zahlungen.ZPBerechnet(tcTable,tcId,tcReturn)

Boolean = My.Clients.Zahlungen.ZPCopy(tcTableV as String,tcIdV as String,tcTableN as String,tcIdN as String,tcIcN as String,tcIpN as String,tcReturn as String)
Boolean = My.Clients.Zahlungen.ZPCopy(tcTableV,tcIdV,tcTableN,tcIdN,tcIcN,tcIpN,tcReturn)

Boolean = My.Clients.Zahlungen.ZPDelete(tcTable as String,tcId as String,tcReturn as String)
Boolean = My.Clients.Zahlungen.ZPDelete(tcTable,tcId,tcReturn)

Boolean = My.Clients.Zahlungen.ZPRefresh(tcTable as String,tcId as String,tnWert as Double,tcIp as String,tcIc as String,tcIdC24 as String,tcIdC08 as String,tdDatum as Date,tcIdc09St as String,tcReturn as String)
Boolean = My.Clients.Zahlungen.ZPRefresh(tcTable,tcId,tnWert,tcIp,tcIc,tcIdC24,tcIdC08,tdDatum,tcIdc09St,tcReturn)

Boolean = My.Clients.Zahlungen.ZPReset(tcIdZ02 as String,tcWhat as String,tcReturn as String)
Boolean = My.Clients.Zahlungen.ZPReset(tcIdZ02,tcWhat,tcReturn)

Boolean = My.Clients.Zahlungen.ZPStatus(tcTable as String,tcId as String,tpWhat as Variant,tvReturn as Variant)
Boolean = My.Clients.Zahlungen.ZPStatus(tcTable,tcId,tpWhat,tvReturn)

String = My.Clients.Zahlungen._Clsid

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

String = My.Clients.Zahlungen._ComServer

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

Boolean = My.Clients.Zahlungen._Isreleased_

String = My.Clients.Zahlungen._Name

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

Variant = My.Clients.Zahlungen._Pcreleaselog_

String = My.Clients.Zahlungen._ServerName

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

Number = My.Clients.Zahlungen._StartMode

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

Integer = My.Clients.Zahlungen._Sys1016

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

String = My.Clients.Zahlungen._Version

WAIT WINDOW My.Clients.Zahlungen._Version

String = My.Clients.Zahlungen._VfpVersion

WAIT WINDOW My.Clients.Zahlungen._VfpVersion

String = My.Clients.Zahlungen.cAppNameExe

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

String = My.Clients.Zahlungen.cClass

String = My.Clients.Zahlungen.cIdx02

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

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

String = My.Clients.Zahlungen.cResetInfos

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

Number = My.Clients.Zahlungen.nError

WAIT WINDOW My.Clients.Zahlungen.nError

Number = My.Clients.Zahlungen.nLine

WAIT WINDOW My.Clients.Zahlungen.nLine

Object = My.Clients.Zahlungen.oClass