my.clients.internetliveupdate.html

PMS³² Online- Hilfereferenz

MY.CLIENTS.INTERNETLIVEUPDATE

InternetLiveUpdate - Funktionen des Internet Live Updates

Hilfe: Funktionen

Funktionen des Internet Live Updates

Code: Funktionen

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

Memberliste von InternetLiveUpdate

Liste der Methoden von InternetLiveUpdate

AutoTest() - Zugriff auf das Internet

Rückgabe:[Boolean], Automatischer Durchlauf und Test, welche Servciepacks geladen werden können.

Hilfeinformation

Rückgabe:[Boolean], Automatischer Durchlauf und Test, welche Servciepacks geladen werden können.

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.AutoTest(tcAutoTest AS STRING)
Boolean = My.Clients.InternetLiveUpdate.AutoTest(tcAutoTest)

Codeinformation

Evaluate() - Ausführen eines Befehls

Mit Setzen dieser Property auf .T. kann die Form zentriert werden.

Hilfeinformation

Ausführen eines VFP-Befehls mit EVALUATE().
Achtung! Eventuell müssen Variablen als PRIVATE deklariert werden!ENDTEXT
*
TEXT TO lcMessage NOSHOW TEXTMERGE
Ausführen eines VFP-Befehls mit EVALUATE().

Aufrufinformation

Variant = My.Clients.InternetLiveUpdate.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.InternetLiveUpdate.Evaluate(pcExpression,pvDefault,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)

Codeinformation

*/ 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.InternetLiveUpdate.Evaluate([m.pnVar1+m.pnVar2])
WAIT WINDOW m.lnVar		&& Ergibt 4...	ENDTEXT

ExecScript() - Ausführen eines VFP-Scripts

Ausführen eines VFP-Scripts incl. der Prüfung, ob ein ALIAS besteht.

Hilfeinformation

Ausführen eines VFP-Scripts incl. der Prüfung, ob ein ALIAS besteht.

Aufrufinformation

Variant = My.Clients.InternetLiveUpdate.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.InternetLiveUpdate.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)

Codeinformation

*/ 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.InternetLiveUpdate.ExecScript("",m.lcScript,0,@lnVar1,@lnVar2)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2

ExecScriptP() - Ausführen eines VFP-Scripts

Ausführen eines VFP-Scripts incl. PARAMETER (Collection)

Hilfeinformation

Ausführen eines VFP-Scripts incl. PARAMETER (Collection)
Als Parameter wird eine Collection mit Informationen übergeben!

Aufrufinformation

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

Codeinformation

*/ 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.InternetLiveUpdate.ExecScriptP(m.lcScript,m.loColl)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar

GetParameters() - Parameter to Collection

Wandelt übergebene Parameter in eine Collection um.

Hilfeinformation

Wandelt übergebene Parameter in eine Collection um.
Umkehrfunktion zu SetParameters.

Aufrufinformation

Variant = My.Clients.InternetLiveUpdate.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.InternetLiveUpdate.GetParameters(tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)

Codeinformation

*/ Hier können mehrere Parameter in eine Collection übertragen werden
LOCAL loCollection AS Collection , lni AS Integer , lcNames AS String
loCollection = My.Clients.InternetLiveUpdate.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)

GetParametersCount() - Parameter to Collection

Wandelt übergebene Parameter in eine Collection um.

Hilfeinformation

Wandelt übergebene Parameter in eine Collection um.
Jedoch wird als 'erster' Parameter die Anzahl der Parameter mitgegeben.

Aufrufinformation

Variant = My.Clients.InternetLiveUpdate.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.InternetLiveUpdate.GetParametersCount(tnCnt,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)

Codeinformation

*/ 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.InternetLiveUpdate.GetParametersCount(m.lni,m.tp1,m.tp2,m.tp3)
WAIT WINDOW m.loCollection.Count		&& Anzahl der Werte (?)

LoadWebFile_1() - Zugriff auf das Internet

Rückgabe:[Integer], Download der Größen Informationsdatei. Erster Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Hilfeinformation

Rückgabe:[Integer], Download der Größen Informationsdatei. Erster Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Aufrufinformation

Integer = My.Clients.InternetLiveUpdate.LoadWebFile_1()

Codeinformation

LoadWebFile_2() - Zugriff auf das Internet

Rückgabe:[Integer], Download der Kunden Informationsdatei. Zweiter Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Hilfeinformation

Rückgabe:[Integer], Download der Kunden Informationsdatei. Zweiter Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Aufrufinformation

Integer = My.Clients.InternetLiveUpdate.LoadWebFile_2()

Codeinformation

LoadWebFile_3() - Zugriff auf das Internet

Rückgabe:[Integer], Download der Service Informationsdatei. Dritter Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Hilfeinformation

Rückgabe:[Integer], Download der Service Informationsdatei. Dritter Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Aufrufinformation

Integer = My.Clients.InternetLiveUpdate.LoadWebFile_3()

Codeinformation

LoadWebFile_4() - Zugriff auf das Internet

Rückgabe:[Integer], Download der Service HTML Datei. Vierter Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Hilfeinformation

Rückgabe:[Integer], Download der Service HTML Datei. Vierter Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Aufrufinformation

Integer = My.Clients.InternetLiveUpdate.LoadWebFile_4(tnIndex AS NUMBER)
Integer = My.Clients.InternetLiveUpdate.LoadWebFile_4(tnIndex)

Codeinformation

LoadWebFile_5() - Zugriff auf das Internet

Rückgabe:[Integer], Download der Service- Datei. Fünfter Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Hilfeinformation

Rückgabe:[Integer], Download der Service- Datei. Fünfter Schritt. Rückgabe=0 Ok, ansonsten Fehler.

Aufrufinformation

Integer = My.Clients.InternetLiveUpdate.LoadWebFile_5(tnIndex AS NUMBER)
Integer = My.Clients.InternetLiveUpdate.LoadWebFile_5(tnIndex)

Codeinformation

OnProcess() - Zugriff auf das Internet

Rückgabe:[Boolean], Übergibt Werte aus dem COM+ Server der die Datei aus dem Internet läd. Fortschrittsanzeige als Faktor

Hilfeinformation

Rückgabe:[Boolean], Übergibt Werte aus dem COM+ Server der die Datei aus dem Internet läd. Fortschrittsanzeige als Faktor

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.OnProcess(tiWhat AS INTEGER,tvValue1 AS Variant,tvValue2 AS Variant,tvValue3 AS Variant)
Boolean = My.Clients.InternetLiveUpdate.OnProcess(tiWhat,tvValue1,tvValue2,tvValue3)

Codeinformation

ReadProxyFile() - Zugriff auf das Internet

Auslesen der Proxy Einstellungen aus cNetDir, wenn vorhanden...

Hilfeinformation

Auslesen der Proxy Einstellungen aus cNetDir, wenn vorhanden...

Aufrufinformation

Variant = My.Clients.InternetLiveUpdate.ReadProxyFile()

Codeinformation

ReadProxyInfo() - Zugriff auf das Internet

Rückgabe:[Object], Lesen der Proxy Informationen für die Eingabe in einer Maske. Siehe Rückgabe Parameter...

Hilfeinformation

Rückgabe:[Object], Lesen der Proxy Informationen für die Eingabe in einer Maske. Siehe Rückgabe Parameter...

Aufrufinformation

Object = My.Clients.InternetLiveUpdate.ReadProxyInfo(tcProxy AS STRING @,tcPort AS STRING @, tcUser AS STRING @, tcPass AS STRING @)
Object = My.Clients.InternetLiveUpdate.ReadProxyInfo(@tcProxy,@tcPort,@tcUser,@tcPass)

Codeinformation

SetParameters() - Collection to Parameter

Wandelt eine übergebene Collection in Parameter um.

Hilfeinformation

Wandelt eine übergebene Collection in Parameter um.
Umkehrfunktion zu GetParameters.

Aufrufinformation

Variant = My.Clients.InternetLiveUpdate.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.InternetLiveUpdate.SetParameters(toPara,@tvP1,@tvP2,@tvP3,@tvP4,@tvP5,@tvP6,@tvP7,@tvP8,@tvP9)

Codeinformation

*/ 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.InternetLiveUpdate.SetParameters(m.loCollection,@lnVar1,@lnVar2)
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2

WriteProxyFile() - Zugriff auf das Internet

Schreiben der Proxy Einstellungen

Hilfeinformation

Schreiben der Proxy Einstellungen

Aufrufinformation

Variant = My.Clients.InternetLiveUpdate.WriteProxyFile()

Codeinformation

WriteProxyInfo() - Zugriff auf das Internet

Rückgabe:[Boolean], Schreiben der Proxy Informationen für die Eingabe in einer Maske.

Hilfeinformation

Rückgabe:[Boolean], Schreiben der Proxy Informationen für die Eingabe in einer Maske.

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.WriteProxyInfo(tcProxy AS STRING,tcPort AS STRING,tcUser AS STRING,tcPass AS STRING)
Boolean = My.Clients.InternetLiveUpdate.WriteProxyInfo(tcProxy,tcPort,tcUser,tcPass)

Codeinformation

_SqlCount() - Anzahl der Datensätze

Anzahl der Datensätze eines SQL Statements ermitteln.

Hilfeinformation

Anzahl der Datensätze eines SQL Statements ermitteln.
Die Rückgabe ist Number oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.

Aufrufinformation

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

Codeinformation

LOCAL lcSql AS String
lcSql = [SELECT COUNT(*) FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Clients.InternetLiveUpdate._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!

_SqlExist() - Gibt es Datensätze?

Werden Datensätze durch den SQL ermittelt?

Hilfeinformation

Werden Datensätze im SQL-Statement ermittelt?
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.

Aufrufinformation

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

Codeinformation

LOCAL lcSql AS String
lcSql = [SELECT ipy01 FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Clients.InternetLiveUpdate._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!

_SqlRead() - Lesen von SQL Daten

Ausführen eines SQL-Statements und Rückgabe des angegebenen Cursors.

Hilfeinformation

Ausführen eines SQL-Statements und Rückgabe des angegebenen Cursors.
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.

Aufrufinformation

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

Codeinformation

LOCAL lcSql AS String
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Clients.InternetLiveUpdate._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>

_SqlReadArray() - SQL Daten in ein Array

Ausführen eines SQL-Statements in ein Array und Rückgabe der Datensätze.

Hilfeinformation

Ausführen eines SQL-Statements in ein Array und Rückgabe ob Daten ermittelt wurden.
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.

Aufrufinformation

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

Codeinformation

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.InternetLiveUpdate._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.InternetLiveUpdate._SqlReadArray(m.lcSql,m.loObject,"aErg")		&& Es gibt Datensätze...
	*/ FOR i = ... NEXT i
ENDIF

_SqlReadCollection() - SQL Daten in eine Collection

Ausführen eines SQL-Statements in eine Collection und Rückgabe der Collection.

Hilfeinformation

Ausführen eines SQL-Statements in eine Collection und Rückgabe der Collection.
Die Rückgabe ist Collection oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.

Aufrufinformation

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

Codeinformation

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.InternetLiveUpdate._SqlReadCollection(m.lcSql)
WAIT WINDOW loColl.GetKey(1)		&& "0000001"
*/ Hat der SQL einen eindeutigen Key so kann dieser benutzt werden!
loColl= My.Clients.InternetLiveUpdate._SqlReadCollection(m.lcSql,"ipy01")
WAIT WINDOW loColl.GetKey(1)		&& "SU0"

_SqlReadValue() - SQL Abfrage einer Value

Ausführen eines SQL-Statements und Rückgabe der Value des ERSTEN Feldes.

Hilfeinformation

Ausführen eines SQL-Statements und Rückgabe der Value des ERSTEN Feldes.
Die Rückgabe ist Variant oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.

Aufrufinformation

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

Codeinformation

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.InternetLiveUpdate._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.InternetLiveUpdate._SqlReadValue(m.lcSql,2)	&& y01.Kurz

_SqlUpdate() - Einen Cursor updaten

UPDATE eines lokalen Cursors gegenüber der angegebenen Tabelle durchführen.

Hilfeinformation

UPDATE eines lokalen Cursors gegenüber der angegebenen Tabelle durchführen.
Die Rückgabe ist Boolean oder .NULL.
Der Cursor MUSS die Spalten __Changed und __New enthalten!
Außerdem MUSS die Zieltabelle die Spalte LastUpd enthalten!

Aufrufinformation

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

Codeinformation

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.InternetLiveUpdate._SqlRead(m.lcSql,"qB01",1)
	*/ Ändern der Daten...
	SELECT qB01
	REPLACE ALL match WITH "LEISTUNGSSCHALTER",__Changed WITH .T.
	tlUpdate = My.Clients.InternetLiveUpdate._SqlUpdate("B01",ALIAS(),"IDB01")
	IF NOT m.tlUpdate
		WAIT WINDOW My.Clients.InternetLiveUpdate.cLastError
	ENDIF
ENDIF

_SqlUpdateAll() - Eine Cursorliste updaten

UPDATE eines lokalen Cursors gegenüber der angegebenen Tabelle durchführen.

Hilfeinformation

UPDATE mehrerer lokaler Cursor gegenüber den angegebenen Tabellen durchführen.
Die Rückgabe ist Boolean oder .NULL.
Die Cursor MUSS die Spalten __Changed und __New enthalten!
Außerdem MUSS die Zieltabelle die Spalte LastUpd enthalten!

Aufrufinformation

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

Codeinformation

LOCAL tlUpdate AS Boolean
*/ Lesen der Daten vom Backend
IF My.Clients.InternetLiveUpdate._SqlRead([SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH'],"qB01",1) AND ;
	My.Clients.InternetLiveUpdate._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.InternetLiveUpdate._SqlUpdateAll("B01;QB01;IDB01#D03;QD03;IDD03")
	IF NOT m.tlUpdate
		WAIT WINDOW My.Clients.InternetLiveUpdate.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]

Liste der Properties von InternetLiveUpdate

aDownload - Zugriff auf das Internet

Welche Dateien stehen zur Verfügung?

Hilfeinformation

Welche Dateien stehen zur Verfügung?

Aufrufinformation

Array = My.Clients.InternetLiveUpdate.aDownload[tiIndex1 AS Integer , tiIndex2 AS Integer]
Array = My.Clients.InternetLiveUpdate.aDownload[tiIndex1,tiIndex2]

Codeinformation

aDownloadCount - Zugriff auf das Internet

Anzahl der Einträge in aDownLoad.

Hilfeinformation

Anzahl der Einträge in aDownLoad.

Aufrufinformation

Array = My.Clients.InternetLiveUpdate.aDownloadCount

Codeinformation

cDownDir - Zugriff auf das Internet

Verzeichnis der DownLoad Dateien

Hilfeinformation

Verzeichnis der DownLoad Dateien

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cDownDir

Codeinformation

cDownLoadFile - Zugriff auf das Internet

Pfad und Dateiname der Servicedatei, die aus dem Internet gelden wurde

Hilfeinformation

Pfad und Dateiname der Servicedatei, die aus dem Internet gelden wurde

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cDownLoadFile[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
String = My.Clients.InternetLiveUpdate.cDownLoadFile[tcIndex1|,tiIndex1,tiIndex2]

Codeinformation

cDownLoadInfo - Zugriff auf das Internet

Servcie Informationen der Download Datei. Siehe auch cDownLoadFile

Hilfeinformation

Servcie Informationen der Download Datei. Siehe auch cDownLoadFile

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cDownLoadInfo

Codeinformation

cKdNumber - Zugriff auf das Internet

Kundennummer aus der Lic Datei

Hilfeinformation

Kundennummer aus der Lic Datei

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cKdNumber

Codeinformation

cLastError - Letzter Fehler

Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.

Hilfeinformation

Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cLastError

Codeinformation

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

cMethod - Methode des Fehlers

Methode in der der letzte Fehler auftrat.

Hilfeinformation

Methode in der der letzte Fehler auftrat.
Aufbau: [Fehlernummer] [Methode] [Zeilennummer] [Message]

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cMethod

Codeinformation

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

cNetDir - Netzwerkverzeichnis

Netzwerkverzeichnis von PMS32.

Hilfeinformation

Netzwerkverzeichnis von PMS32.
Das Verzeichnis ist normalerweise unter: \\server\pms$\pms32\ zu finden...

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cNetDir

Codeinformation

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

cProxyName - Zugriff auf das Internet

Name des eventuell zwischengeschalteten Proxy's

Hilfeinformation

Name des eventuell zwischengeschalteten Proxy's

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cProxyName

Codeinformation

cProxyPass - Zugriff auf das Internet

Passwort des eventuell zwischengeschalteten Proxy's

Hilfeinformation

Passwort des eventuell zwischengeschalteten Proxy's

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cProxyPass

Codeinformation

cProxyPort - Zugriff auf das Internet

Port des eventuell zwischengeschalteten Proxy's

Hilfeinformation

Port des eventuell zwischengeschalteten Proxy's

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cProxyPort

Codeinformation

cProxyUser - Zugriff auf das Internet

Benutzername des eventuell zwischengeschalteten Proxy's

Hilfeinformation

Benutzername des eventuell zwischengeschalteten Proxy's

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cProxyUser

Codeinformation

cService - Zugriff auf das Internet

Servicenummer der installierten Version

Hilfeinformation

Servicenummer der installierten Version

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cService

Codeinformation

cVersion - Zugriff auf das Internet

Versionsnummer der installierten Version

Hilfeinformation

Versionsnummer der installierten Version

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cVersion

Codeinformation

cWebAdress - Zugriff auf das Internet

Adresse in Internet

Hilfeinformation

Adresse in Internet

Aufrufinformation

String = My.Clients.InternetLiveUpdate.cWebAdress

Codeinformation

lDownLoad - Zugriff auf das Internet

Es steht ein neues Servicepack zur Verfügung und dieses kann geladen werden.

Hilfeinformation

Es steht ein neues Servicepack zur Verfügung und dieses kann geladen werden.

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lDownLoad

Codeinformation

lInetActive - Zugriff auf das Internet

Internetverbindung ist aktiv und Ok.

Hilfeinformation

Internetverbindung ist aktiv und Ok.

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lInetActive

Codeinformation

lKDAktiv - Zugriff auf das Internet

Aktive LV-Kopplung

Hilfeinformation

Aktive LV-Kopplung

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lKDAktiv

Codeinformation

lKDGesperrt - Zugriff auf das Internet

Gesperrter Vertrag

Hilfeinformation

Gesperrter Vertrag

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lKDGesperrt

Codeinformation

lKDGueltig - Zugriff auf das Internet

Gültiger Vertrag

Hilfeinformation

Gültiger Vertrag

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lKDGueltig

Codeinformation

lKDLoad - Zugriff auf das Internet

Die Kundeninformationen wurden geladen

Hilfeinformation

Die Kundeninformationen wurden geladen

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lKDLoad

Codeinformation

lKDSwart - Zugriff auf das Internet

Kunde hat einen Swart Vertrag.

Hilfeinformation

Kunde hat einen Swart Vertrag.

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lKDSwart

Codeinformation

lLVActive - Zugriff auf das Internet

Ist eine LV-Kopplung aktiv?

Hilfeinformation

Ist eine LV-Kopplung aktiv?

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lLVActive

Codeinformation

lShowThermos - Thermosanzeige

Thermosanzeige bei der Ausführung

Hilfeinformation

Thermosanzeige bei der Ausführung

Aufrufinformation

Boolean = My.Clients.InternetLiveUpdate.lShowThermos

Codeinformation

My.Clients.InternetLiveUpdate.lShowThermos = .T.

nError - Fehlernummer d. Fehlers

Fehlernummer des letzten Fehlers.

Hilfeinformation

Fehlernummer des letzten Fehlers.
Ist der Wert kleiner null, so handelt es sich um einen logischen Fehler.

Aufrufinformation

Number = My.Clients.InternetLiveUpdate.nError

Codeinformation

WAIT WINDOW My.Clients.InternetLiveUpdate.nError

nLine - Zeilennummer d. Fehlers

Zeilennummer, in der der letzte Fehler auftrat

Hilfeinformation

Zeilennummer, in der der letzte Fehler auftrat

Aufrufinformation

Number = My.Clients.InternetLiveUpdate.nLine

Codeinformation

WAIT WINDOW My.Clients.InternetLiveUpdate.nLine

nRecords - Verarbeitete Datensätze

Verarbeitete Datensätze

Hilfeinformation

Verarbeitete Datensätze

Aufrufinformation

Number = My.Clients.InternetLiveUpdate.nRecords

Codeinformation

WAIT WINDOW My.Clients.InternetLiveUpdate.nRecords

nSeconds - Ausführungszeit

Ausführungszeit in Sekunden

Hilfeinformation

Ausführungszeit in Sekunden

Aufrufinformation

Number = My.Clients.InternetLiveUpdate.nSeconds

Codeinformation

WAIT WINDOW My.Clients.InternetLiveUpdate.nSeconds

nStatus - Status der Ausführung

Status der Ausführung

Hilfeinformation

Status der Ausführung

Aufrufinformation

Number = My.Clients.InternetLiveUpdate.nStatus

Codeinformation

WAIT WINDOW My.Clients.InternetLiveUpdate.nStatus

oSelected - Datenumgebung

Merkt sich die Datenumgebung für eine Verarbeitung.

Hilfeinformation

Merkt sich die Datenumgebung für eine Verarbeitung.
Beim Release der Variable wird die vorherige Datenumgebung wieder hergestellt.

Aufrufinformation

Object = My.Clients.InternetLiveUpdate.oSelected

Codeinformation

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

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

oThermos - temp. Thermos

Instanziiert einen temporären Thermos

Hilfeinformation

Instanziiert einen temporären Thermos

Aufrufinformation

Object = My.Clients.InternetLiveUpdate.oThermos

Codeinformation

LOCAL loThermos AS My_Sy_Thermos
*/ Instanziieren
loThermos = My.Clients.InternetLiveUpdate.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

Siehe auch : Hauptmenü / Hauptindex / Such Index / Cursor Index / Programm Module / Tabellen Index / Tabellenmodule / Masken Index / Programmcode Index / Servicepacks / My.Struktur / Funktionen / Sonstiges Index

Lokale Benutzerhilfe : Meine eigene Hilfe / Zur�ck zur PMS³² - Hilfe

Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022 Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS³² Weitere Informationen finden Sie unter der aktuellen PMS³² WEB-Hilfe
Die Informationen dieser Mitteilung sind vertraulich und nur f�r Sie bestimmt. Unbefugtes Weiterleiten, Ver�ffentlichen, Kopieren usw. sind untersagt und werden gerichtlich verfolgt. © PMS Compelec GmbH 2022 ® el-Projekt