Aufrufinformation

Variant = My.AppForms.HdmForms._SqlRead(tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String)
Variant = My.AppForms.HdmForms._SqlRead(tcSql,tcAlias,tvTable,tcIndex)

Codeinformation

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

Hilfeinformation

Variant = My.AppForms.HdmForms._SqlReadArray(tcSql AS String,toObject AS Object,taArray)
Variant = My.AppForms.HdmForms._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.AppForms.HdmForms._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.AppForms.HdmForms._SqlReadArray(m.lcSql,m.loObject,"aErg")		&& Es gibt Datensätze...
	*/ FOR i = ... NEXT i
ENDIF

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

Variant = My.AppForms.HdmForms._SqlReadValue(tcSql AS String,tiValue AS Integer)
Variant = My.AppForms.HdmForms._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.AppForms.HdmForms._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.AppForms.HdmForms._SqlReadValue(m.lcSql,2)	&& y01.Kurz

Variant = My.AppForms.HdmForms._SqlUpdate(tcTable AS STRING,tcAlias AS STRING,tcIdName AS STRING,tcFilter AS String)
Variant = My.AppForms.HdmForms._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.AppForms.HdmForms._SqlRead(m.lcSql,"qB01",1)
	*/ Ändern der Daten...
	SELECT qB01
	REPLACE ALL match WITH "LEISTUNGSSCHALTER",__Changed WITH .T.
	tlUpdate = My.AppForms.HdmForms._SqlUpdate("B01",ALIAS(),"IDB01")
	IF NOT m.tlUpdate
		WAIT WINDOW My.AppForms.HdmForms.cLastError
	ENDIF
ENDIF

;Filter1 = My.AppForms.HdmForms._SqlUpdateAll(tcList AS STRING)
;Filter1 = My.AppForms.HdmForms._SqlUpdateAll(tcList)

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

String = My.AppForms.HdmForms.SetFormMenu

String = My.AppForms.HdmForms.cLastError

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

String = My.AppForms.HdmForms.cMethod

*/ Abruf...
WAIT WINDOW My.AppForms.HdmForms.cMethod

Boolean = My.AppForms.HdmForms.lShowThermos

My.AppForms.HdmForms.lShowThermos = .T.

Number = My.AppForms.HdmForms.nError

WAIT WINDOW My.AppForms.HdmForms.nError

Number = My.AppForms.HdmForms.nLine

WAIT WINDOW My.AppForms.HdmForms.nLine

Number = My.AppForms.HdmForms.nRecords

WAIT WINDOW My.AppForms.HdmForms.nRecords

Number = My.AppForms.HdmForms.nSeconds

WAIT WINDOW My.AppForms.HdmForms.nSeconds

Number = My.AppForms.HdmForms.nStatus

WAIT WINDOW My.AppForms.HdmForms.nStatus

Object = My.AppForms.HdmForms.oSelected

LOCAL loSelected AS My_Fu_Selected
loSelected = My.AppForms.HdmForms.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.AppForms.HdmForms.oThermos

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