Code: PMS32 Login

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

* Beispielcode:
LOCAL lcRights AS String, liRights AS Integer
*/ Als Stringwert
lcRights = My.Clients.Login.GetMaskRights("D4001",.F.)
*/ Als Integerwert
liRights = My.Clients.Login.GetMaskRights("D4001",.T.)
*/ Jetzt die einzelnen Rechte
lAnsehen   = !EMPTY(SUBSTR(m.lcRights,1,1)) AND BITTEST(m.liRights,1)	&& Stelle-1 oder Bit-1
lAendern   = !EMPTY(SUBSTR(m.lcRights,2,1)) AND BITTEST(m.liRights,2)	&& Stelle-2 oder Bit-2
lNeuanlage = !EMPTY(SUBSTR(m.lcRights,3,1)) AND BITTEST(m.liRights,3)	&& Stelle-3 oder Bit-3
lLoeschen  = !EMPTY(SUBSTR(m.lcRights,4,1)) AND BITTEST(m.liRights,4)	&& Stelle-4 oder Bit-4
lDrucken   = !EMPTY(SUBSTR(m.lcRights,5,1)) AND BITTEST(m.liRights,5)	&& Stelle-5 oder Bit-5
*/ Die l*Werte sind .T., wenn die Bedingung erfüllt ist!

Memberliste von Login

Liste der Methoden von Login

Hilfeinformation

Variant = My.Clients.Login.CheckMaskRights(tcForm AS STRING , tiBit AS Variant)
Variant = My.Clients.Login.CheckMaskRights(tcForm,tiBit)

Variant = My.Clients.Login.Evaluate(pcExpression AS STRING,pvDefault AS Variant,tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant, tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant)
Variant = My.Clients.Login.Evaluate(pcExpression,pvDefault,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)

*/ Mit Evaluate kann eine Befehlszeile ausgeführt werden
*/ Eventuell benutzte Variablen sind PRIVATE zu deklarieren
PRIVATE pnVar1 AS Number , pnVar2 AS Number
LOCAL lnVar AS Number
STORE 2 TO pnVar1,pnVar2
lnVar = My.Clients.Login.Evaluate([m.pnVar1+m.pnVar2])
WAIT WINDOW m.lnVar		&& Ergibt 4...	ENDTEXT

Variant = My.Clients.Login.ExecScript(_es_pcAlias AS STRING,_es_pcScript AS STRING,_es_tlBoolean AS Boolean, _es_tvP1 AS Variant,_es_tvP2 AS Variant,_es_tvP3 AS Variant,_es_tvP4 AS Variant,_es_tvP5 AS Variant,_es_tvP6 AS Variant, _es_tvP7 AS Variant,_es_tvP8 AS Variant,_es_tvP9 AS V)
Variant = My.Clients.Login.ExecScript(_es_pcAlias,_es_pcScript,_es_tlBoolean,_es_tvP1,_es_tvP2,_es_tvP3,_es_tvP4,_es_tvP5,_es_tvP6,_es_tvP7,_es_tvP8,_es_tvP9)

*/ Mit EXECSCRIPT kann ein VFP-Script ausgeführt werden
LOCAL lcScript AS String,lnVar1 AS Number,lnVar2 AS Number,lnVar AS Number
TEXT TO lcScript NOSHOW TEXTMERGE
LPARAMETERS tnVar1 AS Number @,tnVar2 AS Number @
tnVar1 = m.tnVar1 + 1
tnVar2 = m.tnVar2 - 2
RETURN m.tnVar1 + m.tnVar2
ENDTEXT
*/ Vorbelegen der Variablen (Parameter)
STORE 2 TO lnVar1,lnVar2
lnVar = My.Clients.Login.ExecScript("",m.lcScript,0,@lnVar1,@lnVar2)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2

Variant = My.Clients.Login.ExecScriptP(tcScript AS STRING,toPara AS COLLECTION)
Variant = My.Clients.Login.ExecScriptP(tcScript,toPara)

*/ Mit EXECSCRIPTP kann ein VFP-Script ausgeführt werden
LOCAL lcScript AS String,lnVar AS Number,loColl AS Collection
loColl = CREATEOBJECT("Collection")
loColl.Add(2,"Var1")
loColl.Add(2,"Var2")
TEXT TO lcScript NOSHOW TEXTMERGE
LPARAMETERS toColl AS Collection
RETURN toColl.Item("Var1") + toColl.Item("Var2")
ENDTEXT
lnVar = My.Clients.Login.ExecScriptP(m.lcScript,m.loColl)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar

Integer = My.Clients.Login.GetBlockFi(tcBlockFc AS STRING)
Integer = My.Clients.Login.GetBlockFi(tcBlockFc)

* Beispielcode:
LOCAL liRights AS Integer
*/ Als Integerwert
liRights = My.Clients.Login.GetBlockFi(m.g_xxxxx)		&& oder
liRights = My.Clients.Login.GetBlockFi(My.Clients.Login.cUserRights)
*/ Jetzt die einzelnen Rechte
lAnsehen   = BITTEST(m.liRights,1)	&& Stelle-1 oder Bit-1
lAendern   = BITTEST(m.liRights,2)	&& Stelle-2 oder Bit-2
lNeuanlage = BITTEST(m.liRights,3)	&& Stelle-3 oder Bit-3
lLoeschen  = BITTEST(m.liRights,4)	&& Stelle-4 oder Bit-4
lDrucken   = BITTEST(m.liRights,5)	&& Stelle-5 oder Bit-5
*/ Die l*Werte sind .T., wenn die Bedingung erfüllt ist!

Variant = My.Clients.Login.GetMaskRights(tcForm AS STRING,tlAsInteger AS Boolean)
Variant = My.Clients.Login.GetMaskRights(tcForm,tlAsInteger)

* Beispielcode:
LOCAL lcRights AS String, liRights AS Integer
*/ Als Stringwert
lcRights = My.Clients.Login.GetMaskRights("D4001",.F.)
*/ Als Integerwert
liRights = My.Clients.Login.GetMaskRights("D4001",.T.)
*/ Jetzt die einzelnen Rechte
lAnsehen   = !EMPTY(SUBSTR(m.lcRights,1,1)) AND BITTEST(m.liRights,1)	&& Stelle-1 oder Bit-1
lAendern   = !EMPTY(SUBSTR(m.lcRights,2,1)) AND BITTEST(m.liRights,2)	&& Stelle-2 oder Bit-2
lNeuanlage = !EMPTY(SUBSTR(m.lcRights,3,1)) AND BITTEST(m.liRights,3)	&& Stelle-3 oder Bit-3
lLoeschen  = !EMPTY(SUBSTR(m.lcRights,4,1)) AND BITTEST(m.liRights,4)	&& Stelle-4 oder Bit-4
lDrucken   = !EMPTY(SUBSTR(m.lcRights,5,1)) AND BITTEST(m.liRights,5)	&& Stelle-5 oder Bit-5
*/ Die l*Werte sind .T., wenn die Bedingung erfüllt ist!

Variant = My.Clients.Login.GetParameters(tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant,tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant)
Variant = My.Clients.Login.GetParameters(tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)

*/ Hier können mehrere Parameter in eine Collection übertragen werden
LOCAL loCollection AS Collection , lni AS Integer , lcNames AS String
loCollection = My.Clients.Login.GetParameters(1,DATE(),TIME())
WAIT WINDOW m.loCollection.Count		&& Anzahl der Werte (3)
*/ Die Namen der Parameter bestimmen
lcNames = ""
FOR m.lni = 1 TO m.loCollection.Count
	lcNames = m.lcNames + ";" + m.loCollection.GetKey(m.lni)
NEXT m.lni
WAIT WINDOW SUBSTR(m.lcNames,2)

Variant = My.Clients.Login.GetParametersCount(tnCnt AS Number,tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant,tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant)
Variant = My.Clients.Login.GetParametersCount(tnCnt,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)

*/ Hier können mehrere Parameter in eine Collection übertragen werden
*/ Als Beispiel kann nur der Aufruf eines Scripts / einer Methode dienen
LPARAMETERS tp1 AS Variant , tp2 AS Variant , tp3 AS Variant 	&& Es könnten mehr sein!
LOCAL loCollection AS Collection , lni AS Integer
lni = PCOUNT()		&& Wieviele Parameter wurden übergeben?
loCollection = My.Clients.Login.GetParametersCount(m.lni,m.tp1,m.tp2,m.tp3)
WAIT WINDOW m.loCollection.Count		&& Anzahl der Werte (?)

Integer = My.Clients.Login.GetSatzFc(tcSatzFc AS STRING)
Integer = My.Clients.Login.GetSatzFc(tcSatzFc)

Boolean = My.Clients.Login.HasMaskRights(tcForm AS STRING,tlNotSetGxxxxx AS Boolean,tlZaehlen AS Boolean)
Boolean = My.Clients.Login.HasMaskRights(tcForm,tlNotSetGxxxxx,tlZaehlen)

Boolean = My.Clients.Login.HatRechtTest(tcWhat AS String,tcMaske AS String,tlZaehlen AS Boolean)
Boolean = My.Clients.Login.HatRechtTest(tcWhat,tcMaske,tlZaehlen)

Boolean = My.Clients.Login.LoginChange()

Boolean = My.Clients.Login.PmsLic()

Boolean = My.Clients.Login.ReadLogin(tlAuto AS Boolean, tcUser AS STRING @, tcPwd AS STRING @)
Boolean = My.Clients.Login.ReadLogin(tlAuto,@tcUser,@tcPwd)

Boolean = My.Clients.Login.SetGroupRights(tcUserRights AS String)
Boolean = My.Clients.Login.SetGroupRights(tcUserRights)

Boolean = My.Clients.Login.SetLogin(tcWer AS STRING,tcPwd AS STRING)
Boolean = My.Clients.Login.SetLogin(tcWer,tcPwd)

Boolean = My.Clients.Login.SetMaskRights()

Variant = My.Clients.Login.SetParameters(toPara AS Collection,tvP1 AS Variant @,tvP2 AS Variant @,tvP3 AS Variant @,tvP4 AS Variant @,tvP5 AS Variant @,tvP6 AS Variant @,tvP7 AS Variant @,tvP8 AS Variant @,tvP9 AS Variant @)
Variant = My.Clients.Login.SetParameters(toPara,@tvP1,@tvP2,@tvP3,@tvP4,@tvP5,@tvP6,@tvP7,@tvP8,@tvP9)

*/ Umwandeln einer Collection in Parameter
LOCAL loCollection AS Collection,lnVar1 AS Number,lnVar2 AS Number
loCollection = CREATEOBJECT("Collection")
=loCollection.Add(1,"tvp1")
=loCollection.Add(2,"tvp2")
=My.Clients.Login.SetParameters(m.loCollection,@lnVar1,@lnVar2)
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2

Boolean = My.Clients.Login.SoftTest()

Boolean = My.Clients.Login.UserIsSuperVisor(tpWhat AS Variant)
Boolean = My.Clients.Login.UserIsSuperVisor(tpWhat)

Boolean = My.Clients.Login.WriteLogin(tcUser AS STRING,tcPwd AS STRING)
Boolean = My.Clients.Login.WriteLogin(tcUser,tcPwd)

Variant = My.Clients.Login._SqlCount(tcSql AS String)
Variant = My.Clients.Login._SqlCount(tcSql)

LOCAL lcSql AS String
lcSql = [SELECT COUNT(*) FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Clients.Login._SqlCount(m.lcSql)>0
	WAIT WINDOW "Es sind Daten vorhanden!"
ENDIF
*/ Bemerkung:
*/ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht!

Variant = My.Clients.Login._SqlExist(tcSql AS String)
Variant = My.Clients.Login._SqlExist(tcSql)

LOCAL lcSql AS String
lcSql = [SELECT ipy01 FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Clients.Login._SqlExist(m.lcSql)		&& Gibt Boolean zurück
	WAIT WINDOW "Es sind Daten vorhanden!"
ENDIF
*/ Bemerkung:
*/ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht!

Variant = My.Clients.Login._SqlRead(tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String)
Variant = My.Clients.Login._SqlRead(tcSql,tcAlias,tvTable,tcIndex)

LOCAL lcSql AS String
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Clients.Login._SqlRead(m.lcSql,"qY01",2)		&& Gibt Boolean zurück
	ACTIVATE _SCREEN
	BROWSE
ENDIF
*/ Bemerkung:
*/ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht!
*/ Die einzelnen Parameter:
*/	tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String
*/	Ein muss sind: tcSql AS String,tcAlias AS String
*/	tvTable kann angegeben werden mit:
*/		.F.		=> Cursor incl. __Changed [L] und __New [L], .T. - Tabelle incl.
*/		Bit-0	=> 1 - Als Tabelle, 0 - Als Cursor
*/		Bit-1	=> 1 - Ohne __Changed und __New, 0 - Mit...
*/	tcIndex kann angegeben werden, wenn Indizes auf dem Cursor / der Tabelle benötigt werden.
*/		"IndexKey1#IndexTag1;IndexKey2#IndexTag2;...."
*/		Wird kein IndexTag angegeben und der IndexKey NICHT aus einer Funktion ermittelt, so hat der IndexKey den Namen des IndexTag!
*/		Wird der IndexKey aus einer Funktion gebildet und es ist kein IndexTag angegeben, so erhält der IndexTag den Namen _Index<Nummer>

Variant = My.Clients.Login._SqlReadArray(tcSql AS String,toObject AS Object,taArray)
Variant = My.Clients.Login._SqlReadArray(tcSql,toObject,taArray)

LOCAL lcSql AS String , laErg[1] , loObject AS Object
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
*/ Ausführen in ein lokales Array
IF My.Clients.Login._SqlReadArray(m.lcSql,.NULL.,@laErg)			&& Es gibt Datensätze...
	*/ FOR i = ... NEXT i
ENDIF
*/ Ausführen in ein Objekt-Array
loObject = CREATEOBJECT("EMPTY")
=ADDPROPERTY(loObject,"aErg[1]")
IF My.Clients.Login._SqlReadArray(m.lcSql,m.loObject,"aErg")		&& Es gibt Datensätze...
	*/ FOR i = ... NEXT i
ENDIF

Variant = My.Clients.Login._SqlReadCollection(tcSql AS String,tcIndex AS String)
Variant = My.Clients.Login._SqlReadCollection(tcSql,tcIndex)

LOCAL lcSql AS String , loColl AS Collection
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
*/ Normale Ausführung OHNE Indexangabe.
*/ Die Keys der Collection sind fortlaufend nummeriert!
loColl= My.Clients.Login._SqlReadCollection(m.lcSql)
WAIT WINDOW loColl.GetKey(1)		&& "0000001"
*/ Hat der SQL einen eindeutigen Key so kann dieser benutzt werden!
loColl= My.Clients.Login._SqlReadCollection(m.lcSql,"ipy01")
WAIT WINDOW loColl.GetKey(1)		&& "SU0"

Variant = My.Clients.Login._SqlReadValue(tcSql AS String,tiValue AS Integer)
Variant = My.Clients.Login._SqlReadValue(tcSql,tiValue)

LOCAL lcSql AS String , lvValue AS Variant
*/ Gibt den Inhalt der ERSTEN Spalte zurück
lcSql = [SELECT bezei,kurz,master FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
lvValue = My.Clients.Login._SqlReadValue(m.lcSql)		&& y01.Bezei
*/ Gibt den Inhalt der ZWEITEN Spalte zurück
lcSql = [SELECT bezei,kurz,master FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
lvValue = My.Clients.Login._SqlReadValue(m.lcSql,2)	&& y01.Kurz

Variant = My.Clients.Login._SqlUpdate(tcTable AS STRING,tcAlias AS STRING,tcIdName AS STRING,tcFilter AS String)
Variant = My.Clients.Login._SqlUpdate(tcTable,tcAlias,tcIdName,tcFilter)

LOCAL lcSql AS String , tlUpdate AS Boolean
lcSql = [SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH']
*/ Lesen der Daten vom Backend
IF My.Clients.Login._SqlRead(m.lcSql,"qB01",1)
	*/ Ändern der Daten...
	SELECT qB01
	REPLACE ALL match WITH "LEISTUNGSSCHALTER",__Changed WITH .T.
	tlUpdate = My.Clients.Login._SqlUpdate("B01",ALIAS(),"IDB01")
	IF NOT m.tlUpdate
		WAIT WINDOW My.Clients.Login.cLastError
	ENDIF
ENDIF

;Filter1 = My.Clients.Login._SqlUpdateAll(tcList AS STRING)
;Filter1 = My.Clients.Login._SqlUpdateAll(tcList)

LOCAL tlUpdate AS Boolean
*/ Lesen der Daten vom Backend
IF My.Clients.Login._SqlRead([SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH'],"qB01",1) AND ;
	My.Clients.Login._SqlRead([SELECT d03.* FROM CDBFDIR!D03 INNER JOIN CDBFDIR!B01 ON d03.idd03=b01.idd03 WHERE b01.artnr='SIE.3TH'],"qD03",1)
	*/ Ändern der Daten...
	UPDATE qB01 SET lang = qD03.bez, __Changed = .T. FROM qD03 WHERE qB01.idd03=qD03.idd03
	UPDATE qD03 SET ekpdatum = My.xDate, __Changed = .T.
	tlUpdate = My.Clients.Login._SqlUpdateAll("B01;QB01;IDB01#D03;QD03;IDD03")
	IF NOT m.tlUpdate
		WAIT WINDOW My.Clients.Login.cLastError
	ENDIF
ENDIF
*/ Hinweis:
*/	Der Update der einzel angegebenen Cursor wird mit einer Transaktion durchgeführt!
*/	Läuft einer der Updates auf einen Fehler wird die Änderung rückgängig gemacht!
*/ Der String ist folgendermaßen aufgebaut:
*/	"Tableinfo1#Tableinfo2#Tableinfo3#..."
*/ Tableinfo:
*/	Tabelle;Cursor;ID-Field[;Filter]

Array = My.Clients.Login.aMLic[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Array = My.Clients.Login.aMLic[tcIndex1|,tiIndex1,tiIndex2]

Array = My.Clients.Login.aMRights[tiIndex1 AS Integer , tiIndex2 AS Integer]
Array = My.Clients.Login.aMRights[tiIndex1,tiIndex2]

Array = My.Clients.Login.aPRights[tiIndex1 AS Integer , tiIndex2 AS Integer]
Array = My.Clients.Login.aPRights[tiIndex1,tiIndex2]

String = My.Clients.Login.cGroupRights

String = My.Clients.Login.cIdx02

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

*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcError AS String
lcError = My.Clients.Login.cLastError

String = My.Clients.Login.cMethod

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

String = My.Clients.Login.cUserRights

Number = My.Clients.Login.iUserRights

Boolean = My.Clients.Login.lShowThermos

My.Clients.Login.lShowThermos = .T.

Boolean = My.Clients.Login.lUserCanChange

Boolean = My.Clients.Login.lUserCanDelete

Boolean = My.Clients.Login.lUserCanLook

Boolean = My.Clients.Login.lUserCanNew

Boolean = My.Clients.Login.lUserCanPrint

Number = My.Clients.Login.nError

WAIT WINDOW My.Clients.Login.nError

Number = My.Clients.Login.nLine

WAIT WINDOW My.Clients.Login.nLine

Number = My.Clients.Login.nRecords

WAIT WINDOW My.Clients.Login.nRecords

Number = My.Clients.Login.nSeconds

WAIT WINDOW My.Clients.Login.nSeconds

Number = My.Clients.Login.nStatus

WAIT WINDOW My.Clients.Login.nStatus

Object = My.Clients.Login.oSelected

LOCAL loSelected AS My_Fu_Selected
loSelected = My.Clients.Login.oSelected
*/ Danach können Tabellen und Cursor geöffnet werden...

*/ Mit dem Nachfolgenden Befehl wird der obige Zustand der Datenumgebung wieder hergestellt
RELEASE loSelected

Object = My.Clients.Login.oThermos

LOCAL loThermos AS My_Sy_Thermos
*/ Instanziieren
loThermos = My.Clients.Login.oThermos

loThermos.AutoCenter = .T.
loThermos.cFaktor(1,1/10,.F.,"Info-1...")
loThermos.cFaktor(1,2/10,.F.,"Info-2...")
*/ ...
*/ Schliesst den Thermos
RELEASE loThermos