PMS32 Online- Hilfereferenz

MY.BUSSINES.CALCULATION.ROHSTOFF

Rohstoff - Rohstoffberechnung für Verkauf und Einkauf


Hilfe: Rohstoffberechnung
Rohstoffberechnung für Verkauf  und Einkauf


Code: Rohstoffberechnung


Memberliste von Rohstoff


Liste der Methoden von Rohstoff


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.Calculation.Rohstoff.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.Calculation.Rohstoff.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.Calculation.Rohstoff.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.Calculation.Rohstoff.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.Calculation.Rohstoff.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.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.ExecScriptP(tcScript AS STRING,toPara AS COLLECTION)
Variant = My.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.GetParametersCount(m.lni,m.tp1,m.tp2,m.tp3)
WAIT WINDOW m.loCollection.Count		&& Anzahl der Werte (?)

RSEinkauf() - Rohstoff für Einkauf berechnen

Rückgabe:[Number], Berechnen des Rohstoffzuschlags für den Einkauf
Hilfeinformation
Rückgabe:[Number], Berechnen des Rohstoffzuschlags für den Einkauf.
Gibt den Rohstoffzuschlag in der Währung des Einkaufs (Lieferant) zurück

Aufrufinformation
Number = My.Bussines.Calculation.Rohstoff.RSEinkauf(tcIdd03 AS STRING,tnMenge AS NUMBER,tcAlias AS STRING)
Number = My.Bussines.Calculation.Rohstoff.RSEinkauf(tcIdd03,tnMenge,tcAlias)
Codeinformation
*tcIdd03 AS STRING,tnMenge AS NUMBER,tcAlias AS STRING
LOCAL lcIdd03 AS String, lnMenge AS Number, lnRZuschlag AS Variant
lcIdd03 = ""	&& Hier muss D03.IDD03 angegeben werden
lnMenge = 1		&& Menge in EK-Einheiten
*/ Der Zuschlag wird in der Währung des Lieferanten zurückgegeben
lnRZuschlag = My.Bussines.Calculation.Rohstoff.RSEinkauf(m.lcIdd03,m.lnMenge)

*/ Wenn ein Cursor besteht:
SELECT ;
	d03.Idd03				AS ID,;
	CAST("1" AS C(8))		AS _id,;
	CAST(m.lnMenge*d03.meekuf AS B(3))	AS menge1,;
	d03.idb01 AS idb01s,d03.idc61,;
	CAST(d03.ekpreis/c03.faktor*c03.kurs AS B(6))	AS ekbr,;
	CAST(d03.ekpreis/c03.faktor*c03.kurs*(1-d03.rabatt/100)*(1-d03.rabatt1/100) AS B(6))	AS eknet,;
	d03.meekuf	AS ufla,;
	b01.artnr AS icb01s,;
	b01.is_sl ,;
	d03.peek ;
	FROM d03 , c61 , c03 , b01 ;
	WHERE d03.idd03 = m.lcIdd03 AND d03.idc61 == c61.idc61 AND c61.idc03 = c03.idc03 AND d03.idb01 = b01.idb01 ;
	INTO CURSOR qEde NOFILTER READWRITE
*/ Dann enhält lnRZuschlag den ALIAS des Ausgabe-Cursors!
lnRZuschlag = My.Bussines.Calculation.Rohstoff.RSEinkauf(.NULL.,1,"qEde")
*/ Der angegebene Cursor enthält die Spalten: idd03 [C] und summe [N]

RSEinkauf2() - Rohstoff für Einkauf berechnen

Rückgabe:[Number], Berechnen des Rohstoffzuschlags für den Einkauf
Hilfeinformation
Berechnen des Rohstoffzuschlags für den Einkauf.
Hier wird der Lieferant angegeben!

Aufrufinformation
Number = My.Bussines.Calculation.Rohstoff.RSEinkauf2(tcIdb01 AS STRING,tcIdc61 AS STRING,tnMenge AS NUMBER,tcIdk10 AS STRING,tcIdc63 AS STRING)
Number = My.Bussines.Calculation.Rohstoff.RSEinkauf2(tcIdb01,tcIdc61,tnMenge,tcIdk10,tcIdc63)
Codeinformation
LOCAL lcIdb01 AS STRING,lcIdc61 AS STRING,lnMenge AS NUMBER,lnRZuschlag AS NUMBER
lcIdb01 = ""	&& Hier muss B01.IDB01 angegeben werden
lcIdc61 = ""	&& Hier muss C61.IDC61 angegeben werden
lnMenge = 1
*/ Rohstoffzuschlag in der Währung des Lieferanten
lnRZuschlag = My.Bussines.Calculation.Rohstoff.RSEinkauf2(m.lcIdb01,m.lcIdc61,m.lnMenge)

RSEinkaufShort() - Wie RSEinkauf jedoch die Short-Version

Rückgabe:[String], Wie RSEinkauf jedoch die Short-Version. Im End-Cursor wird lediglich Summe und IDD03 benötigt!
Hilfeinformation

Aufrufinformation
String = My.Bussines.Calculation.Rohstoff.RSEinkaufShort(tcAlias AS STRING)
String = My.Bussines.Calculation.Rohstoff.RSEinkaufShort(tcAlias)
Codeinformation


RSVerkauf() - Rohstoff für Verkauf berechnen

Rückgabe:[Number], Berechnen des Rohstoffzuschlags in Firmenwährung für den Verkauf
Hilfeinformation
Berechnen des Rohstoffzuschlags in Firmenwährung für den Verkauf

Aufrufinformation
Number = My.Bussines.Calculation.Rohstoff.RSVerkauf(tcIdb01 AS STRING,tcIdc61 AS STRING,tnMenge AS NUMBER,tcC98 AS STRING,tcWB AS STRING)
Number = My.Bussines.Calculation.Rohstoff.RSVerkauf(tcIdb01,tcIdc61,tnMenge,tcC98,tcWB)
Codeinformation
LOCAL lcIdb01 AS STRING,lcIdc61 AS STRING,lnMenge AS NUMBER,lcC98 AS STRING,lnRZuschlag AS NUMBER
lcIdb01 = ""	&& Hier muss B01.IDB01 angegeben werden
lcIdc61 = ""	&& Hier muss C61.IDC61 angegeben werden
lnMenge = 1
*/ Rohstoffzuschlag in Firmenwährung
lnRZuschlag = My.Bussines.Calculation.Rohstoff.RSVerkauf(m.lcIdb01,m.lcIdc61,m.lnMenge,My.CLients.Path.cDbfDir+'C98.DBF')
*/ Der vierte Parameter enthält entweder eine Tabellenangabe oder einen ALIAS eines Cursors der Tabelle C98...

SWEinkauf() - Anzeige der Edelmetallwerte im Einkauf

Anzeige der Edelmetallwerte im Einkauf
Hilfeinformation
Anzeige der Edelmetallwerte im Einkauf.
Diese Methode erstellt eine Tabelle / Cursor für die Anzeige

Aufrufinformation
Variant = My.Bussines.Calculation.Rohstoff.SWEinkauf(tcIdd03 AS STRING,tnMenge AS Number,tcAlias AS STRING)
Variant = My.Bussines.Calculation.Rohstoff.SWEinkauf(tcIdd03,tnMenge,tcAlias)
Codeinformation
LOCAL lcIdd03 AS STRING,lnMenge AS Number,lcAlias AS STRING
lcIdd03 = ""	&& Hier muss D03.IDD03 angegeben werden
lnMenge = 1		&& Menge in EK-Einheiten
*/ Rückgabe ist der Name des Cursors oder LEER!
lcAlias = My.Bussines.Calculation.Rohstoff.SWEinkauf(m.lcIdd03,m.lnMenge)

SWVerkauf() - Anzeige der Edelmetallwerte im Verkauf

Erstellen eines Cursors mit Edelmetalldaten für den Verkauf
Hilfeinformation
Erstellen eines Cursors mit Edelmetalldaten für den Verkauf.

Aufrufinformation
Variant = My.Bussines.Calculation.Rohstoff.SWVerkauf(tcIdb01 AS STRING,tcIdc61 AS STRING,tnMenge AS NUMBER,tcC98 AS STRING,tlIssl AS Boolean)
Variant = My.Bussines.Calculation.Rohstoff.SWVerkauf(tcIdb01,tcIdc61,tnMenge,tcC98,tlIssl)
Codeinformation
LOCAL lcIdb01 AS STRING,lcIdc61 AS STRING,lnMenge AS NUMBER,llIssl AS Boolean,lcAlias AS STRING
lcIdb01 = ""	&& Hier muss B01.IDB01 angegeben werden
lcIdc61 = ""	&& Hier muss C61.IDC61 angegeben werden
lnMenge = 1
*/ Rückgabe ist der Name des Cursors oder LEER!
lcAlias = My.Bussines.Calculation.Rohstoff.SWVerkauf(m.lcIdb01,m.lcIdc61,m.lnMenge,My.CLients.Path.cDbfDir+'C98.DBF',B01.IS_SL)

SWVorgang() - Anzeige der Edelmetallwerte im Vorgang

Edelmetallwerte des Vorgangs anzeigen
Hilfeinformation
Edelmetallwerte des Vorgangs anzeigen.
Die Abfrage wird über einen Cursor gesteuert!

Aufrufinformation
Variant = My.Bussines.Calculation.Rohstoff.SWVorgang(tcSqlE11 AS STRING,tcC98 AS STRING)
Variant = My.Bussines.Calculation.Rohstoff.SWVorgang(tcSqlE11,tcC98)
Codeinformation
LOCAL lcSqlE11 AS STRING,lcAlias AS STRING
*/ lcSqlE11 enthält Daten der Tabelle E11, im zweiten Parameter wird wieder die C98 angegeben!

*/ Mindestanforderung an den Cursor...
SELECT ;
	e11.idb01 AS idb01 ,;
	e11.idb01 AS idb01k ,;
	e12.vkrech ,;
	1 AS stufe ,;
	IIF(e12.vkrech=1,e12.mevkuf,e12.meekuf) * e11.mgb AS mgKal ;
	FROM e11 , e12 ;
	WHERE e11.ide12 = e12.ide12 AND e11.ide10 = "" ;
	INTO CURSOR qSqlE11 NOFILTER
lcSqlE11 = ALIAS()

lcAlias = My.Bussines.Calculation.Rohstoff.SWVorgang(m.lcSqlE11,,My.CLients.Path.cDbfDir+'C98.DBF')

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.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.SetParameters(m.loCollection,@lnVar1,@lnVar2)
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2

_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.Bussines.Calculation.Rohstoff._SqlCount(tcSql AS String)
Variant = My.Bussines.Calculation.Rohstoff._SqlCount(tcSql)
Codeinformation
LOCAL lcSql AS String
lcSql = [SELECT COUNT(*) FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Bussines.Calculation.Rohstoff._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.Bussines.Calculation.Rohstoff._SqlExist(tcSql AS String)
Variant = My.Bussines.Calculation.Rohstoff._SqlExist(tcSql)
Codeinformation
LOCAL lcSql AS String
lcSql = [SELECT ipy01 FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Bussines.Calculation.Rohstoff._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.Calculation.Rohstoff._SqlRead(tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String)
Variant = My.Bussines.Calculation.Rohstoff._SqlRead(tcSql,tcAlias,tvTable,tcIndex)
Codeinformation
LOCAL lcSql AS String
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
IF My.Bussines.Calculation.Rohstoff._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.Calculation.Rohstoff._SqlReadArray(tcSql AS String,toObject AS Object,taArray)
Variant = My.Bussines.Calculation.Rohstoff._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.Calculation.Rohstoff._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.Calculation.Rohstoff._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.Calculation.Rohstoff._SqlReadCollection(tcSql AS String,tcIndex AS String)
Variant = My.Bussines.Calculation.Rohstoff._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.Calculation.Rohstoff._SqlReadCollection(m.lcSql)
WAIT WINDOW loColl.GetKey(1)		&& "0000001"
*/ Hat der SQL einen eindeutigen Key so kann dieser benutzt werden!
loColl= My.Bussines.Calculation.Rohstoff._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.Calculation.Rohstoff._SqlReadValue(tcSql AS String,tiValue AS Integer)
Variant = My.Bussines.Calculation.Rohstoff._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.Calculation.Rohstoff._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.Calculation.Rohstoff._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.Calculation.Rohstoff._SqlUpdate(tcTable AS STRING,tcAlias AS STRING,tcIdName AS STRING,tcFilter AS String)
Variant = My.Bussines.Calculation.Rohstoff._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.Calculation.Rohstoff._SqlRead(m.lcSql,"qB01",1)
	*/ Ändern der Daten...
	SELECT qB01
	REPLACE ALL match WITH "LEISTUNGSSCHALTER",__Changed WITH .T.
	tlUpdate = My.Bussines.Calculation.Rohstoff._SqlUpdate("B01",ALIAS(),"IDB01")
	IF NOT m.tlUpdate
		WAIT WINDOW My.Bussines.Calculation.Rohstoff.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.Calculation.Rohstoff._SqlUpdateAll(tcList AS STRING)
;Filter1 = My.Bussines.Calculation.Rohstoff._SqlUpdateAll(tcList)
Codeinformation
LOCAL tlUpdate AS Boolean
*/ Lesen der Daten vom Backend
IF My.Bussines.Calculation.Rohstoff._SqlRead([SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH'],"qB01",1) AND ;
	My.Bussines.Calculation.Rohstoff._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.Calculation.Rohstoff._SqlUpdateAll("B01;QB01;IDB01#D03;QD03;IDD03")
	IF NOT m.tlUpdate
		WAIT WINDOW My.Bussines.Calculation.Rohstoff.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 Rohstoff


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.Calculation.Rohstoff.cLastError
Codeinformation
*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcError AS String
lcError = My.Bussines.Calculation.Rohstoff.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.Calculation.Rohstoff.cMethod
Codeinformation
*/ Abruf...
WAIT WINDOW My.Bussines.Calculation.Rohstoff.cMethod

lShowThermos - Thermosanzeige

Thermosanzeige bei der Ausführung
Hilfeinformation
Thermosanzeige bei der Ausführung

Aufrufinformation
Boolean = My.Bussines.Calculation.Rohstoff.lShowThermos
Codeinformation
My.Bussines.Calculation.Rohstoff.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.Bussines.Calculation.Rohstoff.nError
Codeinformation
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nError

nLine - Zeilennummer d. Fehlers

Zeilennummer, in der der letzte Fehler auftrat
Hilfeinformation
Zeilennummer, in der der letzte Fehler auftrat

Aufrufinformation
Number = My.Bussines.Calculation.Rohstoff.nLine
Codeinformation
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nLine

nRecords - Verarbeitete Datensätze

Verarbeitete Datensätze
Hilfeinformation
Verarbeitete Datensätze

Aufrufinformation
Number = My.Bussines.Calculation.Rohstoff.nRecords
Codeinformation
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nRecords

nSeconds - Ausführungszeit

Ausführungszeit in Sekunden
Hilfeinformation
Ausführungszeit in Sekunden

Aufrufinformation
Number = My.Bussines.Calculation.Rohstoff.nSeconds
Codeinformation
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nSeconds

nStatus - Status der Ausführung

Status der Ausführung
Hilfeinformation
Status der Ausführung

Aufrufinformation
Number = My.Bussines.Calculation.Rohstoff.nStatus
Codeinformation
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nStatus

oRSEK - Gibt ein Objekt mit Rohstoffdaten des EK's zurück

Wert:[Object], Rückgabe eines Objektes mit den EK-Rohstoffdaten
Hilfeinformation
Rückgabe ist ein Objekt mit Rohstoffdaten:
oObject = My.Bussines.Calculation.Rohstoff.oRSEK[...]
Objektaufbau:
idc03ek      C[4]      = Währung des Lieferanten
idc03lg      C[4]      = Währung des Lagers (Firmenwährung)
idc03vk      C[4]      = Währung des Verkaufs / Firmenwährung
mgek            B[3]      = Menge in EK - Einheiten
mglg            B[3]      = Menge in Lagereinheiten
mgvk            B[3]      = Menge in VK - Einheiten
gwek            B[4]      = Gewicht in kg / EK - Einheit
gwlg            B[4]      = Gewicht in kg / LG - Einheit
gwvk            B[4]      = Gewicht in kg / VK - Einheit
prek            B[6]      = Rohstoffzuschlag in der Währung des Lieferanten / EK - Einheit
prlg            B[6]      = Rohstoffzuschlag in der Firmenwährung / LG - Einheit
prvk            B[6]      = Rohstoffzuschlag in der Währung des Kunden / VK - Einheit
Anmerkung:
Bei der Abfrage ...oRSEK[] sind Lagereinheiten und VK-Einheiten identisch!

Aufrufinformation
Object = My.Bussines.Calculation.Rohstoff.oRSEK[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Calculation.Rohstoff.oRSEK[tcIndex1|,tiIndex1,tiIndex2]
Codeinformation
*/ Beispiele:
*/ Das Objekt oRSEK[] kann mit verschiedenen Parametern aufgerufen werden...
LOCAL loRSEK AS Object

*/ Abruf durch Angabe der ID der Einkaufsdaten
loRSEK = My.Bussines.Calculation.Rohstoff.oRSEK['IDD03']
*/ Abruf durch Angabe der ID der Einkaufsdaten gefiltert auf einen Rohstoff
loRSEK = My.Bussines.Calculation.Rohstoff.oRSEK['IDD03'+'IDC98']
*/ Abruf durch Angabe der IDB01+IDC61 der Einkaufsdaten
loRSEK = My.Bussines.Calculation.Rohstoff.oRSEK['@'+'IDB01'+'IDC61']
*/ Abruf durch Angabe der IDB01+IDC61 der Einkaufsdaten gefiltert auf einen Rohstoff
loRSEK = My.Bussines.Calculation.Rohstoff.oRSEK['@'+'IDB01'+'IDC61'+'IDC98']

oRSVG - Gibt ein Objekt mit Rohstoffdaten des Vorgangs zurück

Wert:[Object], Rückgabe eines Objektes mit den VK-Rohstoffdaten
Hilfeinformation
Rückgabe ist ein Objekt mit Rohstoffdaten:
oObject = My.Bussines.Calculation.Rohstoff.oRSEK[...]
Objektaufbau:
idc03ek      C[4]      = Währung des Lieferanten
idc03lg      C[4]      = Währung des Lagers (Firmenwährung)
idc03vk      C[4]      = Währung des Verkaufs / Firmenwährung
mgek            B[3]      = Menge in EK - Einheiten
mglg            B[3]      = Menge in Lagereinheiten
mgvk            B[3]      = Menge in VK - Einheiten
gwek            B[4]      = Gewicht in kg / EK - Einheit
gwlg            B[4]      = Gewicht in kg / LG - Einheit
gwvk            B[4]      = Gewicht in kg / VK - Einheit
prek            B[6]      = Rohstoffzuschlag in der Währung des Lieferanten / EK - Einheit
prlg            B[6]      = Rohstoffzuschlag in der Firmenwährung / LG - Einheit
prvk            B[6]      = Rohstoffzuschlag in der Währung des Kunden / VK - Einheit
Anmerkung:
Bei der Abfrage ...oRSEK[] sind Lagereinheiten und VK-Einheiten identisch!

Aufrufinformation
Object = My.Bussines.Calculation.Rohstoff.oRSVG[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Calculation.Rohstoff.oRSVG[tcIndex1|,tiIndex1,tiIndex2]
Codeinformation
*/ Beispiele:
*/ Das Objekt oRSVG[] kann mit verschiedenen Parametern aufgerufen werden...
LOCAL loRSVG AS Object

*/ Abruf durch Angabe der IDE11 der Vorgangsposition
loRSVG = My.Bussines.Calculation.Rohstoff.oRSVG['IDE11']
*/ Abruf durch Angabe der IDE11 der Vorgangsposition gefiltert auf einen Rohstoff
loRSVG = My.Bussines.Calculation.Rohstoff.oRSVG['IDE11'+'IDC98']
*/ Abruf durch Angabe der IDE10 des Vorgangskopfes
loRSVG = My.Bussines.Calculation.Rohstoff.oRSVG['@'+'IDE10']
*/ Abruf durch Angabe der IDE10 des Vorgangskopfes gefiltert auf einen Rohstoff
loRSVG = My.Bussines.Calculation.Rohstoff.oRSVG['@'+'IDE10'+'IDC98']

oRSVK - Gibt ein Objekt mit Rohstoffdaten des Verkaufs zurück

Wert:[Object], Rückgabe eines Objektes mit den VK-Stamm-Rohstoffdaten
Hilfeinformation
Rückgabe ist ein Objekt mit Rohstoffdaten:
oObject = My.Bussines.Calculation.Rohstoff.oRSEK[...]
Objektaufbau:
idc03ek      C[4]      = Währung des Lieferanten
idc03lg      C[4]      = Währung des Lagers (Firmenwährung)
idc03vk      C[4]      = Währung des Verkaufs / Firmenwährung
mgek            B[3]      = Menge in EK - Einheiten
mglg            B[3]      = Menge in Lagereinheiten
mgvk            B[3]      = Menge in VK - Einheiten
gwek            B[4]      = Gewicht in kg / EK - Einheit
gwlg            B[4]      = Gewicht in kg / LG - Einheit
gwvk            B[4]      = Gewicht in kg / VK - Einheit
prek            B[6]      = Rohstoffzuschlag in der Währung des Lieferanten / EK - Einheit
prlg            B[6]      = Rohstoffzuschlag in der Firmenwährung / LG - Einheit
prvk            B[6]      = Rohstoffzuschlag in der Währung des Kunden / VK - Einheit
Anmerkung:
Bei der Abfrage ...oRSEK[] sind Lagereinheiten und VK-Einheiten identisch!

Aufrufinformation
Object = My.Bussines.Calculation.Rohstoff.oRSVK[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Calculation.Rohstoff.oRSVK[tcIndex1|,tiIndex1,tiIndex2]
Codeinformation
*/ Beispiele:
*/ Das Objekt oRSVK[] kann mit verschiedenen Parametern aufgerufen werden...
LOCAL loRSVK AS Object

*/ Abruf durch Angabe der ID der Verkaufsdaten
loRSVK = My.Bussines.Calculation.Rohstoff.oRSVK['IDD04']
*/ Abruf durch Angabe der ID der Verkaufsdaten gefiltert auf einen Rohstoff
loRSVK = My.Bussines.Calculation.Rohstoff.oRSVK['IDD04'+'IDC98']
*/ Abruf durch Angabe der IDB01+IDC63 der Verkaufsdaten
loRSVK = My.Bussines.Calculation.Rohstoff.oRSVK['@'+'IDB01'+'IDC63']
*/ Abruf durch Angabe der IDB01+IDC63 der Verkaufsdaten gefiltert auf einen Rohstoff
loRSVK = My.Bussines.Calculation.Rohstoff.oRSVK['@'+'IDB01'+'IDC63'+'IDC98']

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.Calculation.Rohstoff.oSelected
Codeinformation
LOCAL loSelected AS My_Fu_Selected
loSelected = My.Bussines.Calculation.Rohstoff.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.Calculation.Rohstoff.oThermos
Codeinformation
LOCAL loThermos AS My_Sy_Thermos
*/ Instanziieren
loThermos = My.Bussines.Calculation.Rohstoff.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 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