PMS32 Online- Hilfereferenz
Rohstoff - Rohstoffberechnung für Verkauf und Einkauf
Rohstoffberechnung für Verkauf und Einkauf
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().
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)
*/ 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
Ausführen eines VFP-Scripts incl. der Prüfung, ob ein ALIAS besteht.
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)
*/ 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
Ausführen eines VFP-Scripts incl. PARAMETER (Collection)
Als Parameter wird eine Collection mit Informationen übergeben!
Variant = My.Bussines.Calculation.Rohstoff.ExecScriptP(tcScript AS STRING,toPara AS COLLECTION) Variant = My.Bussines.Calculation.Rohstoff.ExecScriptP(tcScript,toPara)
*/ Mit EXECSCRIPTP kann ein VFP-Script ausgeführt werden LOCAL lcScript AS String,lnVar AS Number,loColl AS Collection loColl = CREATEOBJECT("Collection") loColl.Add(2,"Var1") loColl.Add(2,"Var2") TEXT TO lcScript NOSHOW TEXTMERGE LPARAMETERS toColl AS Collection RETURN toColl.Item("Var1") + toColl.Item("Var2") ENDTEXT lnVar = My.Bussines.Calculation.Rohstoff.ExecScriptP(m.lcScript,m.loColl) */ und das Ergebnis... WAIT WINDOW m.lnVar
Wandelt übergebene Parameter in eine Collection um.
Umkehrfunktion zu SetParameters.
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)
*/ 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)
Wandelt übergebene Parameter in eine Collection um.
Jedoch wird als 'erster' Parameter die Anzahl der Parameter mitgegeben.
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)
*/ 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 (?)
Rückgabe:[Number], Berechnen des Rohstoffzuschlags für den Einkauf.
Gibt den Rohstoffzuschlag in der Währung des Einkaufs (Lieferant) zurück
Number = My.Bussines.Calculation.Rohstoff.RSEinkauf(tcIdd03 AS STRING,tnMenge AS NUMBER,tcAlias AS STRING) Number = My.Bussines.Calculation.Rohstoff.RSEinkauf(tcIdd03,tnMenge,tcAlias)
*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]
Berechnen des Rohstoffzuschlags für den Einkauf.
Hier wird der Lieferant angegeben!
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)
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)
String = My.Bussines.Calculation.Rohstoff.RSEinkaufShort(tcAlias AS STRING) String = My.Bussines.Calculation.Rohstoff.RSEinkaufShort(tcAlias)
Berechnen des Rohstoffzuschlags in Firmenwährung für den Verkauf
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)
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...
Anzeige der Edelmetallwerte im Einkauf.
Diese Methode erstellt eine Tabelle / Cursor für die Anzeige
Variant = My.Bussines.Calculation.Rohstoff.SWEinkauf(tcIdd03 AS STRING,tnMenge AS Number,tcAlias AS STRING) Variant = My.Bussines.Calculation.Rohstoff.SWEinkauf(tcIdd03,tnMenge,tcAlias)
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)
Erstellen eines Cursors mit Edelmetalldaten für den Verkauf.
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)
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)
Edelmetallwerte des Vorgangs anzeigen.
Die Abfrage wird über einen Cursor gesteuert!
Variant = My.Bussines.Calculation.Rohstoff.SWVorgang(tcSqlE11 AS STRING,tcC98 AS STRING) Variant = My.Bussines.Calculation.Rohstoff.SWVorgang(tcSqlE11,tcC98)
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')
Wandelt eine übergebene Collection in Parameter um.
Umkehrfunktion zu GetParameters.
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)
*/ 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
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.
Variant = My.Bussines.Calculation.Rohstoff._SqlCount(tcSql AS String) Variant = My.Bussines.Calculation.Rohstoff._SqlCount(tcSql)
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!
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.
Variant = My.Bussines.Calculation.Rohstoff._SqlExist(tcSql AS String) Variant = My.Bussines.Calculation.Rohstoff._SqlExist(tcSql)
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!
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.
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)
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>
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.
Variant = My.Bussines.Calculation.Rohstoff._SqlReadArray(tcSql AS String,toObject AS Object,taArray) Variant = My.Bussines.Calculation.Rohstoff._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.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
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.
Variant = My.Bussines.Calculation.Rohstoff._SqlReadCollection(tcSql AS String,tcIndex AS String) Variant = My.Bussines.Calculation.Rohstoff._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.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"
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.
Variant = My.Bussines.Calculation.Rohstoff._SqlReadValue(tcSql AS String,tiValue AS Integer) Variant = My.Bussines.Calculation.Rohstoff._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.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
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!
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)
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
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!
;Filter1 = My.Bussines.Calculation.Rohstoff._SqlUpdateAll(tcList AS STRING) ;Filter1 = My.Bussines.Calculation.Rohstoff._SqlUpdateAll(tcList)
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]
Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.
String = My.Bussines.Calculation.Rohstoff.cLastError
*/ Vorausgesetzt wird, dass My bekannt ist... LOCAL lcError AS String lcError = My.Bussines.Calculation.Rohstoff.cLastError
Methode in der der letzte Fehler auftrat.
Aufbau: [Fehlernummer] [Methode] [Zeilennummer] [Message]
String = My.Bussines.Calculation.Rohstoff.cMethod
*/ Abruf... WAIT WINDOW My.Bussines.Calculation.Rohstoff.cMethod
Thermosanzeige bei der Ausführung
Boolean = My.Bussines.Calculation.Rohstoff.lShowThermos
My.Bussines.Calculation.Rohstoff.lShowThermos = .T.
Fehlernummer des letzten Fehlers.
Ist der Wert kleiner null, so handelt es sich um einen logischen Fehler.
Number = My.Bussines.Calculation.Rohstoff.nError
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nError
Zeilennummer, in der der letzte Fehler auftrat
Number = My.Bussines.Calculation.Rohstoff.nLine
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nLine
Verarbeitete Datensätze
Number = My.Bussines.Calculation.Rohstoff.nRecords
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nRecords
Ausführungszeit in Sekunden
Number = My.Bussines.Calculation.Rohstoff.nSeconds
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nSeconds
Status der Ausführung
Number = My.Bussines.Calculation.Rohstoff.nStatus
WAIT WINDOW My.Bussines.Calculation.Rohstoff.nStatus
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!
Object = My.Bussines.Calculation.Rohstoff.oRSEK[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Calculation.Rohstoff.oRSEK[tcIndex1|,tiIndex1,tiIndex2]
*/ 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']
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!
Object = My.Bussines.Calculation.Rohstoff.oRSVG[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Calculation.Rohstoff.oRSVG[tcIndex1|,tiIndex1,tiIndex2]
*/ 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']
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!
Object = My.Bussines.Calculation.Rohstoff.oRSVK[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Calculation.Rohstoff.oRSVK[tcIndex1|,tiIndex1,tiIndex2]
*/ 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']
Merkt sich die Datenumgebung für eine Verarbeitung.
Beim Release der Variable wird die vorherige Datenumgebung wieder hergestellt.
Object = My.Bussines.Calculation.Rohstoff.oSelected
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
Instanziiert einen temporären Thermos
Object = My.Bussines.Calculation.Rohstoff.oThermos
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