PMS32 Online- Hilfereferenz

MY.BUSSINES.ORDERING.ORDERGET

OrderGet - Bestellauswahl in der Maske D4002. Enthält alle SQL's, die benötigt werden.

Hilfe: Bestellvorschlag
Bestellauswahl in der Maske D4002. Enthält alle SQL's, die benötigt werden.

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

Liste der Methoden von OrderGet

AuFZu() - Bestellpositonen Auf- bzw. Zuklappen

Auf- bzw. Zuklappen der Stufen im "oberen" Grid ALIAS=QAB
Hilfeinformation
Auf- bzw. Zuklappen der Stufen im "oberen" Grid ALIAS=QAB

Aufrufinformation
Variant = My.Bussines.Ordering.OrderGet.AuFZu(tcAlias AS STRING,tlAll AS Boolean,tlAufZu AS Boolean)
Variant = My.Bussines.Ordering.OrderGet.AuFZu(tcAlias,tlAll,tlAufZu)
Codeinformation


Best() - Bestellung(en) auslösen

 Rückgabe:[Boolean], Bestellung auslösen
Hilfeinformation

Rückgabe:[Boolean], Bestellung auslösen
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.Best()


Codeinformation




CalcSplitt() - Splitting berechnen

 Berechnen des Splittings in den Positionen (qAB)
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Ordering.OrderGet.CalcSplitt()


Codeinformation




DataRestore() - Datenumgebung wieder herstellen

 Rückgabe:[Boolean], Rücksichern der Datenumgebung wenn aus D4002 gesprungen wurde
Hilfeinformation

Rückgabe:[Boolean], Rücksichern der Datenumgebung wenn aus D4002 gesprungen wurde
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.DataRestore(tlRestore AS Boolean)
Boolean = My.Bussines.Ordering.OrderGet.DataRestore(tlRestore)


Codeinformation




DataStore() - Datenumgebung speichern

 Rückgabe:[Boolean], Sichern der Datenumgebung wenn aus D4002 gesprungen wird
Hilfeinformation

Rückgabe:[Boolean], Sichern der Datenumgebung wenn aus D4002 gesprungen wird
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.DataStore(tlStore AS Boolean)
Boolean = My.Bussines.Ordering.OrderGet.DataStore(tlStore)


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


GetArtOfOrder() - Welche Bestellart kann genommen werden?

 Rückgabe:[Integer], Berechnet die Möglichkeiten der Bestellung
Hilfeinformation

Rückgabe:[Integer], Berechnet die Möglichkeiten der Bestellung
Aufrufinformation


Integer = My.Bussines.Ordering.OrderGet.GetArtOfOrder()


Codeinformation




GetFilterTableSet() - Filterbedingung setzen

 Rückgabe:[Boolean], Setzt die Filterbedingung aus THIS.GetFilterTable()
Hilfeinformation

Rückgabe:[Boolean], Setzt die Filterbedingung aus THIS.GetFilterTable()
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.GetFilterTableSet(tcControlSource AS STRING,toRecord AS OBJECT)
Boolean = My.Bussines.Ordering.OrderGet.GetFilterTableSet(tcControlSource,toRecord)


Codeinformation




GetICForId() - Rückgabe der IC bei bekannter ID und Tabelle

 Gibt die IC bei bekannter ID zurück. Angabe der Tabelle nicht vergessen!
Hilfeinformation

Gibt die IC bei bekannter ID zurück. Angabe der Tabelle nicht vergessen!
Aufrufinformation


Variant = My.Bussines.Ordering.OrderGet.GetICForId(tcId AS String,tcTable AS String)
Variant = My.Bussines.Ordering.OrderGet.GetICForId(tcId,tcTable)


Codeinformation




MinZahl() - Minimum aus zwei Zahlen

 Bildet das Minimum aus zwei Zahlen, wobei Zahl2 geändert zurückgegeben wird.
Hilfeinformation

Bildet das Minimum aus zwei Zahlen, wobei Zahl2 geändert zurückgegeben wird.
Aufrufinformation


Variant = My.Bussines.Ordering.OrderGet.MinZahl(tnZahl1 AS NUMBER,tnZahl2 AS NUMBER @)
Variant = My.Bussines.Ordering.OrderGet.MinZahl(tnZahl1,@tnZahl2)


Codeinformation




Order() - Bestellvorschlag erstellen

 Rückgabe:[Boolean], Erstellen der Bestellauswahl nach angegebener Art der Bestellung... THIS.nOrderArt
Hilfeinformation

Rückgabe:[Boolean], Erstellen der Bestellauswahl nach angegebener Art der Bestellung... THIS.nOrderArt
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.Order()


Codeinformation




Order_CHG_Best() - Änderung Bestellen J/N

 Wird ausgeführt, wenn für eine Gruppe IP="BX/TX" die Information __best geändert wird.
Hilfeinformation

Wird ausgeführt, wenn für eine Gruppe IP="BX/TX" die Information __best geändert wird.
Aufrufinformation


Variant = My.Bussines.Ordering.OrderGet.Order_CHG_Best(tcAlias AS STRING,tlValue AS Boolean)
Variant = My.Bussines.Ordering.OrderGet.Order_CHG_Best(tcAlias,tlValue)


Codeinformation




Order_CHG_Price() - Preisänderung einer Varianten

 Wird ausgeführt, wenn eine Preisänderung erfolgt...
Hilfeinformation

Wird ausgeführt, wenn eine Preisänderung erfolgt...
Aufrufinformation


Variant = My.Bussines.Ordering.OrderGet.Order_CHG_Price(tcAlias AS STRING,tcField AS STRING,tvValue AS Variant)
Variant = My.Bussines.Ordering.OrderGet.Order_CHG_Price(tcAlias,tcField,tvValue)


Codeinformation




Order_CHG_St() - Mengenänderung einer Position

 Änderung der Staffel einer Bestellung
Hilfeinformation

Änderung der Staffel einer Bestellung
Aufrufinformation


Variant = My.Bussines.Ordering.OrderGet.Order_CHG_St(tcAlias AS STRING)
Variant = My.Bussines.Ordering.OrderGet.Order_CHG_St(tcAlias)


Codeinformation




Order_CHG_Stock() - dito.

 Bei Änderung der dispositiven Menge in qA?.q0i.
Hilfeinformation

Bei Änderung der dispositiven Menge in qA?.q0i.
Aufrufinformation


Variant = My.Bussines.Ordering.OrderGet.Order_CHG_Stock(tcAlias AS STRING,tcField AS STRING,tvValue AS Variant)
Variant = My.Bussines.Ordering.OrderGet.Order_CHG_Stock(tcAlias,tcField,tvValue)


Codeinformation




Order_Chg_Show() - Änderung der Anzeige

 Rückgabe:[Boolean], Ändert die Anzeige des Grid's qAb.
Hilfeinformation

Rückgabe:[Boolean], Ändert die Anzeige des Grid's qAb.
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.Order_Chg_Show()


Codeinformation




Order_New_Optimize() - Neue Bestelloptimierung durchführen

 Neu optimieren der Werte für gewählten Filter. Hier wurde VORHER qry11Best geändert!
Hilfeinformation

Neu optimieren der Werte für gewählten Filter. Hier wurde VORHER qry11Best geändert!
Aufrufinformation


Variant = My.Bussines.Ordering.OrderGet.Order_New_Optimize(tcFilter AS String)
Variant = My.Bussines.Ordering.OrderGet.Order_New_Optimize(tcFilter)


Codeinformation




SetArtOfOrder() - Art der Bestellung setzen

 Rückgabe:[Boolean], Kommt von Außen und definiert die Art der Order, die gesetzt wird. Siehe THIS.nOrderArt
Hilfeinformation

Rückgabe:[Boolean], Kommt von Außen und definiert die Art der Order, die gesetzt wird. Siehe THIS.nOrderArt
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.SetArtOfOrder()


Codeinformation




SetParameter() - Setzen der Übergabeparameter

 Rückgabe:[Boolean], Setzt die Parameter bei der Übergabe / Aufruf der Maske
Hilfeinformation

Rückgabe:[Boolean], Setzt die Parameter bei der Übergabe / Aufruf der Maske
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.SetParameter(tcP1 AS String)
Boolean = My.Bussines.Ordering.OrderGet.SetParameter(tcP1)


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


Integer = My.Bussines.Ordering.OrderGet._SqlCount(tcSql AS String)
Integer = My.Bussines.Ordering.OrderGet._SqlCount(tcSql)


Codeinformation


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


Boolean = My.Bussines.Ordering.OrderGet._SqlExist(tcSql AS String)
Boolean = My.Bussines.Ordering.OrderGet._SqlExist(tcSql)


Codeinformation


LOCAL lcSql AS String
lcSql = [SELECT ipy01 FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._SqlRead(tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String)
Variant = My.Bussines.Ordering.OrderGet._SqlRead(tcSql,tcAlias,tvTable,tcIndex)


Codeinformation


LOCAL lcSql AS String
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._SqlReadArray(tcSql AS String,toObject AS Object,taArray)
Variant = My.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._SqlReadCollection(tcSql AS String,tcIndex AS String)
Variant = My.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._SqlReadCollection(m.lcSql)
WAIT WINDOW loColl.GetKey(1)		&& "0000001"
*/ Hat der SQL einen eindeutigen Key so kann dieser benutzt werden!
loColl= My.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._SqlReadValue(tcSql AS String,tiValue AS Integer)
Variant = My.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._SqlUpdate(tcTable AS STRING,tcAlias AS STRING,tcIdName AS STRING,tcFilter AS String)
Variant = My.Bussines.Ordering.OrderGet._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.Bussines.Ordering.OrderGet._SqlRead(m.lcSql,"qB01",1)
	*/ Ändern der Daten...
	SELECT qB01
	REPLACE ALL match WITH "LEISTUNGSSCHALTER",__Changed WITH .T.
	tlUpdate = My.Bussines.Ordering.OrderGet._SqlUpdate("B01",ALIAS(),"IDB01")
	IF NOT m.tlUpdate
		WAIT WINDOW My.Bussines.Ordering.OrderGet.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.Bussines.Ordering.OrderGet._SqlUpdateAll(tcList AS STRING)
;Filter1 = My.Bussines.Ordering.OrderGet._SqlUpdateAll(tcList)


Codeinformation


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


_Script_OG_Best_1 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_1


Codeinformation




_Script_OG_Best_2 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_2


Codeinformation




_Script_OG_Best_31 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_31


Codeinformation




_Script_OG_Best_32 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_32


Codeinformation




_Script_OG_Best_33 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_33


Codeinformation




_Script_OG_Best_4 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_4


Codeinformation




_Script_OG_Best_5 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_5


Codeinformation




_Script_OG_Best_5A - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_5A


Codeinformation




_Script_OG_Best_5B - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_5B


Codeinformation




_Script_OG_Best_5C - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_5C


Codeinformation




_Script_OG_Best_5D - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_5D


Codeinformation




_Script_OG_Best_6 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_6


Codeinformation




_Script_OG_Best_7 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_7


Codeinformation




_Script_OG_Best_E1 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_E1


Codeinformation




_Script_OG_Best_E2 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_E2


Codeinformation




_Script_OG_Best_E3 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Best_E3


Codeinformation




_Script_OG_Order_Sql_0 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_0


Codeinformation




_Script_OG_Order_Sql_1 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_1


Codeinformation




_Script_OG_Order_Sql_11 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_11


Codeinformation




_Script_OG_Order_Sql_2 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_2


Codeinformation




_Script_OG_Order_Sql_3 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_3


Codeinformation




_Script_OG_Order_Sql_4 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_4


Codeinformation




_Script_OG_Order_Sql_5 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_5


Codeinformation




_Script_OG_Order_Sql_6 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_6


Codeinformation




_Script_OG_Order_Sql_7 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_7


Codeinformation




_Script_OG_Order_Sql_8 - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_8


Codeinformation




_Script_OG_Order_Sql_8A - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_8A


Codeinformation




_Script_OG_Order_Sql_A - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_A


Codeinformation




_Script_OG_Order_Sql_B - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_B


Codeinformation




_Script_OG_Order_Sql_CA - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_CA


Codeinformation




_Script_OG_Order_Sql_CB - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_CB


Codeinformation




_Script_OG_Order_Sql_D - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_D


Codeinformation




_Script_OG_Order_Sql_E - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_E


Codeinformation




_Script_OG_Order_Sql_F - Funktionen des Bestellwesens

 Script des Bestellvorschlags. Wird mit EXECSCRIPT() ausgrführt.
Hilfeinformation


Aufrufinformation


String = My.Bussines.Ordering.OrderGet._Script_OG_Order_Sql_F


Codeinformation




cIdC61 - Vorbelegung Lieferant

 Vorbelegung Lieferant, wenn "Erneute Datenübernahme" ansonsten leer
Hilfeinformation

Vorbelegung Lieferant, wenn "Erneute Datenübernahme" ansonsten leer
Aufrufinformation


String = My.Bussines.Ordering.OrderGet.cIdC61


Codeinformation




cIdC63 - Vorbelegung Kunde

 Vorbelegung Kunde, wenn "Erneute Datenübernahme" ansonsten leer
Hilfeinformation

Vorbelegung Kunde, wenn "Erneute Datenübernahme" ansonsten leer
Aufrufinformation


String = My.Bussines.Ordering.OrderGet.cIdC63


Codeinformation




cIdC63BK - Kundenspez. Bestellung

 Vorbelegung kundenspezifische Bestellkonditionen, wenn "Erneute Datenübernahme" ansonsten leer
Hilfeinformation

Vorbelegung kundenspezifische Bestellkonditionen, wenn "Erneute Datenübernahme" ansonsten leer
Aufrufinformation


String = My.Bussines.Ordering.OrderGet.cIdC63BK


Codeinformation




cIdD40 - Vorbelegung Bestellnummer

 Vorbelegung Bestellung, wenn "Erneute Datenübernahme" ansonsten leer
Hilfeinformation

Vorbelegung Bestellung, wenn "Erneute Datenübernahme" ansonsten leer
Aufrufinformation


String = My.Bussines.Ordering.OrderGet.cIdD40


Codeinformation




cIdk10BK - Projektspez. Bestellung

 Vorbelegung projektspezifische Bestellkonditionen, wenn "Erneute Datenübernahme" ansonsten leer
Hilfeinformation

Vorbelegung projektspezifische Bestellkonditionen, wenn "Erneute Datenübernahme" ansonsten leer
Aufrufinformation


String = My.Bussines.Ordering.OrderGet.cIdk10BK


Codeinformation




cIdx02 - Mandanten-ID

 Mandanten-ID. Diese ist in der Datei pms32.pth gespeichert und dient dort zur Zuordnung des Mandante und dessen Pfade.
Hilfeinformation

Mandanten-ID. Diese ist in der Datei pms32.pth gespeichert und dient dort zur Zuordnung des Mandante und dessen Pfade.
Auszug aus der Pfaddatei pms32.pth:

      */ Verzeichnis der Microcube - Dateien. Wenn leer dann gleich: cDbfdir
      cCubdir = ""
      */ Ein 'anderes' Dokumentenverzeichnis kann angegeben werden. Wenn nicht angegeben dann gleich: cDbfdir+'docs\'
      */ cDocDir = ""
      */ Verzeichnis der Mandantentabellen. Hier ein Beispiel mit UNC Pfaden.
      */ Wird die Freigabe auf dem Server 'versteckt' \pms$\ angegeben, so kann ein Cryptovirius das Verzeichnis nicht finden!
      cDbfdir = "\\server\pms$\pms32\daten\demo.32\"
      */ Verzeichnis der Reporttabellen
      */ Gibt man Bilddateien in einem Report mit My.Clients.Path.cFrxDir+'BILDNAME.JPG' an, so kann PMS32 einfach auf einen anderen Rechner kopiert werden!
      cFrxdir = "\\server\pms$\pms32\reports\demo.32\"
      */ Beschreibung des Mandanten
      cIcx02  = "TESTMANDANT DEMO"
      */ ID der Firmenparameter zum Mandant.
      cIdx09  = "DEMO"
      */ Kann unter der Mandanteninformation leer sein, wenn für mehrere Mandanten das 'gleiche' Systemverzeichnis gültig ist.
      cSysdir = ""
      */ Willkommens-Information als Hintergrundbild in PMS32
      cWelcome= "pms32.htm"
      */ Nummer des Mandanten, beim Einsatz eines BarcodeScanners sollte diese Nummer EINDEUTIG sein!
      nNumber = 1
<>
Aufrufinformation


String = My.Bussines.Ordering.OrderGet.cIdx02


Codeinformation


*/ Abfrage der Mandanten-ID
WAIT WINDOW My.Bussines.Ordering.OrderGet.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...


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.Bussines.Ordering.OrderGet.cLastError


Codeinformation


*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcError AS String
lcError = My.Bussines.Ordering.OrderGet.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.Bussines.Ordering.OrderGet.cMethod


Codeinformation


*/ Abruf...
WAIT WINDOW My.Bussines.Ordering.OrderGet.cMethod


fiC61h - Filter auf Hauptlieferant?

 Wert:[Boolean], Filter auf Hauptlieferant
Hilfeinformation

Wert:[Boolean], Filter auf Hauptlieferant
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiC61h


Codeinformation




fiDAgpl - Filter auf Datum?

 Wert:[Date], Filter auf "geplantes" Datum
Hilfeinformation

Wert:[Date], Filter auf "geplantes" Datum
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiDAgpl


Codeinformation




fiDAlast - Filter auf letztm. Datum?

 Wert:[Date], Filter auf "letzmögliches" Datum
Hilfeinformation

Wert:[Date], Filter auf "letzmögliches" Datum
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiDAlast


Codeinformation




fiIcb01 - Filter auf Artikel

 Wert:[String], Filter auf Artikel - IC - Artikelnummer
Hilfeinformation

Wert:[String], Filter auf Artikel - IC - Artikelnummer
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIcb01


Codeinformation




fiIcc61 - Filter auf Lieferant

 Wert:[String], Filter auf Lieferanten - IC
Hilfeinformation

Wert:[String], Filter auf Lieferanten - IC
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIcc61


Codeinformation




fiIcc63 - Filter auf Kunde

 Wert:[String], Filter auf Kunden - IC C63.MATCH
Hilfeinformation

Wert:[String], Filter auf Kunden - IC C63.MATCH
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIcc63


Codeinformation




fiIcc66 - Filter auf Ziellagerort

 Wert:[String], Filter auf Lagerort - IC - C66.MATCH
Hilfeinformation

Wert:[String], Filter auf Lagerort - IC - C66.MATCH
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIcc66


Codeinformation




fiIck10 - Filter auf Projekt

 Wert:[String], Filter auf Projekt - K10.PRJNR => ICK10
Hilfeinformation

Wert:[String], Filter auf Projekt - K10.PRJNR => ICK10
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIck10


Codeinformation




fiIcxxx - Filter auf Vorgang

 Wert:[String], Filter auf Vorgangs-IC aus Dispo
Hilfeinformation

Wert:[String], Filter auf Vorgangs-IC aus Dispo
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIcxxx


Codeinformation




fiIdb01 - Funktionen des Bestellwesens

 Wert:[String], Filter auf Artikel - ID
Hilfeinformation

Wert:[String], Filter auf Artikel - ID
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIdb01


Codeinformation




fiIdc61 - Funktionen des Bestellwesens

 Wert:[String], Filter auf Lieferanten - ID
Hilfeinformation

Wert:[String], Filter auf Lieferanten - ID
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIdc61


Codeinformation




fiIdc63 - Funktionen des Bestellwesens

 Wert:[String], Filter auf Kunden - ID
Hilfeinformation

Wert:[String], Filter auf Kunden - ID
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIdc63


Codeinformation




fiIdc66 - Funktionen des Bestellwesens

 Wert:[String], Filter auf Lagerort - ID
Hilfeinformation

Wert:[String], Filter auf Lagerort - ID
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIdc66


Codeinformation




fiIdk10 - Funktionen des Bestellwesens

 Wert:[String], Filter auf Projekt - IDK10
Hilfeinformation

Wert:[String], Filter auf Projekt - IDK10
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIdk10


Codeinformation




fiIdxxx - Funktionen des Bestellwesens

 Wert:[String], Filter auf Vorgangs-ID aus Dispo
Hilfeinformation

Wert:[String], Filter auf Vorgangs-ID aus Dispo
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIdxxx


Codeinformation




fiIpxxx - Funktionen des Bestellwesens

 Wert:[String], Filter auf Vorgangsart aus Dispo
Hilfeinformation

Wert:[String], Filter auf Vorgangsart aus Dispo
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.fiIpxxx


Codeinformation




lCalcBestAll - Nachträglich freie Konditionen prüfen

 BestOf Ermittlung nachträglich über Freie Konditionen durchführen. Bessere Freie Konditionen wie Kunden- und Projektkonditionen.
Hilfeinformation

BestOf Ermittlung nachträglich über Freie Konditionen durchführen. Bessere Freie Konditionen wie Kunden- und Projektkonditionen.
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lCalcBestAll


Codeinformation




lCalcBestC63 - Nachträglich Kundenkonditionen prüfen

 BestOf Ermittlung nachträglich über Kundenkonditionen durchführen. Bessere Kundenkonditionen wie Projektkonditionen.
Hilfeinformation

BestOf Ermittlung nachträglich über Kundenkonditionen durchführen. Bessere Kundenkonditionen wie Projektkonditionen.
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lCalcBestC63


Codeinformation




lChgCalcBest - Änderung erlaubt?

 Darf lCalcBestxxx geändert werden?
Hilfeinformation

Darf lCalcBestxxx geändert werden?
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lChgCalcBest


Codeinformation




lChgOrderArt - Ändern der Bestellart erlaubt?

 Darf nOrderArt geändert werden?
Hilfeinformation

Darf nOrderArt geändert werden?
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lChgOrderArt


Codeinformation




lErrCheck - Positionen auf Vollständigkeit prüfen?

 Wert:[Boolean], Fehlerermittlung wird aktiviert. Wird auch in Filtermasken dargestellt.
Hilfeinformation

Wert:[Boolean], Fehlerermittlung wird aktiviert. Wird auch in Filtermasken dargestellt.
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lErrCheck


Codeinformation




lErrors - Fehlerhafte Daten vorhanden?

 Es sind fehlerhafte Datensätze vorhanden... Siehe Tabelle qECheck
Hilfeinformation

Es sind fehlerhafte Datensätze vorhanden... Siehe Tabelle qECheck
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lErrors


Codeinformation




lNewBest - Neue Bestellung(en) erzeugen?

 Soll eine neue Bestellung erzeugt werden?
Hilfeinformation

Soll eine neue Bestellung erzeugt werden?
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lNewBest


Codeinformation




lOrder001 - Normale Bestellung?

 Wert:[Boolean], Es kann eine "Normale" Bestellung erstellt werden. Siehe THIS.GetArtOfOrder()
Hilfeinformation

Wert:[Boolean], Es kann eine "Normale" Bestellung erstellt werden. Siehe THIS.GetArtOfOrder()
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lOrder001


Codeinformation




lOrder005 - Kunden Bestellung (Beistellung)?

 Wert:[Boolean], Es kann eine "Beistellung" Bestellung erstellt werden. Siehe THIS.GetArtOfOrder()
Hilfeinformation

Wert:[Boolean], Es kann eine "Beistellung" Bestellung erstellt werden. Siehe THIS.GetArtOfOrder()
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lOrder005


Codeinformation




lOrder006 - Fremdbearbeitung?

 Wert:[Boolean], Es kann eine "Fremdbearbeitungs" Bestellung erzeugt werden.
Hilfeinformation

Wert:[Boolean], Es kann eine "Fremdbearbeitungs" Bestellung erzeugt werden.
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lOrder006


Codeinformation




lOrder010 - Reparaturbestellung?

 Wert:[Boolean], Es kann eine "Reparatur" Bestellung erstellt werden. Siehe THIS.GetArtOfOrder()
Hilfeinformation

Wert:[Boolean], Es kann eine "Reparatur" Bestellung erstellt werden. Siehe THIS.GetArtOfOrder()
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lOrder010


Codeinformation




lReset - Reset durchführen

 Führt einen Reset in der Klasse durch
Hilfeinformation

Führt einen Reset in der Klasse durch
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lReset


Codeinformation


My.Bussines.Ordering.OrderGet.lReset = .T.


lSetInD03 - Preisdaten in Stamm aktualisieren?

 Preisänderung in D03 nachführen...
Hilfeinformation

Preisänderung in D03 nachführen...
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lSetInD03


Codeinformation




lShowD4002a - Filterform anzeigen?

 Wert:[Boolean], Anzeige der Form D4002A.SCX für die Ermittlung der ART der Bestellung
Hilfeinformation

Wert:[Boolean], Anzeige der Form D4002A.SCX für die Ermittlung der ART der Bestellung
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lShowD4002a


Codeinformation




lShowD4005 - Filtermaske anzeigen?

 Filtermaske - D4005 anzeigen?
Hilfeinformation

Filtermaske - D4005 anzeigen?
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lShowD4005


Codeinformation




lShowThermos - Thermosanzeige

 Thermosanzeige bei der Ausführung
Hilfeinformation

Thermosanzeige bei der Ausführung
Aufrufinformation


Boolean = My.Bussines.Ordering.OrderGet.lShowThermos


Codeinformation


My.Bussines.Ordering.OrderGet.lShowThermos = .T.


nDALast - Behandlung des Bestelltermins

 Wert:[Integer], Wie wird der Letztmögliche Bestelltermin (Filter fiDAlast) behandelt?
Hilfeinformation

Wert:[Integer], Wie wird der Letztmögliche Bestelltermin (Filter fiDAlast) behandelt?
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nDALast


Codeinformation




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.Bussines.Ordering.OrderGet.nError


Codeinformation


WAIT WINDOW My.Bussines.Ordering.OrderGet.nError


nLine - Zeilennummer d. Fehlers

 Zeilennummer, in der der letzte Fehler auftrat
Hilfeinformation

Zeilennummer, in der der letzte Fehler auftrat
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nLine


Codeinformation


WAIT WINDOW My.Bussines.Ordering.OrderGet.nLine


nOrder000 - Gesperrte Datensätze in I19

 Anzahl der durch andere Benutzer gesperrte Datensätze in I19
Hilfeinformation

Anzahl der durch andere Benutzer gesperrte Datensätze in I19
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nOrder000


Codeinformation




nOrder001 - Anzahl der I19 Sätze für Bestellung

 Anzahl der Informationen aus I19 - Siehe THIS._GetArtOfOrder()
Hilfeinformation

Anzahl der Informationen aus I19 - Siehe THIS._GetArtOfOrder()
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nOrder001


Codeinformation




nOrder005 - Anzahl der I19 Sätze für Beistellung

 Anzahl der Informationen aus I19 - Siehe THIS._GetArtOfOrder()
Hilfeinformation

Anzahl der Informationen aus I19 - Siehe THIS._GetArtOfOrder()
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nOrder005


Codeinformation




nOrder006 - Anzahl der I19 Sätze für Fremdbearbeitung

 Anzahl der Informationen aus I19 - Siehe THIS._GetArtOfOrder()
Hilfeinformation

Anzahl der Informationen aus I19 - Siehe THIS._GetArtOfOrder()
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nOrder006


Codeinformation




nOrder010 - Anzahl der I19 Sätze für Reparaturbestellung

 Anzahl der Informationen aus I19 - Siehe THIS._GetArtOfOrder()
Hilfeinformation

Anzahl der Informationen aus I19 - Siehe THIS._GetArtOfOrder()
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nOrder010


Codeinformation




nOrderArt - Art der Bestellung

 Wert:[Integer], Enthält die Art der Bestellung. 1 - Normal, 2 - Beistellung, 3 - Reparatur, 4- Verlängerte Werkbank, 5 - Abbruch
Hilfeinformation

Wert:[Integer], Enthält die Art der Bestellung. 1 - Normal, 2 - Beistellung, 3 - Reparatur, 4- Verlängerte Werkbank, 5 - Abbruch
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nOrderArt


Codeinformation




nRecords - Verarbeitete Datensätze

 Verarbeitete Datensätze
Hilfeinformation

Verarbeitete Datensätze
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nRecords


Codeinformation


WAIT WINDOW My.Bussines.Ordering.OrderGet.nRecords


nSeconds - Ausführungszeit

 Ausführungszeit in Sekunden
Hilfeinformation

Ausführungszeit in Sekunden
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nSeconds


Codeinformation


WAIT WINDOW My.Bussines.Ordering.OrderGet.nSeconds


nStatus - Status der Ausführung

 Status der Ausführung
Hilfeinformation

Status der Ausführung
Aufrufinformation


Number = My.Bussines.Ordering.OrderGet.nStatus


Codeinformation


WAIT WINDOW My.Bussines.Ordering.OrderGet.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.Bussines.Ordering.OrderGet.oSelected


Codeinformation


LOCAL loSelected AS My_Fu_Selected
loSelected = My.Bussines.Ordering.OrderGet.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.Bussines.Ordering.OrderGet.oThermos


Codeinformation


LOCAL loThermos AS My_Sy_Thermos
*/ Instanziieren
loThermos = My.Bussines.Ordering.OrderGet.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


uFilter - Filter für I19

 Gibt den Filter auf den Benutzer der Daten in I19 zurück
Hilfeinformation

Gibt den Filter auf den Benutzer der Daten in I19 zurück
Aufrufinformation


U = My.Bussines.Ordering.OrderGet.uFilter


Codeinformation




xCaption - Ermitteln der Überschriften für Auswahl

 Ermitteln der Caption für die Filtergrid's aus Dialoge
Hilfeinformation

Ermitteln der Caption für die Filtergrid's aus Dialoge
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xCaption


Codeinformation




xFiDAgpl - Funktionen des Bestellwesens

 Abruf der SQL Informationen für Filtermöglichkeiten. Hier "geplantes Datum" - Ohne Anzeige!
Hilfeinformation

Abruf der SQL Informationen für Filtermöglichkeiten. Hier "geplantes Datum" - Ohne Anzeige!
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFiDAgpl


Codeinformation




xFiIcb01 - Funktionen des Bestellwesens

 Abruf der SQL Informationen für Filtermöglichkeiten. Hier B01
Hilfeinformation

Abruf der SQL Informationen für Filtermöglichkeiten. Hier B01
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFiIcb01


Codeinformation




xFiIcc61 - Funktionen des Bestellwesens

 Abruf der SQL Informationen für Filtermöglichkeiten. Hier C61
Hilfeinformation

Abruf der SQL Informationen für Filtermöglichkeiten. Hier C61
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFiIcc61


Codeinformation




xFiIcc63 - Funktionen des Bestellwesens

 Abruf der SQL Informationen für Filtermöglichkeiten. Hier C63
Hilfeinformation

Abruf der SQL Informationen für Filtermöglichkeiten. Hier C63
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFiIcc63


Codeinformation




xFiIcc66 - Funktionen des Bestellwesens

 Abruf der SQL Informationen für Filtermöglichkeiten. Hier C66
Hilfeinformation

Abruf der SQL Informationen für Filtermöglichkeiten. Hier C66
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFiIcc66


Codeinformation




xFiIck10 - Funktionen des Bestellwesens

 Abruf der SQL Informationen für Filtermöglichkeiten. Hier K10
Hilfeinformation

Abruf der SQL Informationen für Filtermöglichkeiten. Hier K10
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFiIck10


Codeinformation




xFiIcxxx - Funktionen des Bestellwesens

 Abruf der SQL Informationen für Filtermöglichkeiten. Hier Anforderer
Hilfeinformation

Abruf der SQL Informationen für Filtermöglichkeiten. Hier Anforderer
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFiIcxxx


Codeinformation




xFilter - Funktionen des Bestellwesens

 Vorfilter auf bestimmte "schon gesetzte" Werte
Hilfeinformation

Vorfilter auf bestimmte "schon gesetzte" Werte
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFilter


Codeinformation




xFilterI19 - Funktionen des Bestellwesens

 Gibt die Filterbedingung für die Tabelle I19 zurück. Siehe auch xFilterI19Caption
Hilfeinformation

Gibt die Filterbedingung für die Tabelle I19 zurück. Siehe auch xFilterI19Caption
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFilterI19


Codeinformation




xFilterI19Caption - Funktionen des Bestellwesens

 Gibt die Filterbedingung für die Tabelle I19 zurück. Siehe auch xFilterI19Caption
Hilfeinformation

Gibt die Filterbedingung für die Tabelle I19 zurück. Siehe auch xFilterI19Caption
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xFilterI19Caption


Codeinformation




xOrderArt - Funktionen des Bestellwesens

 Gibt die Art der Bestellmöglichkeit zurück. Gibt die ERSTE mögliche zurück
Hilfeinformation

Gibt die Art der Bestellmöglichkeit zurück. Gibt die ERSTE mögliche zurück
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xOrderArt


Codeinformation




xOrderCount - Funktionen des Bestellwesens

 Gibt die Anzahl der Bestellmöglichkeiten zurück
Hilfeinformation

Gibt die Anzahl der Bestellmöglichkeiten zurück
Aufrufinformation


X = My.Bussines.Ordering.OrderGet.xOrderCount


Codeinformation







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 PMS32 - Hilfe






Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022 

Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS32 
Weitere Informationen finden Sie unter der aktuellen 
PMS32 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