PMS32 Online- Hilfereferenz
Misc - Verschiedene Stammwerte, die in allen Bereichen genutzt werden.
Verschiedene Stammwerte, die in allen Bereichen genutzt werden.
Beim Abruf des Datensatzobjekts kann entweder der Primärkey oder der EAN-Code oder eine Filterbedingung angegeben werden.
Die Rückgabe ist 'immer' das 'erste' Datensatzobjekt! Prüfen Sie die Property: __LastGet [N]. Ist der Wert -1 so wurde kein Datensatz abgerufen. Konnte der SQL dennoch ausgewertet werden, so prüfen Sie bitte den entsprechenden Primärschlüssel der Tabelle auf EMPTY().
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so muss dieser nicht angegeben werden sofern man die Systemsprache abrufen möchte. Möchte man eine andere Sprache als die Systemsprache auswählen, so kann das Sprachekürzel mit dem Zeichen | angegeben werden. Ein Beispiel an Tabelle C19: idc19+'|EN ' für die Sprache Englisch.
Es kann auch eine Filterbedingung angegeben werden! Hier muss in dem Schlüssel mindestens ein = Zeichen vorhanden sein! Ein paar Beispiele:
loB01 = My.Bussines.Strain.Misc.oB01["fparac1='EXTERNE-NUMMER'"]
loE10 = My.Bussines.Strain.Misc.oE10["nummer LIKE '1640%-AB' AND ipy01='101'"]
loD40 = My.Bussines.Strain.Misc.oD40["match LIKE '201604%' AND idc61='SIE'"]
Wird eine Abfrage innerhalb einer Schleife oder einem REPLACE ... mit vielen Datensätzen getätigt, so sollte man vorher den Zeiger auf Misc in eine Variable holen. Beispiel:
loMisc = My.Bussines.Strain.Misc
...
SELECT Query
REPLACE ALL ;
Feldname1 WITH m.loMisc.oB01[Query.idB01].BETRH,;
Feldname2 WITH m.loMisc.oB01[Query.idB01].EIART,;
Feldname3 WITH m.loMisc.oB01[Query.idB01].EILAGE,;
...
Diese Vorgehensweise beschleunigt den Programmablauf um ein vielfaches! Der Datenabruf von der Datenbank wird im Memory eine gewisse Zeit zwischen gespeichert, bevor der 'gleiche' Datensatz der Tabelle nochmals aus der Datenbank gelesen wird.
*/ Kurzbeispiel für den Zugriff auf diese Struktur */ Der Zugriff erfolgt über: My.Bussines.Strain.Misc */ 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 loMisc AS My.Bussines.Strain.Misc */ Setzen der Variablen loMisc = My.Bussines.Strain.Misc */ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein... REPLACE ALL Feldname1 WITH loMisc.Function1(),Feldname2 WITH loMisc.Function1(), ... */ Oder in einer Schleife... SCAN lvValue = loMisc.Function(Alias.Spalte) + 25 lvValue = loMisc.Function2(m.lvValue) REPLACE Feldname WITH m.lvValue,... ENDSCAN */ Es sind auch geschachtelte Aufrufe möglich...
Holt die angegebene Vorwärtsreferenz.
Welcher Vorgang wurde von diesem referenziert?
Variant = My.Bussines.Strain.Misc.E15Ref(tcIde10 AS STRING , tcIps AS STRING, tlWithProject AS Boolean) Variant = My.Bussines.Strain.Misc.E15Ref(tcIde10,tcIps,tlWithProject)
*/ Ohne Projekt lcInfo = My.Bussines.Strain.Misc.E15Ref(cIde10.Angebot,'101') lcInfo = "Angebotsnummer" */ Mit Projekt lcInfo = My.Bussines.Strain.Misc.E15Ref(cIde10.Angebot,'101',.T.) lcInfo = "Projektnummer / Angebotsnummer"
Rückwärts und Vorwärts Referenz holen
String = My.Bussines.Strain.Misc.E15RefAll(tcIde10 AS STRING , tcIp AS STRING , tnBits AS INTEGER) String = My.Bussines.Strain.Misc.E15RefAll(tcIde10,tcIp,tnBits)
*/ Nur die Nummer lcInfo = My.Bussines.Strain.Misc.E15RefAll(cIde10.Lieferschein,"101") lcInfo = "Auftragsnummer" */ Mit Projekt lcInfo = My.Bussines.Strain.Misc.E15RefAll(cIde10.Lieferschein,"101",1) lcInfo = "Projektnummer / Auftragsnummer" */ Mit Bezeichnung lcInfo = My.Bussines.Strain.Misc.E15RefAll(cIde10.Lieferschein,"101",2) lcInfo = "Auftrag / Auftragsnummer" */ Alle Aufträge (dauert länger, da SCAN ... ENDSCAN) lcInfo = My.Bussines.Strain.Misc.E15RefAll(cIde10.Lieferschein,"101",4) lcInfo = "Auftragsnummer-1 Auftragsnummer-2"... Der dritte Parameter: 0 - Nur einen Vorgang und vom dem die Nummer 1 - Projekt + Vorgangsnummer 2 - Bezeichnung + Vorgangsnummer 4 - Alle Vorgänge
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.Strain.Misc.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.Strain.Misc.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.Strain.Misc.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.Strain.Misc.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.Strain.Misc.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.Strain.Misc.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.Strain.Misc.ExecScriptP(tcScript AS STRING,toPara AS COLLECTION) Variant = My.Bussines.Strain.Misc.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.Strain.Misc.ExecScriptP(m.lcScript,m.loColl) */ und das Ergebnis... WAIT WINDOW m.lnVar
Diese Funktion wird benötigt, wenn man eine Maske aufrufen möchte (immer die Erste xxx01) und nur die Tabelle und die ID kennt. In PMS kann es unter Umständen vorkommen, dass der Maskennamen abweichend von der Mastertabelle ist!
String = My.Bussines.Strain.Misc.GetMaskForDbf(tcDbf AS String,tcId AS String) String = My.Bussines.Strain.Misc.GetMaskForDbf(tcDbf,tcId)
*/ Beispiel LOCAL lcMask */ Nur Vorgeplänkel USE (My.Clients.Path.cDbfDir+'i20.dbf') LOCATE FOR ipzwi="108" lcMask = My.Bussines.Strain.Misc.GetMaskForDbf("E10",i20.idzwi) =Messagebox(m.lcMask,64,"Maskenname") && Solle in diesem Fall E9601 sein!
Gibt den Maskennamen anhand seiner IP zurück. Siehe Beispielcode...
String = My.Bussines.Strain.Misc.GetMaskForIp(tcIP AS String) String = My.Bussines.Strain.Misc.GetMaskForIp(tcIP)
LOCAL lcMask AS String lcMask = My.Bussines.Strain.Misc.GetMaskForIp("108") =Messagebox(m.lcMask,64,"Maskenname") && Solle in diesem Fall E9601 sein!
Wandelt übergebene Parameter in eine Collection um.
Umkehrfunktion zu SetParameters.
Variant = My.Bussines.Strain.Misc.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.Strain.Misc.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.Strain.Misc.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.Strain.Misc.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.Strain.Misc.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.Strain.Misc.GetParametersCount(m.lni,m.tp1,m.tp2,m.tp3) WAIT WINDOW m.loCollection.Count && Anzahl der Werte (?)
Prüft, ob die angegebene Langnummer 9n X13 vorhanden ist.
Rückgabe ist Boolean (.T./.F.)
Boolean = My.Bussines.Strain.Misc.IsInX13(tcLastIdc AS String) Boolean = My.Bussines.Strain.Misc.IsInX13(tcLastIdc)
*/ Beispiel: LOCAL llReturn AS Boolean llReturn = My.Bussines.Strain.Misc.IsInX13('RE-1601-0001') IF m.llReturn */ Die Nummer ist in X13 vorhanden ELSE */ Die Nummer ist in X13 NICHT vorhanden ENDIF
Gibt das Projekt der Bestellzeile zurück, sofern die Bestellung auf ein Projekt verweist.
Es wird immer nur EIN Projekt zurückgegeben!
String = My.Bussines.Strain.Misc.IsProject(tcIdd40 AS STRING,tcIdd51 AS STRING) String = My.Bussines.Strain.Misc.IsProject(tcIdd40,tcIdd51)
*/ Beispiel: LOCAL lcIdk10 AS String lcIdk10 = My.Bussines.Strain.Misc.IsProject(d51.idd40,d51.idd51) IF !EMPTY(m.lcIdk10) */ Projekt vorhanden ELSE */ Kein Projekt vorhanden (Stammlager) ENDIF
Gibt Projekt und Lagerort zu einer Bestellzeile zurück, sofern die Bestellzeile auf ein Projekt verweist.
Projektvariable ist leer, falls Bestellung auf Stammlager!
Lagerort wird nicht geändert!
Boolean = My.Bussines.Strain.Misc.IsProjectX(tcIdd40 AS String,tcIdd51 AS String,RcIdk10 AS String @,RcIdc66 AS String @) Boolean = My.Bussines.Strain.Misc.IsProjectX(tcIdd40,tcIdd51,@RcIdk10,@RcIdc66)
*/ Beispiel: LOCAL lcIdk10 AS String, lcIdc66 AS String IF My.Bussines.Strain.Misc.IsProjectX(d51.idd40,d51.idd51,@lcIdk10,@lcIdc66) */ Projektbestellung... Die Daten kommen aus... lcIdk10 = i20.idk10 lcIdc66 = i20.idc66 ELSE */ Stammlager ENDIF
Variant = My.Bussines.Strain.Misc.OA01W(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.OA01W(toRecord,tcAction,tlCheckNew)
Variant = My.Bussines.Strain.Misc.OF60w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.OF60w(toRecord,tcAction,tlCheckNew)
Wandelt eine übergebene Collection in Parameter um.
Umkehrfunktion zu GetParameters.
Variant = My.Bussines.Strain.Misc.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.Strain.Misc.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.Strain.Misc.SetParameters(m.loCollection,@lnVar1,@lnVar2) WAIT WINDOW m.lnVar1 WAIT WINDOW m.lnVar2
Gibt technische Werte aus B02 zurück.
Je nach Angabe kann die Rückgabe vom Typ [C] oder [N] sein.
Variant = My.Bussines.Strain.Misc.Technik(tcIdc51 AS STRING,tcIdb01 AS STRING) Variant = My.Bussines.Strain.Misc.Technik(tcIdc51,tcIdb01)
*/ Beispiel: LOCAL lvTechnik AS Variant */ Gewicht: [N] lvTechnik = My.Bussines.Strain.Misc.Technik('0151',b01.idb01) */ Anschlussbezeichnung [C] lvTechnik = My.Bussines.Strain.Misc.Technik('1923',b01.idb01)
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.Strain.Misc._SqlCount(tcSql AS String) Variant = My.Bussines.Strain.Misc._SqlCount(tcSql)
LOCAL lcSql AS String lcSql = [SELECT COUNT(*) FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Bussines.Strain.Misc._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.Strain.Misc._SqlExist(tcSql AS String) Variant = My.Bussines.Strain.Misc._SqlExist(tcSql)
LOCAL lcSql AS String lcSql = [SELECT ipy01 FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Bussines.Strain.Misc._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!
Holt die Daten der Datenbank direkt in ein Objekt und schliesst die Tabellen!
Variant = My.Bussines.Strain.Misc._SqlObject(tcSql AS STRING) Variant = My.Bussines.Strain.Misc._SqlObject(tcSql)
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.Strain.Misc._SqlRead(tcSql AS STRING,tcAlias AS STRING,tvTable AS Variant,tcIndex AS STRING) Variant = My.Bussines.Strain.Misc._SqlRead(tcSql,tcAlias,tvTable,tcIndex)
LOCAL lcSql AS String lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Bussines.Strain.Misc._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.Strain.Misc._SqlReadArray(tcSql AS String,toObject AS Object,taArray) Variant = My.Bussines.Strain.Misc._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.Strain.Misc._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.Strain.Misc._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.Strain.Misc._SqlReadCollection(tcSql AS String,tcIndex AS String) Variant = My.Bussines.Strain.Misc._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.Strain.Misc._SqlReadCollection(m.lcSql) WAIT WINDOW loColl.GetKey(1) && "0000001" */ Hat der SQL einen eindeutigen Key so kann dieser benutzt werden! loColl= My.Bussines.Strain.Misc._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.Strain.Misc._SqlReadValue(tcSql AS String,tiValue AS Integer) Variant = My.Bussines.Strain.Misc._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.Strain.Misc._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.Strain.Misc._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.Strain.Misc._SqlUpdate(tcTable AS STRING,tcAlias AS STRING,tcIdName AS STRING,tcFilter AS String) Variant = My.Bussines.Strain.Misc._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.Strain.Misc._SqlRead(m.lcSql,"qB01",1) */ Ändern der Daten... SELECT qB01 REPLACE ALL match WITH "LEISTUNGSSCHALTER",__Changed WITH .T. tlUpdate = My.Bussines.Strain.Misc._SqlUpdate("B01",ALIAS(),"IDB01") IF NOT m.tlUpdate WAIT WINDOW My.Bussines.Strain.Misc.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.Strain.Misc._SqlUpdateAll(tcList AS STRING) ;Filter1 = My.Bussines.Strain.Misc._SqlUpdateAll(tcList)
LOCAL tlUpdate AS Boolean */ Lesen der Daten vom Backend IF My.Bussines.Strain.Misc._SqlRead([SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH'],"qB01",1) AND ; My.Bussines.Strain.Misc._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.Strain.Misc._SqlUpdateAll("B01;QB01;IDB01#D03;QD03;IDD03") IF NOT m.tlUpdate WAIT WINDOW My.Bussines.Strain.Misc.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]
Diese Methode füllt ein Array mit Projekt- und Vorgangs-Informationen einer Bestellung bzw. einer Bestellposition. Rückgabe ist immer die Anzahl der Zeilen im Array.
Das Array ist 2 Dimensional aufgebaut und hat folgendes aussehen:
Array[n,1] = [C] = i20.ipzwi ! Vorgangsart
Array[n,2] = [C] = i20.idzwi ! Vorgangs-ID
Array[n,3] = [C] = i20.idk10 ! Projekt-ID, wenn leer wird auf Stammlager bestellt
Array[n,4] = [C] = IC-Feld ! Inhalt des IC Feld der entsprechenden Tabelle über IP. IP=101 => E10.NUMMER
Array[n,5] = [C] = k10.prjnr ! Projektnummer oder leer
Diese Werte sind gefüllt, wenn tlWithQuantity=.T. gesetzt ist und IDD40 UND IDD51 angegeben wurde.
Array[n,6] = [N] = Menge in LE !SUM(I20.MENGE_O)
Array[n,7] = [C] = Lagereinheit
Array[n,8] = [N] = Menge in EK
Array[n,9] = [C] = EK-Einheit
Integer = My.Bussines.Strain.Misc.aD40E10(taArray , tcIdd40 AS STRING, tcIdd51 AS STRING, tlWithQuantity AS Boolean) Integer = My.Bussines.Strain.Misc.aD40E10(taArray,tcIdd40,tcIdd51,tlWithQuantity)
*/ Beispiel einer Abfrage der Vorgangsinformationen für eine Bestellung */ Es wird davon ausgegangen, dass My definiert ist! */ Diese Code-Sequenz kann mit PMS32K.EXE ausgeführt werden! LOCAL lnAnz AS Integer, lcProjects AS String, laArray[1] , lni AS Integer , lnj AS Integer */ Öffnen der Tabelle I20 und ermitteln der ersten Bestellung... */ Normaler Weise ist die IDD40 bekannt! SELECT 0 USE (My.Clients.Path.cDbfDir+'i20.dbf') ALIAS i20test SHARED AGAIN LOCATE FOR !EMPTY(idd40) */ Anmerkung: NVL(term1,term2) prüft den ERSTEN Term (term1) auf NULL und gibt term2 zurück falls (term1) NULL ist! */ Hier werden die Informationen für die GESAMTE Bestellung ermittelt lnAnz = My.Bussines.Strain.Misc.aD40E10(@laArray,i20test.idd40) lcProjects = "" IF m.lnAnz>0 FOR m.lni = 1 TO m.lnAnz lcProjects = m.lcProjects + STR(m.lni,3) + " : " + laArray[m.lni,1] + " | " + laArray[m.lni,2] + " | " + laArray[m.lni,3] + " | " + laArray[m.lni,4] + " | " + laArray[m.lni,5] + CHR(13)+CHR(10) NEXT m.lni ENDIF =MESSAGEBOX(m.lcProjects,64,"Rückgabe im Array!") */ Siehe auch: cD40E10()
Diese Methode füllt ein Array mit Projekt-Informationen einer Bestellung bzw. einer Bestellposition. Rückgabe ist immer die Anzahl der Projektinformationen.
Das Array ist 2 Dimensional aufgebaut und hat folgendes aussehen:
Array[n,1] = [C] = i20.idk10 ! Diese Spalte ist LEER, wenn das Stammlager gemeint ist!
Array[n,2] = [C] = k10.prjnr ! Dieser Spalte enthält NULL, wenn das Stammlager gemeint ist!
Beim Aufruf der Methode können zusätzliche Felder angegeben werden, siehe Beispiel...
Integer = My.Bussines.Strain.Misc.aD40K10(taArray , tcIdd40 AS STRING, tcIdd51 AS STRING, tcAddFields AS STRING) Integer = My.Bussines.Strain.Misc.aD40K10(taArray,tcIdd40,tcIdd51,tcAddFields)
*/ Beispiel einer Abfrage der Projektinformationen für eine Bestellung */ Es wird davon ausgegangen, dass My definiert ist! */ Diese Code-Sequenz kann mit PMS32K.EXE ausgeführt werden! LOCAL lnAnz AS Integer, lcProjects AS String, laArray[1] , lni AS Integer , lnj AS Integer */ Öffnen der Tabelle I20 und ermitteln der ersten Bestellung... */ Normaler Weise ist die IDD40 bekannt! SELECT 0 USE (My.Clients.Path.cDbfDir+'i20.dbf') ALIAS i20test SHARED AGAIN LOCATE FOR !EMPTY(idd40) */ Anmerkung: NVL(term1,term2) prüft den ERSTEN Term (term1) auf NULL und gibt term2 zurück falls (term1) NULL ist! */ Hier werden die Informationen für die GESAMTE Bestellung ermittelt lnAnz = My.Bussines.Strain.Misc.aD40K10(@laArray,i20test.idd40) lcProjects = "" IF m.lnAnz>0 FOR m.lni = 1 TO m.lnAnz lcProjects = m.lcProjects + STR(m.lni,3) + " : " + laArray[m.lni,1] + " | " + NVL(laArray[m.lni,2],"STAMMLAGER") + CHR(13)+CHR(10) NEXT m.lni ENDIF =MESSAGEBOX(m.lcProjects,64,"Rückgabe im Array!") */ Jetzt holen wir uns die Projekte EINER Bestellposition! lnAnz = My.Bussines.Strain.Misc.aD40K10(@laArray,i20test.idd40,i20test.idd51) lcProjects = "" IF m.lnAnz>0 FOR m.lni = 1 TO m.lnAnz lcProjects = m.lcProjects + STR(m.lni,3) + " : " + laArray[m.lni,1] + " | " + NVL(laArray[m.lni,2],"STAMMLAGER") + CHR(13)+CHR(10) NEXT m.lni ENDIF =MESSAGEBOX(m.lcProjects,64,"Rückgabe im Array!") */ Wir holen uns zusätzliche Informationen! Matchcode und Kunden-ID des Projekts! lnAnz = My.Bussines.Strain.Misc.aD40K10(@laArray,i20test.idd40,i20test.idd51,"k10.match,k10.idc63") lcProjects = "" IF m.lnAnz>0 FOR m.lni = 1 TO m.lnAnz lcProjects = m.lcProjects + STR(m.lni,3) + " : " FOR m.lnj = 1 TO ALEN(laArray,2) lcProjects = m.lcProjects + NVL(laArray[m.lni,m.lnj],"") + IIF(m.lnj<ALEN(laArray,2)," | ","") NEXT m.lnj lcProjects = m.lcProjects + CHR(13) + CHR(10) NEXT m.lni ENDIF =MESSAGEBOX(m.lcProjects,64,"Rückgabe im Array!") */ Siehe auch: cD40K10()!
Diese Methode funktioniert ähnlich wie cD40K10() jedoch werden die Vorgangsinformationen abgefragt. Zusätzlich kann angegeben werden, ob die Projektinformationen enthalten sein sollen.
Aussehen der Rückgabe, je nach Angabe der Parameter...
Bitte sehen Sie im Codebeispiel nach. Soll die Menge des Anforderes mit ausgegeben werden, so sind IDD40 UND IDD51 anzugeben! Wird NUR die Bestellung (IDD40) angegeben, so sind Mengen und Einheiten 0 bzw. "". Bei der Berechnung der Mengen kann die SQL Abfrage ein wenig länger dauern, da hier über I20, B01 und D51 ermittelt wird! Das Pipezeichen "|" wird als Trennzeichen innerhalb der einzelnen Zeilenangaben benutzt. Die Berechnung der Menge wird mit vielen Nachkommastellen durchgeführt, im String jedoch auf 3-Stellen, wenn nicht anders angegeben, gerundet!
String = My.Bussines.Strain.Misc.cD40E10(tcIdd40 AS STRING, tcIdd51 AS STRING , tlWithProjekt AS Boolean , tlDontTrim AS Boolean , tiWithQuantity AS Integer , tiNKomma AS Integer) String = My.Bussines.Strain.Misc.cD40E10(tcIdd40,tcIdd51,tlWithProjekt,tlDontTrim,tiWithQuantity,tiNKomma)
*/ Beispiel einer Abfrage der Vorgangs- und Projektinformationen für eine Bestellung */ Es wird davon ausgegangen, dass My definiert ist! */ Diese Code-Sequenz kann mit PMS32K.EXE ausgeführt werden! LOCAL lcProjects AS String */ Öffnen der Tabelle I20 und ermitteln der ersten Bestellung... */ Normaler Weise ist die IDD40 bekannt! SELECT 0 USE (My.Clients.Path.cDbfDir+'i20.dbf') ALIAS i20test SHARED AGAIN LOCATE FOR !EMPTY(idd40) */ Hier werden die Projektnummern für die GESAMTE Bestellung ermittelt... */ Der String enthält NUR die Projektnummern! Die IDK10 wird nicht ausgegeben! lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Jetzt holen wir uns die Projekte EINER Bestellposition! lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns den Vorgang incl. Projekt */ Die einzelnen Werte sind getrimmt und mit dem Pipezeichen: | getrennt! lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.T.) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns den Vorgang incl. Projekt */ und NICHT getrimmt lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.T.,.T.) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns den Vorgang incl. Projekt und der Lagermenge (I20.MENGE_O) */ und NICHT getrimmt */ Aussehen: PROJEKTNUMMER |VORGANG | 99,999 ST lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.T.,.T.,1) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns den Vorgang incl. Projekt und der EK-Menge (I20.MENGE_O)=>EK-MENGE */ und NICHT getrimmt lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.T.,.T.,2) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns den Vorgang incl. Projekt und der EK-Menge */ und NICHT getrimmt lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.T.,.T.,2) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns den Vorgang incl. Projekt und der EK-Menge, die Menge mit EINER Nachkommastelle */ und NICHT getrimmt */ Aussehen: PROJEKTNUMMER |VORGANG | 99,9 VE lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.T.,.T.,2,1) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns den Vorgang und der LG-Menge, die Menge mit ZWEI Nachkommastellen */ und NICHT getrimmt */ Aussehen: VORGANG | 99,99 ST lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.F.,.T.,1,2) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns den Vorgang und der LG-Menge, die Menge mit ZWEI Nachkommastellen */ und GETRIMMT */ Aussehen: VORGANG|99,99 ST lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.F.,.F.,1,2) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Ersetzen des Pipezeichens durch ein Leerzeichen lcProjects = STRTRAN(My.Bussines.Strain.Misc.cD40E10(i20test.idd40,i20test.idd51,.F.,.F.,1,2),"|"," ") =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") lcProjects = My.Bussines.Strain.Misc.cD40E10(i20test.idd40,.NULL.,.T.) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Siehe auch: aD40E10()!
Diese Methode gibt einen String mit Projekt-Informationen einer Bestellung bzw. einer Bestellposition zurück. Sie gleicht daher in etwa der Methdoe aD40K10() jedoch enthält der zurückgegebene String lediglich die Projekt-Informationen!
String = My.Bussines.Strain.Misc.cD40K10(tcIdd40 AS STRING, tcIdd51 AS STRING , tcAddFields AS STRING , tlDontTrim AS Boolean) String = My.Bussines.Strain.Misc.cD40K10(tcIdd40,tcIdd51,tcAddFields,tlDontTrim)
*/ Beispiel einer Abfrage der Projektinformationen für eine Bestellung */ Es wird davon ausgegangen, dass My definiert ist! */ Diese Code-Sequenz kann mit PMS32K.EXE ausgeführt werden! LOCAL lcProjects AS String */ Öffnen der Tabelle I20 und ermitteln der ersten Bestellung... */ Normaler Weise ist die IDD40 bekannt! SELECT 0 USE (My.Clients.Path.cDbfDir+'i20.dbf') ALIAS i20test SHARED AGAIN LOCATE FOR !EMPTY(idd40) */ Hier werden die Projektnummern für die GESAMTE Bestellung ermittelt... */ Der String enthält NUR die Projektnummern! Die IDK10 wird nicht ausgegeben! lcProjects = My.Bussines.Strain.Misc.cD40K10(i20test.idd40) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Jetzt holen wir uns die Projekte EINER Bestellposition! lcProjects = My.Bussines.Strain.Misc.cD40K10(i20test.idd40,i20test.idd51) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wir holen uns zusätzliche Informationen! Matchcode und Kunden-ID des Projekts! */ Die einzelnen Werte sind getrimmt und mit dem Pipezeichen: | getrennt! lcProjects = My.Bussines.Strain.Misc.cD40K10(i20test.idd40,i20test.idd51,"k10.match,k10.idc63") =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Umwandeln des Pipezeichens in Komma gefolgt vor einer Leerstelle lcProjects = STRTRAN(m.lcProjects,"|",", ") =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Wenn die einzelwerte NICHT getrimmt werden sollen: lcProjects = My.Bussines.Strain.Misc.cD40K10(i20test.idd40,i20test.idd51,"k10.match,k10.idc63",.T.) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Nochmals: mit unterschiedlichen Aufrufen... */ 1. Projekte der gesamten Bestellung + Zusatzspalten NICHT getrimmt lcProjects = My.Bussines.Strain.Misc.cD40K10(i20test.idd40,.NULL.,"k10.match,k10.idc63",.T.) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ 1. Projekte der gesamten Bestellung NICHT getrimmt. Die einzelnen Stringzeilen werden sind Blanks auf 25 Stellen aufgefüllt, siehe Ausrufungszeichen! lcProjects = My.Bussines.Strain.Misc.cD40K10(i20test.idd40,.NULL.,"'!'",.T.) =MESSAGEBOX(m.lcProjects,64,"Rückgabe im String!") */ Siehe auch: aD40K10()!
Gibt den Ersten bzw. Letzten bearbeiteten Vorgang eines Benutzers zurück.
Rückgabe ist IDE10 und die IP des Vorgangs.
Der Aufruf kann mehrere verschiedene Informationen enthalten!
Ausgewertet werden:
E10.lDatum
E10.lWer
E10.ipy01
Variant = My.Bussines.Strain.Misc.cE10Last(tcWer AS STRING , RcIP AS STRING @ , tlFirst AS Boolean) Variant = My.Bussines.Strain.Misc.cE10Last(tcWer,@RcIP,tlFirst)
*/ Beispiel: LOCAL lcIde10 AS String, lcIpe10 AS String */ Der Erste/Letzte Vorgang überhaupt! lcIde10 = My.Bussines.Strain.Misc.cE10Last("",@lcIpe10,.F.) && Der Letzte lcIde10 = My.Bussines.Strain.Misc.cE10Last("",@lcIpe10,.T.) && Der Erste */ Der Erste/Letzte Vorgang des Benutzers lcIde10 = My.Bussines.Strain.Misc.cE10Last(My.cUser,@lcIpe10,.F.) && Der Letzte lcIde10 = My.Bussines.Strain.Misc.cE10Last(My.cUser,@lcIpe10,.T.) && Der Erste */ Die Erste/Letzte Auftragsbestätigung des Benutzers lcIde10 = My.Bussines.Strain.Misc.cE10Last(My.cUser,'101',.F.) && Die Letzte lcIde10 = My.Bussines.Strain.Misc.cE10Last(My.cUser,'101',.T.) && Die Erste
Rückgabe der Vorgangsart (E10.IPY01) zur Vorgangs- Nummer oder ID.
String = My.Bussines.Strain.Misc.cE10ip(tcVorg AS String , tlNumber AS Boolean) String = My.Bussines.Strain.Misc.cE10ip(tcVorg,tlNumber)
*/ Beispiel: LOCAL lcIpy01 AS String lcIpy01 = My.Bussines.Strain.Misc.cE10ip('RE-1601-0001',.T.) && IP über die Vorgangsnummer lcIpy01 = My.Bussines.Strain.Misc.cE10ip('00001524',.F.) && IP über die Vorgangs-ID */ Wird der Vorgang NICHT gefunden, so wird '100' - Angebot zurückgegeben!
Diese Funktion gibt einen String mit Artikel-ID's der Baugruppenköpfe zurück in denen der Artikel enthalten ist.
Sie kann zur Prüfung herangezogen werden, wenn die Struktur einer Baugruppe zu prüfen ist.
Variant = My.Bussines.Strain.Misc.cF02s(tcIdb01s AS STRING) Variant = My.Bussines.Strain.Misc.cF02s(tcIdb01s)
Variant = My.Bussines.Strain.Misc.lFreeDay(tdDate AS DATE , tcIdc14 AS STRING) Variant = My.Bussines.Strain.Misc.lFreeDay(tdDate,tcIdc14)
B01' - 'Artikelstamm
Wichtige Feldinformationen:
Primary Key ....: IDB01
Secondary Key.: none
Candidate Key.: ARTNR
EAN Key..........: IEB01
ID- Field...........: IDB01
IC- Field...........: ARTNR
IP- Field...........: IPB01
IK- Field...........: none
Feldliste...........: BETRH,EIART,EILAGE,EKZUORD,IDC72,IDC98,IPY01LKZ,LSGUT,MGLOS,...
Die Komplette Liste der Felder finden Sie unter: Artikelstamm
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDB01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oB01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oB01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loB01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loB01 = My.Bussines.Strain.Misc.oB01['IDB01'] IF loB01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loB01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oB01w(m.loB01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loB01 = My.Bussines.Strain.Misc.oB01[0] IF loB01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poB01 AS Object */ Ein PRIVATE Objekt muss her... poB01 = loB01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("B01","poB01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loB01 AS Object */ IDB01 - ID-Artikelstamm .IDB01 = My.Clients.Numbers.GetMoreIds("IDB01",1) */ ARTNR - Artikel .ARTNR = IIF(My.Clients.Fips.YX_autoart,CAST(My.Functions.Internals.NextNr("ARTNR") as C(25)),SPACE(25)) */ IPB01 - Artikelart .IPB01 = "001" */ IEB01 - EAN-Code .IEB01 = My.Clients.Numbers.EanB01(.NULL.) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oB01w(m.loB01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loB01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loB01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oB01w(m.loB01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oB01w(m.loB01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
B02' - 'Variabler Technikteil
Wichtige Feldinformationen:
Primary Key ....: IDB02
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDB02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: C510024,C510036,IDB02,TSUM,KENNUNG,IDC51,INHALT,INHALTN,LAST...
Die Komplette Liste der Felder finden Sie unter: Variabler Technikteil
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDB02) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oB02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oB02w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loB02 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loB02 = My.Bussines.Strain.Misc.oB02['IDB02'] IF loB02.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loB02 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oB02w(m.loB02,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loB02 = My.Bussines.Strain.Misc.oB02[0] IF loB02.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poB02 AS Object */ Ein PRIVATE Objekt muss her... poB02 = loB02 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("B02","poB02") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loB02 AS Object */ IDB02 - ID-Variabler Technikteil .IDB02 = My.Clients.Numbers.GetMoreIds("IDB02",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oB02w(m.loB02,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loB02.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loB02.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oB02w(m.loB02,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oB02w(m.loB02,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
B03' - 'Referenzartikel
Wichtige Feldinformationen:
Primary Key ....: IDB03
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDB03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDB03,LASTUPD,LDATUM,IDB01R,LPRG,LWER,LZEIT,NDATUM,NOTIZ,NPR...
Die Komplette Liste der Felder finden Sie unter: Referenzartikel
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDB03) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oB03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oB03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loB03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loB03 = My.Bussines.Strain.Misc.oB03['IDB03'] IF loB03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loB03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oB03w(m.loB03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loB03 = My.Bussines.Strain.Misc.oB03[0] IF loB03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poB03 AS Object */ Ein PRIVATE Objekt muss her... poB03 = loB03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("B03","poB03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loB03 AS Object */ IDB03 - ID-Referenzartikel .IDB03 = My.Clients.Numbers.GetMoreIds("IDB03",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oB03w(m.loB03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loB03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loB03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oB03w(m.loB03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oB03w(m.loB03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
B04' - 'Artikelstamm (Sprache)
Wichtige Feldinformationen:
Primary Key ....: IDB01+IDX26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDB04
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDB04,BEZ,IDX26,ARTNR,LANG,LASTUPD,LDATUM,LPRG,LWER,LZEIT,ND...
Die Komplette Liste der Felder finden Sie unter: Artikelstamm (Sprache)
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDB01+IDX26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oB04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oB04w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loB04 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loB04 = My.Bussines.Strain.Misc.oB04['IDB04'] IF loB04.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loB04 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oB04w(m.loB04,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loB04 = My.Bussines.Strain.Misc.oB04[0] IF loB04.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poB04 AS Object */ Ein PRIVATE Objekt muss her... poB04 = loB04 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("B04","poB04") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loB04 AS Object */ IDB04 - ID-Artikelstamm (Sprache) .IDB04 = My.Clients.Numbers.GetMoreIds("IDB04",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oB04w(m.loB04,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loB04.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loB04.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oB04w(m.loB04,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oB04w(m.loB04,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
B12' - 'TQFS-im Artikelstamm
Wichtige Feldinformationen:
Primary Key ....: IDB12
Secondary Key.: none
Candidate Key.: SPRG+ICB12
EAN Key..........: none
ID- Field...........: IDB12
IC- Field...........: ICB12
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,G_SUCHSTR,ICB12,IDB12,IMB12,LASTUPD,LDATUM,LPRG,LWE...
Die Komplette Liste der Felder finden Sie unter: TQFS-im Artikelstamm
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDB12) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oB12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oB12w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loB12 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loB12 = My.Bussines.Strain.Misc.oB12['IDB12'] IF loB12.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loB12 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oB12w(m.loB12,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loB12 = My.Bussines.Strain.Misc.oB12[0] IF loB12.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poB12 AS Object */ Ein PRIVATE Objekt muss her... poB12 = loB12 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("B12","poB12") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loB12 AS Object */ IDB12 - ID-TQFS-im Artikelstamm .IDB12 = My.Clients.Numbers.GetMoreIds("IDB12",1) */ ICB12 - Einstellungen .ICB12 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oB12w(m.loB12,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loB12.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loB12.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oB12w(m.loB12,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oB12w(m.loB12,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
B92' - 'Variabler Technikteil (S)
Wichtige Feldinformationen:
Primary Key ....: IDB92
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDB92
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: C510036,EIART,EILAGE,IDB92,IDXXX,BKZ,IDC51,IDC99,INHALTN,IPY...
Die Komplette Liste der Felder finden Sie unter: Variabler Technikteil (S)
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDB92) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oB92w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oB92w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loB92 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loB92 = My.Bussines.Strain.Misc.oB92['IDB92'] IF loB92.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loB92 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oB92w(m.loB92,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loB92 = My.Bussines.Strain.Misc.oB92[0] IF loB92.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poB92 AS Object */ Ein PRIVATE Objekt muss her... poB92 = loB92 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("B92","poB92") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loB92 AS Object */ IDB92 - ID-Variabler Technikteil (S) .IDB92 = My.Clients.Numbers.GetMoreIds("IDB92",1) */ IPY01 - Ident. .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oB92w(m.loB92,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loB92.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loB92.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oB92w(m.loB92,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oB92w(m.loB92,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
B99' - 'Technische Summen
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DIVISOR,EIART,EIGENTUM,IDC51E,IDC51F1,IDC51F2,IDC51...
Die Komplette Liste der Felder finden Sie unter: Technische Summen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oB99w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oB99w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loB99 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loB99 = My.Bussines.Strain.Misc.oB99['none'] IF loB99.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loB99 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oB99w(m.loB99,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loB99 = My.Bussines.Strain.Misc.oB99[0] IF loB99.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poB99 AS Object */ Ein PRIVATE Objekt muss her... poB99 = loB99 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("B99","poB99") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loB99 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oB99w(m.loB99,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loB99.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loB99.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oB99w(m.loB99,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oB99w(m.loB99,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C02' - 'Lohngruppen
Wichtige Feldinformationen:
Primary Key ....: IDC02+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: IEC02
ID- Field...........: IDC02
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IS_KAPA,NOTIZ,TXC02,ZUSCHPROZ,BEZEI,IDC02,IDC26,IEC02,KOSTEN...
Die Komplette Liste der Felder finden Sie unter: Lohngruppen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC02+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC02w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC02 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC02 = My.Bussines.Strain.Misc.oC02['IDC02'] IF loC02.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC02 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC02w(m.loC02,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC02 = My.Bussines.Strain.Misc.oC02[0] IF loC02.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC02 AS Object */ Ein PRIVATE Objekt muss her... poC02 = loC02 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C02","poC02") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC02 AS Object */ IDC02 - ID-Lohngruppen .IDC02 = "Bitte angeben" */ BEZEI - Lohngruppen .BEZEI = "Bitte angeben" */ IEC02 - EAN-Code .IEC02 = My.Clients.Numbers.EANCode("C02") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC02w(m.loC02,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC02.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC02.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC02w(m.loC02,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC02w(m.loC02,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C03' - 'Währungen
Wichtige Feldinformationen:
Primary Key ....: IDC03
Secondary Key.: none
Candidate Key.: ICC03
EAN Key..........: none
ID- Field...........: IDC03
IC- Field...........: ICC03
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FAKTOR,ICC03,IDC03,KDATUM,KURS,LASTUPD,LDATUM,LPRG,LWER,LZEI...
Die Komplette Liste der Felder finden Sie unter: Währungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC03) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC03 = My.Bussines.Strain.Misc.oC03['IDC03'] IF loC03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC03w(m.loC03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC03 = My.Bussines.Strain.Misc.oC03[0] IF loC03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC03 AS Object */ Ein PRIVATE Objekt muss her... poC03 = loC03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C03","poC03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC03 AS Object */ IDC03 - ID-Währung .IDC03 = "Bitte angeben" */ ICC03 - Währungen .ICC03 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC03w(m.loC03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC03w(m.loC03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC03w(m.loC03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C07' - 'Kontinente
Wichtige Feldinformationen:
Primary Key ....: IDC07+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC07
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC07,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Kontinente
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC07+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC07w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC07w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC07 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC07 = My.Bussines.Strain.Misc.oC07['IDC07'] IF loC07.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC07 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC07w(m.loC07,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC07 = My.Bussines.Strain.Misc.oC07[0] IF loC07.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC07 AS Object */ Ein PRIVATE Objekt muss her... poC07 = loC07 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C07","poC07") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC07 AS Object */ IDC07 - ID-Kontinente .IDC07 = "Bitte angeben" */ BEZEI - Kontinente .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC07w(m.loC07,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC07.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC07.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC07w(m.loC07,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC07w(m.loC07,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Variant = My.Bussines.Strain.Misc.oC08T(tcIdc08 AS STRING,tcIdc09St AS STRING,tdDate AS DATE) Variant = My.Bussines.Strain.Misc.oC08T(tcIdc08,tcIdc09St,tdDate)
C08' - 'Steuerschlüssel
Wichtige Feldinformationen:
Primary Key ....: IDC08+IDC26+DTOS(GDATUM)+IDC09
Secondary Key.: IDC08P
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC08
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GDATUM,IDC08P,KTOWA,KTOWE,USTART1,BEZEI,NOTIZ,TXC08,IDC09,ID...
Die Komplette Liste der Felder finden Sie unter: Steuerschlüssel
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC08+IDC26+DTOS(GDATUM)+IDC09) und Sekundär-(IDC08P) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC08w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC08w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC08 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC08 = My.Bussines.Strain.Misc.oC08['IDC08'] IF loC08.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC08 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC08w(m.loC08,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC08 = My.Bussines.Strain.Misc.oC08[0] IF loC08.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC08 AS Object */ Ein PRIVATE Objekt muss her... poC08 = loC08 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C08","poC08") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC08 AS Object */ IDC08 - ID-Steuerschlüssel .IDC08 = "Bitte angeben" */ BEZEI - Steuerschlüssel .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC08w(m.loC08,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC08.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC08.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC08w(m.loC08,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC08w(m.loC08,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C09' - 'Länder
Wichtige Feldinformationen:
Primary Key ....: IDC09+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC09
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FWFKT,IDC07,ISO3166,BEZEI,HEIMAT,ICC,IDC09,IDC26,KURSDAT,LAS...
Die Komplette Liste der Felder finden Sie unter: Länder
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC09+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC09w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC09w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC09 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC09 = My.Bussines.Strain.Misc.oC09['IDC09'] IF loC09.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC09 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC09w(m.loC09,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC09 = My.Bussines.Strain.Misc.oC09[0] IF loC09.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC09 AS Object */ Ein PRIVATE Objekt muss her... poC09 = loC09 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C09","poC09") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC09 AS Object */ IDC09 - ID-Länder .IDC09 = "Bitte angeben" */ BEZEI - Länder .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC09w(m.loC09,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC09.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC09.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC09w(m.loC09,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC09w(m.loC09,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C10' - 'Versandarten
Wichtige Feldinformationen:
Primary Key ....: IDC10+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC10
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LANGTEXT,BEZEI,IDC10,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,ND...
Die Komplette Liste der Felder finden Sie unter: Versandarten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC10+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC10 = My.Bussines.Strain.Misc.oC10['IDC10'] IF loC10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC10w(m.loC10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC10 = My.Bussines.Strain.Misc.oC10[0] IF loC10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC10 AS Object */ Ein PRIVATE Objekt muss her... poC10 = loC10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C10","poC10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC10 AS Object */ IDC10 - ID-Versandarten .IDC10 = "Bitte angeben" */ BEZEI - Versandarten .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC10w(m.loC10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC10w(m.loC10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC10w(m.loC10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C13' - 'Rabattgruppe
Wichtige Feldinformationen:
Primary Key ....: IDC13
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC13
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: BERECH,FHBERECH,IDC13,RABATT1,RABATT2,IDC16,IDC63,LASTUPD,LD...
Die Komplette Liste der Felder finden Sie unter: Rabattgruppe
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC13) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC13w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC13w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC13 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC13 = My.Bussines.Strain.Misc.oC13['IDC13'] IF loC13.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC13 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC13w(m.loC13,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC13 = My.Bussines.Strain.Misc.oC13[0] IF loC13.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC13 AS Object */ Ein PRIVATE Objekt muss her... poC13 = loC13 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C13","poC13") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC13 AS Object */ IDC13 - ID-Rabattgruppe .IDC13 = My.Clients.Numbers.GetMoreIds("IDC13",1) */ IPY01 - Rabattart .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC13w(m.loC13,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC13.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC13.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC13w(m.loC13,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC13w(m.loC13,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C14' - 'Kalender
Wichtige Feldinformationen:
Primary Key ....: IDC14
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDC14
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC14,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTIZ,NPRG...
Die Komplette Liste der Felder finden Sie unter: Kalender
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC14) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC14w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC14w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC14 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC14 = My.Bussines.Strain.Misc.oC14['IDC14'] IF loC14.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC14 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC14w(m.loC14,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC14 = My.Bussines.Strain.Misc.oC14[0] IF loC14.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC14 AS Object */ Ein PRIVATE Objekt muss her... poC14 = loC14 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C14","poC14") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC14 AS Object */ IDC14 - ID-Kalender .IDC14 = "Bitte angeben" */ MATCH - Betriebskalender .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC14w(m.loC14,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC14.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC14.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC14w(m.loC14,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC14w(m.loC14,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C15' - 'Kalenderpositionen
Wichtige Feldinformationen:
Primary Key ....: IDC14+DTOS(FEI_DATUM)
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FEI_DATUM,FEI_NAME,IDC14,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDAT...
Die Komplette Liste der Felder finden Sie unter: Kalenderpositionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC14+DTOS(FEI_DATUM)) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC15w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC15 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC15 = My.Bussines.Strain.Misc.oC15['none'] IF loC15.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC15 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC15w(m.loC15,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC15 = My.Bussines.Strain.Misc.oC15[0] IF loC15.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC15 AS Object */ Ein PRIVATE Objekt muss her... poC15 = loC15 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C15","poC15") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC15 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC15w(m.loC15,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC15.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC15.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC15w(m.loC15,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC15w(m.loC15,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C16' - 'Branchen
Wichtige Feldinformationen:
Primary Key ....: IDC16+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZ)
EAN Key..........: none
ID- Field...........: IDC16
IC- Field...........: BEZ
IP- Field...........: none
IK- Field...........: none
Feldliste...........: NOTIZ,TXC16,BEZ,IDC16,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,N...
Die Komplette Liste der Felder finden Sie unter: Branchen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC16+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC16w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC16 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC16 = My.Bussines.Strain.Misc.oC16['IDC16'] IF loC16.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC16 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC16w(m.loC16,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC16 = My.Bussines.Strain.Misc.oC16[0] IF loC16.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC16 AS Object */ Ein PRIVATE Objekt muss her... poC16 = loC16 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C16","poC16") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC16 AS Object */ IDC16 - ID-Branchen .IDC16 = "Bitte angeben" */ BEZ - Branchen .BEZ = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC16w(m.loC16,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC16.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC16.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC16w(m.loC16,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC16w(m.loC16,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C18' - 'Banken (BLZ)
Wichtige Feldinformationen:
Primary Key ....: IDC18
Secondary Key.: none
Candidate Key.: BANK
EAN Key..........: none
ID- Field...........: IDC18
IC- Field...........: BANK
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Banken (BLZ)
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC18) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC18w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC18w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC18 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC18 = My.Bussines.Strain.Misc.oC18['IDC18'] IF loC18.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC18 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC18w(m.loC18,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC18 = My.Bussines.Strain.Misc.oC18[0] IF loC18.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC18 AS Object */ Ein PRIVATE Objekt muss her... poC18 = loC18 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C18","poC18") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC18 AS Object */ IDC18 - ID-Banken (BLZ) .IDC18 = "Bitte angeben" */ BANK - Banken .BANK = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC18w(m.loC18,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC18.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC18.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC18w(m.loC18,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC18w(m.loC18,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C19' - 'Einheiten-Basiseinheiten
Wichtige Feldinformationen:
Primary Key ....: IDC19+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC19
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DEC,EDIDIN,BEZEI,IDC19,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: Einheiten-Basiseinheiten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC19+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC19w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC19w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC19 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC19 = My.Bussines.Strain.Misc.oC19['IDC19'] IF loC19.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC19 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC19w(m.loC19,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC19 = My.Bussines.Strain.Misc.oC19[0] IF loC19.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC19 AS Object */ Ein PRIVATE Objekt muss her... poC19 = loC19 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C19","poC19") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC19 AS Object */ IDC19 - ID-Einheiten-Basiseinheiten .IDC19 = "Bitte angeben" */ BEZEI - Mengeneinheiten .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC19w(m.loC19,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC19.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC19.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC19w(m.loC19,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC19w(m.loC19,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Variant = My.Bussines.Strain.Misc.oC20T(tcIdc20 AS STRING,tcIdc08 AS STRING,tcIdc09St AS STRING,tdDate AS DATE) Variant = My.Bussines.Strain.Misc.oC20T(tcIdc20,tcIdc08,tcIdc09St,tdDate)
C20' - 'FIBU - Gruppen Kopfdaten
Wichtige Feldinformationen:
Primary Key ....: IDC20+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC20
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: FIBU - Gruppen Kopfdaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC20+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC20 = My.Bussines.Strain.Misc.oC20['IDC20'] IF loC20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC20w(m.loC20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC20 = My.Bussines.Strain.Misc.oC20[0] IF loC20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC20 AS Object */ Ein PRIVATE Objekt muss her... poC20 = loC20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C20","poC20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC20 AS Object */ IDC20 - ID-FIBU - Gruppen Kopfdaten .IDC20 = "Bitte angeben" */ BEZEI - FIBU - Gruppen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC20w(m.loC20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC20w(m.loC20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC20w(m.loC20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C21' - 'FIBU - Gruppen Positionen
Wichtige Feldinformationen:
Primary Key ....: IDC21
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC21
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GDATUM,IDC09,IDC21,KTOWA,KTOWE,LASTUPD,LAUTO,LDATUM,LPRG,LWE...
Die Komplette Liste der Felder finden Sie unter: FIBU - Gruppen Positionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC21) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC21w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC21 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC21 = My.Bussines.Strain.Misc.oC21['IDC21'] IF loC21.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC21 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC21w(m.loC21,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC21 = My.Bussines.Strain.Misc.oC21[0] IF loC21.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC21 AS Object */ Ein PRIVATE Objekt muss her... poC21 = loC21 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C21","poC21") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC21 AS Object */ IDC21 - ID-FIBU - Gruppen Positionen .IDC21 = My.Clients.Numbers.GetMoreIds("IDC21",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC21w(m.loC21,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC21.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC21.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC21w(m.loC21,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC21w(m.loC21,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C22' - 'Lieferbedingungen
Wichtige Feldinformationen:
Primary Key ....: IDC22+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC22
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LANGTEXT,BEZEI,IDC22,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,ND...
Die Komplette Liste der Felder finden Sie unter: Lieferbedingungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC22+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC22w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC22w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC22 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC22 = My.Bussines.Strain.Misc.oC22['IDC22'] IF loC22.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC22 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC22w(m.loC22,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC22 = My.Bussines.Strain.Misc.oC22[0] IF loC22.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC22 AS Object */ Ein PRIVATE Objekt muss her... poC22 = loC22 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C22","poC22") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC22 AS Object */ IDC22 - ID-Lieferbedingungen .IDC22 = "Bitte angeben" */ BEZEI - Lieferbedingungen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC22w(m.loC22,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC22.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC22.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC22w(m.loC22,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC22w(m.loC22,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C23' - 'Preisgruppen Einkauf
Wichtige Feldinformationen:
Primary Key ....: IDC23+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC23
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: NOTIZ,TXC23,BEZEI,IDC19,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Preisgruppen Einkauf
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC23+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC23w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC23w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC23 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC23 = My.Bussines.Strain.Misc.oC23['IDC23'] IF loC23.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC23 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC23w(m.loC23,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC23 = My.Bussines.Strain.Misc.oC23[0] IF loC23.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC23 AS Object */ Ein PRIVATE Objekt muss her... poC23 = loC23 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C23","poC23") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC23 AS Object */ IDC23 - ID-Preisgruppen Einkauf .IDC23 = "Bitte angeben" */ BEZEI - Preisgruppen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC23w(m.loC23,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC23.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC23.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC23w(m.loC23,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC23w(m.loC23,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C24' - 'Zahlungskonditionen
Wichtige Feldinformationen:
Primary Key ....: IDC24+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC24
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESCHREIB,LANGTEXT,NETTO2,NETTO3,NETTO4,SKONTO2,SKONTO3,SKON...
Die Komplette Liste der Felder finden Sie unter: Zahlungskonditionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC24+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC24w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC24w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC24 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC24 = My.Bussines.Strain.Misc.oC24['IDC24'] IF loC24.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC24 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC24w(m.loC24,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC24 = My.Bussines.Strain.Misc.oC24[0] IF loC24.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC24 AS Object */ Ein PRIVATE Objekt muss her... poC24 = loC24 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C24","poC24") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC24 AS Object */ IDC24 - ID-Zahlungskonditionen .IDC24 = "Bitte angeben" */ BEZEI - Zahlungskonditionen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC24w(m.loC24,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC24.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC24.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC24w(m.loC24,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC24w(m.loC24,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C26' - 'Sprachen
Wichtige Feldinformationen:
Primary Key ....: IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC26
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: C26FONT,C26GR,C26STYLE,CHECKSUM,BEZEI,IDC26,LASTUPD,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: Sprachen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC26w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC26w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC26 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC26 = My.Bussines.Strain.Misc.oC26['IDC26'] IF loC26.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC26 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC26w(m.loC26,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC26 = My.Bussines.Strain.Misc.oC26[0] IF loC26.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC26 AS Object */ Ein PRIVATE Objekt muss her... poC26 = loC26 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C26","poC26") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC26 AS Object */ IDC26 - ID-Sprachen .IDC26 = "Bitte angeben" */ BEZEI - Sprachen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC26w(m.loC26,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC26.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC26.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC26w(m.loC26,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC26w(m.loC26,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C27' - 'Abschlagsarten
Wichtige Feldinformationen:
Primary Key ....: IDC27+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC27
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC27,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Abschlagsarten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC27+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC27w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC27w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC27 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC27 = My.Bussines.Strain.Misc.oC27['IDC27'] IF loC27.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC27 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC27w(m.loC27,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC27 = My.Bussines.Strain.Misc.oC27[0] IF loC27.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC27 AS Object */ Ein PRIVATE Objekt muss her... poC27 = loC27 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C27","poC27") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC27 AS Object */ IDC27 - ID-Abschlagsarten .IDC27 = "Bitte angeben" */ BEZEI - Abschlagsarten .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC27w(m.loC27,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC27.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC27.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC27w(m.loC27,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC27w(m.loC27,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C28' - 'Vorgangsarten
Wichtige Feldinformationen:
Primary Key ....: IDC28+IDC26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC28
IC- Field...........: BEZEI
IP- Field...........: IPY01
IK- Field...........: KURZ
Feldliste...........: BEZ,BEZEI,IDC26,IDC28,IPY01,KURZ,LASTUPD,LDATUM,LPRG,LWER,LZ...
Die Komplette Liste der Felder finden Sie unter: Vorgangsarten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC28+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC28w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC28w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC28 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC28 = My.Bussines.Strain.Misc.oC28['IDC28'] IF loC28.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC28 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC28w(m.loC28,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC28 = My.Bussines.Strain.Misc.oC28[0] IF loC28.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC28 AS Object */ Ein PRIVATE Objekt muss her... poC28 = loC28 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C28","poC28") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC28 AS Object */ IDC28 - ID-Feld .IDC28 = "Bitte angeben" */ BEZEI - Bezeichnung .BEZEI = "Bitte angeben" */ IPY01 - Vorbelegung aus Y01 .IPY01 = "100" */ KURZ - Kurzbezeichnung .KURZ = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC28w(m.loC28,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC28.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC28.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC28w(m.loC28,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC28w(m.loC28,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C29' - 'Anlagenbezeichner
Wichtige Feldinformationen:
Primary Key ....: IDC29+IDC26
Secondary Key.: none
Candidate Key.: ANLAGE
EAN Key..........: none
ID- Field...........: IDC29
IC- Field...........: ANLAGE
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC26,ANLAGE,IDC29,IDK10,LASTUPD,ZNR,LDATUM,LPRG,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: Anlagenbezeichner
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC29+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC29w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC29w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC29 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC29 = My.Bussines.Strain.Misc.oC29['IDC29'] IF loC29.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC29 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC29w(m.loC29,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC29 = My.Bussines.Strain.Misc.oC29[0] IF loC29.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC29 AS Object */ Ein PRIVATE Objekt muss her... poC29 = loC29 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C29","poC29") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC29 AS Object */ IDC29 - ID-Anlagenbezeichner .IDC29 = My.Clients.Numbers.GetMoreIds("IDC29",1) */ ANLAGE - Anlagenbezeichner .ANLAGE = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC29w(m.loC29,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC29.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC29.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC29w(m.loC29,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC29w(m.loC29,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C30' - 'Adressen
Wichtige Feldinformationen:
Primary Key ....: IDC30
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDC30
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABCKENN,EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Adressen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC30) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC30w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC30 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC30 = My.Bussines.Strain.Misc.oC30['IDC30'] IF loC30.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC30 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC30w(m.loC30,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC30 = My.Bussines.Strain.Misc.oC30[0] IF loC30.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC30 AS Object */ Ein PRIVATE Objekt muss her... poC30 = loC30 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C30","poC30") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC30 AS Object */ IDC30 - ID-Adressen .IDC30 = "Bitte angeben" */ MATCH - Adressen .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC30w(m.loC30,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC30.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC30.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC30w(m.loC30,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC30w(m.loC30,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C31' - 'Kostenträger
Wichtige Feldinformationen:
Primary Key ....: IDC31+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC31
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GKF,BEZEI,FIBUNR,IDC02,IDC26,IDC31,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Kostenträger
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC31+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC31w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC31w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC31 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC31 = My.Bussines.Strain.Misc.oC31['IDC31'] IF loC31.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC31 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC31w(m.loC31,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC31 = My.Bussines.Strain.Misc.oC31[0] IF loC31.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC31 AS Object */ Ein PRIVATE Objekt muss her... poC31 = loC31 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C31","poC31") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC31 AS Object */ IDC31 - ID-Kostenträger .IDC31 = "Bitte angeben" */ BEZEI - Kostenträger .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC31w(m.loC31,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC31.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC31.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC31w(m.loC31,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC31w(m.loC31,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C32' - 'Kostenstellen
Wichtige Feldinformationen:
Primary Key ....: IDC32+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC32
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,FIBUNR,GKF,IDC02,IDC26,IDC32,MAXKAPA,LASTUPD,LDATUM,LP...
Die Komplette Liste der Felder finden Sie unter: Kostenstellen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC32+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC32w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC32w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC32 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC32 = My.Bussines.Strain.Misc.oC32['IDC32'] IF loC32.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC32 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC32w(m.loC32,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC32 = My.Bussines.Strain.Misc.oC32[0] IF loC32.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC32 AS Object */ Ein PRIVATE Objekt muss her... poC32 = loC32 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C32","poC32") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC32 AS Object */ IDC32 - ID-Kostenstellen .IDC32 = "Bitte angeben" */ BEZEI - Kostenstellen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC32w(m.loC32,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC32.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC32.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC32w(m.loC32,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC32w(m.loC32,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C33' - 'Artikelhauptgruppen
Wichtige Feldinformationen:
Primary Key ....: IDC33+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC33
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Artikelhauptgruppen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC33+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC33w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC33w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC33 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC33 = My.Bussines.Strain.Misc.oC33['IDC33'] IF loC33.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC33 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC33w(m.loC33,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC33 = My.Bussines.Strain.Misc.oC33[0] IF loC33.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC33 AS Object */ Ein PRIVATE Objekt muss her... poC33 = loC33 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C33","poC33") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC33 AS Object */ IDC33 - ID-Artikelhauptgruppen .IDC33 = "Bitte angeben" */ BEZEI - Artikelhauptgruppen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC33w(m.loC33,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC33.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC33.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC33w(m.loC33,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC33w(m.loC33,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C34' - 'Artikeluntergruppen
Wichtige Feldinformationen:
Primary Key ....: IDC34+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC34
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Artikeluntergruppen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC34+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC34w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC34w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC34 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC34 = My.Bussines.Strain.Misc.oC34['IDC34'] IF loC34.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC34 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC34w(m.loC34,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC34 = My.Bussines.Strain.Misc.oC34[0] IF loC34.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC34 AS Object */ Ein PRIVATE Objekt muss her... poC34 = loC34 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C34","poC34") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC34 AS Object */ IDC34 - ID-Artikeluntergruppen .IDC34 = "Bitte angeben" */ BEZEI - Artikeluntergruppen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC34w(m.loC34,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC34.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC34.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC34w(m.loC34,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC34w(m.loC34,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C39' - 'Mitarbeitergruppen
Wichtige Feldinformationen:
Primary Key ....: IDC39+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC39
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZEIT,BEZEI,...
Die Komplette Liste der Felder finden Sie unter: Mitarbeitergruppen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC39+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC39w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC39w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC39 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC39 = My.Bussines.Strain.Misc.oC39['IDC39'] IF loC39.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC39 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC39w(m.loC39,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC39 = My.Bussines.Strain.Misc.oC39[0] IF loC39.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC39 AS Object */ Ein PRIVATE Objekt muss her... poC39 = loC39 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C39","poC39") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC39 AS Object */ IDC39 - ID-Mitarbeitergruppen .IDC39 = "Bitte angeben" */ BEZEI - Mitarbeitergruppen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC39w(m.loC39,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC39.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC39.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC39w(m.loC39,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC39w(m.loC39,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C40' - 'Textbausteine
Wichtige Feldinformationen:
Primary Key ....: IDC40+IDC26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC40
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZ...
Die Komplette Liste der Felder finden Sie unter: Textbausteine
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC40+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC40w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC40 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC40 = My.Bussines.Strain.Misc.oC40['IDC40'] IF loC40.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC40 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC40w(m.loC40,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC40 = My.Bussines.Strain.Misc.oC40[0] IF loC40.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC40 AS Object */ Ein PRIVATE Objekt muss her... poC40 = loC40 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C40","poC40") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC40 AS Object */ IDC40 - ID-Textbausteine .IDC40 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC40w(m.loC40,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC40.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC40.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC40w(m.loC40,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC40w(m.loC40,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C41' - 'Kostenarten
Wichtige Feldinformationen:
Primary Key ....: IDC41+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC41
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC41,KOGRP,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATU...
Die Komplette Liste der Felder finden Sie unter: Kostenarten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC41+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC41w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC41w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC41 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC41 = My.Bussines.Strain.Misc.oC41['IDC41'] IF loC41.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC41 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC41w(m.loC41,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC41 = My.Bussines.Strain.Misc.oC41[0] IF loC41.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC41 AS Object */ Ein PRIVATE Objekt muss her... poC41 = loC41 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C41","poC41") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC41 AS Object */ IDC41 - ID-Kostenarten .IDC41 = "Bitte angeben" */ BEZEI - Kostenarten .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC41w(m.loC41,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC41.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC41.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC41w(m.loC41,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC41w(m.loC41,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C42' - 'Statistikgruppen
Wichtige Feldinformationen:
Primary Key ....: IDC42+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC42
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC42,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Statistikgruppen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC42+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC42w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC42w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC42 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC42 = My.Bussines.Strain.Misc.oC42['IDC42'] IF loC42.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC42 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC42w(m.loC42,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC42 = My.Bussines.Strain.Misc.oC42[0] IF loC42.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC42 AS Object */ Ein PRIVATE Objekt muss her... poC42 = loC42 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C42","poC42") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC42 AS Object */ IDC42 - ID-Statistikgruppen .IDC42 = "Bitte angeben" */ BEZEI - Statistikgruppen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC42w(m.loC42,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC42.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC42.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC42w(m.loC42,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC42w(m.loC42,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C43' - 'Preisgruppen Verkauf
Wichtige Feldinformationen:
Primary Key ....: IDC43+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC43
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC19,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Preisgruppen Verkauf
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC43+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC43w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC43w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC43 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC43 = My.Bussines.Strain.Misc.oC43['IDC43'] IF loC43.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC43 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC43w(m.loC43,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC43 = My.Bussines.Strain.Misc.oC43[0] IF loC43.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC43 AS Object */ Ein PRIVATE Objekt muss her... poC43 = loC43 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C43","poC43") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC43 AS Object */ IDC43 - ID-Preisgruppen Verkauf .IDC43 = "Bitte angeben" */ BEZEI - Preisgruppen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC43w(m.loC43,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC43.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC43.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC43w(m.loC43,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC43w(m.loC43,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C44' - 'Produktgruppen
Wichtige Feldinformationen:
Primary Key ....: IDC44+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC44
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,FIBUNR,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPR...
Die Komplette Liste der Felder finden Sie unter: Produktgruppen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC44+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC44w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC44w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC44 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC44 = My.Bussines.Strain.Misc.oC44['IDC44'] IF loC44.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC44 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC44w(m.loC44,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC44 = My.Bussines.Strain.Misc.oC44[0] IF loC44.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC44 AS Object */ Ein PRIVATE Objekt muss her... poC44 = loC44 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C44","poC44") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC44 AS Object */ IDC44 - ID-Produktgruppen .IDC44 = "Bitte angeben" */ BEZEI - Produktgruppen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC44w(m.loC44,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC44.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC44.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC44w(m.loC44,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC44w(m.loC44,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C48' - 'Prüfvorschriften
Wichtige Feldinformationen:
Primary Key ....: IDC48+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC48
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC48,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Prüfvorschriften
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC48+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC48w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC48w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC48 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC48 = My.Bussines.Strain.Misc.oC48['IDC48'] IF loC48.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC48 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC48w(m.loC48,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC48 = My.Bussines.Strain.Misc.oC48[0] IF loC48.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC48 AS Object */ Ein PRIVATE Objekt muss her... poC48 = loC48 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C48","poC48") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC48 AS Object */ IDC48 - ID-Prüfvorschriften .IDC48 = "Bitte angeben" */ BEZEI - Prüfvorschriften .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC48w(m.loC48,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC48.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC48.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC48w(m.loC48,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC48w(m.loC48,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C49' - 'Kennbuchstaben
Wichtige Feldinformationen:
Primary Key ....: IDC50+IDC49+IDC26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC49
IC- Field...........: ICC49
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,AENDERN,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM...
Die Komplette Liste der Felder finden Sie unter: Kennbuchstaben
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC50+IDC49+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC49w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC49w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC49 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC49 = My.Bussines.Strain.Misc.oC49['IDC49'] IF loC49.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC49 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC49w(m.loC49,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC49 = My.Bussines.Strain.Misc.oC49[0] IF loC49.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC49 AS Object */ Ein PRIVATE Objekt muss her... poC49 = loC49 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C49","poC49") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC49 AS Object */ IDC49 - ID-Kennbuchstaben .IDC49 = "Bitte angeben" */ ICC49 - Kurzinfo .ICC49 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC49w(m.loC49,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC49.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC49.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC49w(m.loC49,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC49w(m.loC49,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C50' - 'VNS Klassen
Wichtige Feldinformationen:
Primary Key ....: IDC50+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC50
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,N...
Die Komplette Liste der Felder finden Sie unter: VNS Klassen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC50+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC50w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC50 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC50 = My.Bussines.Strain.Misc.oC50['IDC50'] IF loC50.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC50 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC50w(m.loC50,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC50 = My.Bussines.Strain.Misc.oC50[0] IF loC50.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC50 AS Object */ Ein PRIVATE Objekt muss her... poC50 = loC50 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C50","poC50") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC50 AS Object */ IDC50 - ID-VNS Klassen .IDC50 = "Bitte angeben" */ BEZEI - VNS-Klassen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC50w(m.loC50,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC50.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC50.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC50w(m.loC50,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC50w(m.loC50,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C51' - 'VNS Ausprägungsmerkmale
Wichtige Feldinformationen:
Primary Key ....: IDC50+IDC51+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC51
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZUG,CHECKSUM,DDFORMAT,KONTEXT,LEVEL,UF,BEZEI,KENNUNG,IDC26...
Die Komplette Liste der Felder finden Sie unter: VNS Ausprägungsmerkmale
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC50+IDC51+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC51w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC51w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC51 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC51 = My.Bussines.Strain.Misc.oC51['IDC51'] IF loC51.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC51 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC51w(m.loC51,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC51 = My.Bussines.Strain.Misc.oC51[0] IF loC51.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC51 AS Object */ Ein PRIVATE Objekt muss her... poC51 = loC51 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C51","poC51") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC51 AS Object */ IDC51 - VNS Ausprägungen .IDC51 = "Bitte angeben" */ BEZEI - Ausprägungen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC51w(m.loC51,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC51.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC51.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC51w(m.loC51,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC51w(m.loC51,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Abgefragt werden:
c52.ipc52+c52.idc52+c52.ipy01 = m.tcIpc52 + m.tcIdc52 + m.tcIpy01
Zusätzlich kann das Feld c52.notiz überprüft werden, wenn angegeben.
Rückgabe ist ein Objekt der Tabelle C52.
Bei mehreren Datensätzen kann die Property:
oC52.__C52Count (>=0) abgefragt werden!
Variant = My.Bussines.Strain.Misc.oC52Ext(tcIpC52 AS STRING, tcIdC52 AS STRING , tcIpY01 AS STRING , tcNotiz AS STRING) Variant = My.Bussines.Strain.Misc.oC52Ext(tcIpC52,tcIdC52,tcIpY01,tcNotiz)
C52' - 'Adressverknüpfungen
Wichtige Feldinformationen:
Primary Key ....: IDC5X
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC52
IC- Field...........: none
IP- Field...........: IPC52
IK- Field...........: none
Feldliste...........: IDC5X,IDC30,IDC52,IPC52,IPY01,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Adressverknüpfungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC5X) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC52w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC52w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC52 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC52 = My.Bussines.Strain.Misc.oC52['IDC52'] IF loC52.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC52 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC52w(m.loC52,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC52 = My.Bussines.Strain.Misc.oC52[0] IF loC52.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC52 AS Object */ Ein PRIVATE Objekt muss her... poC52 = loC52 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C52","poC52") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC52 AS Object */ IDC52 - Von Adresse .IDC52 = "Bitte angeben" */ IPC52 - Von Adresse .IPC52 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC52w(m.loC52,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC52.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC52.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC52w(m.loC52,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC52w(m.loC52,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C53' - 'Support Meldungen
Wichtige Feldinformationen:
Primary Key ....: IDC53
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC53
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DATVER2,DATVOR,ERLEDIGT,EWER,FTEXT,ICE10,ICK10,ICMA...
Die Komplette Liste der Felder finden Sie unter: Support Meldungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC53) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC53w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC53w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC53 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC53 = My.Bussines.Strain.Misc.oC53['IDC53'] IF loC53.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC53 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC53w(m.loC53,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC53 = My.Bussines.Strain.Misc.oC53[0] IF loC53.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC53 AS Object */ Ein PRIVATE Objekt muss her... poC53 = loC53 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C53","poC53") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC53 AS Object */ IDC53 - ID-Support Meldungen .IDC53 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC53w(m.loC53,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC53.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC53.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC53w(m.loC53,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC53w(m.loC53,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C54' - 'Entwickler-Module
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,EWER,MODUL,LDATUM,LWER,LZEIT
Die Komplette Liste der Felder finden Sie unter: Entwickler-Module
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC54w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC54w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC54 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC54 = My.Bussines.Strain.Misc.oC54['none'] IF loC54.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC54 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC54w(m.loC54,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC54 = My.Bussines.Strain.Misc.oC54[0] IF loC54.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC54 AS Object */ Ein PRIVATE Objekt muss her... poC54 = loC54 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C54","poC54") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC54 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC54w(m.loC54,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC54.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC54.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC54w(m.loC54,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC54w(m.loC54,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C55' - 'Verträge / Presente
Wichtige Feldinformationen:
Primary Key ....: IDC55
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC55
IC- Field...........: ICC55
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,DATAB,DATBZ,DATEZ,DATKU,DATLZ,ICC55,ICC55F,IDART,IDC30RG...
Die Komplette Liste der Felder finden Sie unter: Verträge / Presente
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC55) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC55w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC55w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC55 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC55 = My.Bussines.Strain.Misc.oC55['IDC55'] IF loC55.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC55 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC55w(m.loC55,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC55 = My.Bussines.Strain.Misc.oC55[0] IF loC55.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC55 AS Object */ Ein PRIVATE Objekt muss her... poC55 = loC55 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C55","poC55") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC55 AS Object */ IDC55 - ID-Verträge / Presente .IDC55 = My.Clients.Numbers.GetMoreIds("IDC55",1) */ ICC55 - Swarts/Präsente .ICC55 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC55w(m.loC55,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC55.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC55.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC55w(m.loC55,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC55w(m.loC55,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C61' - 'Lieferanten
Wichtige Feldinformationen:
Primary Key ....: IDC61
Secondary Key.: none
Candidate Key.: UPPER(MATCH)
EAN Key..........: none
ID- Field...........: IDC61
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EDIADR,EDIDAT,EDIDIR,EDIILN,EDIKOPF,EDIMOD,EDINUM,EDIORG,EDI...
Die Komplette Liste der Felder finden Sie unter: Lieferanten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC61) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC61w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC61w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC61 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC61 = My.Bussines.Strain.Misc.oC61['IDC61'] IF loC61.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC61 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC61w(m.loC61,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC61 = My.Bussines.Strain.Misc.oC61[0] IF loC61.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC61 AS Object */ Ein PRIVATE Objekt muss her... poC61 = loC61 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C61","poC61") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC61 AS Object */ IDC61 - ID-Lieferanten .IDC61 = "Bitte angeben" */ MATCH - Lieferanten .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC61w(m.loC61,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC61.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC61.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC61w(m.loC61,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC61w(m.loC61,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C62' - 'Hersteller
Wichtige Feldinformationen:
Primary Key ....: IDC62
Secondary Key.: none
Candidate Key.: UPPER(MATCH)
EAN Key..........: none
ID- Field...........: IDC62
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Hersteller
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC62) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC62w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC62w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC62 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC62 = My.Bussines.Strain.Misc.oC62['IDC62'] IF loC62.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC62 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC62w(m.loC62,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC62 = My.Bussines.Strain.Misc.oC62[0] IF loC62.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC62 AS Object */ Ein PRIVATE Objekt muss her... poC62 = loC62 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C62","poC62") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC62 AS Object */ IDC62 - ID-Hersteller .IDC62 = "Bitte angeben" */ MATCH - Hersteller .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC62w(m.loC62,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC62.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC62.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC62w(m.loC62,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC62w(m.loC62,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C63' - 'Kunden
Wichtige Feldinformationen:
Primary Key ....: IDC63
Secondary Key.: none
Candidate Key.: UPPER(MATCH)
EAN Key..........: none
ID- Field...........: IDC63
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANGSPERRE,AUFSPERRE,DATSWA,EGDATE,EGLAND,EGUSTID,EMAIL,ENDK,...
Die Komplette Liste der Felder finden Sie unter: Kunden
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC63) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC63w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC63w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC63 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC63 = My.Bussines.Strain.Misc.oC63['IDC63'] IF loC63.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC63 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC63w(m.loC63,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC63 = My.Bussines.Strain.Misc.oC63[0] IF loC63.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC63 AS Object */ Ein PRIVATE Objekt muss her... poC63 = loC63 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C63","poC63") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC63 AS Object */ IDC63 - ID-Kunden .IDC63 = "Bitte angeben" */ MATCH - Kunden .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC63w(m.loC63,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC63.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC63.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC63w(m.loC63,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC63w(m.loC63,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C65' - 'Benutzer
Wichtige Feldinformationen:
Primary Key ....: IDC65
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDC65
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARA...
Die Komplette Liste der Felder finden Sie unter: Benutzer
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC65) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC65w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC65w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC65 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC65 = My.Bussines.Strain.Misc.oC65['IDC65'] IF loC65.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC65 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC65w(m.loC65,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC65 = My.Bussines.Strain.Misc.oC65[0] IF loC65.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC65 AS Object */ Ein PRIVATE Objekt muss her... poC65 = loC65 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C65","poC65") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC65 AS Object */ IDC65 - ID-Benutzer .IDC65 = "Bitte angeben" */ MATCH - Benutzer .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC65w(m.loC65,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC65.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC65.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC65w(m.loC65,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC65w(m.loC65,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C66' - 'Lagerorte
Wichtige Feldinformationen:
Primary Key ....: IDC66
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDC66
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Lagerorte
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC66) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC66w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC66w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC66 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC66 = My.Bussines.Strain.Misc.oC66['IDC66'] IF loC66.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC66 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC66w(m.loC66,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC66 = My.Bussines.Strain.Misc.oC66[0] IF loC66.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC66 AS Object */ Ein PRIVATE Objekt muss her... poC66 = loC66 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C66","poC66") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC66 AS Object */ IDC66 - ID-Lagerorte .IDC66 = "Bitte angeben" */ MATCH - Lager .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC66w(m.loC66,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC66.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC66.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC66w(m.loC66,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC66w(m.loC66,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C67' - 'Ansprechpartner
Wichtige Feldinformationen:
Primary Key ....: IDC67
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDC67
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Ansprechpartner
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC67) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC67w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC67w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC67 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC67 = My.Bussines.Strain.Misc.oC67['IDC67'] IF loC67.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC67 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC67w(m.loC67,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC67 = My.Bussines.Strain.Misc.oC67[0] IF loC67.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC67 AS Object */ Ein PRIVATE Objekt muss her... poC67 = loC67 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C67","poC67") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC67 AS Object */ IDC67 - ID-Ansprechpartner .IDC67 = "Bitte angeben" */ MATCH - Ansprechpartner .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC67w(m.loC67,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC67.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC67.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC67w(m.loC67,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC67w(m.loC67,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C68' - 'Sachbearbeiter
Wichtige Feldinformationen:
Primary Key ....: IDC68
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDC68
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Sachbearbeiter
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC68) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC68w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC68w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC68 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC68 = My.Bussines.Strain.Misc.oC68['IDC68'] IF loC68.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC68 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC68w(m.loC68,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC68 = My.Bussines.Strain.Misc.oC68[0] IF loC68.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC68 AS Object */ Ein PRIVATE Objekt muss her... poC68 = loC68 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C68","poC68") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC68 AS Object */ IDC68 - ID-Sachbearbeiter .IDC68 = "Bitte angeben" */ MATCH - Sachbearbeiter .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC68w(m.loC68,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC68.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC68.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC68w(m.loC68,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC68w(m.loC68,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C69' - 'Vertreter
Wichtige Feldinformationen:
Primary Key ....: IDC69
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDC69
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Vertreter
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC69) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC69w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC69w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC69 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC69 = My.Bussines.Strain.Misc.oC69['IDC69'] IF loC69.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC69 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC69w(m.loC69,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC69 = My.Bussines.Strain.Misc.oC69[0] IF loC69.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC69 AS Object */ Ein PRIVATE Objekt muss her... poC69 = loC69 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C69","poC69") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC69 AS Object */ IDC69 - ID-Vertreter .IDC69 = "Bitte angeben" */ MATCH - Vertreter .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC69w(m.loC69,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC69.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC69.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC69w(m.loC69,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC69w(m.loC69,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C70' - 'Kunden Vertreter
Wichtige Feldinformationen:
Primary Key ....: IDC70
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC70
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC69,IDC70,NDATUM,RANG,IDC63,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Kunden Vertreter
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC70) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC70w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC70w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC70 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC70 = My.Bussines.Strain.Misc.oC70['IDC70'] IF loC70.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC70 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC70w(m.loC70,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC70 = My.Bussines.Strain.Misc.oC70[0] IF loC70.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC70 AS Object */ Ein PRIVATE Objekt muss her... poC70 = loC70 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C70","poC70") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC70 AS Object */ IDC70 - ID-Kunden Vertreter .IDC70 = My.Clients.Numbers.GetMoreIds("IDC70",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC70w(m.loC70,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC70.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC70.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC70w(m.loC70,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC70w(m.loC70,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C71' - 'Vorgang Vertreter
Wichtige Feldinformationen:
Primary Key ....: IDC71
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC71
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC69,IDC71,IDE10,NDATUM,PROZ,RANG,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Vorgang Vertreter
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC71) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC71w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC71w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC71 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC71 = My.Bussines.Strain.Misc.oC71['IDC71'] IF loC71.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC71 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC71w(m.loC71,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC71 = My.Bussines.Strain.Misc.oC71[0] IF loC71.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC71 AS Object */ Ein PRIVATE Objekt muss her... poC71 = loC71 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C71","poC71") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC71 AS Object */ IDC71 - ID-Vorgang Vertreter .IDC71 = My.Clients.Numbers.GetMoreIds("IDC71",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC71w(m.loC71,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC71.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC71.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC71w(m.loC71,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC71w(m.loC71,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C72' - 'Produktzuordnung
Wichtige Feldinformationen:
Primary Key ....: IDC72+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC72
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC72,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Produktzuordnung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC72+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC72w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC72w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC72 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC72 = My.Bussines.Strain.Misc.oC72['IDC72'] IF loC72.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC72 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC72w(m.loC72,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC72 = My.Bussines.Strain.Misc.oC72[0] IF loC72.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC72 AS Object */ Ein PRIVATE Objekt muss her... poC72 = loC72 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C72","poC72") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC72 AS Object */ IDC72 - ID-Produktzuordnung .IDC72 = "Bitte angeben" */ BEZEI - Produktzuordnung .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC72w(m.loC72,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC72.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC72.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC72w(m.loC72,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC72w(m.loC72,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C73' - 'Vorg.-P.-Produktzuordnung
Wichtige Feldinformationen:
Primary Key ....: IDC73
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC73
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC72,IDC73,NDATUM,PROZ,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NPRG,...
Die Komplette Liste der Felder finden Sie unter: Vorg.-P.-Produktzuordnung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC73) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC73w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC73w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC73 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC73 = My.Bussines.Strain.Misc.oC73['IDC73'] IF loC73.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC73 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC73w(m.loC73,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC73 = My.Bussines.Strain.Misc.oC73[0] IF loC73.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC73 AS Object */ Ein PRIVATE Objekt muss her... poC73 = loC73 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C73","poC73") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC73 AS Object */ IDC73 - ID-Vorg.-P.-Produktzuordnung .IDC73 = My.Clients.Numbers.GetMoreIds("IDC73",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC73w(m.loC73,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC73.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC73.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC73w(m.loC73,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC73w(m.loC73,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C74' - 'Seriennummernzuordnung
Wichtige Feldinformationen:
Primary Key ....: IDC74
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC74
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC63E,IDC74,IDE10,NDATUM,PRJNR,SNR,IDC63,MENGE,LASTUPD,LDAT...
Die Komplette Liste der Felder finden Sie unter: Seriennummernzuordnung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC74) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC74w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC74w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC74 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC74 = My.Bussines.Strain.Misc.oC74['IDC74'] IF loC74.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC74 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC74w(m.loC74,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC74 = My.Bussines.Strain.Misc.oC74[0] IF loC74.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC74 AS Object */ Ein PRIVATE Objekt muss her... poC74 = loC74 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C74","poC74") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC74 AS Object */ IDC74 - ID-Seriennummernzuordnung .IDC74 = My.Clients.Numbers.GetMoreIds("IDC74",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC74w(m.loC74,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC74.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC74.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC74w(m.loC74,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC74w(m.loC74,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C75' - 'Statistikmerkmale-1
Wichtige Feldinformationen:
Primary Key ....: IDC75
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC75
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC75,ITC75,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Statistikmerkmale-1
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC75) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC75w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC75w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC75 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC75 = My.Bussines.Strain.Misc.oC75['IDC75'] IF loC75.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC75 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC75w(m.loC75,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC75 = My.Bussines.Strain.Misc.oC75[0] IF loC75.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC75 AS Object */ Ein PRIVATE Objekt muss her... poC75 = loC75 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C75","poC75") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC75 AS Object */ IDC75 - ID-Statistikmerkmale-1 .IDC75 = "Bitte angeben" */ BEZEI - Statistikmerkmale-1 .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC75w(m.loC75,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC75.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC75.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC75w(m.loC75,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC75w(m.loC75,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C76' - 'Statistikmerkmale-2
Wichtige Feldinformationen:
Primary Key ....: IDC76
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC76
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC76,ITC76,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Statistikmerkmale-2
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC76) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC76w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC76w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC76 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC76 = My.Bussines.Strain.Misc.oC76['IDC76'] IF loC76.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC76 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC76w(m.loC76,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC76 = My.Bussines.Strain.Misc.oC76[0] IF loC76.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC76 AS Object */ Ein PRIVATE Objekt muss her... poC76 = loC76 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C76","poC76") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC76 AS Object */ IDC76 - ID-Statistikmerkmale-2 .IDC76 = "Bitte angeben" */ BEZEI - Statistikmerkmale-2 .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC76w(m.loC76,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC76.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC76.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC76w(m.loC76,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC76w(m.loC76,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C77' - 'Statistikmerkmale-3
Wichtige Feldinformationen:
Primary Key ....: IDC77
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC77
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC77,ITC77,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Statistikmerkmale-3
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC77) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC77w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC77w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC77 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC77 = My.Bussines.Strain.Misc.oC77['IDC77'] IF loC77.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC77 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC77w(m.loC77,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC77 = My.Bussines.Strain.Misc.oC77[0] IF loC77.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC77 AS Object */ Ein PRIVATE Objekt muss her... poC77 = loC77 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C77","poC77") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC77 AS Object */ IDC77 - ID-Statistikmerkmale-3 .IDC77 = "Bitte angeben" */ BEZEI - Statistikmerkmale-3 .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC77w(m.loC77,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC77.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC77.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC77w(m.loC77,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC77w(m.loC77,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C78' - 'Statistikmerkmale-4
Wichtige Feldinformationen:
Primary Key ....: IDC78
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC78
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC78,ITC78,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Statistikmerkmale-4
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC78) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC78w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC78w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC78 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC78 = My.Bussines.Strain.Misc.oC78['IDC78'] IF loC78.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC78 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC78w(m.loC78,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC78 = My.Bussines.Strain.Misc.oC78[0] IF loC78.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC78 AS Object */ Ein PRIVATE Objekt muss her... poC78 = loC78 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C78","poC78") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC78 AS Object */ IDC78 - ID-Statistikmerkmale-4 .IDC78 = "Bitte angeben" */ BEZEI - Statistikmerkmale-4 .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC78w(m.loC78,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC78.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC78.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC78w(m.loC78,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC78w(m.loC78,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C80' - 'Dispotypen
Wichtige Feldinformationen:
Primary Key ....: IPC80+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IPC80
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,BEZEI,IDC26,IPC80,IPZWI,LASTUPD,LDATUM,LPRG,LWER,LZ...
Die Komplette Liste der Felder finden Sie unter: Dispotypen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IPC80+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC80w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC80w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC80 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC80 = My.Bussines.Strain.Misc.oC80['IPC80'] IF loC80.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC80 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC80w(m.loC80,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC80 = My.Bussines.Strain.Misc.oC80[0] IF loC80.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC80 AS Object */ Ein PRIVATE Objekt muss her... poC80 = loC80 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C80","poC80") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC80 AS Object */ IPC80 - Dispoart .IPC80 = "Bitte angeben" */ BEZEI - Dispotypen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC80w(m.loC80,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC80.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC80.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC80w(m.loC80,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC80w(m.loC80,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C81' - 'Bewertungskriterien
Wichtige Feldinformationen:
Primary Key ....: IDC81
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC81
IC- Field...........: FELDINH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEWKRIT,FELDINH,IDC81,IDC82,IDFIH,LASTUPD,LDATUM,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Bewertungskriterien
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC81) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC81w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC81w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC81 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC81 = My.Bussines.Strain.Misc.oC81['IDC81'] IF loC81.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC81 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC81w(m.loC81,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC81 = My.Bussines.Strain.Misc.oC81[0] IF loC81.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC81 AS Object */ Ein PRIVATE Objekt muss her... poC81 = loC81 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C81","poC81") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC81 AS Object */ IDC81 - ID-Bewertungskriterien .IDC81 = My.Clients.Numbers.GetMoreIds("IDC81",1) */ FELDINH - Bewertungskriterien .FELDINH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC81w(m.loC81,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC81.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC81.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC81w(m.loC81,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC81w(m.loC81,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C82' - 'Bewertungsprioritäten
Wichtige Feldinformationen:
Primary Key ....: IDC82
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC82
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC64,IDC82,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Bewertungsprioritäten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC82) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC82w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC82w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC82 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC82 = My.Bussines.Strain.Misc.oC82['IDC82'] IF loC82.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC82 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC82w(m.loC82,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC82 = My.Bussines.Strain.Misc.oC82[0] IF loC82.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC82 AS Object */ Ein PRIVATE Objekt muss her... poC82 = loC82 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C82","poC82") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC82 AS Object */ IDC82 - ID-Bewertungsprioritäten .IDC82 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC82w(m.loC82,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC82.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC82.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC82w(m.loC82,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC82w(m.loC82,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C83' - 'Minderungen
Wichtige Feldinformationen:
Primary Key ....: IDC84+IDC81+PADL(ALLTRIM(STR(ZEITRAUM)),8,"0")
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC81,IDC84,KENN,LASTUPD,LDATUM,LPRG,LWER,LZEIT,MINDERUNG,ND...
Die Komplette Liste der Felder finden Sie unter: Minderungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC84+IDC81+PADL(ALLTRIM(STR(ZEITRAUM)),8,"0")) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC83w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC83w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC83 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC83 = My.Bussines.Strain.Misc.oC83['none'] IF loC83.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC83 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC83w(m.loC83,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC83 = My.Bussines.Strain.Misc.oC83[0] IF loC83.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC83 AS Object */ Ein PRIVATE Objekt muss her... poC83 = loC83 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C83","poC83") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC83 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC83w(m.loC83,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC83.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC83.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC83w(m.loC83,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC83w(m.loC83,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C84' - 'Minderungskennzeichen
Wichtige Feldinformationen:
Primary Key ....: IDC84
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC84
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,GRUND,IDC84,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Minderungskennzeichen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC84) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC84w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC84w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC84 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC84 = My.Bussines.Strain.Misc.oC84['IDC84'] IF loC84.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC84 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC84w(m.loC84,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC84 = My.Bussines.Strain.Misc.oC84[0] IF loC84.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC84 AS Object */ Ein PRIVATE Objekt muss her... poC84 = loC84 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C84","poC84") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC84 AS Object */ IDC84 - ID-Minderungskennzeichen .IDC84 = "Bitte angeben" */ BEZEI - Minderungskennzeichen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC84w(m.loC84,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC84.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC84.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC84w(m.loC84,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC84w(m.loC84,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C91' - 'Lieferantenrabatte
Wichtige Feldinformationen:
Primary Key ....: IDC91
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDC91
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BWERT,DATBIS,DATVON,EXPR,IDC61,IDC63,IDC91,IDK10,LASTUPD,LCA...
Die Komplette Liste der Felder finden Sie unter: Lieferantenrabatte
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC91) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC91w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC91w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC91 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC91 = My.Bussines.Strain.Misc.oC91['IDC91'] IF loC91.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC91 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC91w(m.loC91,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC91 = My.Bussines.Strain.Misc.oC91[0] IF loC91.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC91 AS Object */ Ein PRIVATE Objekt muss her... poC91 = loC91 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C91","poC91") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC91 AS Object */ IDC91 - ID-Lieferantenrabatte .IDC91 = My.Clients.Numbers.GetMoreIds("IDC91",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC91w(m.loC91,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC91.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC91.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC91w(m.loC91,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC91w(m.loC91,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C97' - 'Montagearten
Wichtige Feldinformationen:
Primary Key ....: IDC97+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC97
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC97,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Montagearten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC97+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC97w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC97w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC97 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC97 = My.Bussines.Strain.Misc.oC97['IDC97'] IF loC97.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC97 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC97w(m.loC97,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC97 = My.Bussines.Strain.Misc.oC97[0] IF loC97.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC97 AS Object */ Ein PRIVATE Objekt muss her... poC97 = loC97 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C97","poC97") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC97 AS Object */ IDC97 - ID-Montagearten .IDC97 = My.Clients.Numbers.GetMoreIds("IDC97",1) */ BEZEI - Montagearten .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC97w(m.loC97,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC97.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC97.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC97w(m.loC97,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC97w(m.loC97,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C98' - 'Elemente / Legierungen
Wichtige Feldinformationen:
Primary Key ....: IDC98+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC98
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: IKC98
Feldliste...........: BEZEI,DATUM,GEWI,IDC26,IDC98,LASTUPD,LDATUM,LPRG,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: Elemente / Legierungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC98+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC98w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC98w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC98 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC98 = My.Bussines.Strain.Misc.oC98['IDC98'] IF loC98.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC98 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC98w(m.loC98,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC98 = My.Bussines.Strain.Misc.oC98[0] IF loC98.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC98 AS Object */ Ein PRIVATE Objekt muss her... poC98 = loC98 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C98","poC98") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC98 AS Object */ IDC98 - ID-Elemente / Legierungen .IDC98 = "Bitte angeben" */ BEZEI - Elemente / Legierungen .BEZEI = "Bitte angeben" */ IKC98 - Tech. Symbol .IKC98 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC98w(m.loC98,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC98.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC98.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC98w(m.loC98,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC98w(m.loC98,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
C99' - 'VNS-Einheiten
Wichtige Feldinformationen:
Primary Key ....: IDC99+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDC99
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: IKC99
Feldliste...........: CHECKSUM,IDC26,BEZEI,CW,DIN,IDC99,IDC99N,IKC99,RUC99,DEC,LAS...
Die Komplette Liste der Felder finden Sie unter: VNS-Einheiten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDC99+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oC99w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oC99w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loC99 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loC99 = My.Bussines.Strain.Misc.oC99['IDC99'] IF loC99.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loC99 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oC99w(m.loC99,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loC99 = My.Bussines.Strain.Misc.oC99[0] IF loC99.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poC99 AS Object */ Ein PRIVATE Objekt muss her... poC99 = loC99 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("C99","poC99") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loC99 AS Object */ IDC99 - ID-VNS-Einheiten .IDC99 = "Bitte angeben" */ BEZEI - VNS-Einheiten .BEZEI = "Bitte angeben" */ IKC99 - Tech. Einheit .IKC99 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oC99w(m.loC99,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loC99.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loC99.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oC99w(m.loC99,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oC99w(m.loC99,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Abruf der EK-Daten mittels IDB01,IDC61 und Menge. Rückgabe ist ein Datensatzobjekt der Tabelle D03
Object = My.Bussines.Strain.Misc.oD03VG(tcIdb01 AS String,tcIdc61 AS String,tnQ0 AS Number) Object = My.Bussines.Strain.Misc.oD03VG(tcIdb01,tcIdc61,tnQ0)
*/ Beispielcode LOCAL loD03 AS Object loD03 = My.Bussines.Strain.Misc.oD03VG("<idb01>","<idc61>",nMenge) */ Sollte der loD03.idd03 leer sein, so wurden keine Daten ermittelt!
D03' - 'Artikel EK-Daten
Wichtige Feldinformationen:
Primary Key ....: IDD03
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKPDATUM,IDD03,LPPDATUM,MGVP,NETTO,PEEK,BESTMIN,BESTNR,BEZ,E...
Die Komplette Liste der Felder finden Sie unter: Artikel EK-Daten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD03) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD03 = My.Bussines.Strain.Misc.oD03['IDD03'] IF loD03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD03w(m.loD03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD03 = My.Bussines.Strain.Misc.oD03[0] IF loD03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD03 AS Object */ Ein PRIVATE Objekt muss her... poD03 = loD03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D03","poD03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD03 AS Object */ IDD03 - ID-Artikel EK-Daten .IDD03 = My.Clients.Numbers.GetMoreIds("IDD03",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD03w(m.loD03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD03w(m.loD03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD03w(m.loD03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Gibt ein Objekt mit diversen Feldern der Tabellen B01 und D04 zurück.
Wird kein entsprechender Datensatz gefunden, so wird .NULL. zurückgegeben.
Anmerkung: Wird eine Variablenliste angegeben, so werden die Daten immer ermittelt!
Object = My.Bussines.Strain.Misc.oD04GC(tcIdb01 AS STRING,tcidc63 AS STRING,tnMenge AS NUMBER,tcVarList AS STRING) Object = My.Bussines.Strain.Misc.oD04GC(tcIdb01,tcidc63,tnMenge,tcVarList)
*/ Beispiel: LOCAL loB01D04 AS Object loB01D04 = My.Bussines.Strain.Misc.oD04GC(cIdb01,cIdc63,nMenge[,'Variablenliste,siehe,unten']) IF NOT ISNULL(m.loB01D04) */ Gefunden... WITH m.loB01D04 */ Ab hier aus B01 .idb01 = b01.idb01 .ekbr = b01.ekbr .ekd = b01.ekd .eknet1 = b01.eknet1 .idc08 = b01.idc08 .idc08e = b01.idc08e .ipb01 = b01.ipb01 .lfarab = b01.lfarab .meekuf = b01.meekuf .peek = b01.peek .rabatt1 = b01.rabatt1 .ufla = b01.ufla .uflad = b01.uflad .vario = b01.vario */ Ab hier aus D04 .db1f = d04.db1f .db2f = d04.db2f .db1h = d04.db1h .db2h = d04.db2h .ekf = d04.ekf .ekh = d04.ekh .idc19mevk = d04.idc19mevk .idc19vkeh = d04.idc19vkeh .idd04 = d04.idd04 .idv03f = d04.idv03f .idv03h = d04.idv03h .idv04 = d04.idv04 .kdartnr = d04.kdartnr .listpr = d04.listpr .listpreisf = d04.listpreisf .listpreish = d04.listpreish .mevkuh = d04.meekuf .mevkuf = d04.mevkuf .mgst = d04.mgst .pevk = d04.pevk .rabatt = d04.rabatt .t_ezu = d04.t_ezu .t_fk = d04.t_fk .t_fkfest = d04.t_fkfest .t_gk1 = d04.t_gk1 .t_gk2 = d04.t_gk2 .t_gkf = d04.t_gkf .t_gkm = d04.t_gkm .t_gkm_h = d04.t_gkm_h .t_gzu = d04.t_gzu .t_koma = d04.t_koma .t_komaproz = d04.t_komaproz .t_komawert = d04.t_komawert .t_mk = d04.t_mk .t_papf = d04.t_papf .t_papfproz = d04.t_papfproz .t_papfwert = d04.t_papfwert .t_papm = d04.t_papm .t_papmproz = d04.t_papmproz .t_papmwert = d04.t_papmwert .t_pap_h = d04.t_pap_h .t_soz = d04.t_soz .t_sozproz = d04.t_sozproz .t_sozwert = d04.t_sozwert .vk = d04.vk .vk1 = d04.vk1 .vkh = d04.vkh .vkh1 = d04.vkh1 ENDWITH ENDIF
Abruf der D04 aus Vorgangsdaten... Rückgabe: Datensatz aus D04
Object = My.Bussines.Strain.Misc.oD04VG(tcIdb01 AS String,tcIdc63 AS String,tnMenge AS Number) Object = My.Bussines.Strain.Misc.oD04VG(tcIdb01,tcIdc63,tnMenge)
*/ Beispielcode LOCAL loD04 AS Object loD04 = My.Bussines.Strain.Misc.oD03VG("<idb01>","<idc63>",nMenge) */ Sollte der loD04.idd04 leer sein, so wurden keine Daten ermittelt!
D04' - 'Artikel VK-Daten
Wichtige Feldinformationen:
Primary Key ....: IDD04
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD04
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,DB1F,DB1H,DB2F,DB2H,EKF,EKH,IDC19MEVK,IDC19VKEH,IDD04,ID...
Die Komplette Liste der Felder finden Sie unter: Artikel VK-Daten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD04) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD04w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD04 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD04 = My.Bussines.Strain.Misc.oD04['IDD04'] IF loD04.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD04 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD04w(m.loD04,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD04 = My.Bussines.Strain.Misc.oD04[0] IF loD04.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD04 AS Object */ Ein PRIVATE Objekt muss her... poD04 = loD04 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D04","poD04") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD04 AS Object */ IDD04 - ID-Artikel VK-Daten .IDD04 = My.Clients.Numbers.GetMoreIds("IDD04",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD04w(m.loD04,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD04.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD04.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD04w(m.loD04,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD04w(m.loD04,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D05' - 'Rohstoffzuschläge
Wichtige Feldinformationen:
Primary Key ....: IDD05
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD05
IC- Field...........: none
IP- Field...........: IPD05
IK- Field...........: none
Feldliste...........: CDBF,IDD05,IPD05,ROHGRP,UFLAEZU,BASIS,EDELZAHL,IDC98,LASTUPD...
Die Komplette Liste der Felder finden Sie unter: Rohstoffzuschläge
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD05) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD05w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD05 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD05 = My.Bussines.Strain.Misc.oD05['IDD05'] IF loD05.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD05 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD05w(m.loD05,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD05 = My.Bussines.Strain.Misc.oD05[0] IF loD05.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD05 AS Object */ Ein PRIVATE Objekt muss her... poD05 = loD05 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D05","poD05") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD05 AS Object */ IDD05 - ID-Rohstoffzuschläge .IDD05 = My.Clients.Numbers.GetMoreIds("IDD05",1) */ IPD05 - Zeilenart .IPD05 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD05w(m.loD05,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD05.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD05.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD05w(m.loD05,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD05w(m.loD05,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D30' - 'Lieferantenanfragen
Wichtige Feldinformationen:
Primary Key ....: IDD30
Secondary Key.: none
Candidate Key.: ANFRNR
EAN Key..........: none
ID- Field...........: IDD30
IC- Field...........: ANFRNR
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANFRAART,ANFRDATUM,ANFRNR,ANGNUMMER,EKPVOR,FAKTOR,FTEXT,FUSS...
Die Komplette Liste der Felder finden Sie unter: Lieferantenanfragen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD30) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD30w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD30 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD30 = My.Bussines.Strain.Misc.oD30['IDD30'] IF loD30.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD30 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD30w(m.loD30,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD30 = My.Bussines.Strain.Misc.oD30[0] IF loD30.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD30 AS Object */ Ein PRIVATE Objekt muss her... poD30 = loD30 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D30","poD30") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD30 AS Object */ IDD30 - ID-Lieferantenanfragen .IDD30 = My.Clients.Numbers.GetMoreIds("IDD30",1) */ ANFRNR - Anfragekopf/Liefer .ANFRNR = My.Functions.Internals.NextNr("ANFRAGE") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD30w(m.loD30,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD30.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD30.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD30w(m.loD30,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD30w(m.loD30,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D31' - 'Anfragepositionen/Lief.
Wichtige Feldinformationen:
Primary Key ....: IDD31
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD31
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ANFRDATUM,E10MATCH,EKPVOR,GBIS,IDB01S,IDC10,IDC19,IDC30,IDD3...
Die Komplette Liste der Felder finden Sie unter: Anfragepositionen/Lief.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD31) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD31w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD31w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD31 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD31 = My.Bussines.Strain.Misc.oD31['IDD31'] IF loD31.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD31 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD31w(m.loD31,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD31 = My.Bussines.Strain.Misc.oD31[0] IF loD31.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD31 AS Object */ Ein PRIVATE Objekt muss her... poD31 = loD31 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D31","poD31") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD31 AS Object */ IDD31 - ID-Anfragepositionen/Lief. .IDD31 = My.Clients.Numbers.GetMoreIds("IDD31",1) */ IPY01 - Artikelart .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD31w(m.loD31,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD31.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD31.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD31w(m.loD31,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD31w(m.loD31,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D33' - 'Artikelanfragen
Wichtige Feldinformationen:
Primary Key ....: IDD33
Secondary Key.: none
Candidate Key.: ANFRNR
EAN Key..........: none
ID- Field...........: IDD33
IC- Field...........: ANFRNR
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANFRDATUM,ANFRNR,ARTKRI,DEFAULT,EKPVOR,FAKTOR,FTEXT,FUSSTEXT...
Die Komplette Liste der Felder finden Sie unter: Artikelanfragen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD33) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD33w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD33w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD33 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD33 = My.Bussines.Strain.Misc.oD33['IDD33'] IF loD33.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD33 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD33w(m.loD33,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD33 = My.Bussines.Strain.Misc.oD33[0] IF loD33.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD33 AS Object */ Ein PRIVATE Objekt muss her... poD33 = loD33 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D33","poD33") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD33 AS Object */ IDD33 - ID-Artikelanfragen .IDD33 = My.Clients.Numbers.GetMoreIds("IDD33",1) */ ANFRNR - Anfragekopf/Artikel .ANFRNR = My.Functions.Internals.NextNr("ANFRAGE") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD33w(m.loD33,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD33.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD33.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD33w(m.loD33,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD33w(m.loD33,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D34' - 'Anfragepositionen/Artikel
Wichtige Feldinformationen:
Primary Key ....: IDD34
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD34
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ANFRDATUM,E10MATCH,EKPVOR,IDB01S,IDC10,IDC19,IDC30,IDD32,IDD...
Die Komplette Liste der Felder finden Sie unter: Anfragepositionen/Artikel
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD34) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD34w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD34w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD34 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD34 = My.Bussines.Strain.Misc.oD34['IDD34'] IF loD34.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD34 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD34w(m.loD34,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD34 = My.Bussines.Strain.Misc.oD34[0] IF loD34.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD34 AS Object */ Ein PRIVATE Objekt muss her... poD34 = loD34 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D34","poD34") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD34 AS Object */ IDD34 - ID-Anfragepositionen/Artikel .IDD34 = My.Clients.Numbers.GetMoreIds("IDD34",1) */ IPY01 - Artikelart .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD34w(m.loD34,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD34.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD34.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD34w(m.loD34,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD34w(m.loD34,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D35' - 'Lieferanten/Artikel
Wichtige Feldinformationen:
Primary Key ....: IDD35
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD35
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD33,IDD34,IDD35,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Lieferanten/Artikel
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD35) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD35w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD35w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD35 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD35 = My.Bussines.Strain.Misc.oD35['IDD35'] IF loD35.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD35 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD35w(m.loD35,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD35 = My.Bussines.Strain.Misc.oD35[0] IF loD35.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD35 AS Object */ Ein PRIVATE Objekt muss her... poD35 = loD35 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D35","poD35") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD35 AS Object */ IDD35 - ID-Lieferanten/Artikel .IDD35 = My.Clients.Numbers.GetMoreIds("IDD35",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD35w(m.loD35,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD35.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD35.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD35w(m.loD35,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD35w(m.loD35,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D39' - 'Bestelladressen
Wichtige Feldinformationen:
Primary Key ....: IDD39
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD39
IC- Field...........: ICD39
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,ICD39,IDC09,IDD39,IDD40,IPD39,LASTUPD,LDATUM,LPRG,LWER...
Die Komplette Liste der Felder finden Sie unter: Bestelladressen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD39) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD39w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD39w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD39 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD39 = My.Bussines.Strain.Misc.oD39['IDD39'] IF loD39.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD39 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD39w(m.loD39,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD39 = My.Bussines.Strain.Misc.oD39[0] IF loD39.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD39 AS Object */ Ein PRIVATE Objekt muss her... poD39 = loD39 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D39","poD39") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD39 AS Object */ IDD39 - ID-Bestelladressen .IDD39 = My.Clients.Numbers.GetMoreIds("IDD39",1) */ ICD39 - Bestelladressen .ICD39 = '?' ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD39w(m.loD39,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD39.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD39.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD39w(m.loD39,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD39w(m.loD39,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D40' - 'EK-Bestellungen
Wichtige Feldinformationen:
Primary Key ....: IDD40
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD40
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABGESCHL,BESTAMD,EKBRU,EKBRUSK,EKEDEL,EKGBRU,EKGMWST,EKGNET,...
Die Komplette Liste der Felder finden Sie unter: EK-Bestellungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD40) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD40w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD40 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD40 = My.Bussines.Strain.Misc.oD40['IDD40'] IF loD40.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD40 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD40w(m.loD40,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD40 = My.Bussines.Strain.Misc.oD40[0] IF loD40.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD40 AS Object */ Ein PRIVATE Objekt muss her... poD40 = loD40 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D40","poD40") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD40 AS Object */ IDD40 - ID-EK-Bestellungen .IDD40 = My.Clients.Numbers.GetMoreIds("IDD40",1) */ MATCH - Bestellung .MATCH = My.Functions.Internals.NextNr("D40-BESTELLUNG",My.xDate,.T.,SET("Datasession")) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD40w(m.loD40,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD40.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD40.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD40w(m.loD40,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD40w(m.loD40,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D41' - 'EK-Wareneingänge
Wichtige Feldinformationen:
Primary Key ....: IDD41
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD41
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD42,IDI22,IDI22MAT,NOTIZ,STORNIERT,WBZUPD,IDC63,IDC64,IDD4...
Die Komplette Liste der Felder finden Sie unter: EK-Wareneingänge
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD41) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD41w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD41w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD41 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD41 = My.Bussines.Strain.Misc.oD41['IDD41'] IF loD41.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD41 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD41w(m.loD41,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD41 = My.Bussines.Strain.Misc.oD41[0] IF loD41.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD41 AS Object */ Ein PRIVATE Objekt muss her... poD41 = loD41 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D41","poD41") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD41 AS Object */ IDD41 - ID-EK-Wareneingänge .IDD41 = My.Clients.Numbers.GetMoreIds("IDD41",1) */ MATCH - Wareneingang .MATCH = My.Functions.Internals.NextNr("D41-LIEFERUNG") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD41w(m.loD41,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD41.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD41.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD41w(m.loD41,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD41w(m.loD41,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D42' - 'EK-Materialprüfungen
Wichtige Feldinformationen:
Primary Key ....: IDD42
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD42
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBUCHT,IDI22,IDI22MAT,NOTIZ,STORNIERT,GEPRAM,IDC64,IDC63,ID...
Die Komplette Liste der Felder finden Sie unter: EK-Materialprüfungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD42) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD42w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD42w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD42 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD42 = My.Bussines.Strain.Misc.oD42['IDD42'] IF loD42.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD42 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD42w(m.loD42,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD42 = My.Bussines.Strain.Misc.oD42[0] IF loD42.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD42 AS Object */ Ein PRIVATE Objekt muss her... poD42 = loD42 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D42","poD42") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD42 AS Object */ IDD42 - ID-EK-Materialprüfungen .IDD42 = My.Clients.Numbers.GetMoreIds("IDD42",1) */ MATCH - Materialprüfung .MATCH = My.Functions.Internals.NextNr("D42-PRÜFUNG") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD42w(m.loD42,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD42.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD42.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD42w(m.loD42,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD42w(m.loD42,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D43' - 'EK-Rücklieferungen
Wichtige Feldinformationen:
Primary Key ....: IDD43
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD43
IC- Field...........: MATCH
IP- Field...........: IPD43
IK- Field...........: none
Feldliste...........: EKNEB,FAKTOR,GUTSCHRIFT,IDC03,IDC09ST,IDC30,IDE10,IDK10,IPD4...
Die Komplette Liste der Felder finden Sie unter: EK-Rücklieferungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD43) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD43w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD43w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD43 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD43 = My.Bussines.Strain.Misc.oD43['IDD43'] IF loD43.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD43 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD43w(m.loD43,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD43 = My.Bussines.Strain.Misc.oD43[0] IF loD43.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD43 AS Object */ Ein PRIVATE Objekt muss her... poD43 = loD43 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D43","poD43") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD43 AS Object */ IDD43 - ID-EK-Rücklieferungen .IDD43 = My.Clients.Numbers.GetMoreIds("IDD43",1) */ MATCH - Rücklieferung .MATCH = IIF(My.lProgram="D4302",My.Functions.Internals.NextNr('D43-FRÜCKLIEFERUNG'),My.Functions.Internals.NextNr("D43-RÜCKLIEFERUNG")) */ IPD43 - Rücklieferungsart .IPD43 = IIF(My.lProgram="D4302","335","330") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD43w(m.loD43,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD43.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD43.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD43w(m.loD43,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD43w(m.loD43,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D44' - 'EK-Rechnungen
Wichtige Feldinformationen:
Primary Key ....: IDD44
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD44
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKBRU,EKBRUSK,EKEDEL,EKGBK,EKGBRU,EKGMWST,EKGNET,EKMSKONTO,E...
Die Komplette Liste der Felder finden Sie unter: EK-Rechnungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD44) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD44w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD44w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD44 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD44 = My.Bussines.Strain.Misc.oD44['IDD44'] IF loD44.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD44 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD44w(m.loD44,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD44 = My.Bussines.Strain.Misc.oD44[0] IF loD44.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD44 AS Object */ Ein PRIVATE Objekt muss her... poD44 = loD44 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D44","poD44") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD44 AS Object */ IDD44 - ID-EK-Rechnungen .IDD44 = My.Clients.Numbers.GetMoreIds("IDD44",1) */ MATCH - Lieferantenrechnung .MATCH = My.Functions.Internals.NextNr("D44-WERTVERBUCHUNG") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD44w(m.loD44,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD44.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD44.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD44w(m.loD44,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD44w(m.loD44,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D45' - 'EK-Spediteursrechnungen
Wichtige Feldinformationen:
Primary Key ....: IDD45
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD45
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKBRU,EKBRUSK,EKGBK,EKGBRU,EKGMWST,EKGNET,EKMSKONTO,EKNEB,EK...
Die Komplette Liste der Felder finden Sie unter: EK-Spediteursrechnungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD45) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD45w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD45w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD45 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD45 = My.Bussines.Strain.Misc.oD45['IDD45'] IF loD45.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD45 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD45w(m.loD45,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD45 = My.Bussines.Strain.Misc.oD45[0] IF loD45.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD45 AS Object */ Ein PRIVATE Objekt muss her... poD45 = loD45 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D45","poD45") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD45 AS Object */ IDD45 - ID-EK-Spediteursrechnungen .IDD45 = My.Clients.Numbers.GetMoreIds("IDD45",1) */ MATCH - Spediteursrechnung .MATCH = My.Functions.Internals.NextNr("D45-SPEDITEURRECHNUNG") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD45w(m.loD45,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD45.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD45.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD45w(m.loD45,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD45w(m.loD45,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D46' - 'EK-Gutschriften
Wichtige Feldinformationen:
Primary Key ....: IDD46
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD46
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKBRUT,EKGBK,EKMWST,EKNEB,EKNET,EKWNET,FAKTOR,GDATUM,GEBUCHT...
Die Komplette Liste der Felder finden Sie unter: EK-Gutschriften
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD46) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD46w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD46w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD46 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD46 = My.Bussines.Strain.Misc.oD46['IDD46'] IF loD46.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD46 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD46w(m.loD46,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD46 = My.Bussines.Strain.Misc.oD46[0] IF loD46.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD46 AS Object */ Ein PRIVATE Objekt muss her... poD46 = loD46 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D46","poD46") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD46 AS Object */ IDD46 - ID-EK-Gutschriften .IDD46 = My.Clients.Numbers.GetMoreIds("IDD46",1) */ MATCH - Lieferantengutschrift .MATCH = My.Functions.Internals.NextNr("D46-LIEF.-GUTSCHRIFTEN") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD46w(m.loD46,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD46.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD46.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD46w(m.loD46,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD46w(m.loD46,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D47' - 'EK-Mahnungen
Wichtige Feldinformationen:
Primary Key ....: IDD47
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDD47
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,DATUMB,DATUMV,GRUND,IDB01B,IDB01V,IDC61B,IDC61V,IDD47,...
Die Komplette Liste der Felder finden Sie unter: EK-Mahnungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD47) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD47w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD47w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD47 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD47 = My.Bussines.Strain.Misc.oD47['IDD47'] IF loD47.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD47 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD47w(m.loD47,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD47 = My.Bussines.Strain.Misc.oD47[0] IF loD47.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD47 AS Object */ Ein PRIVATE Objekt muss her... poD47 = loD47 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D47","poD47") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD47 AS Object */ IDD47 - ID-EK-Mahnungen .IDD47 = My.Clients.Numbers.GetMoreIds("IDD47",1) */ MATCH - Lieferantenmahnungen .MATCH = My.Functions.Internals.NextNr("D47-MAHNUNGEN") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD47w(m.loD47,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD47.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD47.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD47w(m.loD47,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD47w(m.loD47,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D50' - 'EK-Zuordnungen
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDAUF,IDD44D55,IDPOS,IPAUF,PRZUORD
Die Komplette Liste der Felder finden Sie unter: EK-Zuordnungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD50w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD50 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD50 = My.Bussines.Strain.Misc.oD50['none'] IF loD50.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD50 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD50w(m.loD50,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD50 = My.Bussines.Strain.Misc.oD50[0] IF loD50.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD50 AS Object */ Ein PRIVATE Objekt muss her... poD50 = loD50 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D50","poD50") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD50 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD50w(m.loD50,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD50.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD50.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD50w(m.loD50,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD50w(m.loD50,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D51' - 'EK-Bestellungen -Pos
Wichtige Feldinformationen:
Primary Key ....: IDD40+IDD51
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD51
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATBEST,EDPREIS,EDPREIS_I,IDD03,KOMP,MATCHBEST,MENGE_P,MENGE...
Die Komplette Liste der Felder finden Sie unter: EK-Bestellungen -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD40+IDD51) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD51w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD51w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD51 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD51 = My.Bussines.Strain.Misc.oD51['IDD51'] IF loD51.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD51 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD51w(m.loD51,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD51 = My.Bussines.Strain.Misc.oD51[0] IF loD51.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD51 AS Object */ Ein PRIVATE Objekt muss her... poD51 = loD51 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D51","poD51") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD51 AS Object */ IDD51 - ID-EK-Bestellungen -Pos .IDD51 = My.Clients.Numbers.GetMoreIds("IDD51",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD51w(m.loD51,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD51.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD51.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD51w(m.loD51,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD51w(m.loD51,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D52' - 'EK-Wareneingänge -Pos
Wichtige Feldinformationen:
Primary Key ....: IDD41+IDD52
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD52
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD03,IDI21,KOMP,KOMPG,LREDU,MENGE_V,OKBUCH,POSNR,UEB,BESTNR...
Die Komplette Liste der Felder finden Sie unter: EK-Wareneingänge -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD41+IDD52) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD52w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD52w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD52 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD52 = My.Bussines.Strain.Misc.oD52['IDD52'] IF loD52.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD52 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD52w(m.loD52,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD52 = My.Bussines.Strain.Misc.oD52[0] IF loD52.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD52 AS Object */ Ein PRIVATE Objekt muss her... poD52 = loD52 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D52","poD52") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD52 AS Object */ IDD52 - ID-EK-Wareneingänge -Pos .IDD52 = "" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD52w(m.loD52,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD52.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD52.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD52w(m.loD52,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD52w(m.loD52,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D53' - 'EK-Materialprüfungen -Pos
Wichtige Feldinformationen:
Primary Key ....: IDD42+IDD53
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD53
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD03,MENGE_U,OKBUCH,POSNR,UEB,BESTNR,BUCH,GEPR,GRUND,IDC66,...
Die Komplette Liste der Felder finden Sie unter: EK-Materialprüfungen -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD42+IDD53) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD53w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD53w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD53 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD53 = My.Bussines.Strain.Misc.oD53['IDD53'] IF loD53.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD53 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD53w(m.loD53,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD53 = My.Bussines.Strain.Misc.oD53[0] IF loD53.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD53 AS Object */ Ein PRIVATE Objekt muss her... poD53 = loD53 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D53","poD53") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD53 AS Object */ IDD53 - ID-EK-Materialprüfungen -Pos .IDD53 = "" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD53w(m.loD53,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD53.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD53.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD53w(m.loD53,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD53w(m.loD53,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D54' - 'EK-Rücklieferungen -Pos
Wichtige Feldinformationen:
Primary Key ....: IDD43+IDD51
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD03,IDI21,LSTORNO,POSNR,PREIS_F,UEB,BESTAM,BESTNR,BESTTEXT...
Die Komplette Liste der Felder finden Sie unter: EK-Rücklieferungen -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD43+IDD51) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD54w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD54w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD54 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD54 = My.Bussines.Strain.Misc.oD54['none'] IF loD54.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD54 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD54w(m.loD54,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD54 = My.Bussines.Strain.Misc.oD54[0] IF loD54.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD54 AS Object */ Ein PRIVATE Objekt muss her... poD54 = loD54 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D54","poD54") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD54 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD54w(m.loD54,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD54.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD54.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD54w(m.loD54,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD54w(m.loD54,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D55' - 'EK-Rechnungen -Pos
Wichtige Feldinformationen:
Primary Key ....: IDD44+IDD55
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD55
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EDPREIS_I,EDPREIS_S,GEBU,GEBUCHT,IDD03,MENGE_R,MENGE_V,MENGE...
Die Komplette Liste der Felder finden Sie unter: EK-Rechnungen -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD44+IDD55) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD55w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD55w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD55 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD55 = My.Bussines.Strain.Misc.oD55['IDD55'] IF loD55.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD55 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD55w(m.loD55,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD55 = My.Bussines.Strain.Misc.oD55[0] IF loD55.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD55 AS Object */ Ein PRIVATE Objekt muss her... poD55 = loD55 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D55","poD55") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD55 AS Object */ IDD55 - ID-EK-Rechnungen -Pos .IDD55 = "" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD55w(m.loD55,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD55.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD55.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD55w(m.loD55,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD55w(m.loD55,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D56' - 'EK-Spediteursrechnungen -
Wichtige Feldinformationen:
Primary Key ....: IDD56
Secondary Key.: IDD45+IDD56
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD56
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBU,IDD45,MENGE_V,POSNR,POSNR2,PREISNEB,PREIS_F,BESTNR,IDC0...
Die Komplette Liste der Felder finden Sie unter: EK-Spediteursrechnungen -
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD56) und Sekundär-(IDD45+IDD56) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD56w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD56w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD56 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD56 = My.Bussines.Strain.Misc.oD56['IDD56'] IF loD56.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD56 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD56w(m.loD56,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD56 = My.Bussines.Strain.Misc.oD56[0] IF loD56.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD56 AS Object */ Ein PRIVATE Objekt muss her... poD56 = loD56 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D56","poD56") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD56 AS Object */ IDD56 - ID-EK-Spediteursrechnungen - .IDD56 = My.Clients.Numbers.GetMoreIds("IDD56",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD56w(m.loD56,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD56.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD56.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD56w(m.loD56,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD56w(m.loD56,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D57' - 'EK-Gutschriften -Pos
Wichtige Feldinformationen:
Primary Key ....: IDD46+IDD57
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD57
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATGPL,EDELPREIS,EKPREIS,IDD40,IDD46,IDD57,LASTUPD,LDATUM,LP...
Die Komplette Liste der Felder finden Sie unter: EK-Gutschriften -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD46+IDD57) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD57w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD57w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD57 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD57 = My.Bussines.Strain.Misc.oD57['IDD57'] IF loD57.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD57 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD57w(m.loD57,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD57 = My.Bussines.Strain.Misc.oD57[0] IF loD57.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD57 AS Object */ Ein PRIVATE Objekt muss her... poD57 = loD57 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D57","poD57") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD57 AS Object */ IDD57 - ID-EK-Gutschriften -Pos .IDD57 = "" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD57w(m.loD57,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD57.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD57.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD57w(m.loD57,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD57w(m.loD57,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
D58' - 'EK-Mahnungen -Pos
Wichtige Feldinformationen:
Primary Key ....: IDD58
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDD58
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESTAMD,DATBEST,DATGPL,DATLAST,FAKTOR,IDC03,IDD40,IDD47,IDD5...
Die Komplette Liste der Felder finden Sie unter: EK-Mahnungen -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDD58) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oD58w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oD58w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loD58 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loD58 = My.Bussines.Strain.Misc.oD58['IDD58'] IF loD58.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loD58 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oD58w(m.loD58,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loD58 = My.Bussines.Strain.Misc.oD58[0] IF loD58.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poD58 AS Object */ Ein PRIVATE Objekt muss her... poD58 = loD58 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("D58","poD58") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loD58 AS Object */ IDD58 - ID-EK-Mahnungen -Pos .IDD58 = My.Clients.Numbers.GetMoreIds("IDD58",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oD58w(m.loD58,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loD58.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loD58.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oD58w(m.loD58,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oD58w(m.loD58,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
DIS' - 'Disposition
Wichtige Feldinformationen:
Primary Key ....: IDDIS
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDDIS
IC- Field...........: none
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: AUFART,AUFTRAG,DATUM,DISWER,FEHLER,FEHLERNR,IDDIS,IDK10,IDPO...
Die Komplette Liste der Felder finden Sie unter: Disposition
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDDIS) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oDisw(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oDisw(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loDIS AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loDIS = My.Bussines.Strain.Misc.oDIS['IDDIS'] IF loDIS.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loDIS AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oDISw(m.loDIS,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loDIS = My.Bussines.Strain.Misc.oDIS[0] IF loDIS.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poDIS AS Object */ Ein PRIVATE Objekt muss her... poDIS = loDIS */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("DIS","poDIS") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loDIS AS Object */ IDDIS - ID-DISPO .IDDIS = My.Functions.Internals.GetIntId("IDDIS",.F.,1) */ IPZWI - Vorgangsart .IPZWI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oDISw(m.loDIS,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loDIS.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loDIS.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oDISw(m.loDIS,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oDISw(m.loDIS,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E00' - 'VK-Vorgangsdokumente
Wichtige Feldinformationen:
Primary Key ....: IPE00+IDEXX+NAME
Secondary Key.: none
Candidate Key.: NAME
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: IPE00
IK- Field...........: none
Feldliste...........: E00NOTIZ,IDK10,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NW...
Die Komplette Liste der Felder finden Sie unter: VK-Vorgangsdokumente
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IPE00+IDEXX+NAME) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE00w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE00w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE00 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE00 = My.Bussines.Strain.Misc.oE00['none'] IF loE00.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE00 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE00w(m.loE00,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE00 = My.Bussines.Strain.Misc.oE00[0] IF loE00.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE00 AS Object */ Ein PRIVATE Objekt muss her... poE00 = loE00 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E00","poE00") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE00 AS Object */ IPE00 - Dokumentenherkunft .IPE00 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE00w(m.loE00,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE00.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE00.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE00w(m.loE00,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE00w(m.loE00,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E01' - 'VK-Zuschlagsarten Kalk.
Wichtige Feldinformationen:
Primary Key ....: IDE01
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDE01
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE01,IDE10,XWERT,BEZEI,IDC26,POSNR,IDV02,IDE03,LASTUPD,LDAT...
Die Komplette Liste der Felder finden Sie unter: VK-Zuschlagsarten Kalk.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE01 = My.Bussines.Strain.Misc.oE01['IDE01'] IF loE01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE01w(m.loE01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE01 = My.Bussines.Strain.Misc.oE01[0] IF loE01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE01 AS Object */ Ein PRIVATE Objekt muss her... poE01 = loE01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E01","poE01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE01 AS Object */ IDE01 - ID-VK-Zuschlagsarten Kalk. .IDE01 = My.Clients.Numbers.GetMoreIds("IDE01",1) */ BEZEI - Zuschlagsarten Kalk. .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE01w(m.loE01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE01w(m.loE01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE01w(m.loE01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E03' - 'VK-Kalkulationsschema
Wichtige Feldinformationen:
Primary Key ....: IDE03+IDE10
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDE03
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE10,IDV03,E_PREIS,IDC26,IDE03,LASTUPD,LDATUM,LPRG,LWER,LZE...
Die Komplette Liste der Felder finden Sie unter: VK-Kalkulationsschema
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE03+IDE10) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE03 = My.Bussines.Strain.Misc.oE03['IDE03'] IF loE03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE03w(m.loE03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE03 = My.Bussines.Strain.Misc.oE03[0] IF loE03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE03 AS Object */ Ein PRIVATE Objekt muss her... poE03 = loE03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E03","poE03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE03 AS Object */ IDE03 - ID-VK-Kalkulationsschema .IDE03 = My.Clients.Numbers.GetMoreIds("IDE03",1) */ MATCH - Kalkulationsschemata .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE03w(m.loE03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE03w(m.loE03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE03w(m.loE03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E04' - 'VK-Lohngruppen
Wichtige Feldinformationen:
Primary Key ....: IDE04
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDE04
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AKTIV,IDC02,IDE04,IDE10,KOSTEN,LASTUPD,LDATUM,LPRG,LWER,LZEI...
Die Komplette Liste der Felder finden Sie unter: VK-Lohngruppen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE04) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE04w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE04 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE04 = My.Bussines.Strain.Misc.oE04['IDE04'] IF loE04.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE04 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE04w(m.loE04,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE04 = My.Bussines.Strain.Misc.oE04[0] IF loE04.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE04 AS Object */ Ein PRIVATE Objekt muss her... poE04 = loE04 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E04","poE04") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE04 AS Object */ IDE04 - ID-VK-Lohngruppen .IDE04 = My.Clients.Numbers.GetMoreIds("IDE04",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE04w(m.loE04,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE04.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE04.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE04w(m.loE04,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE04w(m.loE04,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E05' - 'VK-Gaeb-Daten zum Vorgang
Wichtige Feldinformationen:
Primary Key ....: IDE10
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AGBEZ,ANBEZ,ANZEP,BEZEITAN,BEZEPAN1,BEZEPAN2,BEZEPAN3,BEZEPA...
Die Komplette Liste der Felder finden Sie unter: VK-Gaeb-Daten zum Vorgang
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE10) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE05w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE05 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE05 = My.Bussines.Strain.Misc.oE05['none'] IF loE05.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE05 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE05w(m.loE05,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE05 = My.Bussines.Strain.Misc.oE05[0] IF loE05.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE05 AS Object */ Ein PRIVATE Objekt muss her... poE05 = loE05 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E05","poE05") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE05 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE05w(m.loE05,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE05.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE05.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE05w(m.loE05,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE05w(m.loE05,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E06' - 'Kalkulierte Rohstoffdaten
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: IDE06
EAN Key..........: none
ID- Field...........: IDE06
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,DATUM,GEWI,IDC98,IDE10,IDE06,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Kalkulierte Rohstoffdaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE06w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE06w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE06 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE06 = My.Bussines.Strain.Misc.oE06['IDE06'] IF loE06.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE06 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE06w(m.loE06,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE06 = My.Bussines.Strain.Misc.oE06[0] IF loE06.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE06 AS Object */ Ein PRIVATE Objekt muss her... poE06 = loE06 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E06","poE06") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE06 AS Object */ IDE06 - Intern .IDE06 = My.Clients.Numbers.GetMoreIds("IDE06",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE06w(m.loE06,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE06.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE06.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE06w(m.loE06,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE06w(m.loE06,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E10A' - 'CAE-Pluspack
Wichtige Feldinformationen:
Primary Key ....: IDE10
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE10,PROPS
Die Komplette Liste der Felder finden Sie unter: CAE-Pluspack
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE10) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE10Aw(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE10Aw(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE10A AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE10A = My.Bussines.Strain.Misc.oE10A['none'] IF loE10A.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE10A AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE10Aw(m.loE10A,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE10A = My.Bussines.Strain.Misc.oE10A[0] IF loE10A.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE10A AS Object */ Ein PRIVATE Objekt muss her... poE10A = loE10A */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E10A","poE10A") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE10A AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE10Aw(m.loE10A,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE10A.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE10A.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE10Aw(m.loE10A,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE10Aw(m.loE10A,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E10' - 'VK-Vorgänge
Wichtige Feldinformationen:
Primary Key ....: IDE10
Secondary Key.: none
Candidate Key.: NUMMER
EAN Key..........: IEE10
ID- Field...........: IDE10
IC- Field...........: NUMMER
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ABGABEDAT,ABSCHLAG2,AFNUMMER,AUFGELOEST,AUFMASS,CAEIMP,DELBE...
Die Komplette Liste der Felder finden Sie unter: VK-Vorgänge
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE10) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE10 = My.Bussines.Strain.Misc.oE10['IDE10'] IF loE10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE10w(m.loE10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE10 = My.Bussines.Strain.Misc.oE10[0] IF loE10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE10 AS Object */ Ein PRIVATE Objekt muss her... poE10 = loE10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E10","poE10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE10 AS Object */ IDE10 - ID-VK-Vorgänge .IDE10 = My.Clients.Numbers.GetMoreIds("IDE10",1) */ NUMMER - Positionslistenkopf .NUMMER = "Bitte angeben" */ IPY01 - Auftragsart .IPY01 = "Bitte angeben" */ IEE10 - EAN-Code .IEE10 = My.Clients.Numbers.EANCode("E10") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE10w(m.loE10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE10w(m.loE10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE10w(m.loE10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E11' - 'VK-Vorgänge -Pos
Wichtige Feldinformationen:
Primary Key ....: IDE11
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDE11
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ABGEBUCHT,AB_BOLD,AUFGEL,EIART,EKABST,EKALK,IDC67,IDE11S,IDE...
Die Komplette Liste der Felder finden Sie unter: VK-Vorgänge -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE11) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE11w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE11 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE11 = My.Bussines.Strain.Misc.oE11['IDE11'] IF loE11.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE11 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE11w(m.loE11,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE11 = My.Bussines.Strain.Misc.oE11[0] IF loE11.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE11 AS Object */ Ein PRIVATE Objekt muss her... poE11 = loE11 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E11","poE11") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE11 AS Object */ IDE11 - ID-VK-Vorgänge -Pos .IDE11 = My.Clients.Numbers.GetMoreIds("IDE11",1) */ IPY01 - Positionsart .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE11w(m.loE11,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE11.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE11.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE11w(m.loE11,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE11w(m.loE11,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E12' - 'VK-Vorgänge Staffelpreise
Wichtige Feldinformationen:
Primary Key ....: IDE12
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDE12
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABSCHLAG,ABSCHLAG_F,ABSCHLPROZ,ALTERNATIV,DB_II,DECKUNG,EK,E...
Die Komplette Liste der Felder finden Sie unter: VK-Vorgänge Staffelpreise
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE12) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE12w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE12 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE12 = My.Bussines.Strain.Misc.oE12['IDE12'] IF loE12.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE12 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE12w(m.loE12,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE12 = My.Bussines.Strain.Misc.oE12[0] IF loE12.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE12 AS Object */ Ein PRIVATE Objekt muss her... poE12 = loE12 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E12","poE12") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE12 AS Object */ IDE12 - ID-VK-Vorgänge Staffelpreise .IDE12 = My.Clients.Numbers.GetMoreIds("IDE12",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE12w(m.loE12,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE12.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE12.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE12w(m.loE12,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE12w(m.loE12,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E15' - 'VK-Vorgangsreferenzen
Wichtige Feldinformationen:
Primary Key ....: IDE15
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDE15
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE10R,IDE10,IDE15,REFIDK10,REFIPY01,REFNUMMER,REFPRJNR
Die Komplette Liste der Felder finden Sie unter: VK-Vorgangsreferenzen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE15) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE15w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE15 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE15 = My.Bussines.Strain.Misc.oE15['IDE15'] IF loE15.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE15 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE15w(m.loE15,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE15 = My.Bussines.Strain.Misc.oE15[0] IF loE15.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE15 AS Object */ Ein PRIVATE Objekt muss her... poE15 = loE15 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E15","poE15") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE15 AS Object */ IDE15 - ID-VK-Vorgangsreferenzen .IDE15 = My.Clients.Numbers.GetMoreIds("IDE15",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE15w(m.loE15,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE15.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE15.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE15w(m.loE15,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE15w(m.loE15,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E20' - 'VK-Aufmaßpositionen
Wichtige Feldinformationen:
Primary Key ....: IDE20
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDE20
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: SYSTEM,UNIT,IDE10,IDE20,LDATUM,GENDATE,LZEIT,LWER,NWER,GEN_W...
Die Komplette Liste der Felder finden Sie unter: VK-Aufmaßpositionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE20) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE20 = My.Bussines.Strain.Misc.oE20['IDE20'] IF loE20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE20w(m.loE20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE20 = My.Bussines.Strain.Misc.oE20[0] IF loE20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE20 AS Object */ Ein PRIVATE Objekt muss her... poE20 = loE20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E20","poE20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE20 AS Object */ IDE20 - ID-VK-Aufmaßpositionen .IDE20 = My.Clients.Numbers.GetMoreIds("IDE20",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE20w(m.loE20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE20w(m.loE20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE20w(m.loE20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
E30' - 'Kopfdaten-Erweiterung
Wichtige Feldinformationen:
Primary Key ....: IDE30
Secondary Key.: none
Candidate Key.: ICE30
EAN Key..........: none
ID- Field...........: IDE30
IC- Field...........: ICE30
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FPARAC1,FPARAC2,FPARAC3,FPARAC4,FPARAC5,FPARAD1,FPARAD2,FPAR...
Die Komplette Liste der Felder finden Sie unter: Kopfdaten-Erweiterung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDE30) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oE30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oE30w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loE30 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loE30 = My.Bussines.Strain.Misc.oE30['IDE30'] IF loE30.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loE30 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oE30w(m.loE30,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loE30 = My.Bussines.Strain.Misc.oE30[0] IF loE30.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poE30 AS Object */ Ein PRIVATE Objekt muss her... poE30 = loE30 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("E30","poE30") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loE30 AS Object */ IDE30 - ID-Kopfdaten-Erweiterung .IDE30 = My.Clients.Numbers.GetMoreIds("IDE30",1) */ ICE30 - Kopfdaten-Erweiterung .ICE30 = '?' ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oE30w(m.loE30,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loE30.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loE30.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oE30w(m.loE30,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oE30w(m.loE30,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
F02' - 'Baugruppenpositionen
Wichtige Feldinformationen:
Primary Key ....: IDF02
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDF02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC19S,TEILER,UREM,URRM,URVM,IDF02,KENNUNG,IDB01S,IDV04A,LAS...
Die Komplette Liste der Felder finden Sie unter: Baugruppenpositionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDF02) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oF02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oF02w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loF02 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loF02 = My.Bussines.Strain.Misc.oF02['IDF02'] IF loF02.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loF02 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oF02w(m.loF02,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loF02 = My.Bussines.Strain.Misc.oF02[0] IF loF02.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poF02 AS Object */ Ein PRIVATE Objekt muss her... poF02 = loF02 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("F02","poF02") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loF02 AS Object */ IDF02 - ID-Baugruppenpositionen .IDF02 = My.Clients.Numbers.GetMoreIds("IDF02",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oF02w(m.loF02,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loF02.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loF02.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oF02w(m.loF02,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oF02w(m.loF02,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
F03' - 'Baugruppen-Zusatzdaten
Wichtige Feldinformationen:
Primary Key ....: IDF03
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDF03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EILAGE,IDF03,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER...
Die Komplette Liste der Felder finden Sie unter: Baugruppen-Zusatzdaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDF03) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oF03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oF03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loF03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loF03 = My.Bussines.Strain.Misc.oF03['IDF03'] IF loF03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loF03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oF03w(m.loF03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loF03 = My.Bussines.Strain.Misc.oF03[0] IF loF03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poF03 AS Object */ Ein PRIVATE Objekt muss her... poF03 = loF03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("F03","poF03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loF03 AS Object */ IDF03 - ID-Baugruppen-Zusatzdaten .IDF03 = My.Clients.Numbers.GetMoreIds("IDF03",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oF03w(m.loF03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loF03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loF03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oF03w(m.loF03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oF03w(m.loF03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
F61' - 'Fertigungsauftrag -Pos
Wichtige Feldinformationen:
Primary Key ....: IDF61
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDF61
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDB01K,IDF60,IDF61,IDPOS,MENGE1,POSKENN,POSNR,POSNR2,STATUS,...
Die Komplette Liste der Felder finden Sie unter: Fertigungsauftrag -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDF61) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oF61w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oF61w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loF61 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loF61 = My.Bussines.Strain.Misc.oF61['IDF61'] IF loF61.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loF61 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oF61w(m.loF61,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loF61 = My.Bussines.Strain.Misc.oF61[0] IF loF61.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poF61 AS Object */ Ein PRIVATE Objekt muss her... poF61 = loF61 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("F61","poF61") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loF61 AS Object */ IDF61 - ID-Fertigungsauftrag -Pos .IDF61 = My.Clients.Numbers.GetMoreIds("IDF61",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oF61w(m.loF61,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loF61.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loF61.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oF61w(m.loF61,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oF61w(m.loF61,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
F62' - 'Fertigungsauftrag -Buch.
Wichtige Feldinformationen:
Primary Key ....: IDF61
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDF61,IDI20,IDI21M,MENGE_B,MENGE_I,MENGE_S,IDC66
Die Komplette Liste der Felder finden Sie unter: Fertigungsauftrag -Buch.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDF61) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oF62w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oF62w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loF62 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loF62 = My.Bussines.Strain.Misc.oF62['none'] IF loF62.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loF62 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oF62w(m.loF62,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loF62 = My.Bussines.Strain.Misc.oF62[0] IF loF62.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poF62 AS Object */ Ein PRIVATE Objekt muss her... poF62 = loF62 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("F62","poF62") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loF62 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oF62w(m.loF62,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loF62.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loF62.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oF62w(m.loF62,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oF62w(m.loF62,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
F90' - 'CAE-Differenzliste
Wichtige Feldinformationen:
Primary Key ....: IDF90
Secondary Key.: none
Candidate Key.: ICZWI
EAN Key..........: none
ID- Field...........: IDF90
IC- Field...........: ICZWI
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: ICZWI,IDF90,IDZWI,IPZWI,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATU...
Die Komplette Liste der Felder finden Sie unter: CAE-Differenzliste
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDF90) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oF90w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oF90w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loF90 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loF90 = My.Bussines.Strain.Misc.oF90['IDF90'] IF loF90.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loF90 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oF90w(m.loF90,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loF90 = My.Bussines.Strain.Misc.oF90[0] IF loF90.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poF90 AS Object */ Ein PRIVATE Objekt muss her... poF90 = loF90 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("F90","poF90") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loF90 AS Object */ IDF90 - ID-CAE-Differenzliste .IDF90 = My.Clients.Numbers.GetMoreIds("IDF90",1) */ ICZWI - Differenzlisten .ICZWI = "Bitte angeben" */ IPZWI - Datenherkunft .IPZWI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oF90w(m.loF90,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loF90.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loF90.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oF90w(m.loF90,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oF90w(m.loF90,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
F91' - 'CAE-Differenzliste -Pos
Wichtige Feldinformationen:
Primary Key ....: IDF91
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDF91
IC- Field...........: none
IP- Field...........: IPF91
IK- Field...........: none
Feldliste...........: IDF90,IDF91,IPF91,LDATUM,LPRG,LWER,LZEIT,MGALT,MGNEU,NDATUM,...
Die Komplette Liste der Felder finden Sie unter: CAE-Differenzliste -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDF91) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oF91w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oF91w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loF91 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loF91 = My.Bussines.Strain.Misc.oF91['IDF91'] IF loF91.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loF91 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oF91w(m.loF91,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loF91 = My.Bussines.Strain.Misc.oF91[0] IF loF91.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poF91 AS Object */ Ein PRIVATE Objekt muss her... poF91 = loF91 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("F91","poF91") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loF91 AS Object */ IDF91 - Interne ID .IDF91 = My.Clients.Numbers.GetMoreIds("IDF91",1) */ IPF91 - Vorgangsart .IPF91 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oF91w(m.loF91,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loF91.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loF91.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oF91w(m.loF91,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oF91w(m.loF91,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
FER' - 'Fehlermeldungen in FIBU
Wichtige Feldinformationen:
Primary Key ....: IDFER
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDFER
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AUF,DAT,ERR,FEH,IDC6X,IDFER,IDXXX,IPC6X,IPXXX,TEX,WER
Die Komplette Liste der Felder finden Sie unter: Fehlermeldungen in FIBU
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDFER) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oFerw(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oFerw(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loFER AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loFER = My.Bussines.Strain.Misc.oFER['IDFER'] IF loFER.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loFER AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oFERw(m.loFER,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loFER = My.Bussines.Strain.Misc.oFER[0] IF loFER.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poFER AS Object */ Ein PRIVATE Objekt muss her... poFER = loFER */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("FER","poFER") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loFER AS Object */ IDFER - Interne ID .IDFER = My.Clients.Numbers.GetMoreIds("IDFER",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oFERw(m.loFER,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loFER.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loFER.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oFERw(m.loFER,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oFERw(m.loFER,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H01' - 'FIBU Kopfdaten
Wichtige Feldinformationen:
Primary Key ....: IDH01
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDH01
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AUSDRUCK,FAKTOR,IDC03,IDC30,IDH01,KURS,LASTUPD,LAUFWERK,LDAT...
Die Komplette Liste der Felder finden Sie unter: FIBU Kopfdaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDH01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH01 = My.Bussines.Strain.Misc.oH01['IDH01'] IF loH01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH01w(m.loH01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH01 = My.Bussines.Strain.Misc.oH01[0] IF loH01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH01 AS Object */ Ein PRIVATE Objekt muss her... poH01 = loH01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H01","poH01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH01 AS Object */ IDH01 - ID-FIBU Kopfdaten .IDH01 = SUBSTR(My.Clients.Numbers.GetMoreIds("IDH01",1),2) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH01w(m.loH01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH01w(m.loH01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH01w(m.loH01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H02' - 'FIBU Positionsdaten
Wichtige Feldinformationen:
Primary Key ....: IDH02
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDH02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AWIN,AZEV,DATEB,DATEV,DTNR,IDH01,IDH02,KENN,LASTUPD,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: FIBU Positionsdaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDH02) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH02w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH02 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH02 = My.Bussines.Strain.Misc.oH02['IDH02'] IF loH02.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH02 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH02w(m.loH02,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH02 = My.Bussines.Strain.Misc.oH02[0] IF loH02.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH02 AS Object */ Ein PRIVATE Objekt muss her... poH02 = loH02 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H02","poH02") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH02 AS Object */ IDH02 - ID-FIBU Positionsdaten .IDH02 = My.Clients.Numbers.GetMoreIds("IDH02",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH02w(m.loH02,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH02.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH02.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH02w(m.loH02,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH02w(m.loH02,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H03' - 'Buchungssätze FIBU
Wichtige Feldinformationen:
Primary Key ....: IDH03
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDH03
IC- Field...........: none
IP- Field...........: IPXXX
IK- Field...........: none
Feldliste...........: BEDATE,BETEXT,EGDATE,EGLAND,EGUSTID,FAKTOR,GKONTO,ICXXX,IDC0...
Die Komplette Liste der Felder finden Sie unter: Buchungssätze FIBU
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDH03) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH03 = My.Bussines.Strain.Misc.oH03['IDH03'] IF loH03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH03w(m.loH03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH03 = My.Bussines.Strain.Misc.oH03[0] IF loH03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH03 AS Object */ Ein PRIVATE Objekt muss her... poH03 = loH03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H03","poH03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH03 AS Object */ IDH03 - Interne ID .IDH03 = My.Clients.Numbers.GetMoreIds("IDH03",1) */ IPXXX - Datenherkunft .IPXXX = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH03w(m.loH03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH03w(m.loH03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH03w(m.loH03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H04' - 'Stammdatensätze FIBU
Wichtige Feldinformationen:
Primary Key ....: IDH04
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDH04
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,EGL,EGU,IDC6X,IDH04,ILH04,IPC6X,KTO,KZ1,LASTUPD,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: Stammdatensätze FIBU
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDH04) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH04w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH04 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH04 = My.Bussines.Strain.Misc.oH04['IDH04'] IF loH04.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH04 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH04w(m.loH04,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH04 = My.Bussines.Strain.Misc.oH04[0] IF loH04.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH04 AS Object */ Ein PRIVATE Objekt muss her... poH04 = loH04 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H04","poH04") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH04 AS Object */ IDH04 - Interne ID .IDH04 = My.Clients.Numbers.GetMoreIds("IDH04",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH04w(m.loH04,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH04.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH04.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH04w(m.loH04,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH04w(m.loH04,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H05' - 'Übertragene Buchungen
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,DAT,EGL,EGU,GKO,IDXXX,IPXXX,KTO,SKN,SKO,SKT,STA,STO,UMS,...
Die Komplette Liste der Felder finden Sie unter: Übertragene Buchungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH05w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH05 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH05 = My.Bussines.Strain.Misc.oH05['none'] IF loH05.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH05 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH05w(m.loH05,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH05 = My.Bussines.Strain.Misc.oH05[0] IF loH05.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH05 AS Object */ Ein PRIVATE Objekt muss her... poH05 = loH05 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H05","poH05") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH05 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH05w(m.loH05,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH05.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH05.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH05w(m.loH05,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH05w(m.loH05,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H10' - 'Buchungs Kopfdaten
Wichtige Feldinformationen:
Primary Key ....: IDH10
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDH10
IC- Field...........: none
IP- Field...........: IPH10
IK- Field...........: none
Feldliste...........: IIH10S,IPH10S,IPH10,IDH10,ICH10,IDC03,IDC03FI,IDC09ST,IDC24,...
Die Komplette Liste der Felder finden Sie unter: Buchungs Kopfdaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDH10) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH10 = My.Bussines.Strain.Misc.oH10['IDH10'] IF loH10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH10w(m.loH10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH10 = My.Bussines.Strain.Misc.oH10[0] IF loH10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH10 AS Object */ Ein PRIVATE Objekt muss her... poH10 = loH10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H10","poH10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH10 AS Object */ IDH10 - Interne ID .IDH10 = My.Clients.Numbers.GetMoreIds("IDH10",1) */ IPH10 - Buchungsart .IPH10 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH10w(m.loH10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH10w(m.loH10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH10w(m.loH10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H11' - 'Buchungspositionen
Wichtige Feldinformationen:
Primary Key ....: IDH11
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDH11
IC- Field...........: none
IP- Field...........: IPH11
IK- Field...........: none
Feldliste...........: KS1,KS2,IDH10,IPH11,IPH11S,IDH11,ICH11,ILH11,IDH19S,IDH19T,I...
Die Komplette Liste der Felder finden Sie unter: Buchungspositionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDH11) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH11w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH11 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH11 = My.Bussines.Strain.Misc.oH11['IDH11'] IF loH11.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH11 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH11w(m.loH11,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH11 = My.Bussines.Strain.Misc.oH11[0] IF loH11.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH11 AS Object */ Ein PRIVATE Objekt muss her... poH11 = loH11 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H11","poH11") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH11 AS Object */ IDH11 - Interne ID .IDH11 = My.Clients.Numbers.GetMoreIds("IDH11",1) */ IPH11 - Satzart .IPH11 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH11w(m.loH11,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH11.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH11.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH11w(m.loH11,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH11w(m.loH11,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H18' - 'Kontenrahmen
Wichtige Feldinformationen:
Primary Key ....: IDH18
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDH18
IC- Field...........: none
IP- Field...........: IPH18
IK- Field...........: none
Feldliste...........: IPH18,IDH18,ICH18,IFH18T,IFH18S,IFH18H,FNKTOV,FNKTOB,EAB,EAB...
Die Komplette Liste der Felder finden Sie unter: Kontenrahmen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDH18) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH18w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH18w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH18 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH18 = My.Bussines.Strain.Misc.oH18['IDH18'] IF loH18.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH18 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH18w(m.loH18,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH18 = My.Bussines.Strain.Misc.oH18[0] IF loH18.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH18 AS Object */ Ein PRIVATE Objekt muss her... poH18 = loH18 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H18","poH18") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH18 AS Object */ IDH18 - Interne ID .IDH18 = "" */ IPH18 - Art .IPH18 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH18w(m.loH18,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH18.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH18.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH18w(m.loH18,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH18w(m.loH18,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
H19' - 'Kontenschlüssel
Wichtige Feldinformationen:
Primary Key ....: IDH19
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDH19
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BABIC,BABLZ,BAIBAN,BAKTO,FIEGL,FIEGU,IPH18,IDH19,ICH19,ILH19...
Die Komplette Liste der Felder finden Sie unter: Kontenschlüssel
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDH19) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oH19w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oH19w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loH19 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loH19 = My.Bussines.Strain.Misc.oH19['IDH19'] IF loH19.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loH19 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oH19w(m.loH19,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loH19 = My.Bussines.Strain.Misc.oH19[0] IF loH19.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poH19 AS Object */ Ein PRIVATE Objekt muss her... poH19 = loH19 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("H19","poH19") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loH19 AS Object */ IDH19 - Interne ID .IDH19 = My.Clients.Numbers.GetMoreIds("IDH19",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oH19w(m.loH19,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loH19.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loH19.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oH19w(m.loH19,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oH19w(m.loH19,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I01' - 'Artikel - Lagerorte
Wichtige Feldinformationen:
Primary Key ....: IDI01
Secondary Key.: IDB01+IDK10+IDC66
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI01
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATENT,DATIBW,DATINV,ENTKUM,IDC01,IDI01,IDK10,INVENTUR,LASTU...
Die Komplette Liste der Felder finden Sie unter: Artikel - Lagerorte
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI01) und Sekundär-(IDB01+IDK10+IDC66) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI01 = My.Bussines.Strain.Misc.oI01['IDI01'] IF loI01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI01w(m.loI01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI01 = My.Bussines.Strain.Misc.oI01[0] IF loI01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI01 AS Object */ Ein PRIVATE Objekt muss her... poI01 = loI01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I01","poI01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI01 AS Object */ IDI01 - ID-Artikel - Lagerorte .IDI01 = My.Clients.Numbers.GetMoreIds("IDI01",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI01w(m.loI01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI01w(m.loI01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI01w(m.loI01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Variant = My.Bussines.Strain.Misc.oI05W(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI05W(toRecord,tcAction,tlCheckNew)
I15' - 'Disposammelbuchungen
Wichtige Feldinformationen:
Primary Key ....: IDI15
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI15
IC- Field...........: NUMMER
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ART,AUSGABE,DPARA,GENBEST,IDE10,IDI15,IDK10,IPE10,LASTUPD,LD...
Die Komplette Liste der Felder finden Sie unter: Disposammelbuchungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI15) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI15w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI15 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI15 = My.Bussines.Strain.Misc.oI15['IDI15'] IF loI15.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI15 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI15w(m.loI15,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI15 = My.Bussines.Strain.Misc.oI15[0] IF loI15.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI15 AS Object */ Ein PRIVATE Objekt muss her... poI15 = loI15 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I15","poI15") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI15 AS Object */ IDI15 - ID-Disposammelbuchungen .IDI15 = My.Clients.Numbers.GetMoreIds("IDI15",1) */ NUMMER - Disposammelbuchungen .NUMMER = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI15w(m.loI15,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI15.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI15.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI15w(m.loI15,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI15w(m.loI15,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I16' - 'Dispositionshinweise
Wichtige Feldinformationen:
Primary Key ....: IDI16
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI16
IC- Field...........: none
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: AUFART,AUFARTB,AUFTRAG,AUFTRAGB,DISWER,IDAUF,IDAUFP,IDI16,ID...
Die Komplette Liste der Felder finden Sie unter: Dispositionshinweise
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI16) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI16w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI16 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI16 = My.Bussines.Strain.Misc.oI16['IDI16'] IF loI16.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI16 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI16w(m.loI16,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI16 = My.Bussines.Strain.Misc.oI16[0] IF loI16.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI16 AS Object */ Ein PRIVATE Objekt muss her... poI16 = loI16 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I16","poI16") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI16 AS Object */ IDI16 - ID-Dispositionshinweise .IDI16 = My.Clients.Numbers.GetMoreIds("IDI16",1) */ IPZWI - Datenherkunft .IPZWI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI16w(m.loI16,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI16.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI16.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI16w(m.loI16,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI16w(m.loI16,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I17' - 'Überschußmengen
Wichtige Feldinformationen:
Primary Key ....: IDI17
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI17
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDI17,IDK10,LASTUPD,MENGE,IDC66,IPB01,IDB01
Die Komplette Liste der Felder finden Sie unter: Überschußmengen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI17) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI17w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI17w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI17 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI17 = My.Bussines.Strain.Misc.oI17['IDI17'] IF loI17.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI17 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI17w(m.loI17,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI17 = My.Bussines.Strain.Misc.oI17[0] IF loI17.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI17 AS Object */ Ein PRIVATE Objekt muss her... poI17 = loI17 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I17","poI17") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI17 AS Object */ IDI17 - ID-Überschußmengen .IDI17 = My.Clients.Numbers.GetMoreIds("IDI17",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI17w(m.loI17,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI17.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI17.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI17w(m.loI17,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI17w(m.loI17,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I18' - 'Korrekturbuchungen
Wichtige Feldinformationen:
Primary Key ....: IDI18
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI18
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEARB,BUART,IDD41,IDD44,IDD55,IDI18,IDI21,IDI21S,LASTUPD,LDA...
Die Komplette Liste der Felder finden Sie unter: Korrekturbuchungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI18) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI18w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI18w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI18 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI18 = My.Bussines.Strain.Misc.oI18['IDI18'] IF loI18.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI18 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI18w(m.loI18,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI18 = My.Bussines.Strain.Misc.oI18[0] IF loI18.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI18 AS Object */ Ein PRIVATE Objekt muss her... poI18 = loI18 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I18","poI18") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI18 AS Object */ IDI18 - ID-Korrekturbuchungen .IDI18 = My.Clients.Numbers.GetMoreIds("IDI18",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI18w(m.loI18,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI18.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI18.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI18w(m.loI18,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI18w(m.loI18,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I19' - 'Bestellvorschlag
Wichtige Feldinformationen:
Primary Key ....: IDI19
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI19
IC- Field...........: none
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: BEST,DATGPL,IDC31,IDD40,IDI19,IDI20,IDK10,IDPOS,IDZWI,IPC80,...
Die Komplette Liste der Felder finden Sie unter: Bestellvorschlag
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI19) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI19w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI19w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI19 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI19 = My.Bussines.Strain.Misc.oI19['IDI19'] IF loI19.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI19 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI19w(m.loI19,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI19 = My.Bussines.Strain.Misc.oI19[0] IF loI19.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI19 AS Object */ Ein PRIVATE Objekt muss her... poI19 = loI19 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I19","poI19") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI19 AS Object */ IDI19 - ID-Bestellvorschlag .IDI19 = My.Clients.Numbers.GetMoreIds("IDI19",1) */ IPZWI - Datenherkunft .IPZWI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI19w(m.loI19,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI19.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI19.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI19w(m.loI19,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI19w(m.loI19,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I20' - 'Disposition
Wichtige Feldinformationen:
Primary Key ....: IDI20
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI20
IC- Field...........: none
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: BGCHK,DATGPL,IDB01K,IDC31,IDD40,IDD41,IDD51,IDI20,IDI25,IDK1...
Die Komplette Liste der Felder finden Sie unter: Disposition
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI20) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI20 = My.Bussines.Strain.Misc.oI20['IDI20'] IF loI20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI20w(m.loI20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI20 = My.Bussines.Strain.Misc.oI20[0] IF loI20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI20 AS Object */ Ein PRIVATE Objekt muss her... poI20 = loI20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I20","poI20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI20 AS Object */ IDI20 - ID-Disposition .IDI20 = My.Clients.Numbers.GetMoreIds("IDI20",1) */ IPZWI - Datenherkunft .IPZWI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI20w(m.loI20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI20w(m.loI20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI20w(m.loI20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Gibt ein Objekt mit den Informationen aus I21 zurück. Siehe Beispielcode.
Object = My.Bussines.Strain.Misc.oI21St(tcIdb01 AS STRING,tcIdk10 AS STRING,tcIdc66 AS STRING,tnWhat AS INTEGER) Object = My.Bussines.Strain.Misc.oI21St(tcIdb01,tcIdk10,tcIdc66,tnWhat)
*/ Beispiel zur Ermittlung der Informationen: LOCAL loI21St,lcIdb01,lcIdk10,lcIdc66 STORE "." TO lcIdb01,lcIdk10,lcIdc66 */ Bitte die Platzhalter m.lcId... mit den entsprechenden Informationen füllen! loI21St = My.Bussines.Strain.Misc.oI21St(m.lcIdb01,m.lcIdk10,m.lcIdc66,0) */ Der vierte Parameter gibt an, mit welchem Filter gearbeitet wird: */ 0- Alle */ 1- Ab letzter Inventur */ 2- Ab letzter Inventurbewertung */ Das Objekt in einen String umsetzen und im Clipboard speichern _cliptext = My.Functions.fOTS.ObjectToString(m.loI21St) */ Aussehen des Objekts: */ Nochmals die Parameter Idb01 ="00002161" Idc66 ="STAMM " Idk10 =" " */ Die summierten Werte. !! ACHTUNG: ES WERDEN IMMER SUMMEN BZW. MINIMA ODER MAXIMA GEBILDET! */ Inventurbewertung Cntib =0 && Anzahl der Inventurbewertungsbuchungen 'IBW' Minib ={^2013-01-01} && Erste Inventurbewertung Maxib ={^2013-01-01} && Letzte Inventurbewertung Mgib =1 && Bewerteter Bestand 'IBW' (Summe) Y0ib =525.00 && Wert der Inventurbewertung 'IBW' (Summe) */ Inventur Cntiv =0 && Anzahl der Inventurbuchungen 'GIB' Miniv ={^2013-12-05} && Erste Inventurbuchung 'AIB,GIB,ZIB' Maxiv ={^2013-12-05} && Letzte Inventurbuchung 'AIB,GIB,ZIB' Mgiv =1 && Gezählter Bestand 'GIB' (Summe) Y0iv =525.00 && Wert des Bestandes 'GIB' (Summe) Mgiva =1 && Abgebuchter Bestand 'AIB' (Summe) Y0iva =525.00 && Wert des Bestandes 'AIB' (Summe) Mgivz =1 && Zugebuchter Bestand 'ZIB' (Summe) Y0ivz =525.00 && Wert des Bestandes 'ZIB' (Summe) */ Anzahl Zugänge / Abgänge (Nicht enthalten: IBW,GIB) Cnta =2 && Anzahl der Lagerabgänge (auch: AIB ohne AIS) Cntas =0 && Anzahl stornierter Lagerabgänge (auch: SIA) Cntz =3 && Anzahl der Zugänge (auch: ZIB) Cntzs =0 && Anzahl stornierter Zugänge (auch: SIZ) Cntais =0 && Anzahl Inventur Ausschußbuchungen Cntsis =0 && Anzahl stornierter Ausschußbuchungen */ Anzahl Zugänge / Abgänge (Nicht enthalten: AIB,ZIB,AIS,SIA,SIZ,SIS) Cntaoi =2 && Anzahl der Lagerabgänge Cntasoi =0 && Anzahl stornierter Lagerabgänge Cntzoi =3 && Anzahl der Zugänge Cntzsoi =0 && Anzahl stornierter Zugänge */ Datumsgrenzen der Zu- und Abgänge (Nicht enthalten: IBW,GIB) !! NULL Werte sind nicht definiert !! */ Erstes Datum Mina =.NULL. && Erster Abgang Minas =.NULL. && Erster Storno-Abgang Minz ={^2008-03-20} && Erster Zugang Minzs =.NULL. && Erster Storno-Zugang */ Erstes Datum (Nicht enthalten: AIB,ZIB,AIS,SIA,SIZ,SIS) Minaoi =.NULL. && Erster Abgang Minasoi =.NULL. && Erster Storno-Abgang Minzoi ={^2008-03-20} && Erster Zugang Minzsoi =.NULL. && Erster Storno-Zugang */ Letztes Datum Maxa =.NULL. && Letztes Datum Abgang Maxas =.NULL. && Letztes Datum Storno-Abgang Maxz ={^2008-03-20} && Letztes Datum Zugang Maxzs =.NULL. && Letztes Datum Storno-Zugang */ Letztes Datum (Nicht enthalten: AIB,ZIB,AIS,SIA,SIZ,SIS) Maxaoi =.NULL. && Letztes Datum Abgang Maxasoi =.NULL. && Letztes Datum Storno-Abgang Maxzoi ={^2008-03-20} && Letztes Datum Zugang Maxzsoi =.NULL. && Letztes Datum Storno-Zugang */ Mengen Zu- und Abgang Mga =0 && Abgangsmenge Mgas =0 && Storno-Abgangsmenge Mgz =1 && Menge Zugang Mgzs =0 && Menge Storno-Zugang */ Anzahl Zugänge / Abgänge (Nicht enthalten: AIB,ZIB,AIS,SIA,SIZ,SIS) Mgaoi =2 && Mengen der Lagerabgänge Mgasoi =0 && Mengen stornierter Lagerabgänge Mgzoi =3 && Mengen der Zugänge Mgzsoi =0 && Mengen stornierter Zugänge */ Werte Zu- und Abgang Y0a =0 && Wert der Abgänge in FIW (Nicht enthalten: AIS) Y0as =0 && Wert der Storno-Abgänge Y0ais =0 && Wert an Ausschuß Y0sis =0 && Storno Wert an Ausschuß Y0z =14.955300000 && Wert der Zugänge Y0zs =0 && Wert der Storno-Zugänge */ Werte Zu- und Abgang (Nicht enthalten: AIB,ZIB,AIS,SIA,SIZ,SIS) Y0aoi =0 && Wert der Abgänge in FIW Y0asoi =0 && Wert der Storno-Abgänge Y0zoi =14.955300000 && Wert der Zugänge Y0zsoi =0 && Wert der Storno-Zugänge */ IDI21 - Informationen (Min - Erster) MinIDa =.NULL. && Abgang MinIDaoi =.NULL. && Abgang ohne Inventur MinIDas =.NULL. && Abgang - Storno MinIDasoi =.NULL. && Abgang - Storno ohne Inventur MinIDz ="10000426" && Zugang MinIDzoi ="10000426" && Zugang ohne Inventur MinIDzs =.NULL. && Zugang - Storno MinIDzsoi =.NULL. && Zugang - Storno ohne Inventur */ IDI21 - Informationen (Max - Letzter) Erklärung s.o. MaxIDa =.NULL. MaxIDaoi =.NULL. MaxIDas =.NULL. MaxIDasoi =.NULL. MaxIDz ="10000426" MaxIDzoi ="10000426" MaxIDzs =.NULL. MaxIDzsoi =.NULL.
I21' - 'Buchungsjournal
Wichtige Feldinformationen:
Primary Key ....: IDI21
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI21
IC- Field...........: none
IP- Field...........: BUART
IK- Field...........: none
Feldliste...........: BUART,DATBUCH,IDAUF,IDC01,IDC31,IDC6X,IDI21,IDI21S,IDK10,IDP...
Die Komplette Liste der Felder finden Sie unter: Buchungsjournal
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI21) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI21w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI21 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI21 = My.Bussines.Strain.Misc.oI21['IDI21'] IF loI21.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI21 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI21w(m.loI21,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI21 = My.Bussines.Strain.Misc.oI21[0] IF loI21.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI21 AS Object */ Ein PRIVATE Objekt muss her... poI21 = loI21 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I21","poI21") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI21 AS Object */ IDI21 - ID-Buchungsjournal .IDI21 = My.Clients.Numbers.GetMoreIds("IDI21",1) */ BUART - Buchungsart .BUART = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI21w(m.loI21,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI21.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI21.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI21w(m.loI21,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI21w(m.loI21,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I22' - 'Lagerumbuchungen
Wichtige Feldinformationen:
Primary Key ....: IDI22
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDI22
IC- Field...........: MATCH
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: FLAG,GRUND,I22LDOI20,I22LNOI20,I22LUEBER,IDC64,IDI22,IDK10,I...
Die Komplette Liste der Felder finden Sie unter: Lagerumbuchungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI22) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI22w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI22w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI22 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI22 = My.Bussines.Strain.Misc.oI22['IDI22'] IF loI22.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI22 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI22w(m.loI22,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI22 = My.Bussines.Strain.Misc.oI22[0] IF loI22.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI22 AS Object */ Ein PRIVATE Objekt muss her... poI22 = loI22 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I22","poI22") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI22 AS Object */ IDI22 - ID-Lagerumbuchungen .IDI22 = My.Clients.Numbers.GetMoreIds("IDI22",1) */ MATCH - Lagerumbuchungen .MATCH = My.Functions.Internals.NextNr("I22-LAGERUMBUCHUNGEN",My.xDate,.F.,SET("Datasession")) */ IPZWI - Auftragsart .IPZWI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI22w(m.loI22,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI22.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI22.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI22w(m.loI22,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI22w(m.loI22,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I23' - 'Lagerumbuchungen -Pos
Wichtige Feldinformationen:
Primary Key ....: IDI23
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI23
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATBUCH,GEBU,GRUND,IDAUFA,IDAUFV,IDC01A,IDC01V,IDC66A,IDC66V...
Die Komplette Liste der Felder finden Sie unter: Lagerumbuchungen -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI23) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI23w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI23w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI23 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI23 = My.Bussines.Strain.Misc.oI23['IDI23'] IF loI23.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI23 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI23w(m.loI23,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI23 = My.Bussines.Strain.Misc.oI23[0] IF loI23.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI23 AS Object */ Ein PRIVATE Objekt muss her... poI23 = loI23 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I23","poI23") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI23 AS Object */ IDI23 - ID-Lagerumbuchungen -Pos .IDI23 = My.Clients.Numbers.GetMoreIds("IDI23",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI23w(m.loI23,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI23.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI23.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI23w(m.loI23,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI23w(m.loI23,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I24' - 'Fertigungsaufträge
Wichtige Feldinformationen:
Primary Key ....: IDI24
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: IEI24
ID- Field...........: IDI24
IC- Field...........: MATCH
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: ANF,BDEUEB,BDEUEBF,DATUM,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPA...
Die Komplette Liste der Felder finden Sie unter: Fertigungsaufträge
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI24) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI24w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI24w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI24 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI24 = My.Bussines.Strain.Misc.oI24['IDI24'] IF loI24.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI24 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI24w(m.loI24,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI24 = My.Bussines.Strain.Misc.oI24[0] IF loI24.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI24 AS Object */ Ein PRIVATE Objekt muss her... poI24 = loI24 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I24","poI24") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI24 AS Object */ IDI24 - ID-Fertigungsaufträge .IDI24 = My.Clients.Numbers.GetMoreIds("IDI24",1) */ MATCH - Fertigungsaufträge .MATCH = My.Functions.Internals.NextNr("I2405-FERTIGUNG") */ IPZWI - Vorgangsart .IPZWI = "Bitte angeben" */ IEI24 - EAN-Code .IEI24 = My.Clients.Numbers.EANCode("I24") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI24w(m.loI24,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI24.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI24.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI24w(m.loI24,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI24w(m.loI24,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I25' - 'Fertigungsaufträge -Pos
Wichtige Feldinformationen:
Primary Key ....: IDI25
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI25
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBU,IDF02,IDI21,IDI24,IDI25,IDK10,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Fertigungsaufträge -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI25) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI25w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI25w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI25 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI25 = My.Bussines.Strain.Misc.oI25['IDI25'] IF loI25.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI25 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI25w(m.loI25,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI25 = My.Bussines.Strain.Misc.oI25[0] IF loI25.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI25 AS Object */ Ein PRIVATE Objekt muss her... poI25 = loI25 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I25","poI25") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI25 AS Object */ IDI25 - ID-Fertigungsaufträge -Pos .IDI25 = My.Clients.Numbers.GetMoreIds("IDI25",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI25w(m.loI25,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI25.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI25.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI25w(m.loI25,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI25w(m.loI25,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I26' - 'Materialanforderung auto
Wichtige Feldinformationen:
Primary Key ....: IDI26
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDI26
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,GRUND,IDC31,IDC64,IDI26,INDISPO,IPI26S,LASTUPD,LDATUM,...
Die Komplette Liste der Felder finden Sie unter: Materialanforderung auto
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI26w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI26w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI26 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI26 = My.Bussines.Strain.Misc.oI26['IDI26'] IF loI26.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI26 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI26w(m.loI26,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI26 = My.Bussines.Strain.Misc.oI26[0] IF loI26.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI26 AS Object */ Ein PRIVATE Objekt muss her... poI26 = loI26 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I26","poI26") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI26 AS Object */ IDI26 - ID-Materialanforderung auto .IDI26 = My.Clients.Numbers.GetMoreIds("IDI26",1) */ MATCH - Materialanforderung (A) .MATCH = My.Functions.Internals.NextNr("I26-LAGERMODUL") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI26w(m.loI26,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI26.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI26.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI26w(m.loI26,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI26w(m.loI26,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I27' - 'Materialanforderung -Pos
Wichtige Feldinformationen:
Primary Key ....: IDI27
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI27
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATGPL,GEBUCHT,IDB01K,IDC31,IDI20,IDI26,IDI27,IDI27K,IDK10,I...
Die Komplette Liste der Felder finden Sie unter: Materialanforderung -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI27) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI27w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI27w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI27 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI27 = My.Bussines.Strain.Misc.oI27['IDI27'] IF loI27.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI27 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI27w(m.loI27,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI27 = My.Bussines.Strain.Misc.oI27[0] IF loI27.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI27 AS Object */ Ein PRIVATE Objekt muss her... poI27 = loI27 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I27","poI27") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI27 AS Object */ IDI27 - ID-Materialanforderung -Pos .IDI27 = My.Clients.Numbers.GetMoreIds("IDI27",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI27w(m.loI27,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI27.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI27.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI27w(m.loI27,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI27w(m.loI27,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I28' - 'Materialanforderung man.
Wichtige Feldinformationen:
Primary Key ....: IDI28
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDI28
IC- Field...........: MATCH
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: DATUM,GRUND,IDC31,IDC64,IDE10,IDI28,INDISPO,IPI28S,IPY01,LAS...
Die Komplette Liste der Felder finden Sie unter: Materialanforderung man.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI28) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI28w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI28w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI28 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI28 = My.Bussines.Strain.Misc.oI28['IDI28'] IF loI28.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI28 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI28w(m.loI28,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI28 = My.Bussines.Strain.Misc.oI28[0] IF loI28.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI28 AS Object */ Ein PRIVATE Objekt muss her... poI28 = loI28 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I28","poI28") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI28 AS Object */ IDI28 - ID-Materialanforderung man. .IDI28 = My.Clients.Numbers.GetMoreIds("IDI28",1) */ MATCH - Materialanforderung (M) .MATCH = My.Functions.Internals.NextNr("I28-MANUELLE-BEST") */ IPY01 - Datenherkunft .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI28w(m.loI28,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI28.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI28.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI28w(m.loI28,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI28w(m.loI28,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I29' - 'Materialanforderung -Pos
Wichtige Feldinformationen:
Primary Key ....: IDI29
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI29
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: DATGPL,GEBUCHT,IDB01K,IDC31,IDE10,IDI20,IDI28,IDI29,IDI29K,I...
Die Komplette Liste der Felder finden Sie unter: Materialanforderung -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI29) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI29w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI29w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI29 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI29 = My.Bussines.Strain.Misc.oI29['IDI29'] IF loI29.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI29 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI29w(m.loI29,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI29 = My.Bussines.Strain.Misc.oI29[0] IF loI29.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI29 AS Object */ Ein PRIVATE Objekt muss her... poI29 = loI29 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I29","poI29") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI29 AS Object */ IDI29 - ID-Materialanforderung -Pos .IDI29 = My.Clients.Numbers.GetMoreIds("IDI29",1) */ IPY01 - Vorgangsart .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI29w(m.loI29,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI29.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI29.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI29w(m.loI29,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI29w(m.loI29,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I30' - 'Lagerzugänge
Wichtige Feldinformationen:
Primary Key ....: IDI30
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDI30
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BELEG,DATUM,GEBUCHT,GMWST,GPREIS_B,GPREIS_N,GRUND,IDC64,IDI3...
Die Komplette Liste der Felder finden Sie unter: Lagerzugänge
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI30) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI30w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI30 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI30 = My.Bussines.Strain.Misc.oI30['IDI30'] IF loI30.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI30 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI30w(m.loI30,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI30 = My.Bussines.Strain.Misc.oI30[0] IF loI30.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI30 AS Object */ Ein PRIVATE Objekt muss her... poI30 = loI30 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I30","poI30") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI30 AS Object */ IDI30 - ID-Lagerzugänge .IDI30 = My.Clients.Numbers.GetMoreIds("IDI30",1) */ MATCH - Lagerzugänge .MATCH = My.Functions.Internals.NextNr("I30-LAGERZUGANG") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI30w(m.loI30,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI30.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI30.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI30w(m.loI30,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI30w(m.loI30,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I31' - 'Lagerzugänge -Pos
Wichtige Feldinformationen:
Primary Key ....: IDI31
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI31
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBU,GRUND,IDAUF,IDI21,IDI30,IDI31,IDK10,INFO,IPAUF,LASTUPD,...
Die Komplette Liste der Felder finden Sie unter: Lagerzugänge -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI31) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI31w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI31w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI31 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI31 = My.Bussines.Strain.Misc.oI31['IDI31'] IF loI31.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI31 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI31w(m.loI31,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI31 = My.Bussines.Strain.Misc.oI31[0] IF loI31.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI31 AS Object */ Ein PRIVATE Objekt muss her... poI31 = loI31 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I31","poI31") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI31 AS Object */ IDI31 - ID-Lagerzugänge -Pos .IDI31 = My.Clients.Numbers.GetMoreIds("IDI31",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI31w(m.loI31,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI31.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI31.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI31w(m.loI31,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI31w(m.loI31,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I32' - 'Lagerabgänge
Wichtige Feldinformationen:
Primary Key ....: IDI32
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDI32
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BELEG,DATUM,GEBUCHT,GMWST,GPREIS_B,GPREIS_N,GRUND,IDC32,IDC6...
Die Komplette Liste der Felder finden Sie unter: Lagerabgänge
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI32) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI32w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI32w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI32 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI32 = My.Bussines.Strain.Misc.oI32['IDI32'] IF loI32.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI32 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI32w(m.loI32,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI32 = My.Bussines.Strain.Misc.oI32[0] IF loI32.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI32 AS Object */ Ein PRIVATE Objekt muss her... poI32 = loI32 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I32","poI32") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI32 AS Object */ IDI32 - ID-Lagerabgänge .IDI32 = My.Clients.Numbers.GetMoreIds("IDI32",1) */ MATCH - Lagerabgänge .MATCH = My.Functions.Internals.NextNr("I32-LAGERABGANG") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI32w(m.loI32,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI32.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI32.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI32w(m.loI32,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI32w(m.loI32,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I33' - 'Lagerabgänge -Pos
Wichtige Feldinformationen:
Primary Key ....: IDI33
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI33
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBU,GRUND,IDAUF,IDI21,IDI32,IDI33,IDK10,INFO,IPAUF,LASTUPD,...
Die Komplette Liste der Felder finden Sie unter: Lagerabgänge -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI33) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI33w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI33w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI33 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI33 = My.Bussines.Strain.Misc.oI33['IDI33'] IF loI33.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI33 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI33w(m.loI33,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI33 = My.Bussines.Strain.Misc.oI33[0] IF loI33.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI33 AS Object */ Ein PRIVATE Objekt muss her... poI33 = loI33 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I33","poI33") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI33 AS Object */ IDI33 - ID-Lagerabgänge -Pos .IDI33 = My.Clients.Numbers.GetMoreIds("IDI33",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI33w(m.loI33,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI33.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI33.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI33w(m.loI33,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI33w(m.loI33,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I40' - 'Inventur
Wichtige Feldinformationen:
Primary Key ....: IDI40
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDI40
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ADATUM,ALLNIL,ARTNRB,ARTNRV,BUERR,DDATUM,GJAHR,IDC03,IDC25B,...
Die Komplette Liste der Felder finden Sie unter: Inventur
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI40) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI40w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI40 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI40 = My.Bussines.Strain.Misc.oI40['IDI40'] IF loI40.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI40 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI40w(m.loI40,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI40 = My.Bussines.Strain.Misc.oI40[0] IF loI40.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI40 AS Object */ Ein PRIVATE Objekt muss her... poI40 = loI40 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I40","poI40") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI40 AS Object */ IDI40 - ID-Inventur .IDI40 = My.Clients.Numbers.GetMoreIds("IDI40",1) */ MATCH - Zähllisten .MATCH = My.Functions.Internals.NextNr("I40-INVENTURLISTE") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI40w(m.loI40,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI40.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI40.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI40w(m.loI40,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI40w(m.loI40,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I41' - 'Inventur -Pos
Wichtige Feldinformationen:
Primary Key ....: IDI41
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI41
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BDATUM,BMENGE,BPREIS,BUERR,CPOSNR,DT1,DT2,DT3,DT4,DT5,DT6,DT...
Die Komplette Liste der Felder finden Sie unter: Inventur -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI41) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI41w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI41w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI41 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI41 = My.Bussines.Strain.Misc.oI41['IDI41'] IF loI41.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI41 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI41w(m.loI41,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI41 = My.Bussines.Strain.Misc.oI41[0] IF loI41.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI41 AS Object */ Ein PRIVATE Objekt muss her... poI41 = loI41 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I41","poI41") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI41 AS Object */ IDI41 - ID-Inventur -Pos .IDI41 = My.Clients.Numbers.GetMoreIds("IDI41",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI41w(m.loI41,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI41.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI41.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI41w(m.loI41,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI41w(m.loI41,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I50' - 'Inventurbewertung
Wichtige Feldinformationen:
Primary Key ....: IDI50
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDI50
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,DATUM,IDC25B,IDC25V,IDC42EKB,IDC42EKV,IDC42VKB...
Die Komplette Liste der Felder finden Sie unter: Inventurbewertung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI50) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI50w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI50 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI50 = My.Bussines.Strain.Misc.oI50['IDI50'] IF loI50.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI50 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI50w(m.loI50,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI50 = My.Bussines.Strain.Misc.oI50[0] IF loI50.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI50 AS Object */ Ein PRIVATE Objekt muss her... poI50 = loI50 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I50","poI50") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI50 AS Object */ IDI50 - ID-Inventurbewertung .IDI50 = My.Clients.Numbers.GetMoreIds("IDI50",1) */ MATCH - Bewertungslisten .MATCH = My.Functions.Internals.NextNr("BEWERTUNGSLISTE") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI50w(m.loI50,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI50.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI50.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI50w(m.loI50,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI50w(m.loI50,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I51' - 'Inventurbewertung -Pos
Wichtige Feldinformationen:
Primary Key ....: IDI51
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI51
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC81,IDC84,IDD44NW,IDI50,IDI51,IDK10,IDX06,LASTUPD,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: Inventurbewertung -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI51) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI51w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI51w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI51 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI51 = My.Bussines.Strain.Misc.oI51['IDI51'] IF loI51.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI51 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI51w(m.loI51,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI51 = My.Bussines.Strain.Misc.oI51[0] IF loI51.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI51 AS Object */ Ein PRIVATE Objekt muss her... poI51 = loI51 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I51","poI51") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI51 AS Object */ IDI51 - ID-Inventurbewertung -Pos .IDI51 = My.Clients.Numbers.GetMoreIds("IDI51",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI51w(m.loI51,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI51.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI51.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI51w(m.loI51,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI51w(m.loI51,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I52' - 'Inventurbewertung -U.Pos
Wichtige Feldinformationen:
Primary Key ....: IDI51
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATBUCH,IDI21,IDI51,IDI52,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDA...
Die Komplette Liste der Felder finden Sie unter: Inventurbewertung -U.Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI51) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI52w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI52w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI52 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI52 = My.Bussines.Strain.Misc.oI52['none'] IF loI52.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI52 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI52w(m.loI52,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI52 = My.Bussines.Strain.Misc.oI52[0] IF loI52.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI52 AS Object */ Ein PRIVATE Objekt muss her... poI52 = loI52 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I52","poI52") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI52 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI52w(m.loI52,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI52.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI52.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI52w(m.loI52,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI52w(m.loI52,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I54' - 'Wertminderungen
Wichtige Feldinformationen:
Primary Key ....: IDI51
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATMOD,DVERBRAUCH,EWEITE,IDC84,IDI51,KENN,LASTUPD,LDATUM,LPR...
Die Komplette Liste der Felder finden Sie unter: Wertminderungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI51) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI54w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI54w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI54 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI54 = My.Bussines.Strain.Misc.oI54['none'] IF loI54.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI54 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI54w(m.loI54,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI54 = My.Bussines.Strain.Misc.oI54[0] IF loI54.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI54 AS Object */ Ein PRIVATE Objekt muss her... poI54 = loI54 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I54","poI54") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI54 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI54w(m.loI54,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI54.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI54.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI54w(m.loI54,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI54w(m.loI54,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
I55' - 'Bewertungsfehler
Wichtige Feldinformationen:
Primary Key ....: IDI55
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDI55
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BUART,DATBIS,DATBUCH,DATVON,IDAUF,IDI21,IDI21BIS,IDI21S,IDI5...
Die Komplette Liste der Felder finden Sie unter: Bewertungsfehler
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDI55) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oI55w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI55w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loI55 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loI55 = My.Bussines.Strain.Misc.oI55['IDI55'] IF loI55.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loI55 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oI55w(m.loI55,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loI55 = My.Bussines.Strain.Misc.oI55[0] IF loI55.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poI55 AS Object */ Ein PRIVATE Objekt muss her... poI55 = loI55 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("I55","poI55") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loI55 AS Object */ IDI55 - Interne ID .IDI55 = My.Functions.Internals.GetIntId("IDI55",.F.,1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oI55w(m.loI55,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loI55.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loI55.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oI55w(m.loI55,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oI55w(m.loI55,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Variant = My.Bussines.Strain.Misc.oI62W(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI62W(toRecord,tcAction,tlCheckNew)
Variant = My.Bussines.Strain.Misc.oI63W(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oI63W(toRecord,tcAction,tlCheckNew)
J30' - 'BDE-Aufträge
Wichtige Feldinformationen:
Primary Key ....: IDJ30+STR(AFO_NR,3)
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDJ30
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,ERFASST,IDE10,KUNDE,LIEFER,LOEMON,PROJEKT,UEBERGEBEN,IDJ...
Die Komplette Liste der Felder finden Sie unter: BDE-Aufträge
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDJ30+STR(AFO_NR,3)) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oJ30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oJ30w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loJ30 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loJ30 = My.Bussines.Strain.Misc.oJ30['IDJ30'] IF loJ30.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loJ30 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oJ30w(m.loJ30,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loJ30 = My.Bussines.Strain.Misc.oJ30[0] IF loJ30.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poJ30 AS Object */ Ein PRIVATE Objekt muss her... poJ30 = loJ30 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("J30","poJ30") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loJ30 AS Object */ IDJ30 - ID-BDE-Aufträge .IDJ30 = "Bitte angeben" */ MATCH - BDE-Auftrag .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oJ30w(m.loJ30,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loJ30.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loJ30.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oJ30w(m.loJ30,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oJ30w(m.loJ30,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
J32' - 'Auftragsdatenimport BDE
Wichtige Feldinformationen:
Primary Key ....: IDJ32
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDJ32
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,IDC64,IDJ32,LOHNART,LOHNPROZ,STUNDEN
Die Komplette Liste der Felder finden Sie unter: Auftragsdatenimport BDE
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDJ32) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oJ32w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oJ32w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loJ32 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loJ32 = My.Bussines.Strain.Misc.oJ32['IDJ32'] IF loJ32.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loJ32 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oJ32w(m.loJ32,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loJ32 = My.Bussines.Strain.Misc.oJ32[0] IF loJ32.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poJ32 AS Object */ Ein PRIVATE Objekt muss her... poJ32 = loJ32 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("J32","poJ32") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loJ32 AS Object */ IDJ32 - ID-Auftragsdatenimport BDE .IDJ32 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oJ32w(m.loJ32,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loJ32.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loJ32.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oJ32w(m.loJ32,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oJ32w(m.loJ32,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
J40' - 'BDE-Übergaben
Wichtige Feldinformationen:
Primary Key ....: IDJ40
Secondary Key.: none
Candidate Key.: ICJ40
EAN Key..........: IEJ40
ID- Field...........: IDJ40
IC- Field...........: ICJ40
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ALDATUM,ANDATUM,DATUEB,ICJ40,IDAUF,IDJ40,IDK10,IEJ40,IPAUF,I...
Die Komplette Liste der Felder finden Sie unter: BDE-Übergaben
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDJ40) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oJ40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oJ40w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loJ40 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loJ40 = My.Bussines.Strain.Misc.oJ40['IDJ40'] IF loJ40.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loJ40 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oJ40w(m.loJ40,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loJ40 = My.Bussines.Strain.Misc.oJ40[0] IF loJ40.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poJ40 AS Object */ Ein PRIVATE Objekt muss her... poJ40 = loJ40 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("J40","poJ40") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loJ40 AS Object */ IDJ40 - ID-BDE-Übergaben .IDJ40 = My.Clients.Numbers.GetMoreIds("IDJ40",1) */ ICJ40 - BDE-Übergabe .ICJ40 = "Bitte angeben" */ IEJ40 - EAN-Code .IEJ40 = My.Clients.Numbers.EANCode("J40") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oJ40w(m.loJ40,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loJ40.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loJ40.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oJ40w(m.loJ40,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oJ40w(m.loJ40,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
J41' - 'BDE-Übergaben -Pos
Wichtige Feldinformationen:
Primary Key ....: IDJ41
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDJ41
IC- Field...........: none
IP- Field...........: IPJ41
IK- Field...........: none
Feldliste...........: AFONR,BEMERKUNG,DATBIS,DATVON,GRUPPE1,GRUPPE2,IDC02,IDC32,ID...
Die Komplette Liste der Felder finden Sie unter: BDE-Übergaben -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDJ41) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oJ41w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oJ41w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loJ41 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loJ41 = My.Bussines.Strain.Misc.oJ41['IDJ41'] IF loJ41.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loJ41 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oJ41w(m.loJ41,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loJ41 = My.Bussines.Strain.Misc.oJ41[0] IF loJ41.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poJ41 AS Object */ Ein PRIVATE Objekt muss her... poJ41 = loJ41 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("J41","poJ41") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loJ41 AS Object */ IDJ41 - ID-BDE-Übergaben -Pos .IDJ41 = My.Clients.Numbers.GetMoreIds("IDJ41",1) */ IPJ41 - Datenherkunft .IPJ41 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oJ41w(m.loJ41,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loJ41.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loJ41.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oJ41w(m.loJ41,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oJ41w(m.loJ41,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
K06' - 'Vorgänge - Edelmetalle
Wichtige Feldinformationen:
Primary Key ....: IDK06
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDK06
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,DATUM,GEWI,IDC26,IDC98,IDE10,IDK06,LASTUPD,LDATUM,LPRG...
Die Komplette Liste der Felder finden Sie unter: Vorgänge - Edelmetalle
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDK06) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oK06w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oK06w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loK06 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loK06 = My.Bussines.Strain.Misc.oK06['IDK06'] IF loK06.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loK06 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oK06w(m.loK06,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loK06 = My.Bussines.Strain.Misc.oK06[0] IF loK06.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poK06 AS Object */ Ein PRIVATE Objekt muss her... poK06 = loK06 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("K06","poK06") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loK06 AS Object */ IDK06 - ID-Vorgänge - Edelmetalle .IDK06 = My.Clients.Numbers.GetMoreIds("IDK06",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oK06w(m.loK06,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loK06.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loK06.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oK06w(m.loK06,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oK06w(m.loK06,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
K10' - 'Projekte
Wichtige Feldinformationen:
Primary Key ....: IDK10
Secondary Key.: none
Candidate Key.: PRJNR
EAN Key..........: IEK10
ID- Field...........: IDK10
IC- Field...........: PRJNR
IP- Field...........: IPK10
IK- Field...........: none
Feldliste...........: AMANID,E10EDP,GESPERRT,GETB01C66,IEK10,IPK10,BEZ,D_BEGINN,D_...
Die Komplette Liste der Felder finden Sie unter: Projekte
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDK10) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oK10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oK10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loK10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loK10 = My.Bussines.Strain.Misc.oK10['IDK10'] IF loK10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loK10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oK10w(m.loK10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loK10 = My.Bussines.Strain.Misc.oK10[0] IF loK10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poK10 AS Object */ Ein PRIVATE Objekt muss her... poK10 = loK10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("K10","poK10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loK10 AS Object */ IDK10 - ID-Projekte .IDK10 = My.Clients.Numbers.GetMoreIds("IDK10",1) */ PRJNR - Projekte .PRJNR = My.Functions.Internals.NextNr("PROJEKTE",My.xDate) */ IPK10 - Projektstatus .IPK10 = "053" */ IEK10 - EAN-Code .IEK10 = My.Clients.Numbers.EANCode("K10") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oK10w(m.loK10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loK10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loK10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oK10w(m.loK10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oK10w(m.loK10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
K11' - 'Projektzuordnungen
Wichtige Feldinformationen:
Primary Key ....: IDK11
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDK11
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ICK11,IDE10,IDK11,PROPS,HSTATUS2,IDK10,IDXXX,IDYYY,IPY01,LAS...
Die Komplette Liste der Felder finden Sie unter: Projektzuordnungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDK11) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oK11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oK11w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loK11 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loK11 = My.Bussines.Strain.Misc.oK11['IDK11'] IF loK11.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loK11 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oK11w(m.loK11,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loK11 = My.Bussines.Strain.Misc.oK11[0] IF loK11.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poK11 AS Object */ Ein PRIVATE Objekt muss her... poK11 = loK11 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("K11","poK11") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loK11 AS Object */ IDK11 - ID-Projektzuordnungen .IDK11 = My.Clients.Numbers.GetMoreIds("IDK11",1) */ IPY01 - Datenherkunft .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oK11w(m.loK11,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loK11.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loK11.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oK11w(m.loK11,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oK11w(m.loK11,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
K12' - 'ausgelagerte Projekte
Wichtige Feldinformationen:
Primary Key ....: IDK12
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDK12
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE10,IDK10,IDK12,IPE10,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATU...
Die Komplette Liste der Felder finden Sie unter: ausgelagerte Projekte
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDK12) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oK12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oK12w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loK12 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loK12 = My.Bussines.Strain.Misc.oK12['IDK12'] IF loK12.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loK12 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oK12w(m.loK12,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loK12 = My.Bussines.Strain.Misc.oK12[0] IF loK12.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poK12 AS Object */ Ein PRIVATE Objekt muss her... poK12 = loK12 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("K12","poK12") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loK12 AS Object */ IDK12 - ID-ausgelagerte Projekte .IDK12 = My.Clients.Numbers.GetMoreIds("IDK12",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oK12w(m.loK12,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loK12.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loK12.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oK12w(m.loK12,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oK12w(m.loK12,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
K20' - 'Projektlagerauflösung
Wichtige Feldinformationen:
Primary Key ....: IDK20
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDK20
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ICI22,ICI40,ICI50,ICK10,IDI22,IDI40,IDI50,IDK10,IDK20,IPK20,...
Die Komplette Liste der Felder finden Sie unter: Projektlagerauflösung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDK20) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oK20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oK20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loK20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loK20 = My.Bussines.Strain.Misc.oK20['IDK20'] IF loK20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loK20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oK20w(m.loK20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loK20 = My.Bussines.Strain.Misc.oK20[0] IF loK20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poK20 AS Object */ Ein PRIVATE Objekt muss her... poK20 = loK20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("K20","poK20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loK20 AS Object */ IDK20 - ID-Projektlagerauflösung .IDK20 = My.Clients.Numbers.GetMoreIds("IDK20",1) */ MATCH - Projektlagerauflösung .MATCH = My.Functions.Internals.NextNr("PROJEKTAUFLOESEN") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oK20w(m.loK20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loK20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loK20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oK20w(m.loK20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oK20w(m.loK20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
K30' - 'Prognosen Kopftabelle
Wichtige Feldinformationen:
Primary Key ....: IDK30
Secondary Key.: none
Candidate Key.: ICK30
EAN Key..........: none
ID- Field...........: IDK30
IC- Field...........: ICK30
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANZEIGE,DTBIS,DTVON,ICE10,ICK10,ICK30,IDE10,IDK10,IDK30,IPK3...
Die Komplette Liste der Felder finden Sie unter: Prognosen Kopftabelle
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDK30) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oK30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oK30w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loK30 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loK30 = My.Bussines.Strain.Misc.oK30['IDK30'] IF loK30.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loK30 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oK30w(m.loK30,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loK30 = My.Bussines.Strain.Misc.oK30[0] IF loK30.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poK30 AS Object */ Ein PRIVATE Objekt muss her... poK30 = loK30 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("K30","poK30") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loK30 AS Object */ IDK30 - ID-Prognosen Kopftabelle .IDK30 = My.Clients.Numbers.GetMoreIds("IDK30",1) */ ICK30 - Prognose .ICK30 = My.Functions.Internals.NextNr("ICK30",My.xDate,.F.,SET("Datasession")) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oK30w(m.loK30,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loK30.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loK30.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oK30w(m.loK30,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oK30w(m.loK30,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
K31' - 'Prognosen Positionen
Wichtige Feldinformationen:
Primary Key ....: IDK31
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDK31
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DA1,DA2,DA3,DA4,DA5,DTAN,DTCH,ICK31F,IDK30,IDK31,LASTUPD,LDA...
Die Komplette Liste der Felder finden Sie unter: Prognosen Positionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDK31) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oK31w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oK31w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loK31 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loK31 = My.Bussines.Strain.Misc.oK31['IDK31'] IF loK31.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loK31 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oK31w(m.loK31,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loK31 = My.Bussines.Strain.Misc.oK31[0] IF loK31.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poK31 AS Object */ Ein PRIVATE Objekt muss her... poK31 = loK31 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("K31","poK31") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loK31 AS Object */ IDK31 - ID-Prognosen Positionen .IDK31 = My.Clients.Numbers.GetMoreIds("IDK31",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oK31w(m.loK31,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loK31.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loK31.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oK31w(m.loK31,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oK31w(m.loK31,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
L20' - 'Dokumente
Wichtige Feldinformationen:
Primary Key ....: IDL20
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDL20
IC- Field...........: ICL20
IP- Field...........: none
IK- Field...........: IKL20
Feldliste...........: CDBF,ICL20,ICL20F,IDDBF,IDL20,IDL21,IKL20,ITL20,LASTUPD,LDAT...
Die Komplette Liste der Felder finden Sie unter: Dokumente
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDL20) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oL20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oL20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loL20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loL20 = My.Bussines.Strain.Misc.oL20['IDL20'] IF loL20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loL20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oL20w(m.loL20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loL20 = My.Bussines.Strain.Misc.oL20[0] IF loL20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poL20 AS Object */ Ein PRIVATE Objekt muss her... poL20 = loL20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("L20","poL20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loL20 AS Object */ IDL20 - Dokumente .IDL20 = My.Clients.Numbers.GetMoreIds("IDL20",1) */ ICL20 - Beschreibung .ICL20 = '' */ IKL20 - Suffix .IKL20 = '' ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oL20w(m.loL20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loL20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loL20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oL20w(m.loL20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oL20w(m.loL20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
L21' - 'Dokumentgruppen
Wichtige Feldinformationen:
Primary Key ....: IDL21
Secondary Key.: none
Candidate Key.: ICL21
EAN Key..........: none
ID- Field...........: IDL21
IC- Field...........: ICL21
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ICL21,IDL21,ITL21,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Dokumentgruppen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDL21) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oL21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oL21w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loL21 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loL21 = My.Bussines.Strain.Misc.oL21['IDL21'] IF loL21.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loL21 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oL21w(m.loL21,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loL21 = My.Bussines.Strain.Misc.oL21[0] IF loL21.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poL21 AS Object */ Ein PRIVATE Objekt muss her... poL21 = loL21 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("L21","poL21") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loL21 AS Object */ IDL21 - Gruppe .IDL21 = "Bitte angeben" */ ICL21 - Bezeichnung .ICL21 = '?' ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oL21w(m.loL21,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loL21.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loL21.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oL21w(m.loL21,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oL21w(m.loL21,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
L26' - 'Übersetzungen
Wichtige Feldinformationen:
Primary Key ....: IDL26+IDC26
Secondary Key.: none
Candidate Key.: ICL26
EAN Key..........: none
ID- Field...........: IDL26
IC- Field...........: ICL26
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ICL26,ICL262,ICL263,IDC26,IDL26,LASTUPD,LDATUM,LPRG,LWER,LZE...
Die Komplette Liste der Felder finden Sie unter: Übersetzungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDL26+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oL26w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oL26w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loL26 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loL26 = My.Bussines.Strain.Misc.oL26['IDL26'] IF loL26.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loL26 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oL26w(m.loL26,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loL26 = My.Bussines.Strain.Misc.oL26[0] IF loL26.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poL26 AS Object */ Ein PRIVATE Objekt muss her... poL26 = loL26 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("L26","poL26") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loL26 AS Object */ IDL26 - ID-Übersetzungen .IDL26 = "Bitte angeben" */ ICL26 - Übersetzung .ICL26 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oL26w(m.loL26,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loL26.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loL26.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oL26w(m.loL26,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oL26w(m.loL26,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O01' - 'Kanaldaten
Wichtige Feldinformationen:
Primary Key ....: IDO01
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO01
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEDEUTUNG,IDO01,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,N...
Die Komplette Liste der Felder finden Sie unter: Kanaldaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO01 = My.Bussines.Strain.Misc.oO01['IDO01'] IF loO01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO01w(m.loO01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO01 = My.Bussines.Strain.Misc.oO01[0] IF loO01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO01 AS Object */ Ein PRIVATE Objekt muss her... poO01 = loO01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O01","poO01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO01 AS Object */ IDO01 - ID-Kanaldaten .IDO01 = My.Clients.Numbers.GetMoreIds("IDO01",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO01w(m.loO01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO01w(m.loO01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO01w(m.loO01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O02' - 'Anschlußgruppe
Wichtige Feldinformationen:
Primary Key ....: IDO02
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEDEUTUNG,IDO01,IDO02,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,...
Die Komplette Liste der Felder finden Sie unter: Anschlußgruppe
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO02) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO02w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO02 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO02 = My.Bussines.Strain.Misc.oO02['IDO02'] IF loO02.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO02 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO02w(m.loO02,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO02 = My.Bussines.Strain.Misc.oO02[0] IF loO02.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO02 AS Object */ Ein PRIVATE Objekt muss her... poO02 = loO02 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O02","poO02") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO02 AS Object */ IDO02 - ID-Anschlußgruppe .IDO02 = My.Clients.Numbers.GetMoreIds("IDO02",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO02w(m.loO02,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO02.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO02.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO02w(m.loO02,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO02w(m.loO02,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O03' - 'Anschlußdaten
Wichtige Feldinformationen:
Primary Key ....: IDO03
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEDEUTUNG,IDO02,IDO03,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,...
Die Komplette Liste der Felder finden Sie unter: Anschlußdaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO03) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO03 = My.Bussines.Strain.Misc.oO03['IDO03'] IF loO03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO03w(m.loO03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO03 = My.Bussines.Strain.Misc.oO03[0] IF loO03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO03 AS Object */ Ein PRIVATE Objekt muss her... poO03 = loO03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O03","poO03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO03 AS Object */ IDO03 - ID-Anschlußdaten .IDO03 = My.Clients.Numbers.GetMoreIds("IDO03",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO03w(m.loO03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO03w(m.loO03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO03w(m.loO03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O04' - 'Austauschteile
Wichtige Feldinformationen:
Primary Key ....: IDO04
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO04
IC- Field...........: BEZ
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,IDO04,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZ...
Die Komplette Liste der Felder finden Sie unter: Austauschteile
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO04) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO04w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO04 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO04 = My.Bussines.Strain.Misc.oO04['IDO04'] IF loO04.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO04 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO04w(m.loO04,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO04 = My.Bussines.Strain.Misc.oO04[0] IF loO04.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO04 AS Object */ Ein PRIVATE Objekt muss her... poO04 = loO04 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O04","poO04") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO04 AS Object */ IDO04 - ID-Austauschteile .IDO04 = My.Clients.Numbers.GetMoreIds("IDO04",1) */ BEZ - Austauschteile .BEZ = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO04w(m.loO04,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO04.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO04.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO04w(m.loO04,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO04w(m.loO04,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O05' - 'Zubehörteile
Wichtige Feldinformationen:
Primary Key ....: IDO05
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO05
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,IDO05,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZ...
Die Komplette Liste der Felder finden Sie unter: Zubehörteile
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO05) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO05w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO05 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO05 = My.Bussines.Strain.Misc.oO05['IDO05'] IF loO05.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO05 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO05w(m.loO05,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO05 = My.Bussines.Strain.Misc.oO05[0] IF loO05.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO05 AS Object */ Ein PRIVATE Objekt muss her... poO05 = loO05 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O05","poO05") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO05 AS Object */ IDO05 - ID-Zubehörteile .IDO05 = My.Clients.Numbers.GetMoreIds("IDO05",1) */ MATCH - Zubehörteile .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO05w(m.loO05,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO05.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO05.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO05w(m.loO05,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO05w(m.loO05,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O10' - 'Ausprägng. Kanal
Wichtige Feldinformationen:
Primary Key ....: IDO10+IDC50+IDC26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO10
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,BEZUG,CHECKSUM,DDFORMAT,IDC26,IDC99,IDO10,KONTEXT,LAST...
Die Komplette Liste der Felder finden Sie unter: Ausprägng. Kanal
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO10+IDC50+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO10 = My.Bussines.Strain.Misc.oO10['IDO10'] IF loO10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO10w(m.loO10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO10 = My.Bussines.Strain.Misc.oO10[0] IF loO10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO10 AS Object */ Ein PRIVATE Objekt muss her... poO10 = loO10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O10","poO10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO10 AS Object */ IDO10 - ID-Ausprägung Kanal .IDO10 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO10w(m.loO10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO10w(m.loO10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO10w(m.loO10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O20' - 'Ausprägng. Anschlußgrg.
Wichtige Feldinformationen:
Primary Key ....: IDO20+IDC26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO20
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,BEZUG,CHECKSUM,DDFORMAT,IDC26,IDC99,IDO20,KONTEXT,LAST...
Die Komplette Liste der Felder finden Sie unter: Ausprägng. Anschlußgrg.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO20+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO20 = My.Bussines.Strain.Misc.oO20['IDO20'] IF loO20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO20w(m.loO20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO20 = My.Bussines.Strain.Misc.oO20[0] IF loO20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO20 AS Object */ Ein PRIVATE Objekt muss her... poO20 = loO20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O20","poO20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO20 AS Object */ IDO20 - ID-Ausprägng. Anschlußgrg. .IDO20 = "Bitte angeben" */ BEZEI - Ausprägng. Anschlußgrg. .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO20w(m.loO20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO20w(m.loO20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO20w(m.loO20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O30' - 'Ausprägng. Anschluß
Wichtige Feldinformationen:
Primary Key ....: IDO30+IDC50+IDC26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO30
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,BEZUG,CHECKSUM,DDFORMAT,IDC26,IDC99,IDO30,KONTEXT,LAST...
Die Komplette Liste der Felder finden Sie unter: Ausprägng. Anschluß
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO30+IDC50+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO30w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO30 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO30 = My.Bussines.Strain.Misc.oO30['IDO30'] IF loO30.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO30 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO30w(m.loO30,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO30 = My.Bussines.Strain.Misc.oO30[0] IF loO30.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO30 AS Object */ Ein PRIVATE Objekt muss her... poO30 = loO30 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O30","poO30") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO30 AS Object */ IDO30 - ID-Ausprägng. Anschluß .IDO30 = "Bitte angeben" */ BEZEI - Ausprägng. Anschluß .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO30w(m.loO30,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO30.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO30.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO30w(m.loO30,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO30w(m.loO30,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O40' - 'Wert Kanal
Wichtige Feldinformationen:
Primary Key ....: IDO40
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO40
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDO01,IDO10,IDO40,INHALTC,INHALTN,LASTUPD,LDATUM,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Wert Kanal
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO40) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO40w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO40 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO40 = My.Bussines.Strain.Misc.oO40['IDO40'] IF loO40.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO40 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO40w(m.loO40,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO40 = My.Bussines.Strain.Misc.oO40[0] IF loO40.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO40 AS Object */ Ein PRIVATE Objekt muss her... poO40 = loO40 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O40","poO40") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO40 AS Object */ IDO40 - ID-Wert Kanal .IDO40 = My.Clients.Numbers.GetMoreIds("IDO40",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO40w(m.loO40,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO40.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO40.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO40w(m.loO40,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO40w(m.loO40,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O50' - 'Wert Anschlußgruppe
Wichtige Feldinformationen:
Primary Key ....: IDO50
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO50
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDO02,IDO20,IDO50,INHALTC,INHALTN,LASTUPD,LDATUM,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Wert Anschlußgruppe
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO50) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO50w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO50 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO50 = My.Bussines.Strain.Misc.oO50['IDO50'] IF loO50.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO50 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO50w(m.loO50,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO50 = My.Bussines.Strain.Misc.oO50[0] IF loO50.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO50 AS Object */ Ein PRIVATE Objekt muss her... poO50 = loO50 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O50","poO50") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO50 AS Object */ IDO50 - ID-Wert Anschlußgruppe .IDO50 = My.Clients.Numbers.GetMoreIds("IDO50",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO50w(m.loO50,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO50.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO50.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO50w(m.loO50,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO50w(m.loO50,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O60' - 'Wert Anschluß
Wichtige Feldinformationen:
Primary Key ....: IDO60
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDO60
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDO03,IDO30,IDO60,INHALTC,INHALTN,LASTUPD,LDATUM,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Wert Anschluß
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO60) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO60w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO60w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO60 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO60 = My.Bussines.Strain.Misc.oO60['IDO60'] IF loO60.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO60 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO60w(m.loO60,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO60 = My.Bussines.Strain.Misc.oO60[0] IF loO60.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO60 AS Object */ Ein PRIVATE Objekt muss her... poO60 = loO60 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O60","poO60") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO60 AS Object */ IDO60 - ID-Wert Anschluß .IDO60 = My.Clients.Numbers.GetMoreIds("IDO60",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO60w(m.loO60,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO60.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO60.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO60w(m.loO60,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO60w(m.loO60,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
O99' - 'Vorgabewerte
Wichtige Feldinformationen:
Primary Key ....: IDO99+IPY01
Secondary Key.: none
Candidate Key.: BEZ
EAN Key..........: none
ID- Field...........: IDO99
IC- Field...........: BEZ
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: BEZ,CHECKSUM,EXPAND,ID,IDO99,IPY01,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Vorgabewerte
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDO99+IPY01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oO99w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oO99w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loO99 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loO99 = My.Bussines.Strain.Misc.oO99['IDO99'] IF loO99.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loO99 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oO99w(m.loO99,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loO99 = My.Bussines.Strain.Misc.oO99[0] IF loO99.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poO99 AS Object */ Ein PRIVATE Objekt muss her... poO99 = loO99 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("O99","poO99") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loO99 AS Object */ IDO99 - ID-Vorgabewerte .IDO99 = My.Clients.Numbers.GetMoreIds("IDO99",1) */ BEZ - Vorgabewerte .BEZ = "Bitte angeben" */ IPY01 - Datenherkunft .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oO99w(m.loO99,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loO99.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loO99.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oO99w(m.loO99,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oO99w(m.loO99,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P11' - 'Schnittstellendefinition
Wichtige Feldinformationen:
Primary Key ....: IDP11
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP11
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AENDERN,ANZ_FELDTR,CHECKSUM,FELDTRENNE,FEL_TR_FOR,FORM_FELDT...
Die Komplette Liste der Felder finden Sie unter: Schnittstellendefinition
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP11) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP11w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP11 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP11 = My.Bussines.Strain.Misc.oP11['IDP11'] IF loP11.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP11 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP11w(m.loP11,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP11 = My.Bussines.Strain.Misc.oP11[0] IF loP11.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP11 AS Object */ Ein PRIVATE Objekt muss her... poP11 = loP11 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P11","poP11") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP11 AS Object */ IDP11 - ID-Schnittstellendefinition .IDP11 = My.Clients.Numbers.GetMoreIds("IDP11",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP11w(m.loP11,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP11.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP11.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP11w(m.loP11,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP11w(m.loP11,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P12' - 'Satzkenner 1
Wichtige Feldinformationen:
Primary Key ....: IDP11+IDP12
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP12
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AENDERN,CHECKSUM,FELDART,GWSATZ,NOTIZ,ULESEN,IDP11,IDP12,LDA...
Die Komplette Liste der Felder finden Sie unter: Satzkenner 1
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP11+IDP12) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP12w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP12 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP12 = My.Bussines.Strain.Misc.oP12['IDP12'] IF loP12.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP12 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP12w(m.loP12,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP12 = My.Bussines.Strain.Misc.oP12[0] IF loP12.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP12 AS Object */ Ein PRIVATE Objekt muss her... poP12 = loP12 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P12","poP12") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP12 AS Object */ IDP12 - ID-Satzkenner 1 .IDP12 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP12w(m.loP12,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP12.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP12.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP12w(m.loP12,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP12w(m.loP12,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P13' - 'Satzkenner 2
Wichtige Feldinformationen:
Primary Key ....: IDP11+IDP12+IDP13+VON2
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP13
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AENDERN,ANZAHL_2,CHECKSUM,NOTIZ,VON2,IDP11,IDP12,IDP13,LDATU...
Die Komplette Liste der Felder finden Sie unter: Satzkenner 2
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP11+IDP12+IDP13+VON2) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP13w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP13w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP13 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP13 = My.Bussines.Strain.Misc.oP13['IDP13'] IF loP13.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP13 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP13w(m.loP13,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP13 = My.Bussines.Strain.Misc.oP13[0] IF loP13.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP13 AS Object */ Ein PRIVATE Objekt muss her... poP13 = loP13 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P13","poP13") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP13 AS Object */ IDP13 - ID-Satzkenner 2 .IDP13 = My.Clients.Numbers.GetMoreIds("IDP13",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP13w(m.loP13,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP13.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP13.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP13w(m.loP13,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP13w(m.loP13,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P14' - 'Exportdatei Felder
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP14
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AENDERN,CHECKSUM,BEZEI,BREITE,DEC,IDP14,IDP11,LDATUM,LPRG,LA...
Die Komplette Liste der Felder finden Sie unter: Exportdatei Felder
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP14w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP14w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP14 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP14 = My.Bussines.Strain.Misc.oP14['IDP14'] IF loP14.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP14 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP14w(m.loP14,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP14 = My.Bussines.Strain.Misc.oP14[0] IF loP14.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP14 AS Object */ Ein PRIVATE Objekt muss her... poP14 = loP14 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P14","poP14") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP14 AS Object */ IDP14 - ID-Feldname Exportdatei .IDP14 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP14w(m.loP14,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP14.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP14.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP14w(m.loP14,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP14w(m.loP14,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P15' - 'Importformat
Wichtige Feldinformationen:
Primary Key ....: IDP15
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP15
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,CHECKSUM,IDP15,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,N...
Die Komplette Liste der Felder finden Sie unter: Importformat
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP15) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP15w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP15 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP15 = My.Bussines.Strain.Misc.oP15['IDP15'] IF loP15.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP15 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP15w(m.loP15,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP15 = My.Bussines.Strain.Misc.oP15[0] IF loP15.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP15 AS Object */ Ein PRIVATE Objekt muss her... poP15 = loP15 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P15","poP15") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP15 AS Object */ IDP15 - ID-Importformat .IDP15 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP15w(m.loP15,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP15.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP15.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP15w(m.loP15,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP15w(m.loP15,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P16' - 'Exportformat
Wichtige Feldinformationen:
Primary Key ....: IDP16
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP16
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,CHECKSUM,IDP16,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,N...
Die Komplette Liste der Felder finden Sie unter: Exportformat
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP16) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP16w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP16 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP16 = My.Bussines.Strain.Misc.oP16['IDP16'] IF loP16.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP16 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP16w(m.loP16,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP16 = My.Bussines.Strain.Misc.oP16[0] IF loP16.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP16 AS Object */ Ein PRIVATE Objekt muss her... poP16 = loP16 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P16","poP16") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP16 AS Object */ IDP16 - ID-Exportformat .IDP16 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP16w(m.loP16,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP16.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP16.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP16w(m.loP16,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP16w(m.loP16,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P20' - 'Substringdefinitionen
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AENDERN,CHECKSUM,IDP13,NOTIZ,VON2,IDP14,IDP11,IDP12,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: Substringdefinitionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP20 = My.Bussines.Strain.Misc.oP20['none'] IF loP20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP20w(m.loP20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP20 = My.Bussines.Strain.Misc.oP20[0] IF loP20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP20 AS Object */ Ein PRIVATE Objekt muss her... poP20 = loP20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P20","poP20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP20 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP20w(m.loP20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP20w(m.loP20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP20w(m.loP20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P21' - 'Substringdef. Detail
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANZAHL_2,CHECKSUM,FORMEL,IDP13,NOTIZ,POSNR,PRG1,PRG10,PRG11,...
Die Komplette Liste der Felder finden Sie unter: Substringdef. Detail
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP21w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP21 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP21 = My.Bussines.Strain.Misc.oP21['none'] IF loP21.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP21 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP21w(m.loP21,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP21 = My.Bussines.Strain.Misc.oP21[0] IF loP21.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP21 AS Object */ Ein PRIVATE Objekt muss her... poP21 = loP21 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P21","poP21") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP21 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP21w(m.loP21,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP21.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP21.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP21w(m.loP21,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP21w(m.loP21,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P80' - 'Übernahme Eplan-Stammdate
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,CADNR,EKBR,FEHLER,LFARAB,STATUS,BESTNR,ARTNR,IDC66,IDC49...
Die Komplette Liste der Felder finden Sie unter: Übernahme Eplan-Stammdate
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP80w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP80w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP80 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP80 = My.Bussines.Strain.Misc.oP80['none'] IF loP80.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP80 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP80w(m.loP80,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP80 = My.Bussines.Strain.Misc.oP80[0] IF loP80.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP80 AS Object */ Ein PRIVATE Objekt muss her... poP80 = loP80 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P80","poP80") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP80 AS Object */ MATCH - Übernahmen Eplan5 .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP80w(m.loP80,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP80.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP80.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP80w(m.loP80,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP80w(m.loP80,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P81' - 'Technische Daten P80
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC51,INHALT,ARTNR
Die Komplette Liste der Felder finden Sie unter: Technische Daten P80
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP81w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP81w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP81 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP81 = My.Bussines.Strain.Misc.oP81['none'] IF loP81.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP81 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP81w(m.loP81,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP81 = My.Bussines.Strain.Misc.oP81[0] IF loP81.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP81 AS Object */ Ein PRIVATE Objekt muss her... poP81 = loP81 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P81","poP81") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP81 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP81w(m.loP81,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP81.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP81.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP81w(m.loP81,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP81w(m.loP81,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P90' - 'Exportdatei ECAD-BAUT.
Wichtige Feldinformationen:
Primary Key ....: IDP90
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP90
IC- Field...........: BEZ
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNR1,BESTNR1,BEZ,CADNR,CADNR1,DINNR,DINNR1,DLU_PFAD,IDP90,...
Die Komplette Liste der Felder finden Sie unter: Exportdatei ECAD-BAUT.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP90) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP90w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP90w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP90 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP90 = My.Bussines.Strain.Misc.oP90['IDP90'] IF loP90.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP90 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP90w(m.loP90,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP90 = My.Bussines.Strain.Misc.oP90[0] IF loP90.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP90 AS Object */ Ein PRIVATE Objekt muss her... poP90 = loP90 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P90","poP90") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP90 AS Object */ IDP90 - ID-Exportdatei ECAD-BAUT. .IDP90 = My.Clients.Numbers.GetMoreIds("IDP90",1) */ BEZ - Exportdatei ECAD-BAUT. .BEZ = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP90w(m.loP90,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP90.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP90.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP90w(m.loP90,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP90w(m.loP90,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P91' - 'EXPORT / Positionen
Wichtige Feldinformationen:
Primary Key ....: IDP91
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP91
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EXPORT,IDP90,IDP91,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPR...
Die Komplette Liste der Felder finden Sie unter: EXPORT / Positionen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP91) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP91w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP91w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP91 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP91 = My.Bussines.Strain.Misc.oP91['IDP91'] IF loP91.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP91 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP91w(m.loP91,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP91 = My.Bussines.Strain.Misc.oP91[0] IF loP91.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP91 AS Object */ Ein PRIVATE Objekt muss her... poP91 = loP91 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P91","poP91") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP91 AS Object */ IDP91 - ID-EXPORT / Positionen .IDP91 = My.Clients.Numbers.GetMoreIds("IDP91",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP91w(m.loP91,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP91.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP91.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP91w(m.loP91,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP91w(m.loP91,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P95' - 'Importdatei ECAD-BAUT.
Wichtige Feldinformationen:
Primary Key ....: IDP95
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP95
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DLUPFAD,IDP95,IDUPD,IMPART,IMPMARK,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Importdatei ECAD-BAUT.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP95) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP95w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP95w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP95 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP95 = My.Bussines.Strain.Misc.oP95['IDP95'] IF loP95.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP95 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP95w(m.loP95,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP95 = My.Bussines.Strain.Misc.oP95[0] IF loP95.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP95 AS Object */ Ein PRIVATE Objekt muss her... poP95 = loP95 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P95","poP95") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP95 AS Object */ IDP95 - ID-Importdatei ECAD-BAUT. .IDP95 = My.Clients.Numbers.GetMoreIds("IDP95",1) */ MATCH - Importdatei ECAD-BAUT. .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP95w(m.loP95,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP95.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP95.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP95w(m.loP95,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP95w(m.loP95,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P96' - 'Importpositionen / ECAD
Wichtige Feldinformationen:
Primary Key ....: IDP96
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP96
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDB01NEU,IDC19,IDP95,IDP96,IMPORT,LAGERART,LASTUPD,LDATUM,LP...
Die Komplette Liste der Felder finden Sie unter: Importpositionen / ECAD
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP96) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP96w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP96w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP96 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP96 = My.Bussines.Strain.Misc.oP96['IDP96'] IF loP96.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP96 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP96w(m.loP96,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP96 = My.Bussines.Strain.Misc.oP96[0] IF loP96.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP96 AS Object */ Ein PRIVATE Objekt muss her... poP96 = loP96 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P96","poP96") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP96 AS Object */ IDP96 - ID-Importpositionen / ECAD .IDP96 = My.Clients.Numbers.GetMoreIds("IDP96",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP96w(m.loP96,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP96.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP96.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP96w(m.loP96,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP96w(m.loP96,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P97' - 'ECAD-Import Preise
Wichtige Feldinformationen:
Primary Key ....: IDP95
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP97
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKPDATUM,IDP95,IDP96,IDP97,LASTUPD,LDATUM,LPRG,LWER,LZEIT,MG...
Die Komplette Liste der Felder finden Sie unter: ECAD-Import Preise
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP95) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP97w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP97w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP97 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP97 = My.Bussines.Strain.Misc.oP97['IDP97'] IF loP97.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP97 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP97w(m.loP97,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP97 = My.Bussines.Strain.Misc.oP97[0] IF loP97.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP97 AS Object */ Ein PRIVATE Objekt muss her... poP97 = loP97 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P97","poP97") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP97 AS Object */ IDP97 - ID-ECAD-Import Preise .IDP97 = My.Clients.Numbers.GetMoreIds("IDP97",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP97w(m.loP97,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP97.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP97.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP97w(m.loP97,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP97w(m.loP97,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
P98' - 'ECAD-Import Edelmetalle
Wichtige Feldinformationen:
Primary Key ....: IDP98
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDP98
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CDBF,IDD05,IDP95,IDP96,IDP98,LASTUPD,LDATUM,LPRG,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: ECAD-Import Edelmetalle
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDP98) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oP98w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oP98w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loP98 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loP98 = My.Bussines.Strain.Misc.oP98['IDP98'] IF loP98.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loP98 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oP98w(m.loP98,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loP98 = My.Bussines.Strain.Misc.oP98[0] IF loP98.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poP98 AS Object */ Ein PRIVATE Objekt muss her... poP98 = loP98 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("P98","poP98") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loP98 AS Object */ IDP98 - ID-ECAD-Import Edelmetalle .IDP98 = My.Clients.Numbers.GetMoreIds("IDP98",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oP98w(m.loP98,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loP98.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loP98.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oP98w(m.loP98,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oP98w(m.loP98,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Q01' - 'Manuelle BDE-Erfassung
Wichtige Feldinformationen:
Primary Key ....: IDQ01
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDQ01
IC- Field...........: PRJNR
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABTEILUNG,ANFANGZEIT,BELEG,BELEGNR,BEMERKUNG,DATUM,DATUME,EN...
Die Komplette Liste der Felder finden Sie unter: Manuelle BDE-Erfassung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDQ01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oQ01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oQ01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loQ01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loQ01 = My.Bussines.Strain.Misc.oQ01['IDQ01'] IF loQ01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loQ01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oQ01w(m.loQ01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loQ01 = My.Bussines.Strain.Misc.oQ01[0] IF loQ01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poQ01 AS Object */ Ein PRIVATE Objekt muss her... poQ01 = loQ01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Q01","poQ01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loQ01 AS Object */ IDQ01 - ID-Manuelle BDE-Erfassung .IDQ01 = My.Clients.Numbers.GetMoreIds("IDQ01",1) */ PRJNR - Projektnummer .PRJNR = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oQ01w(m.loQ01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loQ01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loQ01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oQ01w(m.loQ01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oQ01w(m.loQ01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Q02' - 'Reise- / Sonstige Kosten
Wichtige Feldinformationen:
Primary Key ....: IDQ02
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDQ02
IC- Field...........: PRJNR
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABTEILUNG,ANFANGZEIT,BELEG,BELEGNR,BEMERKUNG,DATUM,DMPROKM,E...
Die Komplette Liste der Felder finden Sie unter: Reise- / Sonstige Kosten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDQ02) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oQ02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oQ02w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loQ02 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loQ02 = My.Bussines.Strain.Misc.oQ02['IDQ02'] IF loQ02.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loQ02 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oQ02w(m.loQ02,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loQ02 = My.Bussines.Strain.Misc.oQ02[0] IF loQ02.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poQ02 AS Object */ Ein PRIVATE Objekt muss her... poQ02 = loQ02 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Q02","poQ02") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loQ02 AS Object */ IDQ02 - ID-Reise- / Sonstige Kosten .IDQ02 = My.Clients.Numbers.GetMoreIds("IDQ02",1) */ PRJNR - Projektnummer .PRJNR = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oQ02w(m.loQ02,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loQ02.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loQ02.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oQ02w(m.loQ02,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oQ02w(m.loQ02,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Q03' - 'Manuelle Rechnungen
Wichtige Feldinformationen:
Primary Key ....: IDQ03
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDQ03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEGLEITTXT,IDC22,IDC24,IDE10,IDK10,IDQ03,KDBSTNR,LASTUPD,LDA...
Die Komplette Liste der Felder finden Sie unter: Manuelle Rechnungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDQ03) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oQ03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oQ03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loQ03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loQ03 = My.Bussines.Strain.Misc.oQ03['IDQ03'] IF loQ03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loQ03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oQ03w(m.loQ03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loQ03 = My.Bussines.Strain.Misc.oQ03[0] IF loQ03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poQ03 AS Object */ Ein PRIVATE Objekt muss her... poQ03 = loQ03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Q03","poQ03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loQ03 AS Object */ IDQ03 - ID-Manuelle Rechnungen .IDQ03 = My.Clients.Numbers.GetMoreIds("IDQ03",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oQ03w(m.loQ03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loQ03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loQ03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oQ03w(m.loQ03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oQ03w(m.loQ03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
R10' - 'Barcodedaten
Wichtige Feldinformationen:
Primary Key ....: IDR10
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDR10
IC- Field...........: ICR10
IP- Field...........: IPR10
IK- Field...........: none
Feldliste...........: ICR10,IDR10,IDREF,IFR10,IIR10,IKR10,IMR10,INR10,IPR10,IPREF,...
Die Komplette Liste der Felder finden Sie unter: Barcodedaten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDR10) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oR10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oR10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loR10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loR10 = My.Bussines.Strain.Misc.oR10['IDR10'] IF loR10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loR10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oR10w(m.loR10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loR10 = My.Bussines.Strain.Misc.oR10[0] IF loR10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poR10 AS Object */ Ein PRIVATE Objekt muss her... poR10 = loR10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("R10","poR10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loR10 AS Object */ IDR10 - ID-Barcodedaten .IDR10 = My.Clients.Numbers.GetMoreIds("IDR10",1) */ ICR10 - Benutzeranzeige .ICR10 = "Bitte angeben" */ IPR10 - Zeilentyp .IPR10 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oR10w(m.loR10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loR10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loR10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oR10w(m.loR10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oR10w(m.loR10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S01' - 'Lagerstatistiken
Wichtige Feldinformationen:
Primary Key ....: IDS01
Secondary Key.: none
Candidate Key.: CNS01
EAN Key..........: none
ID- Field...........: IDS01
IC- Field...........: CNS01
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AUSWERT,CNS01,DATBIS,DATVON,IDE10,IDK10,IDS01,IPLIST,LASTUPD...
Die Komplette Liste der Felder finden Sie unter: Lagerstatistiken
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS01 = My.Bussines.Strain.Misc.oS01['IDS01'] IF loS01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS01w(m.loS01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS01 = My.Bussines.Strain.Misc.oS01[0] IF loS01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS01 AS Object */ Ein PRIVATE Objekt muss her... poS01 = loS01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S01","poS01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS01 AS Object */ IDS01 - ID-Lagerstatistiken .IDS01 = My.Clients.Numbers.GetMoreIds("IDS01",1) */ CNS01 - Statistiknummer .CNS01 = My.Functions.Internals.NextNr("S01-LAGERSTATISTIKEN") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS01w(m.loS01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS01w(m.loS01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS01w(m.loS01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S10' - 'Fehlteilliste
Wichtige Feldinformationen:
Primary Key ....: IDS10
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDS10
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,DATWIE,ICAUFB,ICAUFV,ICK10B,ICK10V,IDC25B,IDC2...
Die Komplette Liste der Felder finden Sie unter: Fehlteilliste
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS10) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS10 = My.Bussines.Strain.Misc.oS10['IDS10'] IF loS10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS10w(m.loS10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS10 = My.Bussines.Strain.Misc.oS10[0] IF loS10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS10 AS Object */ Ein PRIVATE Objekt muss her... poS10 = loS10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S10","poS10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS10 AS Object */ IDS10 - ID-Fehlteilliste .IDS10 = My.Clients.Numbers.GetMoreIds("IDS10",1) */ MATCH - Fehlteilelisten .MATCH = My.Functions.Internals.NextNr("FEHLTEILELISTE") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS10w(m.loS10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS10w(m.loS10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS10w(m.loS10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S11' - 'Fehlteilliste -Pos
Wichtige Feldinformationen:
Primary Key ....: IDS11
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS11
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESTAM,DATBEST,DATGPL,ICAUF,ICK10,IDD40,IDS10,IDS11,LASTUPD,...
Die Komplette Liste der Felder finden Sie unter: Fehlteilliste -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS11) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS11w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS11 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS11 = My.Bussines.Strain.Misc.oS11['IDS11'] IF loS11.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS11 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS11w(m.loS11,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS11 = My.Bussines.Strain.Misc.oS11[0] IF loS11.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS11 AS Object */ Ein PRIVATE Objekt muss her... poS11 = loS11 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S11","poS11") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS11 AS Object */ IDS11 - ID-Fehlteilliste -Pos .IDS11 = My.Clients.Numbers.GetMoreIds("IDS11",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS11w(m.loS11,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS11.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS11.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS11w(m.loS11,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS11w(m.loS11,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S12' - 'Umsatzstatistik
Wichtige Feldinformationen:
Primary Key ....: IDS12
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDS12
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,BBESDAT,BRECHDAT,IDC25B,IDC25V,IDC42EKB,IDC42E...
Die Komplette Liste der Felder finden Sie unter: Umsatzstatistik
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS12) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS12w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS12 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS12 = My.Bussines.Strain.Misc.oS12['IDS12'] IF loS12.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS12 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS12w(m.loS12,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS12 = My.Bussines.Strain.Misc.oS12[0] IF loS12.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS12 AS Object */ Ein PRIVATE Objekt muss her... poS12 = loS12 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S12","poS12") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS12 AS Object */ IDS12 - ID-Umsatzstatistik .IDS12 = My.Clients.Numbers.GetMoreIds("IDS12",1) */ MATCH - Umsatzstatistiken .MATCH = My.Functions.Internals.NextNr("UMSATZSTATISTIK") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS12w(m.loS12,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS12.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS12.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS12w(m.loS12,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS12w(m.loS12,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S13' - 'Umsatzstatistik -Pos
Wichtige Feldinformationen:
Primary Key ....: IDS13
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS13
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS12,IDS13,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Umsatzstatistik -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS13) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS13w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS13w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS13 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS13 = My.Bussines.Strain.Misc.oS13['IDS13'] IF loS13.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS13 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS13w(m.loS13,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS13 = My.Bussines.Strain.Misc.oS13[0] IF loS13.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS13 AS Object */ Ein PRIVATE Objekt muss her... poS13 = loS13 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S13","poS13") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS13 AS Object */ IDS13 - ID-Umsatzstatistik -Pos .IDS13 = My.Clients.Numbers.GetMoreIds("IDS13",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS13w(m.loS13,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS13.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS13.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS13w(m.loS13,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS13w(m.loS13,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S14' - 'Umsatzstatistik -U.Pos
Wichtige Feldinformationen:
Primary Key ....: IDS14
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS14
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS13,IDS14,LASTUPD,LDATUM,LPRG,LWER,LZEIT,MENGEB,MENGER,MEN...
Die Komplette Liste der Felder finden Sie unter: Umsatzstatistik -U.Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS14) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS14w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS14w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS14 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS14 = My.Bussines.Strain.Misc.oS14['IDS14'] IF loS14.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS14 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS14w(m.loS14,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS14 = My.Bussines.Strain.Misc.oS14[0] IF loS14.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS14 AS Object */ Ein PRIVATE Objekt muss her... poS14 = loS14 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S14","poS14") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS14 AS Object */ IDS14 - ID-Umsatzstatistik -U.Pos .IDS14 = My.Clients.Numbers.GetMoreIds("IDS14",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS14w(m.loS14,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS14.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS14.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS14w(m.loS14,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS14w(m.loS14,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S15' - 'Bestellobligo
Wichtige Feldinformationen:
Primary Key ....: IDS15
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDS15
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,IDC25B,IDC25V,IDC42EKB,IDC42EKV,IDC42VKB,IDC42...
Die Komplette Liste der Felder finden Sie unter: Bestellobligo
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS15) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS15w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS15 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS15 = My.Bussines.Strain.Misc.oS15['IDS15'] IF loS15.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS15 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS15w(m.loS15,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS15 = My.Bussines.Strain.Misc.oS15[0] IF loS15.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS15 AS Object */ Ein PRIVATE Objekt muss her... poS15 = loS15 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S15","poS15") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS15 AS Object */ IDS15 - ID-Bestellobligo .IDS15 = My.Clients.Numbers.GetMoreIds("IDS15",1) */ MATCH - Statistik Bestellobligo .MATCH = My.Functions.Internals.NextNr("BESTELLOBLIGO") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS15w(m.loS15,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS15.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS15.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS15w(m.loS15,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS15w(m.loS15,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S16' - 'Bestellobligo -Pos
Wichtige Feldinformationen:
Primary Key ....: IDS16
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS16
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS15,IDS16,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Bestellobligo -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS16) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS16w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS16 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS16 = My.Bussines.Strain.Misc.oS16['IDS16'] IF loS16.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS16 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS16w(m.loS16,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS16 = My.Bussines.Strain.Misc.oS16[0] IF loS16.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS16 AS Object */ Ein PRIVATE Objekt muss her... poS16 = loS16 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S16","poS16") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS16 AS Object */ IDS16 - ID-Bestellobligo -Pos .IDS16 = My.Clients.Numbers.GetMoreIds("IDS16",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS16w(m.loS16,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS16.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS16.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS16w(m.loS16,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS16w(m.loS16,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S17' - 'Bestellobligo -U.Pos
Wichtige Feldinformationen:
Primary Key ....: IDS17
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS17
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,IDC24,IDD41,IDS16,IDS17,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Bestellobligo -U.Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS17) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS17w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS17w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS17 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS17 = My.Bussines.Strain.Misc.oS17['IDS17'] IF loS17.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS17 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS17w(m.loS17,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS17 = My.Bussines.Strain.Misc.oS17[0] IF loS17.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS17 AS Object */ Ein PRIVATE Objekt muss her... poS17 = loS17 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S17","poS17") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS17 AS Object */ IDS17 - ID-Bestellobligo -U.Pos .IDS17 = My.Clients.Numbers.GetMoreIds("IDS17",1) */ MATCH - Bestellobligo T-Pos. .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS17w(m.loS17,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS17.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS17.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS17w(m.loS17,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS17w(m.loS17,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S18' - 'Preisentwicklung
Wichtige Feldinformationen:
Primary Key ....: IDS18
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDS18
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS18,IDX06,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTIZ,NPRG...
Die Komplette Liste der Felder finden Sie unter: Preisentwicklung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS18) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS18w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS18w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS18 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS18 = My.Bussines.Strain.Misc.oS18['IDS18'] IF loS18.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS18 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS18w(m.loS18,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS18 = My.Bussines.Strain.Misc.oS18[0] IF loS18.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS18 AS Object */ Ein PRIVATE Objekt muss her... poS18 = loS18 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S18","poS18") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS18 AS Object */ IDS18 - ID-Preisentwicklung .IDS18 = My.Clients.Numbers.GetMoreIds("IDS18",1) */ MATCH - Preisentwicklung .MATCH = My.Functions.Internals.NextNr("PREISENTWICKLUNG") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS18w(m.loS18,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS18.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS18.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS18w(m.loS18,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS18w(m.loS18,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S19' - 'Preisentwicklung -Pos
Wichtige Feldinformationen:
Primary Key ....: IDS19
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS19
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD40,IDD44,IDS18,IDS19,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATU...
Die Komplette Liste der Felder finden Sie unter: Preisentwicklung -Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS19) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS19w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS19w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS19 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS19 = My.Bussines.Strain.Misc.oS19['IDS19'] IF loS19.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS19 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS19w(m.loS19,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS19 = My.Bussines.Strain.Misc.oS19[0] IF loS19.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS19 AS Object */ Ein PRIVATE Objekt muss her... poS19 = loS19 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S19","poS19") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS19 AS Object */ IDS19 - ID-Preisentwicklung -Pos .IDS19 = My.Clients.Numbers.GetMoreIds("IDS19",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS19w(m.loS19,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS19.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS19.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS19w(m.loS19,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS19w(m.loS19,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S20' - 'Über-/Unterlieferungen
Wichtige Feldinformationen:
Primary Key ....: IDS20
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDS20
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,IDC25B,IDC25V,IDC42EKB,IDC42EKV,IDC42VKB,IDC42...
Die Komplette Liste der Felder finden Sie unter: Über-/Unterlieferungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS20) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS20 = My.Bussines.Strain.Misc.oS20['IDS20'] IF loS20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS20w(m.loS20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS20 = My.Bussines.Strain.Misc.oS20[0] IF loS20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS20 AS Object */ Ein PRIVATE Objekt muss her... poS20 = loS20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S20","poS20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS20 AS Object */ IDS20 - ID-Über-/Unterlieferungen .IDS20 = My.Clients.Numbers.GetMoreIds("IDS20",1) */ MATCH - Über- / Unterlieferungen .MATCH = My.Functions.Internals.NextNr("LIEFERSTATISTIK") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS20w(m.loS20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS20w(m.loS20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS20w(m.loS20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S21' - 'Über-/Unterlieferungen -P
Wichtige Feldinformationen:
Primary Key ....: IDS21
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS21
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABEST,AULIEF,AÜLIEF,IDS20,IDS21,LASTUPD,LDATUM,LPRG,LWER,LZE...
Die Komplette Liste der Felder finden Sie unter: Über-/Unterlieferungen -P
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS21) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS21w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS21 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS21 = My.Bussines.Strain.Misc.oS21['IDS21'] IF loS21.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS21 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS21w(m.loS21,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS21 = My.Bussines.Strain.Misc.oS21[0] IF loS21.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS21 AS Object */ Ein PRIVATE Objekt muss her... poS21 = loS21 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S21","poS21") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS21 AS Object */ IDS21 - ID-Über-/Unterlieferungen -P .IDS21 = My.Clients.Numbers.GetMoreIds("IDS21",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS21w(m.loS21,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS21.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS21.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS21w(m.loS21,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS21w(m.loS21,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S22' - 'Über-/Unterlieferungen -U
Wichtige Feldinformationen:
Primary Key ....: IDS22
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS22
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD40,IDS21,IDS22,LASTUPD,LDATUM,LPRG,LWER,LZEIT,MENGE_I,MEN...
Die Komplette Liste der Felder finden Sie unter: Über-/Unterlieferungen -U
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS22) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS22w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS22w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS22 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS22 = My.Bussines.Strain.Misc.oS22['IDS22'] IF loS22.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS22 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS22w(m.loS22,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS22 = My.Bussines.Strain.Misc.oS22[0] IF loS22.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS22 AS Object */ Ein PRIVATE Objekt muss her... poS22 = loS22 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S22","poS22") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS22 AS Object */ IDS22 - ID-Über-/Unterlieferungen -U .IDS22 = My.Clients.Numbers.GetMoreIds("IDS22",1) */ MATCH - Lieferstatistik T-Pos. .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS22w(m.loS22,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS22.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS22.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS22w(m.loS22,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS22w(m.loS22,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S23' - 'Preisvergleiche
Wichtige Feldinformationen:
Primary Key ....: IDS23
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDS23
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS23,IDX06,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTIZ,NPRG...
Die Komplette Liste der Felder finden Sie unter: Preisvergleiche
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS23) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS23w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS23w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS23 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS23 = My.Bussines.Strain.Misc.oS23['IDS23'] IF loS23.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS23 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS23w(m.loS23,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS23 = My.Bussines.Strain.Misc.oS23[0] IF loS23.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS23 AS Object */ Ein PRIVATE Objekt muss her... poS23 = loS23 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S23","poS23") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS23 AS Object */ IDS23 - ID-Preisvergleiche .IDS23 = My.Clients.Numbers.GetMoreIds("IDS23",1) */ MATCH - Preisvergleich .MATCH = My.Functions.Internals.NextNr("PREISVERGLEICH") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS23w(m.loS23,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS23.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS23.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS23w(m.loS23,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS23w(m.loS23,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
S25' - 'Preisvergleiche -U.Pos
Wichtige Feldinformationen:
Primary Key ....: IDS25
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDS25
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESTMIN,IDS24,IDS25,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NP...
Die Komplette Liste der Felder finden Sie unter: Preisvergleiche -U.Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDS25) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oS25w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oS25w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loS25 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loS25 = My.Bussines.Strain.Misc.oS25['IDS25'] IF loS25.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loS25 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oS25w(m.loS25,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loS25 = My.Bussines.Strain.Misc.oS25[0] IF loS25.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poS25 AS Object */ Ein PRIVATE Objekt muss her... poS25 = loS25 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("S25","poS25") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loS25 AS Object */ IDS25 - ID-Preisvergleiche -U.Pos .IDS25 = My.Clients.Numbers.GetMoreIds("IDS25",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oS25w(m.loS25,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loS25.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loS25.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oS25w(m.loS25,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oS25w(m.loS25,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Gibt ein Tabellenobjekt einer Switched Table zurück. Hier könnte z.B. die Disposition (I20) abgefragt werden, zurück erhält man ein Objekt der entsprechenden Mastertabelle. Siehe Codebeispiel.
Object = My.Bussines.Strain.Misc.oSWTbl(tcIP AS STRING,tcID AS STRING) Object = My.Bussines.Strain.Misc.oSWTbl(tcIP,tcID)
LOCAL loDbf AS Object */ Wir öffnen zuerst die Tabelle i20 USE (My.Clients.Path.cDbfDIr+'i20.dbf') */ Wir suchen den ERSTEN CAE-Listen Eintrag LOCATE FOR ipzwi="108" */ Hier könnte auch .NULL. zurückkommen... loDbf = My.Bussines.Strain.Misc.oSWTbl(i20.ipzwi,i20.idzwi) IF !ISNULL(m.loDbf) */ loDbf enthält ein komplettes Datensatzobjekt der Tabelle E10 =MESSAGEBOX(loDbf.nummer,64,"CAE-Nummer!") */ Weitere Informationen an loDbf, die NICHT in der Datenbank stehen: =MESAGEBOX(loDbf.__DBF,64,"Mastertabelle") && E10 =MESAGEBOX(loDbf.__ID,64,"Primärschlüssel") && IDE10 =MESAGEBOX(loDbf.__IC,64,"Benutzerschlüssel") && NUMMER */ Damit könnte man auch eine generische Abfrage vornehmen: =MESSAGEBOX(EVALUATE("m.loDbf."+loDbf.__IC),64,"CAE-Nummer!") ENDIF */ Wir holen uns eine Bestellung... LOCATE FOR ipzwi="300" loDbf = My.Bussines.Strain.Misc.oSWTbl(i20.ipzwi,i20.idzwi) IF !ISNULL(m.loDbf) =MESAGEBOX(loDbf.__DBF,64,"Mastertabelle") && D40 =MESAGEBOX(loDbf.__ID,64,"Primärschlüssel") && IDD40 =MESAGEBOX(loDbf.__IC,64,"Benutzerschlüssel") && MATCH =MESSAGEBOX(EVALUATE("m.loDbf."+loDbf.__IC),64,"Bestellung!") && HIER: loDbf.MATCH ENDIF
SC0' - 'Cubes
Wichtige Feldinformationen:
Primary Key ....: IDSC0
Secondary Key.: none
Candidate Key.: ICSC0
EAN Key..........: none
ID- Field...........: IDSC0
IC- Field...........: ICSC0
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABTEILUNG,AKTIV,CUBEADODB,CUBEFILE,CUBEMETA,CUBEPRGAF,CUBEPR...
Die Komplette Liste der Felder finden Sie unter: Cubes
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDSC0) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oSc0w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oSc0w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loSC0 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loSC0 = My.Bussines.Strain.Misc.oSC0['IDSC0'] IF loSC0.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loSC0 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oSC0w(m.loSC0,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loSC0 = My.Bussines.Strain.Misc.oSC0[0] IF loSC0.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poSC0 AS Object */ Ein PRIVATE Objekt muss her... poSC0 = loSC0 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("SC0","poSC0") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loSC0 AS Object */ IDSC0 - OlapCube .IDSC0 = My.Clients.Numbers.GetMoreIds('IDSC0',1) */ ICSC0 - Bezeichnung .ICSC0 = "?" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oSC0w(m.loSC0,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loSC0.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loSC0.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oSC0w(m.loSC0,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oSC0w(m.loSC0,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
SC1' - 'Cube Fields
Wichtige Feldinformationen:
Primary Key ....: IDSC1
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDSC1
IC- Field...........: none
IP- Field...........: IPSC1
IK- Field...........: none
Feldliste...........: CCAPTION,CFIELD,DNOSUM,FHIDDEN,FSUBTOTAL,FTOTAL,FTYP,IDSC0,I...
Die Komplette Liste der Felder finden Sie unter: Cube Fields
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDSC1) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oSc1w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oSc1w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loSC1 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loSC1 = My.Bussines.Strain.Misc.oSC1['IDSC1'] IF loSC1.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loSC1 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oSC1w(m.loSC1,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loSC1 = My.Bussines.Strain.Misc.oSC1[0] IF loSC1.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poSC1 AS Object */ Ein PRIVATE Objekt muss her... poSC1 = loSC1 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("SC1","poSC1") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loSC1 AS Object */ IDSC1 - Intern .IDSC1 = My.Clients.Numbers.GetMoreIDs('IDSC1',1) */ IPSC1 - Berechnungsart .IPSC1 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oSC1w(m.loSC1,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loSC1.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loSC1.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oSC1w(m.loSC1,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oSC1w(m.loSC1,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
SC2' - 'Cube Clients
Wichtige Feldinformationen:
Primary Key ....: IDSC2
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDSC2
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AKTIV,CMANIC,CMANID,CUBEFILE,IDSC0,IDSC2,LASTUPD,LDATUM,LPRG...
Die Komplette Liste der Felder finden Sie unter: Cube Clients
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDSC2) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oSc2w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oSc2w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loSC2 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loSC2 = My.Bussines.Strain.Misc.oSC2['IDSC2'] IF loSC2.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loSC2 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oSC2w(m.loSC2,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loSC2 = My.Bussines.Strain.Misc.oSC2[0] IF loSC2.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poSC2 AS Object */ Ein PRIVATE Objekt muss her... poSC2 = loSC2 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("SC2","poSC2") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loSC2 AS Object */ IDSC2 - Intern .IDSC2 = My.Clients.Numbers.GetMoreIDs('IDSC2',1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oSC2w(m.loSC2,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loSC2.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loSC2.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oSC2w(m.loSC2,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oSC2w(m.loSC2,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
SC3' - 'Cube Filters
Wichtige Feldinformationen:
Primary Key ....: IDSC3
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDSC3
IC- Field...........: ICSC3
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FILTERDIMS,FILTERFACT,FILTERFRX,ICSC3,IDC65,IDSC0,IDSC2,IDSC...
Die Komplette Liste der Felder finden Sie unter: Cube Filters
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDSC3) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oSc3w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oSc3w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loSC3 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loSC3 = My.Bussines.Strain.Misc.oSC3['IDSC3'] IF loSC3.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loSC3 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oSC3w(m.loSC3,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loSC3 = My.Bussines.Strain.Misc.oSC3[0] IF loSC3.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poSC3 AS Object */ Ein PRIVATE Objekt muss her... poSC3 = loSC3 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("SC3","poSC3") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loSC3 AS Object */ IDSC3 - Primärschlüssel .IDSC3 = My.Clients.Numbers.GetMoreIds("IDSC3",1) */ ICSC3 - Bezeichnung .ICSC3 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oSC3w(m.loSC3,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loSC3.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loSC3.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oSC3w(m.loSC3,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oSC3w(m.loSC3,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
T01' - 'Timestamp-Tabelle
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: TSALIAS,TSDATUM,TSIDXXX,TSKENN,TSPRG,TSTABLE,TSUEB,TSWER,TSZ...
Die Komplette Liste der Felder finden Sie unter: Timestamp-Tabelle
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oT01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oT01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loT01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loT01 = My.Bussines.Strain.Misc.oT01['none'] IF loT01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loT01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oT01w(m.loT01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loT01 = My.Bussines.Strain.Misc.oT01[0] IF loT01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poT01 AS Object */ Ein PRIVATE Objekt muss her... poT01 = loT01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("T01","poT01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loT01 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oT01w(m.loT01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loT01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loT01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oT01w(m.loT01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oT01w(m.loT01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
T10' - 'B01-Protokoll-Tabelle
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: TSDATUM,TSIDXXX,TSKENN,TSPRG,TSUEB,TSWER,TSZEIT,VONPRG
Die Komplette Liste der Felder finden Sie unter: B01-Protokoll-Tabelle
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oT10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oT10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loT10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loT10 = My.Bussines.Strain.Misc.oT10['none'] IF loT10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loT10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oT10w(m.loT10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loT10 = My.Bussines.Strain.Misc.oT10[0] IF loT10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poT10 AS Object */ Ein PRIVATE Objekt muss her... poT10 = loT10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("T10","poT10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loT10 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oT10w(m.loT10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loT10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loT10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oT10w(m.loT10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oT10w(m.loT10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
T20' - 'BackGround
Wichtige Feldinformationen:
Primary Key ....: IDT20
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDT20
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CLASTERR,CMETHOD,CUSER,DTIMEA,DTIMEE,DTIMEJ,DTIMES,IDT20,IJT...
Die Komplette Liste der Felder finden Sie unter: BackGround
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDT20) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oT20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oT20w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loT20 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loT20 = My.Bussines.Strain.Misc.oT20['IDT20'] IF loT20.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loT20 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oT20w(m.loT20,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loT20 = My.Bussines.Strain.Misc.oT20[0] IF loT20.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poT20 AS Object */ Ein PRIVATE Objekt muss her... poT20 = loT20 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("T20","poT20") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loT20 AS Object */ IDT20 - Interne-ID .IDT20 = My.Clients.Numbers.GetMoreIds("IDT20",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oT20w(m.loT20,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loT20.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loT20.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oT20w(m.loT20,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oT20w(m.loT20,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
V01' - 'Kalk. Zuschlagsarten
Wichtige Feldinformationen:
Primary Key ....: IPV01
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IPV01
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IPV01,XWERT,BEZEI,IDC26,IDV01,IDV02,IDV03,LASTUPD,LDATUM,LPR...
Die Komplette Liste der Felder finden Sie unter: Kalk. Zuschlagsarten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IPV01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oV01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oV01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loV01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loV01 = My.Bussines.Strain.Misc.oV01['IPV01'] IF loV01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loV01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oV01w(m.loV01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loV01 = My.Bussines.Strain.Misc.oV01[0] IF loV01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poV01 AS Object */ Ein PRIVATE Objekt muss her... poV01 = loV01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("V01","poV01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loV01 AS Object */ IPV01 - ID-Kalk. Zuschlagsarten .IPV01 = My.Clients.Numbers.GetMoreIds("IPV01",1) */ BEZEI - Zuschlagsarten .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oV01w(m.loV01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loV01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loV01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oV01w(m.loV01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oV01w(m.loV01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
V02' - 'Kalk. Kostenarten
Wichtige Feldinformationen:
Primary Key ....: IDV02+IDC26
Secondary Key.: none
Candidate Key.: UPPER(BEZEI)
EAN Key..........: none
ID- Field...........: IDV02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,BEZEI,IDC19,IDC26,IDV02,LASTUPD,LDATUM,LPRG,LWER,LZ...
Die Komplette Liste der Felder finden Sie unter: Kalk. Kostenarten
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDV02+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oV02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oV02w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loV02 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loV02 = My.Bussines.Strain.Misc.oV02['IDV02'] IF loV02.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loV02 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oV02w(m.loV02,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loV02 = My.Bussines.Strain.Misc.oV02[0] IF loV02.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poV02 AS Object */ Ein PRIVATE Objekt muss her... poV02 = loV02 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("V02","poV02") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loV02 AS Object */ IDV02 - ID-Berechnungspositionen .IDV02 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oV02w(m.loV02,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loV02.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loV02.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oV02w(m.loV02,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oV02w(m.loV02,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
V03' - 'Kalkulationsschemata
Wichtige Feldinformationen:
Primary Key ....: IDV03+IDC26
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDV03
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: E_PREIS,IDC26,IDV03,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NO...
Die Komplette Liste der Felder finden Sie unter: Kalkulationsschemata
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDV03+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oV03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oV03w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loV03 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loV03 = My.Bussines.Strain.Misc.oV03['IDV03'] IF loV03.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loV03 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oV03w(m.loV03,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loV03 = My.Bussines.Strain.Misc.oV03[0] IF loV03.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poV03 AS Object */ Ein PRIVATE Objekt muss her... poV03 = loV03 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("V03","poV03") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loV03 AS Object */ IDV03 - ID-Kalkulationsschemata .IDV03 = "Bitte angeben" */ MATCH - Kalkulationsschema .MATCH = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oV03w(m.loV03,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loV03.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loV03.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oV03w(m.loV03,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oV03w(m.loV03,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
V04' - 'Arbeitspläne
Wichtige Feldinformationen:
Primary Key ....: IDV04+IDC26
Secondary Key.: none
Candidate Key.: UPPER(MATCH)
EAN Key..........: IEV04
ID- Field...........: IDV04
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDV04,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Arbeitspläne
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDV04+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oV04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oV04w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loV04 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loV04 = My.Bussines.Strain.Misc.oV04['IDV04'] IF loV04.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loV04 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oV04w(m.loV04,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loV04 = My.Bussines.Strain.Misc.oV04[0] IF loV04.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poV04 AS Object */ Ein PRIVATE Objekt muss her... poV04 = loV04 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("V04","poV04") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loV04 AS Object */ IDV04 - ID-Arbeitspläne .IDV04 = "Bitte angeben" */ MATCH - Arbeitspläne .MATCH = "Bitte angeben" */ IEV04 - EAN-Code .IEV04 = My.Clients.Numbers.EANCode("V04") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oV04w(m.loV04,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loV04.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loV04.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oV04w(m.loV04,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oV04w(m.loV04,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
V05' - 'Arbeitsgänge
Wichtige Feldinformationen:
Primary Key ....: IDV05+IDC26
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: IEV05
ID- Field...........: IDV05
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC02,IEV05,IDC26,IDV05,IKV05,LASTUPD,LDATUM,LPRG,LWER...
Die Komplette Liste der Felder finden Sie unter: Arbeitsgänge
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDV05+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oV05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oV05w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loV05 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loV05 = My.Bussines.Strain.Misc.oV05['IDV05'] IF loV05.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loV05 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oV05w(m.loV05,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loV05 = My.Bussines.Strain.Misc.oV05[0] IF loV05.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poV05 AS Object */ Ein PRIVATE Objekt muss her... poV05 = loV05 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("V05","poV05") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loV05 AS Object */ IDV05 - ID-Arbeitsgänge .IDV05 = "Bitte angeben" */ MATCH - Arbeitsgänge .MATCH = "Bitte angeben" */ IEV05 - EAN-Code .IEV05 = My.Clients.Numbers.EANCode("V05") ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oV05w(m.loV05,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loV05.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loV05.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oV05w(m.loV05,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oV05w(m.loV05,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
V06' - 'Arbeitsgänge/Arbeitsplan
Wichtige Feldinformationen:
Primary Key ....: IDV06
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDV06
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZEIT,IDV04,...
Die Komplette Liste der Felder finden Sie unter: Arbeitsgänge/Arbeitsplan
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDV06) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oV06w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oV06w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loV06 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loV06 = My.Bussines.Strain.Misc.oV06['IDV06'] IF loV06.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loV06 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oV06w(m.loV06,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loV06 = My.Bussines.Strain.Misc.oV06[0] IF loV06.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poV06 AS Object */ Ein PRIVATE Objekt muss her... poV06 = loV06 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("V06","poV06") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loV06 AS Object */ IDV06 - ID-Arbeitsgänge/Arbeitsplan .IDV06 = My.Clients.Numbers.GetMoreIds("IDV06",1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oV06w(m.loV06,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loV06.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loV06.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oV06w(m.loV06,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oV06w(m.loV06,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X09' - 'Firmenparameter
Wichtige Feldinformationen:
Primary Key ....: IDX09
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDX09
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,EPL2VORG,LASTUPD,LDATUM,LEITNR,LEITVERB,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Firmenparameter
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDX09) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX09w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX09w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX09 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX09 = My.Bussines.Strain.Misc.oX09['IDX09'] IF loX09.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX09 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX09w(m.loX09,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX09 = My.Bussines.Strain.Misc.oX09[0] IF loX09.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX09 AS Object */ Ein PRIVATE Objekt muss her... poX09 = loX09 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X09","poX09") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX09 AS Object */ IDX09 - ID-Firmenparameter .IDX09 = "Bitte angeben" */ MATCH - Firmenparameter .MATCH = "PMS COMPELEC GmbH" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX09w(m.loX09,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX09.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX09.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX09w(m.loX09,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX09w(m.loX09,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X10' - 'System- Rechtedefinition
Wichtige Feldinformationen:
Primary Key ....: MASKE+IDC26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: MASKE
IC- Field...........: TITEL
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,EPLAN,GRUPPEN,IDC26,LDATUM,LPRG,LUPDATE,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: System- Rechtedefinition
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(MASKE+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX10 = My.Bussines.Strain.Misc.oX10['MASKE'] IF loX10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX10w(m.loX10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX10 = My.Bussines.Strain.Misc.oX10[0] IF loX10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX10 AS Object */ Ein PRIVATE Objekt muss her... poX10 = loX10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X10","poX10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX10 AS Object */ MASKE - Maskenname .MASKE = "Bitte angeben" */ TITEL - Maskenrechte .TITEL = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX10w(m.loX10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX10w(m.loX10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX10w(m.loX10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X12' - 'Nummernkreise
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: NR_KREIS
EAN Key..........: none
ID- Field...........: IDX12
IC- Field...........: NR_KREIS
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: IDX12,IPY01,NOTIZ,DBF,FIELD,KEY_EXPR,KEY_LEN,KEY_NUMERI,KEY_...
Die Komplette Liste der Felder finden Sie unter: Nummernkreise
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX12w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX12 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX12 = My.Bussines.Strain.Misc.oX12['IDX12'] IF loX12.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX12 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX12w(m.loX12,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX12 = My.Bussines.Strain.Misc.oX12[0] IF loX12.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX12 AS Object */ Ein PRIVATE Objekt muss her... poX12 = loX12 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X12","poX12") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX12 AS Object */ IDX12 - ID-Nummernkreise .IDX12 = "Bitte angeben" */ NR_KREIS - Nummernkreise .NR_KREIS = "Bitte angeben" */ IPY01 - Datenherkunft .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX12w(m.loX12,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX12.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX12.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX12w(m.loX12,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX12w(m.loX12,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X13' - 'Nummernkreise -U.Pos
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LASTUPD,LAST_IDC,LAST_NO,LDATUM,LPRG,LUPDATE,LWER,LZEIT,NDAT...
Die Komplette Liste der Felder finden Sie unter: Nummernkreise -U.Pos
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX13w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX13w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX13 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX13 = My.Bussines.Strain.Misc.oX13['none'] IF loX13.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX13 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX13w(m.loX13,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX13 = My.Bussines.Strain.Misc.oX13[0] IF loX13.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX13 AS Object */ Ein PRIVATE Objekt muss her... poX13 = loX13 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X13","poX13") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX13 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX13w(m.loX13,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX13.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX13.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX13w(m.loX13,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX13w(m.loX13,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X14' - 'Systemnummernkreise
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: NR_KREIS
EAN Key..........: none
ID- Field...........: none
IC- Field...........: NR_KREIS
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DBF,FIELD,IPY01,KEY_EXPR,KEY_LEN,LASTUPD,LAST_IDC,L...
Die Komplette Liste der Felder finden Sie unter: Systemnummernkreise
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX14w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX14w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX14 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX14 = My.Bussines.Strain.Misc.oX14['none'] IF loX14.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX14 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX14w(m.loX14,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX14 = My.Bussines.Strain.Misc.oX14[0] IF loX14.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX14 AS Object */ Ein PRIVATE Objekt muss her... poX14 = loX14 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X14","poX14") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX14 AS Object */ NR_KREIS - Systemnummernkreise .NR_KREIS = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX14w(m.loX14,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX14.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX14.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX14w(m.loX14,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX14w(m.loX14,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X16' - 'Maskenrechte - Mandant
Wichtige Feldinformationen:
Primary Key ....: MASKE+IDC26
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: MASKE
IC- Field...........: TITEL
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EPLAN,GRUPPEN,IDC26,INTIME,LDATUM,LPRG,LUPDATE,LWER,LZEIT,MA...
Die Komplette Liste der Felder finden Sie unter: Maskenrechte - Mandant
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(MASKE+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX16w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX16 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX16 = My.Bussines.Strain.Misc.oX16['MASKE'] IF loX16.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX16 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX16w(m.loX16,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX16 = My.Bussines.Strain.Misc.oX16[0] IF loX16.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX16 AS Object */ Ein PRIVATE Objekt muss her... poX16 = loX16 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X16","poX16") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX16 AS Object */ MASKE - Maskenname .MASKE = "Bitte angeben" */ TITEL - Maskenrechte - Mandant .TITEL = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX16w(m.loX16,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX16.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX16.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX16w(m.loX16,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX16w(m.loX16,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X22' - 'Druckbereich
Wichtige Feldinformationen:
Primary Key ....: IDX22+IDC26
Secondary Key.: none
Candidate Key.: BEZEI
EAN Key..........: none
ID- Field...........: IDX22
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,CHECKSUM,IDC26,IDX22,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPR...
Die Komplette Liste der Felder finden Sie unter: Druckbereich
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDX22+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX22w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX22w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX22 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX22 = My.Bussines.Strain.Misc.oX22['IDX22'] IF loX22.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX22 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX22w(m.loX22,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX22 = My.Bussines.Strain.Misc.oX22[0] IF loX22.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX22 AS Object */ Ein PRIVATE Objekt muss her... poX22 = loX22 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X22","poX22") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX22 AS Object */ IDX22 - ID-Druckbereich .IDX22 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX22w(m.loX22,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX22.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX22.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX22w(m.loX22,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX22w(m.loX22,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X23' - 'Druckaufrufbereich
Wichtige Feldinformationen:
Primary Key ....: IDX23+IDX22
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDX23
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ACTDIM,BERDIM,BEREST,CHECKSUM,CHGDIM,CHILDFLD,FILTER,IACTION...
Die Komplette Liste der Felder finden Sie unter: Druckaufrufbereich
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDX23+IDX22) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX23w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX23w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX23 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX23 = My.Bussines.Strain.Misc.oX23['IDX23'] IF loX23.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX23 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX23w(m.loX23,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX23 = My.Bussines.Strain.Misc.oX23[0] IF loX23.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX23 AS Object */ Ein PRIVATE Objekt muss her... poX23 = loX23 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X23","poX23") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX23 AS Object */ IDX23 - ID-Druckaufrufbereich .IDX23 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX23w(m.loX23,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX23.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX23.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX23w(m.loX23,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX23w(m.loX23,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X26' - 'Reportsprache
Wichtige Feldinformationen:
Primary Key ....: IDX26
Secondary Key.: none
Candidate Key.: BEZEI
EAN Key..........: none
ID- Field...........: IDX26
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,CHECKSUM,IDX26,IDX26EXT,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Reportsprache
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDX26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX26w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX26w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX26 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX26 = My.Bussines.Strain.Misc.oX26['IDX26'] IF loX26.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX26 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX26w(m.loX26,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX26 = My.Bussines.Strain.Misc.oX26[0] IF loX26.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX26 AS Object */ Ein PRIVATE Objekt muss her... poX26 = loX26 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X26","poX26") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX26 AS Object */ IDX26 - ID-Reportsprache .IDX26 = "Bitte angeben" */ BEZEI - Ausgabesprachen .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX26w(m.loX26,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX26.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX26.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX26w(m.loX26,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX26w(m.loX26,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X50' - 'Masken
Wichtige Feldinformationen:
Primary Key ....: SPRACHE+PROG
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DBFS,EIGENTUM,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM...
Die Komplette Liste der Felder finden Sie unter: Masken
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(SPRACHE+PROG) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX50w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX50 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX50 = My.Bussines.Strain.Misc.oX50['none'] IF loX50.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX50 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX50w(m.loX50,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX50 = My.Bussines.Strain.Misc.oX50[0] IF loX50.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX50 AS Object */ Ein PRIVATE Objekt muss her... poX50 = loX50 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X50","poX50") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX50 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX50w(m.loX50,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX50.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX50.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX50w(m.loX50,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX50w(m.loX50,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X51' - 'Tabellenbeziehungen
Wichtige Feldinformationen:
Primary Key ....: IDX51
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDX51
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DELETEALL,DELETEOK,IDX51,LDATUM,LWER,LZEIT
Die Komplette Liste der Felder finden Sie unter: Tabellenbeziehungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDX51) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX51w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX51w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX51 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX51 = My.Bussines.Strain.Misc.oX51['IDX51'] IF loX51.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX51 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX51w(m.loX51,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX51 = My.Bussines.Strain.Misc.oX51[0] IF loX51.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX51 AS Object */ Ein PRIVATE Objekt muss her... poX51 = loX51 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X51","poX51") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX51 AS Object */ IDX51 - ID-Tabellenreferenzen .IDX51 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX51w(m.loX51,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX51.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX51.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX51w(m.loX51,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX51w(m.loX51,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X52' - 'User-spez. Einstellungen
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,CTRLPARS,FORMNAME,HEIGHT,IDC65,INVCOLS,LASTUPD,LDAT...
Die Komplette Liste der Felder finden Sie unter: User-spez. Einstellungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX52w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX52w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX52 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX52 = My.Bussines.Strain.Misc.oX52['none'] IF loX52.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX52 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX52w(m.loX52,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX52 = My.Bussines.Strain.Misc.oX52[0] IF loX52.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX52 AS Object */ Ein PRIVATE Objekt muss her... poX52 = loX52 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X52","poX52") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX52 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX52w(m.loX52,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX52.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX52.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX52w(m.loX52,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX52w(m.loX52,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X53' - 'User-spez. Filtereinst.
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,FILTER,FORMNAME,IDC65,LASTUPD,LDATUM,LPRG,LWER,LZEI...
Die Komplette Liste der Felder finden Sie unter: User-spez. Filtereinst.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX53w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX53w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX53 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX53 = My.Bussines.Strain.Misc.oX53['none'] IF loX53.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX53 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX53w(m.loX53,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX53 = My.Bussines.Strain.Misc.oX53[0] IF loX53.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX53 AS Object */ Ein PRIVATE Objekt muss her... poX53 = loX53 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X53","poX53") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX53 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX53w(m.loX53,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX53.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX53.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX53w(m.loX53,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX53w(m.loX53,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X60' - 'Benutzer- Einstellungen
Wichtige Feldinformationen:
Primary Key ....: none
Secondary Key.: none
Candidate Key.: IDX60
EAN Key..........: none
ID- Field...........: IDX60
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,IDX60,INFO,PROGRAM,TYPE,USER,_CHILD,_ENV,_MASTER,LD...
Die Komplette Liste der Felder finden Sie unter: Benutzer- Einstellungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(none) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX60w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX60w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX60 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX60 = My.Bussines.Strain.Misc.oX60['IDX60'] IF loX60.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX60 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX60w(m.loX60,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX60 = My.Bussines.Strain.Misc.oX60[0] IF loX60.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX60 AS Object */ Ein PRIVATE Objekt muss her... poX60 = loX60 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X60","poX60") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX60 AS Object */ IDX60 - ID-Grideinstellungen .IDX60 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX60w(m.loX60,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX60.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX60.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX60w(m.loX60,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX60w(m.loX60,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
X62' - 'Sepzielle Gridfelder
Wichtige Feldinformationen:
Primary Key ....: IDX62
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDX62
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZEIT,PROGRA...
Die Komplette Liste der Felder finden Sie unter: Sepzielle Gridfelder
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDX62) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oX62w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX62w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loX62 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loX62 = My.Bussines.Strain.Misc.oX62['IDX62'] IF loX62.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loX62 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oX62w(m.loX62,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loX62 = My.Bussines.Strain.Misc.oX62[0] IF loX62.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poX62 AS Object */ Ein PRIVATE Objekt muss her... poX62 = loX62 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("X62","poX62") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loX62 AS Object */ IDX62 - Intern .IDX62 = My.Clients.Numbers.GetMoreIds('IDX62',1) ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oX62w(m.loX62,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loX62.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loX62.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oX62w(m.loX62,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oX62w(m.loX62,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Variant = My.Bussines.Strain.Misc.oX63w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oX63w(toRecord,tcAction,tlCheckNew)
Y01' - 'Präfix Systemtabelle
Wichtige Feldinformationen:
Primary Key ....: IPY01+IDC26
Secondary Key.: none
Candidate Key.: BEZEI
EAN Key..........: none
ID- Field...........: IPY01
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CCDBF,CGRP2,CGRUPPE,CHECKSUM,CMASK,CMDBF,CMIC,BEZEI,IBCOL,IF...
Die Komplette Liste der Felder finden Sie unter: Präfix Systemtabelle
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IPY01+IDC26) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oY01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oY01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loY01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loY01 = My.Bussines.Strain.Misc.oY01['IPY01'] IF loY01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loY01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oY01w(m.loY01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loY01 = My.Bussines.Strain.Misc.oY01[0] IF loY01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poY01 AS Object */ Ein PRIVATE Objekt muss her... poY01 = loY01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Y01","poY01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loY01 AS Object */ IPY01 - ID-Präfix Systemtabelle .IPY01 = "Bitte angeben" */ BEZEI - Bezeichnung .BEZEI = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oY01w(m.loY01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loY01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loY01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oY01w(m.loY01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oY01w(m.loY01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Y10' - 'Blockbearbeitung
Wichtige Feldinformationen:
Primary Key ....: PRG+FIELD
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: TEXT
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DBF,DECIMALS,EIGENTUM,FIELD,LASTUPD,LDATUM,LOOKUP,L...
Die Komplette Liste der Felder finden Sie unter: Blockbearbeitung
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(PRG+FIELD) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oY10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oY10w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loY10 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loY10 = My.Bussines.Strain.Misc.oY10['none'] IF loY10.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loY10 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oY10w(m.loY10,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loY10 = My.Bussines.Strain.Misc.oY10[0] IF loY10.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poY10 AS Object */ Ein PRIVATE Objekt muss her... poY10 = loY10 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Y10","poY10") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loY10 AS Object */ TEXT - Blockbearbeitung .TEXT = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oY10w(m.loY10,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loY10.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loY10.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oY10w(m.loY10,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oY10w(m.loY10,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Y98' - 'Messageinformationen
Wichtige Feldinformationen:
Primary Key ....: IDY98
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDY98
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,DATUMA,DATUMB,IDC65E,IDC65S,IDX02,IDY98,IIY98,IMY98,IN...
Die Komplette Liste der Felder finden Sie unter: Messageinformationen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDY98) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oY98w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oY98w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loY98 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loY98 = My.Bussines.Strain.Misc.oY98['IDY98'] IF loY98.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loY98 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oY98w(m.loY98,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loY98 = My.Bussines.Strain.Misc.oY98[0] IF loY98.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poY98 AS Object */ Ein PRIVATE Objekt muss her... poY98 = loY98 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Y98","poY98") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loY98 AS Object */ IDY98 - ID-Messageinformationen .IDY98 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oY98w(m.loY98,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loY98.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loY98.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oY98w(m.loY98,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oY98w(m.loY98,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Y99' - 'Globale Einstellungen
Wichtige Feldinformationen:
Primary Key ....: TERMINAL+USER+SEEKFOR
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LDATUM,LZEIT,MINFO,NDATUM,NINFO,NZEIT,SEEKFOR,TERMINAL,USER
Die Komplette Liste der Felder finden Sie unter: Globale Einstellungen
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(TERMINAL+USER+SEEKFOR) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oY99w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oY99w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loY99 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loY99 = My.Bussines.Strain.Misc.oY99['none'] IF loY99.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loY99 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oY99w(m.loY99,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loY99 = My.Bussines.Strain.Misc.oY99[0] IF loY99.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poY99 AS Object */ Ein PRIVATE Objekt muss her... poY99 = loY99 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Y99","poY99") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loY99 AS Object ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oY99w(m.loY99,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loY99.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loY99.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oY99w(m.loY99,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oY99w(m.loY99,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Z01' - 'Zahlungspläne
Wichtige Feldinformationen:
Primary Key ....: IDZ01
Secondary Key.: none
Candidate Key.: MATCH
EAN Key..........: none
ID- Field...........: IDZ01
IC- Field...........: MATCH
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: DSTAT,IDC24,IDZ01,IPY01,KTEXT,KTOZP,LASTUPD,LDATUM,LPRG,LWER...
Die Komplette Liste der Felder finden Sie unter: Zahlungspläne
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDZ01) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oZ01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oZ01w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loZ01 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loZ01 = My.Bussines.Strain.Misc.oZ01['IDZ01'] IF loZ01.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loZ01 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oZ01w(m.loZ01,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loZ01 = My.Bussines.Strain.Misc.oZ01[0] IF loZ01.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poZ01 AS Object */ Ein PRIVATE Objekt muss her... poZ01 = loZ01 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Z01","poZ01") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loZ01 AS Object */ IDZ01 - ID-Zahlungspläne .IDZ01 = My.Clients.Numbers.GetMoreIds("IDZ01",1) */ MATCH - Zahlungspläne .MATCH = My.Functions.Internals.NextNr("ZAHLUNGSPLAN") */ IPY01 - Vorgangsart .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oZ01w(m.loZ01,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loZ01.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loZ01.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oZ01w(m.loZ01,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oZ01w(m.loZ01,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Z02' - 'Zahlungspläne -Pos.
Wichtige Feldinformationen:
Primary Key ....: IDZ02
Secondary Key.: none
Candidate Key.: none
EAN Key..........: none
ID- Field...........: IDZ02
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: DSTAT,IDC24,IDZ01,IDZ02,IPY01,KENN,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Zahlungspläne -Pos.
Beim Ändern des Datensatzobjekts wird immer der Datensatz der Tabelle mitgegeben, dieser muss die Primary-Key Felder enthalten!
Die Rückgabe ist 'immer' ein Boolscher Ausdruck! .T. - Operation Ok, .F. - Operation hat einen Fehler gemeldet.
Der Fehler kann mittels ...Misc.cLastError abgerufen werden.
Für den Update dürfen Primär-(IDZ02) und Sekundär-(none) Felder NICHT verändert werden!
Bei der Neuanlage kann eine Prüfung mitgegeben werden!
Variant = My.Bussines.Strain.Misc.oZ02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean) Variant = My.Bussines.Strain.Misc.oZ02w(toRecord,tcAction,tlCheckNew)
*/ My wird als bekannt vorausgesetzt! LOCAL loZ02 AS Object , llReturn AS Boolean , lcScript AS String */ Abruf eines Datensatzes für Änderung loZ02 = My.Bussines.Strain.Misc.oZ02['IDZ02'] IF loZ02.__LastGet<>-1 */ Dann haben wir einen Datensatz und können nun die Felder des Objekts ändern WITH loZ02 AS Object .Feldname1 = ... .Feldname2 = ... ENDWITH */ Nun wird der Datensatz gespeichert... llReturn = My.Bussines.Strain.Misc.oZ02w(m.loZ02,"A") IF NOT m.llReturn */ Update konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Update Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Update Ok...") ENDIF ENDIF */ Abruf eines Datensatzes für Neuanlage loZ02 = My.Bussines.Strain.Misc.oZ02[0] IF loZ02.__LastGet=-1 */ Dann haben wir einen LEEREN Datensatz und können nun die Felder des Objekts ändern */ Es kann weitere Defaults geben! PRIVATE poZ02 AS Object */ Ein PRIVATE Objekt muss her... poZ02 = loZ02 */ Ein Script für die Default's lcScript = My.Systems.Localdict.DBGetDefaultTable("Z02","poZ02") */ Das Script ausführen... =EXECSCRIPT(m.lcScript) */ Jetzt NUR die WICHTIGEN Felder... WITH loZ02 AS Object */ IDZ02 - ID-Zahlungspläne -Pos. .IDZ02 = My.Clients.Numbers.GetMoreIds("IDZ02",1) */ IPY01 - Status .IPY01 = "Bitte angeben" ENDWITH */ Nun der Insert... llReturn = My.Bussines.Strain.Misc.oZ02w(m.loZ02,"N") IF NOT m.llReturn */ Insert konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Insert Fehler...") ELSE */ Datensatz wurde korrekt gespeichert... =MESSAGEBOX("Der Datensatz wurde gespeichert!",64,"Insert Ok...") loZ02.__LastGet=0 ENDIF ENDIF */ Löschen des oben NEU angelegten Datensatzes IF loZ02.__LastGet=0 */ Dann wurde der obige Satz gespeichert... */ Jetzt gibt es ZWEI Möglichkeiten den Datensatz zu löschen! */ Ohne Prüfung "l" llReturn = My.Bussines.Strain.Misc.oZ02w(m.loZ02,"l") */ Mit Prüfung "L" *llReturn = My.Bussines.Strain.Misc.oZ02w(m.loZ02,"L") IF NOT m.llReturn */ Löschen konnte nicht durchgeführt werden... =MESSAGEBOX(My.Bussines.Strain.Misc.cLastError,16,"Delete Fehler...") ELSE */ Datensatz wurde korrekt gelöscht... =MESSAGEBOX("Der Datensatz wurde gelöscht!",64,"Delete Ok...") ENDIF ENDIF
Es wirtd eine Tabelle mit den Anforderen der Bestellung zurückgegeben.
String = My.Bussines.Strain.Misc.tD40D51(tcIdd40 AS String , tcIdd51 AS String ,tlWithPos AS Boolean) String = My.Bussines.Strain.Misc.tD40D51(tcIdd40,tcIdd51,tlWithPos)
Gibt die Nummer (IC) der gewählten IP zurück.
Unter Angabe der IP und ID wird die IC der entsprechenden Tabelle ermittelt und deren Inhalt zurückgegeben.
Besonderheit: Es kann auch ein Feld angegeben werden, dass zurückgegeben werden soll.
String = My.Bussines.Strain.Misc.cIc4Ip[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] String = My.Bussines.Strain.Misc.cIc4Ip[tcIndex1|,tiIndex1,tiIndex2]
*/ Beispiel: LOCAL lcIC AS String */ Wir öffnen die Disposition USE (My.Clients.Path.cDbfDir+'I20.DBF') SHARED */ Wir suchen der 'ersten' CAE-Listeneintrag LOCATE FOR ipzwi="108" IF FOUND() */ Jetzt die Nummer ... lcIC = My.Bussines.Strain.Misc.cIc4Ip[i20.ipzwi+'|'+i20.idzwi] =MESSAGEBOX(m.lcIc,0,"Nummer...") */ Jetzt H_VOL3... lcIC = STR(My.Bussines.Strain.Misc.cIc4Ip[i20.ipzwi+'|'+i20.idzwi+'|H_VOL3'],10,3) =MESSAGEBOX(m.lcIc,0,"H_VOL3...") ENDIF
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
<>
String = My.Bussines.Strain.Misc.cIdx02
*/ Abfrage der Mandanten-ID WAIT WINDOW My.Bussines.Strain.Misc.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...
Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.
String = My.Bussines.Strain.Misc.cLastError
*/ Vorausgesetzt wird, dass My bekannt ist... LOCAL lcError AS String lcError = My.Bussines.Strain.Misc.cLastError
Methode in der der letzte Fehler auftrat.
Aufbau: [Fehlernummer] [Methode] [Zeilennummer] [Message]
String = My.Bussines.Strain.Misc.cMethod
*/ Abruf... WAIT WINDOW My.Bussines.Strain.Misc.cMethod
Führt einen Reset in der Klasse durch
Boolean = My.Bussines.Strain.Misc.lReset
My.Bussines.Strain.Misc.lReset = .T.
Thermosanzeige bei der Ausführung
Boolean = My.Bussines.Strain.Misc.lShowThermos
My.Bussines.Strain.Misc.lShowThermos = .T.
Boolean = My.Bussines.Strain.Misc.lWithPos
Number = My.Bussines.Strain.Misc.nDelaySeconds
Fehlernummer des letzten Fehlers.
Ist der Wert kleiner null, so handelt es sich um einen logischen Fehler.
Number = My.Bussines.Strain.Misc.nError
WAIT WINDOW My.Bussines.Strain.Misc.nError
Zeilennummer, in der der letzte Fehler auftrat
Number = My.Bussines.Strain.Misc.nLine
WAIT WINDOW My.Bussines.Strain.Misc.nLine
Verarbeitete Datensätze
Number = My.Bussines.Strain.Misc.nRecords
WAIT WINDOW My.Bussines.Strain.Misc.nRecords
Ausführungszeit in Sekunden
Number = My.Bussines.Strain.Misc.nSeconds
WAIT WINDOW My.Bussines.Strain.Misc.nSeconds
Status der Ausführung
Number = My.Bussines.Strain.Misc.nStatus
WAIT WINDOW My.Bussines.Strain.Misc.nStatus
Rückgabe:[Object], Datenabruf der Tabelle: 'A01' - 'EK-Auswertung im Vorgang'. loA01 = ...Misc.oA01[IDA01]
Wichtige Feldinformationen:
Primary Key ....: IDA01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDA01
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUMB,DATUMV,IDA01,IDB01B,IDB01V,IDC63B,IDC63V,IDC66B,IDC66...
Die Komplette Liste der Felder finden Sie unter: EK-Auswertung im Vorgang
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oA01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oA01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDA01 erwartet! loRecord = My.Bussines.Strain.Misc.oA01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDA01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'B01' - 'Artikelstamm'. loB01 = ...Misc.oB01[IDB01|IEB01]
Wichtige Feldinformationen:
Primary Key ....: IDB01
Secondary Key.: none
EAN Key..........: IEB01
ID- Field...........: IDB01
IC- Field...........: ARTNR
IP- Field...........: IPB01
IK- Field...........: none
Feldliste...........: BETRH,EIART,EILAGE,EKZUORD,IDC72,IDC98,IPY01LKZ,LSGUT,MGLOS,...
Die Komplette Liste der Felder finden Sie unter: Artikelstamm
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oB01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oB01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDB01 erwartet! loRecord = My.Bussines.Strain.Misc.oB01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDB01 ENDIF */ Abruf mittels EAN Key: lcKey = '' && Hier wird: IEB01 erwartet! loRecord = My.Bussines.Strain.Misc.oB01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDB01 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Artikelstamm
Primärkey.: IDB01
EAN-Code..: IEB01
Candidate.: ARTNR
Felder....: BETRH;EIART;EILAGE;EKZUORD;IDC72;IDC98;IPY01LKZ;LSGUT;MGLOS;NOTRESU;RABATTJN;SHKENN;SKONTJN;STATUS;TOEPLSQL;UFLAD;UFLAEZU;AUSPFLICHT;BESTNR;...
Object = My.Bussines.Strain.Misc.oB01c[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oB01c[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe:[Object], Datenabruf der Tabelle: 'B02' - 'Variabler Technikteil'. loB02 = ...Misc.oB02[IDB02]
Wichtige Feldinformationen:
Primary Key ....: IDB02
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDB02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: C510024,C510036,IDB02,TSUM,KENNUNG,IDC51,INHALT,INHALTN,LAST...
Die Komplette Liste der Felder finden Sie unter: Variabler Technikteil
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oB02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oB02[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDB02 erwartet! loRecord = My.Bussines.Strain.Misc.oB02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDB02 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'B03' - 'Referenzartikel'. loB03 = ...Misc.oB03[IDB03]
Wichtige Feldinformationen:
Primary Key ....: IDB03
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDB03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDB03,LASTUPD,LDATUM,IDB01R,LPRG,LWER,LZEIT,NDATUM,NOTIZ,NPR...
Die Komplette Liste der Felder finden Sie unter: Referenzartikel
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oB03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oB03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDB03 erwartet! loRecord = My.Bussines.Strain.Misc.oB03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDB03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'B04' - 'Artikelstamm (Sprache)'. loB04 = ...Misc.oB04[IDB01+IDX26]
Wichtige Feldinformationen:
Primary Key ....: IDB01+IDX26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDB04
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDB04,BEZ,IDX26,ARTNR,LANG,LASTUPD,LDATUM,LPRG,LWER,LZEIT,ND...
Die Komplette Liste der Felder finden Sie unter: Artikelstamm (Sprache)
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oB04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oB04[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDB01+IDX26 erwartet! loRecord = My.Bussines.Strain.Misc.oB04[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDB04 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'B12' - 'TQFS-im Artikelstamm'. loB12 = ...Misc.oB12[IDB12]
Wichtige Feldinformationen:
Primary Key ....: IDB12
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDB12
IC- Field...........: ICB12
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,G_SUCHSTR,ICB12,IDB12,IMB12,LASTUPD,LDATUM,LPRG,LWE...
Die Komplette Liste der Felder finden Sie unter: TQFS-im Artikelstamm
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oB12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oB12[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDB12 erwartet! loRecord = My.Bussines.Strain.Misc.oB12[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDB12 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'B92' - 'Variabler Technikteil (S)'. loB92 = ...Misc.oB92[IDB92]
Wichtige Feldinformationen:
Primary Key ....: IDB92
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDB92
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: C510036,EIART,EILAGE,IDB92,IDXXX,BKZ,IDC51,IDC99,INHALTN,IPY...
Die Komplette Liste der Felder finden Sie unter: Variabler Technikteil (S)
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oB92[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oB92[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDB92 erwartet! loRecord = My.Bussines.Strain.Misc.oB92[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDB92 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C02' - 'Lohngruppen'. loC02 = ...Misc.oC02[IDC02+IDC26|IEC02|IDC02+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC02+IDC26
Secondary Key.: none
EAN Key..........: IEC02
ID- Field...........: IDC02
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IS_KAPA,NOTIZ,TXC02,ZUSCHPROZ,BEZEI,IDC02,IDC26,IEC02,KOSTEN...
Die Komplette Liste der Felder finden Sie unter: Lohngruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC02[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC02+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc02|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC02)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC02 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC02 ENDIF */ Abruf mittels EAN Key: lcKey = '' && Hier wird: IEC02 erwartet! loRecord = My.Bussines.Strain.Misc.oC02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC02 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC02 erwartet! loRecord = My.Bussines.Strain.Misc.oC02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC02 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C03' - 'Währungen'. loC03 = ...Misc.oC03[IDC03]
Wichtige Feldinformationen:
Primary Key ....: IDC03
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC03
IC- Field...........: ICC03
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FAKTOR,ICC03,IDC03,KDATUM,KURS,LASTUPD,LDATUM,LPRG,LWER,LZEI...
Die Komplette Liste der Felder finden Sie unter: Währungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC03 erwartet! loRecord = My.Bussines.Strain.Misc.oC03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC03 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Währungen
Primärkey.: IDC03
EAN-Code..: nd...
Candidate.: ICC03
Felder....: FAKTOR;ICC03;IDC03;KDATUM;KURS;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NKOMMA;NMINW;NPRG;NWER;NZEITDer Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.
Object = My.Bussines.Strain.Misc.oC03Fi[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC03Fi[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC03 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC03 = My.Bussines.Strain.Misc.oC03Fi IF m.loC03.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC03.IDC03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C07' - 'Kontinente'. loC07 = ...Misc.oC07[IDC07+IDC26|IDC07+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC07+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC07
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC07,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Kontinente
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC07[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC07[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC07+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc07|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC07)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC07 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC07[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC07 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC07 erwartet! loRecord = My.Bussines.Strain.Misc.oC07[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC07 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C08' - 'Steuerschlüssel'. loC08 = ...Misc.oC08[IDC08+IDC26+DTOS(GDATUM)+IDC09|IDC08P]
Wichtige Feldinformationen:
Primary Key ....: IDC08+IDC26+DTOS(GDATUM)+IDC09
Secondary Key.: IDC08P
EAN Key..........: none
ID- Field...........: IDC08
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GDATUM,IDC08P,KTOWA,KTOWE,USTART1,BEZEI,NOTIZ,TXC08,IDC09,ID...
Die Komplette Liste der Felder finden Sie unter: Steuerschlüssel
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC08[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC08[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC08+IDC26+DTOS(GDATUM)+IDC09 erwartet! loRecord = My.Bussines.Strain.Misc.oC08[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC08 ENDIF */ Abruf mittels Secondary Key: lcKey = '' && Hier wird: IDC08P erwartet! loRecord = My.Bussines.Strain.Misc.oC08[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC08 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Steuerschlüssel
Primärkey.: IDC08+IDC26+DTOS(GDATUM)+IDC09
EAN-Code..: nd...
Candidate.: UPPER(BEZEI)
Felder....: GDATUM;IDC08P;KTOWA;KTOWE;USTART1;BEZEI;NOTIZ;TXC08;IDC09;IDC26;KONTO;IDC08;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT;PROZ;SKONT...Der Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDC08 - Umsatzsteuer abgefragt und das entsprechende Datensatzobjekt aus C08 - Steuerschlüssel zurückgegeben.
Object = My.Bussines.Strain.Misc.oC08Fi
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC08 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC08 = My.Bussines.Strain.Misc.oC08Fi IF m.loC08.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC08.IDC08 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Steuerschlüssel
Primärkey.: IDC08+IDC26+DTOS(GDATUM)+IDC09
EAN-Code..: nd...
Candidate.: UPPER(BEZEI)
Felder....: GDATUM;IDC08P;KTOWA;KTOWE;USTART1;BEZEI;NOTIZ;TXC08;IDC09;IDC26;KONTO;IDC08;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT;PROZ;SKONT...
Object = My.Bussines.Strain.Misc.oC08d[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC08d[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird vorrausgesetzt, dass My existiert... LOCAL loC08 AS Object , lcKey AS String lcKey = '' && Es wird: IDC08+IDC09+IDC26|DATUM erwartet */ Hinweis zum Datum: ein VFP Datum muss mittels DTOS(m.datum) in einen String umgewandelt werden! */ Das Datum wird zur Auswertung des korrekten Steuersatzes in C08 benötigt! */ Ein Beispiel wäre der Steuerschlüssel aus den Vorgängen heraus: lcKey = E11.IDC08+E10.IDC09ST+My.cIdc26+'|'+DTOS(E10.RGDATUM) loC08 = My.Bussines.Strain.Misc.oC08d[m.lcKey] IF !EMPTY(loC08.idc08p) */ Dann wurde ein Datensatz ermittelt ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C09' - 'Länder'. loC09 = ...Misc.oC09[IDC09+IDC26|IDC09+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC09+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC09
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FWFKT,IDC07,ISO3166,BEZEI,HEIMAT,ICC,IDC09,IDC26,KURSDAT,LAS...
Die Komplette Liste der Felder finden Sie unter: Länder
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC09[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC09[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC09+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc09|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC09)=3 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),3," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC09 C(3) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC09[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC09 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC09 erwartet! loRecord = My.Bussines.Strain.Misc.oC09[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC09 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Länder
Primärkey.: IDC09+IDC26
EAN-Code..: nd...
Candidate.: UPPER(BEZEI)
Felder....: FWFKT;IDC07;ISO3166;BEZEI;HEIMAT;ICC;IDC09;IDC26;KURSDAT;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NULLEN;NWER;NZEIT;PLZVORG;STEUERSATZ;UMR...Der Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.
Object = My.Bussines.Strain.Misc.oC09Fi[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC09Fi[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC09 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC09 = My.Bussines.Strain.Misc.oC09Fi IF m.loC09.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC09.IDC09 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Länder
Primärkey.: IDC09+IDC26
EAN-Code..: nd...
Candidate.: UPPER(BEZEI)
Felder....: FWFKT;IDC07;ISO3166;BEZEI;HEIMAT;ICC;IDC09;IDC26;KURSDAT;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NULLEN;NWER;NZEIT;PLZVORG;STEUERSATZ;UMR...
Object = My.Bussines.Strain.Misc.oC09VW[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC09VW[tcIndex1|,tiIndex1,tiIndex2]
*/ Beispiel: LOCAL loC09 AS Object */ Hier sollte 'Deutschland' zurückgegeben werden... loC09 = My.Bussines.Strain.Misc.oC09VW['0049'] */ Oder hier... loC09 = My.Bussines.Strain.Misc.oC09VW['+49']
Rückgabe:[Object], Datenabruf der Tabelle: 'C10' - 'Versandarten'. loC10 = ...Misc.oC10[IDC10+IDC26|IDC10+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC10+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC10
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LANGTEXT,BEZEI,IDC10,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,ND...
Die Komplette Liste der Felder finden Sie unter: Versandarten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC10+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc10|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC10)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC10 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC10 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC10 erwartet! loRecord = My.Bussines.Strain.Misc.oC10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC10 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C13' - 'Rabattgruppe'. loC13 = ...Misc.oC13[IDC13]
Wichtige Feldinformationen:
Primary Key ....: IDC13
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC13
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: BERECH,FHBERECH,IDC13,RABATT1,RABATT2,IDC16,IDC63,LASTUPD,LD...
Die Komplette Liste der Felder finden Sie unter: Rabattgruppe
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC13[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC13[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC13 erwartet! loRecord = My.Bussines.Strain.Misc.oC13[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC13 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C14' - 'Kalender'. loC14 = ...Misc.oC14[IDC14]
Wichtige Feldinformationen:
Primary Key ....: IDC14
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC14
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC14,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTIZ,NPRG...
Die Komplette Liste der Felder finden Sie unter: Kalender
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC14[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC14[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC14 erwartet! loRecord = My.Bussines.Strain.Misc.oC14[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC14 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Kalender
Primärkey.: IDC14
EAN-Code..: nd...
Candidate.: MATCH
Felder....: BEZEI;IDC14;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NOTIZ;NPRG;NWER;NZEIT;MATCHDer Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDC14FI - Firmenkalender abgefragt und das entsprechende Datensatzobjekt aus C14 - Kalender zurückgegeben.
Object = My.Bussines.Strain.Misc.oC14Fi
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC14 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC14 = My.Bussines.Strain.Misc.oC14Fi IF m.loC14.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC14.IDC14 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C15' - 'Kalenderpositionen'. loC15 = ...Misc.oC15[IDC14+DTOS(FEI_DATUM)]
Wichtige Feldinformationen:
Primary Key ....: IDC14+DTOS(FEI_DATUM)
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FEI_DATUM,FEI_NAME,IDC14,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDAT...
Die Komplette Liste der Felder finden Sie unter: Kalenderpositionen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC15[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC14+DTOS(FEI_DATUM) erwartet! loRecord = My.Bussines.Strain.Misc.oC15[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.FEI_DATUM ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C16' - 'Branchen'. loC16 = ...Misc.oC16[IDC16+IDC26|IDC16+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC16+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC16
IC- Field...........: BEZ
IP- Field...........: none
IK- Field...........: none
Feldliste...........: NOTIZ,TXC16,BEZ,IDC16,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,N...
Die Komplette Liste der Felder finden Sie unter: Branchen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC16[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC16+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc16|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC16)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC16 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC16[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC16 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC16 erwartet! loRecord = My.Bussines.Strain.Misc.oC16[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC16 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C18' - 'Banken (BLZ)'. loC18 = ...Misc.oC18[IDC18]
Wichtige Feldinformationen:
Primary Key ....: IDC18
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC18
IC- Field...........: BANK
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Banken (BLZ)
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC18[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC18[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC18 erwartet! loRecord = My.Bussines.Strain.Misc.oC18[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC18 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C19' - 'Einheiten-Basiseinheiten'. loC19 = ...Misc.oC19[IDC19+IDC26|IDC19+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC19+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC19
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DEC,EDIDIN,BEZEI,IDC19,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: Einheiten-Basiseinheiten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC19[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC19[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC19+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc19|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC19)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC19 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC19[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC19 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC19 erwartet! loRecord = My.Bussines.Strain.Misc.oC19[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC19 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Einheiten-Basiseinheiten
Primärkey.: IDC19+IDC26
EAN-Code..: nd...
Candidate.: UPPER(BEZEI)
Felder....: DEC;EDIDIN;BEZEI;IDC19;IDC26;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT;UFDer Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDC19 - Standardeinheit abgefragt und das entsprechende Datensatzobjekt aus C19 - Einheiten-Basiseinheiten zurückgegeben.
Object = My.Bussines.Strain.Misc.oC19Fi
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC19 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC19 = My.Bussines.Strain.Misc.oC19Fi IF m.loC19.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC19.IDC19 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C20' - 'FIBU - Gruppen Kopfdaten'. loC20 = ...Misc.oC20[IDC20+IDC26|IDC20+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC20+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC20
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: FIBU - Gruppen Kopfdaten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC20[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC20+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc20|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC20)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC20 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC20 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC20 erwartet! loRecord = My.Bussines.Strain.Misc.oC20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC20 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: FIBU - Gruppen Kopfdaten
Primärkey.: IDC20+IDC26
EAN-Code..: nd...
Candidate.: UPPER(BEZEI)
Felder....: BEZEI;IDC26;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT;IDC20Der Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDC20 - FIBU - Gruppe abgefragt und das entsprechende Datensatzobjekt aus C20 - FIBU - Gruppen Kopfdaten zurückgegeben.
Object = My.Bussines.Strain.Misc.oC20Fi
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC20 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC20 = My.Bussines.Strain.Misc.oC20Fi IF m.loC20.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC20.IDC20 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C21' - 'FIBU - Gruppen Positionen'. loC21 = ...Misc.oC21[IDC21]
Wichtige Feldinformationen:
Primary Key ....: IDC21
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC21
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GDATUM,IDC09,IDC21,KTOWA,KTOWE,LASTUPD,LAUTO,LDATUM,LPRG,LWE...
Die Komplette Liste der Felder finden Sie unter: FIBU - Gruppen Positionen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC21[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC21 erwartet! loRecord = My.Bussines.Strain.Misc.oC21[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC21 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C22' - 'Lieferbedingungen'. loC22 = ...Misc.oC22[IDC22+IDC26|IDC22+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC22+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC22
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LANGTEXT,BEZEI,IDC22,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,ND...
Die Komplette Liste der Felder finden Sie unter: Lieferbedingungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC22[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC22[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC22+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc22|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC22)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC22 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC22[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC22 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC22 erwartet! loRecord = My.Bussines.Strain.Misc.oC22[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC22 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C23' - 'Preisgruppen Einkauf'. loC23 = ...Misc.oC23[IDC23+IDC26|IDC23+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC23+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC23
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: NOTIZ,TXC23,BEZEI,IDC19,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Preisgruppen Einkauf
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC23[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC23[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC23+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc23|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC23)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC23 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC23[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC23 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC23 erwartet! loRecord = My.Bussines.Strain.Misc.oC23[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC23 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C24' - 'Zahlungskonditionen'. loC24 = ...Misc.oC24[IDC24+IDC26|IDC24+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC24+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC24
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESCHREIB,LANGTEXT,NETTO2,NETTO3,NETTO4,SKONTO2,SKONTO3,SKON...
Die Komplette Liste der Felder finden Sie unter: Zahlungskonditionen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC24[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC24[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC24+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc24|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC24)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC24 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC24[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC24 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC24 erwartet! loRecord = My.Bussines.Strain.Misc.oC24[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC24 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C25' - 'Artikelgruppen'. loC25 = ...Misc.oC25[IDC25+IDC26|IDC25+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC25+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC25
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,IDC25...
Die Komplette Liste der Felder finden Sie unter: Artikelgruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC25[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC25[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC25+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc25|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC25)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC25 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC25[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC25 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC25 erwartet! loRecord = My.Bussines.Strain.Misc.oC25[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC25 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C26' - 'Sprachen'. loC26 = ...Misc.oC26[IDC26]
Wichtige Feldinformationen:
Primary Key ....: IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC26
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: C26FONT,C26GR,C26STYLE,CHECKSUM,BEZEI,IDC26,LASTUPD,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: Sprachen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC26[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC26[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC26 erwartet! loRecord = My.Bussines.Strain.Misc.oC26[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC26 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Sprachen
Primärkey.: IDC26
EAN-Code..: nd...
Candidate.: UPPER(BEZEI)
Felder....: C26FONT;C26GR;C26STYLE;CHECKSUM;BEZEI;IDC26;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEITDer Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDC26 - Sprache abgefragt und das entsprechende Datensatzobjekt aus C26 - Sprachen zurückgegeben.
Object = My.Bussines.Strain.Misc.oC26Fi
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC26 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC26 = My.Bussines.Strain.Misc.oC26Fi IF m.loC26.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC26.IDC26 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C27' - 'Abschlagsarten'. loC27 = ...Misc.oC27[IDC27+IDC26|IDC27+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC27+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC27
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC27,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Abschlagsarten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC27[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC27[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC27+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc27|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC27)=3 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),3," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC27 C(3) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC27[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC27 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC27 erwartet! loRecord = My.Bussines.Strain.Misc.oC27[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC27 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C28' - 'Vorgangsarten'. loC28 = ...Misc.oC28[IDC28+IDC26|IDC28+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC28+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC28
IC- Field...........: BEZEI
IP- Field...........: IPY01
IK- Field...........: KURZ
Feldliste...........: BEZ,BEZEI,IDC26,IDC28,IPY01,KURZ,LASTUPD,LDATUM,LPRG,LWER,LZ...
Die Komplette Liste der Felder finden Sie unter: Vorgangsarten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC28[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC28[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC28+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc28|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC28)=3 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),3," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC28 C(3) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC28[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC28 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC28 erwartet! loRecord = My.Bussines.Strain.Misc.oC28[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC28 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Vorgangsarten
Primärkey.: IDC28+IDC26
EAN-Code..: nd...
Candidate.: nd...
Felder....: BEZ;BEZEI;IDC26;IDC28;IPY01;KURZ;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT
Object = My.Bussines.Strain.Misc.oC28Ip[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC28Ip[tcIndex1|,tiIndex1,tiIndex2]
*/ Der passende Code... LOCAL lcIdc28,lcIdc26,lcKurz,loC28 lcIdc28 = "100" lcIdc26 = My.cIdc26 && Systemsprache lcKurz = PADR("ANG",10," ") && Auf 10 Stellen mit Blanks aufgefüllt */ Über IDC28 loC28 = My.Bussines.Strain.Misc.oC28[m.lcIdc28] */ Incl. Sprache loC28 = My.Bussines.Strain.Misc.oC28[m.lcIdc28+m.lcIdc26] */ Über die IPY01 loC28 = My.Bussines.Strain.Misc.oC28Ip['101'] && IDC28=IPY01! Bei Neuanlage der Tabelle */ Incl. Sprache loC28 = My.Bussines.Strain.Misc.oC28Ip[m.lcIdc28+m.lcIdc26] */ Über das Kürzel loC28 = My.Bussines.Strain.Misc.oC28Ku[m.lcKurz] */ incl. Sprache loC28 = My.Bussines.Strain.Misc.oC28Ku[m.lcKurz+m.lcIdc26]
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Vorgangsarten
Primärkey.: IDC28+IDC26
EAN-Code..: nd...
Candidate.: nd...
Felder....: BEZ;BEZEI;IDC26;IDC28;IPY01;KURZ;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT
Object = My.Bussines.Strain.Misc.oC28Ku[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC28Ku[tcIndex1|,tiIndex1,tiIndex2]
*/ Der passende Code... LOCAL lcIdc28,lcIdc26,lcKurz,loC28 lcIdc28 = "100" lcIdc26 = My.cIdc26 && Systemsprache lcKurz = PADR("ANG",10," ") && Auf 10 Stellen mit Blanks aufgefüllt */ Über IDC28 loC28 = My.Bussines.Strain.Misc.oC28[m.lcIdc28] */ Incl. Sprache loC28 = My.Bussines.Strain.Misc.oC28[m.lcIdc28+m.lcIdc26] */ Über die IPY01 loC28 = My.Bussines.Strain.Misc.oC28Ip[m.lcIdc28] && IDC28=IPY01! Bei Neuanlage der Tabelle */ Incl. Sprache loC28 = My.Bussines.Strain.Misc.oC28Ip[m.lcIdc28+m.lcIdc26] */ Über das Kürzel loC28 = My.Bussines.Strain.Misc.oC28Ku[m.lcKurz] */ incl. Sprache loC28 = My.Bussines.Strain.Misc.oC28Ku[m.lcKurz+m.lcIdc26]
Rückgabe:[Object], Datenabruf der Tabelle: 'C29' - 'Anlagenbezeichner'. loC29 = ...Misc.oC29[IDC29+IDC26|IDC29+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC29+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC29
IC- Field...........: ANLAGE
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC26,ANLAGE,IDC29,IDK10,LASTUPD,ZNR,LDATUM,LPRG,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: Anlagenbezeichner
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC29[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC29[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC29+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc29|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC29)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC29 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC29[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC29 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC29 erwartet! loRecord = My.Bussines.Strain.Misc.oC29[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC29 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C30' - 'Adressen'. loC30 = ...Misc.oC30[IDC30]
Wichtige Feldinformationen:
Primary Key ....: IDC30
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC30
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABCKENN,EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Adressen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC30[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC30 erwartet! loRecord = My.Bussines.Strain.Misc.oC30[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC30 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Adressen
Primärkey.: IDC30
EAN-Code..: nd...
Candidate.: MATCH
Felder....: ABCKENN;EMAIL;FPARAC2;FPARAC3;FPARAD1;FPARAD2;FPARAD3;FPARAM1;FPARAM2;FPARAM3;FPARAM4;FPARAM5;FPARAM6;FPARAN1;FPARAN2;FPARAN3;GESPERRT;KEYAC...Der Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDC30FI - Firmenadresse abgefragt und das entsprechende Datensatzobjekt aus C30 - Adressen zurückgegeben.
Object = My.Bussines.Strain.Misc.oC30Fi[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC30Fi[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC30 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC30 = My.Bussines.Strain.Misc.oC30Fi IF m.loC30.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC30.IDC30 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C31' - 'Kostenträger'. loC31 = ...Misc.oC31[IDC31+IDC26|IDC31+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC31+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC31
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GKF,BEZEI,FIBUNR,IDC02,IDC26,IDC31,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Kostenträger
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC31[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC31[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC31+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc31|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC31)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC31 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC31[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC31 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC31 erwartet! loRecord = My.Bussines.Strain.Misc.oC31[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC31 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C32' - 'Kostenstellen'. loC32 = ...Misc.oC32[IDC32+IDC26|IDC32+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC32+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC32
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,FIBUNR,GKF,IDC02,IDC26,IDC32,MAXKAPA,LASTUPD,LDATUM,LP...
Die Komplette Liste der Felder finden Sie unter: Kostenstellen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC32[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC32[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC32+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc32|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC32)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC32 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC32[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC32 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC32 erwartet! loRecord = My.Bussines.Strain.Misc.oC32[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC32 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C33' - 'Artikelhauptgruppen'. loC33 = ...Misc.oC33[IDC33+IDC26|IDC33+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC33+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC33
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Artikelhauptgruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC33[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC33[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC33+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc33|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC33)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC33 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC33[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC33 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC33 erwartet! loRecord = My.Bussines.Strain.Misc.oC33[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC33 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C34' - 'Artikeluntergruppen'. loC34 = ...Misc.oC34[IDC34+IDC26|IDC34+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC34+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC34
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Artikeluntergruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC34[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC34[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC34+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc34|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC34)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC34 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC34[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC34 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC34 erwartet! loRecord = My.Bussines.Strain.Misc.oC34[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC34 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C39' - 'Mitarbeitergruppen'. loC39 = ...Misc.oC39[IDC39+IDC26|IDC39+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC39+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC39
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZEIT,BEZEI,...
Die Komplette Liste der Felder finden Sie unter: Mitarbeitergruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC39[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC39[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC39+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc39|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC39)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC39 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC39[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC39 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC39 erwartet! loRecord = My.Bussines.Strain.Misc.oC39[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC39 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C40' - 'Textbausteine'. loC40 = ...Misc.oC40[IDC40+IDC26|IDC40+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC40+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC40
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZ...
Die Komplette Liste der Felder finden Sie unter: Textbausteine
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC40[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC40+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc40|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC40)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC40 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC40[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC40 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC40 erwartet! loRecord = My.Bussines.Strain.Misc.oC40[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC40 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C41' - 'Kostenarten'. loC41 = ...Misc.oC41[IDC41+IDC26|IDC41+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC41+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC41
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC41,KOGRP,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATU...
Die Komplette Liste der Felder finden Sie unter: Kostenarten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC41[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC41[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC41+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc41|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC41)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC41 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC41[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC41 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC41 erwartet! loRecord = My.Bussines.Strain.Misc.oC41[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC41 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C42' - 'Statistikgruppen'. loC42 = ...Misc.oC42[IDC42+IDC26|IDC42+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC42+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC42
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC42,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Statistikgruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC42[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC42[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC42+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc42|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC42)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC42 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC42[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC42 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC42 erwartet! loRecord = My.Bussines.Strain.Misc.oC42[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC42 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C43' - 'Preisgruppen Verkauf'. loC43 = ...Misc.oC43[IDC43+IDC26|IDC43+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC43+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC43
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC19,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Preisgruppen Verkauf
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC43[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC43[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC43+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc43|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC43)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC43 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC43[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC43 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC43 erwartet! loRecord = My.Bussines.Strain.Misc.oC43[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC43 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C44' - 'Produktgruppen'. loC44 = ...Misc.oC44[IDC44+IDC26|IDC44+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC44+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC44
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,FIBUNR,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPR...
Die Komplette Liste der Felder finden Sie unter: Produktgruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC44[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC44[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC44+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc44|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC44)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC44 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC44[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC44 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC44 erwartet! loRecord = My.Bussines.Strain.Misc.oC44[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC44 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C48' - 'Prüfvorschriften'. loC48 = ...Misc.oC48[IDC48+IDC26|IDC48+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC48+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC48
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC48,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Prüfvorschriften
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC48[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC48[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC48+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc48|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC48)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC48 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC48[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC48 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC48 erwartet! loRecord = My.Bussines.Strain.Misc.oC48[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC48 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C49' - 'Kennbuchstaben'. loC49 = ...Misc.oC49[IDC50+IDC49+IDC26]
Wichtige Feldinformationen:
Primary Key ....: IDC50+IDC49+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC49
IC- Field...........: ICC49
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,AENDERN,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM...
Die Komplette Liste der Felder finden Sie unter: Kennbuchstaben
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC49[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC49[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC50+IDC49+IDC26 erwartet! loRecord = My.Bussines.Strain.Misc.oC49[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC49 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C50' - 'VNS Klassen'. loC50 = ...Misc.oC50[IDC50+IDC26|IDC50+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC50+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC50
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,BEZEI,IDC26,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,N...
Die Komplette Liste der Felder finden Sie unter: VNS Klassen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC50[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC50[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC50+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc50|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC50)=4 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),4," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC50 C(4) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC50[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC50 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC50 erwartet! loRecord = My.Bussines.Strain.Misc.oC50[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC50 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C51' - 'VNS Ausprägungsmerkmale'. loC51 = ...Misc.oC51[IDC50+IDC51+IDC26]
Wichtige Feldinformationen:
Primary Key ....: IDC50+IDC51+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC51
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZUG,CHECKSUM,DDFORMAT,KONTEXT,LEVEL,UF,BEZEI,KENNUNG,IDC26...
Die Komplette Liste der Felder finden Sie unter: VNS Ausprägungsmerkmale
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC51[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC51[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC50+IDC51+IDC26 erwartet! loRecord = My.Bussines.Strain.Misc.oC51[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC51 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C52' - 'Adressverknüpfungen'. loC52 = ...Misc.oC52[IDC5X]
Wichtige Feldinformationen:
Primary Key ....: IDC5X
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC52
IC- Field...........: none
IP- Field...........: IPC52
IK- Field...........: none
Feldliste...........: IDC5X,IDC30,IDC52,IPC52,IPY01,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Adressverknüpfungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC52[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC52[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC5X erwartet! loRecord = My.Bussines.Strain.Misc.oC52[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC52 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C53' - 'Support Meldungen'. loC53 = ...Misc.oC53[IDC53]
Wichtige Feldinformationen:
Primary Key ....: IDC53
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC53
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DATVER2,DATVOR,ERLEDIGT,EWER,FTEXT,ICE10,ICK10,ICMA...
Die Komplette Liste der Felder finden Sie unter: Support Meldungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC53[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC53[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC53 erwartet! loRecord = My.Bussines.Strain.Misc.oC53[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC53 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C55' - 'Verträge / Presente'. loC55 = ...Misc.oC55[IDC55]
Wichtige Feldinformationen:
Primary Key ....: IDC55
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC55
IC- Field...........: ICC55
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,DATAB,DATBZ,DATEZ,DATKU,DATLZ,ICC55,ICC55F,IDART,IDC30RG...
Die Komplette Liste der Felder finden Sie unter: Verträge / Presente
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC55[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC55[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC55 erwartet! loRecord = My.Bussines.Strain.Misc.oC55[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC55 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C61' - 'Lieferanten'. loC61 = ...Misc.oC61[IDC61]
Wichtige Feldinformationen:
Primary Key ....: IDC61
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC61
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EDIADR,EDIDAT,EDIDIR,EDIILN,EDIKOPF,EDIMOD,EDINUM,EDIORG,EDI...
Die Komplette Liste der Felder finden Sie unter: Lieferanten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC61[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC61[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC61 erwartet! loRecord = My.Bussines.Strain.Misc.oC61[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC61 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C62' - 'Hersteller'. loC62 = ...Misc.oC62[IDC62]
Wichtige Feldinformationen:
Primary Key ....: IDC62
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC62
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Hersteller
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC62[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC62[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC62 erwartet! loRecord = My.Bussines.Strain.Misc.oC62[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC62 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C63' - 'Kunden'. loC63 = ...Misc.oC63[IDC63]
Wichtige Feldinformationen:
Primary Key ....: IDC63
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC63
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANGSPERRE,AUFSPERRE,DATSWA,EGDATE,EGLAND,EGUSTID,EMAIL,ENDK,...
Die Komplette Liste der Felder finden Sie unter: Kunden
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC63[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC63[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC63 erwartet! loRecord = My.Bussines.Strain.Misc.oC63[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC63 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C64' - 'Mitarbeiter'. loC64 = ...Misc.oC64[IDC64]
Wichtige Feldinformationen:
Primary Key ....: IDC64
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC64
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESCHART,EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARA...
Die Komplette Liste der Felder finden Sie unter: Mitarbeiter
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC64[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC64[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC64 erwartet! loRecord = My.Bussines.Strain.Misc.oC64[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC64 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Mitarbeiter
Primärkey.: IDC64
EAN-Code..: nd...
Candidate.: MATCH
Felder....: BESCHART;EMAIL;FPARAC2;FPARAC3;FPARAD1;FPARAD2;FPARAD3;FPARAM1;FPARAM2;FPARAM3;FPARAM4;FPARAM5;FPARAM6;FPARAN1;FPARAN2;FPARAN3;GESCHLECHT;GE...Dieser Datenabruf wird in Zusammenhang mit der BDE Schnittstelle benötigt. Dabei gilt:
Für die Tabelle C64 - oC64Bde[nPersnrBde] - Abfrage der Daten aus den Mitarbeitern über die Personalnummer
Für die Tabelle V05 - oV05Bde[nIdv05] - Abfrage der Daten aus den Arbeitsgängen über einen Integerwert der V05.IDV05: INT(VAL(V05.IDV05))
Object = My.Bussines.Strain.Misc.oC64Bde[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC64Bde[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC64 AS Object , liNumber AS Integer */ Der entsprechende Datensatz wird über einem num. Wert ermittelt! liNumber = 0 loC64 = My.Bussines.Strain.Misc.oC64Bde[m.liNumber] IF m.loC64.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC64.IDC64 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C65' - 'Benutzer'. loC65 = ...Misc.oC65[IDC65]
Wichtige Feldinformationen:
Primary Key ....: IDC65
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC65
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARA...
Die Komplette Liste der Felder finden Sie unter: Benutzer
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC65[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC65[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC65 erwartet! loRecord = My.Bussines.Strain.Misc.oC65[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC65 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C66' - 'Lagerorte'. loC66 = ...Misc.oC66[IDC66]
Wichtige Feldinformationen:
Primary Key ....: IDC66
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC66
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Lagerorte
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC66[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC66[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC66 erwartet! loRecord = My.Bussines.Strain.Misc.oC66[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC66 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Lagerorte
Primärkey.: IDC66
EAN-Code..: nd...
Candidate.: MATCH
Felder....: EMAIL;FPARAC2;FPARAC3;FPARAD1;FPARAD2;FPARAD3;FPARAM1;FPARAM2;FPARAM3;FPARAM4;FPARAM5;FPARAM6;FPARAN1;FPARAN2;FPARAN3;GESPERRT;IDC03;MOBIL;W...Der Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDC66BS - Beistellager abgefragt und das entsprechende Datensatzobjekt aus C66 - Lagerorte zurückgegeben.
Object = My.Bussines.Strain.Misc.oC66Bs[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC66Bs[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC66 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC66 = My.Bussines.Strain.Misc.oC66Bs IF m.loC66.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC66.IDC66 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Lagerorte
Primärkey.: IDC66
EAN-Code..: nd...
Candidate.: MATCH
Felder....: EMAIL;FPARAC2;FPARAC3;FPARAD1;FPARAD2;FPARAD3;FPARAM1;FPARAM2;FPARAM3;FPARAM4;FPARAM5;FPARAM6;FPARAN1;FPARAN2;FPARAN3;GESPERRT;IDC03;MOBIL;W...Der Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDC66FI - Stammlager abgefragt und das entsprechende Datensatzobjekt aus C66 - Lagerorte zurückgegeben.
Object = My.Bussines.Strain.Misc.oC66Fi[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC66Fi[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loC66 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loC66 = My.Bussines.Strain.Misc.oC66Fi IF m.loC66.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loC66.IDC66 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C67' - 'Ansprechpartner'. loC67 = ...Misc.oC67[IDC67]
Wichtige Feldinformationen:
Primary Key ....: IDC67
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC67
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Ansprechpartner
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC67[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC67[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC67 erwartet! loRecord = My.Bussines.Strain.Misc.oC67[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC67 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C68' - 'Sachbearbeiter'. loC68 = ...Misc.oC68[IDC68]
Wichtige Feldinformationen:
Primary Key ....: IDC68
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC68
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Sachbearbeiter
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC68[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC68[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC68 erwartet! loRecord = My.Bussines.Strain.Misc.oC68[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC68 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C69' - 'Vertreter'. loC69 = ...Misc.oC69[IDC69]
Wichtige Feldinformationen:
Primary Key ....: IDC69
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC69
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPARAD3,FPARAM1,FPARAM...
Die Komplette Liste der Felder finden Sie unter: Vertreter
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC69[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC69[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC69 erwartet! loRecord = My.Bussines.Strain.Misc.oC69[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC69 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C70' - 'Kunden Vertreter'. loC70 = ...Misc.oC70[IDC70]
Wichtige Feldinformationen:
Primary Key ....: IDC70
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC70
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC69,IDC70,NDATUM,RANG,IDC63,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Kunden Vertreter
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC70[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC70[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC70 erwartet! loRecord = My.Bussines.Strain.Misc.oC70[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC70 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C71' - 'Vorgang Vertreter'. loC71 = ...Misc.oC71[IDC71]
Wichtige Feldinformationen:
Primary Key ....: IDC71
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC71
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC69,IDC71,IDE10,NDATUM,PROZ,RANG,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Vorgang Vertreter
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC71[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC71[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC71 erwartet! loRecord = My.Bussines.Strain.Misc.oC71[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC71 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C72' - 'Produktzuordnung'. loC72 = ...Misc.oC72[IDC72+IDC26|IDC72+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC72+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC72
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC72,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Produktzuordnung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC72[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC72[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC72+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc72|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC72)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC72 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC72[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC72 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC72 erwartet! loRecord = My.Bussines.Strain.Misc.oC72[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC72 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C73' - 'Vorg.-P.-Produktzuordnung'. loC73 = ...Misc.oC73[IDC73]
Wichtige Feldinformationen:
Primary Key ....: IDC73
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC73
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC72,IDC73,NDATUM,PROZ,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NPRG,...
Die Komplette Liste der Felder finden Sie unter: Vorg.-P.-Produktzuordnung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC73[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC73[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC73 erwartet! loRecord = My.Bussines.Strain.Misc.oC73[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC73 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C74' - 'Seriennummernzuordnung'. loC74 = ...Misc.oC74[IDC74]
Wichtige Feldinformationen:
Primary Key ....: IDC74
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC74
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC63E,IDC74,IDE10,NDATUM,PRJNR,SNR,IDC63,MENGE,LASTUPD,LDAT...
Die Komplette Liste der Felder finden Sie unter: Seriennummernzuordnung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC74[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC74[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC74 erwartet! loRecord = My.Bussines.Strain.Misc.oC74[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC74 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C75' - 'Statistikmerkmale-1'. loC75 = ...Misc.oC75[IDC75]
Wichtige Feldinformationen:
Primary Key ....: IDC75
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC75
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC75,ITC75,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Statistikmerkmale-1
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC75[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC75[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC75 erwartet! loRecord = My.Bussines.Strain.Misc.oC75[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC75 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C76' - 'Statistikmerkmale-2'. loC76 = ...Misc.oC76[IDC76]
Wichtige Feldinformationen:
Primary Key ....: IDC76
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC76
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC76,ITC76,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Statistikmerkmale-2
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC76[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC76[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC76 erwartet! loRecord = My.Bussines.Strain.Misc.oC76[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC76 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C77' - 'Statistikmerkmale-3'. loC77 = ...Misc.oC77[IDC77]
Wichtige Feldinformationen:
Primary Key ....: IDC77
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC77
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC77,ITC77,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Statistikmerkmale-3
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC77[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC77[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC77 erwartet! loRecord = My.Bussines.Strain.Misc.oC77[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC77 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C78' - 'Statistikmerkmale-4'. loC78 = ...Misc.oC78[IDC78]
Wichtige Feldinformationen:
Primary Key ....: IDC78
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC78
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC78,ITC78,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Statistikmerkmale-4
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC78[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC78[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC78 erwartet! loRecord = My.Bussines.Strain.Misc.oC78[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC78 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C80' - 'Dispotypen'. loC80 = ...Misc.oC80[IPC80+IDC26|IPC80+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IPC80+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IPC80
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,BEZEI,IDC26,IPC80,IPZWI,LASTUPD,LDATUM,LPRG,LWER,LZ...
Die Komplette Liste der Felder finden Sie unter: Dispotypen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC80[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC80[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IPC80+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'ipc80|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IPC80)=3 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),3," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IPC80 C(3) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC80[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IPC80 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IPC80 erwartet! loRecord = My.Bussines.Strain.Misc.oC80[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IPC80 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C81' - 'Bewertungskriterien'. loC81 = ...Misc.oC81[IDC81]
Wichtige Feldinformationen:
Primary Key ....: IDC81
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC81
IC- Field...........: FELDINH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEWKRIT,FELDINH,IDC81,IDC82,IDFIH,LASTUPD,LDATUM,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Bewertungskriterien
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC81[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC81[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC81 erwartet! loRecord = My.Bussines.Strain.Misc.oC81[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC81 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C82' - 'Bewertungsprioritäten'. loC82 = ...Misc.oC82[IDC82]
Wichtige Feldinformationen:
Primary Key ....: IDC82
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC82
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC64,IDC82,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Bewertungsprioritäten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC82[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC82[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC82 erwartet! loRecord = My.Bussines.Strain.Misc.oC82[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC82 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C83' - 'Minderungen'. loC83 = ...Misc.oC83[IDC84+IDC81+PADL(ALLTRIM(STR(ZEITRAUM)),8,"0")]
Wichtige Feldinformationen:
Primary Key ....: IDC84+IDC81+PADL(ALLTRIM(STR(ZEITRAUM)),8,"0")
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC81,IDC84,KENN,LASTUPD,LDATUM,LPRG,LWER,LZEIT,MINDERUNG,ND...
Die Komplette Liste der Felder finden Sie unter: Minderungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC83[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC83[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC84+IDC81+PADL(ALLTRIM(STR(ZEITRAUM)),8,"0") erwartet! loRecord = My.Bussines.Strain.Misc.oC83[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC81 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C84' - 'Minderungskennzeichen'. loC84 = ...Misc.oC84[IDC84]
Wichtige Feldinformationen:
Primary Key ....: IDC84
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC84
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,GRUND,IDC84,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Minderungskennzeichen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC84[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC84[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC84 erwartet! loRecord = My.Bussines.Strain.Misc.oC84[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC84 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C91' - 'Lieferantenrabatte'. loC91 = ...Misc.oC91[IDC91]
Wichtige Feldinformationen:
Primary Key ....: IDC91
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC91
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BWERT,DATBIS,DATVON,EXPR,IDC61,IDC63,IDC91,IDK10,LASTUPD,LCA...
Die Komplette Liste der Felder finden Sie unter: Lieferantenrabatte
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC91[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC91[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC91 erwartet! loRecord = My.Bussines.Strain.Misc.oC91[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC91 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C97' - 'Montagearten'. loC97 = ...Misc.oC97[IDC97+IDC26|IDC97+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC97+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC97
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDC97,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Montagearten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC97[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC97[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC97+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc97|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC97)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC97 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC97[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC97 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC97 erwartet! loRecord = My.Bussines.Strain.Misc.oC97[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC97 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C98' - 'Elemente / Legierungen'. loC98 = ...Misc.oC98[IDC98+IDC26|IDC98+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC98+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC98
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: IKC98
Feldliste...........: BEZEI,DATUM,GEWI,IDC26,IDC98,LASTUPD,LDATUM,LPRG,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: Elemente / Legierungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC98[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC98[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC98+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc98|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC98)=6 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),6," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC98 C(6) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC98[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC98 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC98 erwartet! loRecord = My.Bussines.Strain.Misc.oC98[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC98 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'C99' - 'VNS-Einheiten'. loC99 = ...Misc.oC99[IDC99+IDC26|IDC99+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDC99+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDC99
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: IKC99
Feldliste...........: CHECKSUM,IDC26,BEZEI,CW,DIN,IDC99,IDC99N,IKC99,RUC99,DEC,LAS...
Die Komplette Liste der Felder finden Sie unter: VNS-Einheiten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oC99[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oC99[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDC99+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idc99|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDC99)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDC99 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oC99[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC99 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDC99 erwartet! loRecord = My.Bussines.Strain.Misc.oC99[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDC99 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D03' - 'Artikel EK-Daten'. loD03 = ...Misc.oD03[IDD03]
Wichtige Feldinformationen:
Primary Key ....: IDD03
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKPDATUM,IDD03,LPPDATUM,MGVP,NETTO,PEEK,BESTMIN,BESTNR,BEZ,E...
Die Komplette Liste der Felder finden Sie unter: Artikel EK-Daten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD03 erwartet! loRecord = My.Bussines.Strain.Misc.oD03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D04' - 'Artikel VK-Daten'. loD04 = ...Misc.oD04[IDD04]
Wichtige Feldinformationen:
Primary Key ....: IDD04
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD04
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,DB1F,DB1H,DB2F,DB2H,EKF,EKH,IDC19MEVK,IDC19VKEH,IDD04,ID...
Die Komplette Liste der Felder finden Sie unter: Artikel VK-Daten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD04[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD04 erwartet! loRecord = My.Bussines.Strain.Misc.oD04[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD04 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Artikel VK-Daten
Primärkey.: IDD04
EAN-Code..: nd...
Candidate.: nd...
Felder....: BEZ;DB1F;DB1H;DB2F;DB2H;EKF;EKH;IDC19MEVK;IDC19VKEH;IDD04;IDV03F;IDV03H;IDV04;LASTUPD;LDATUM;LISTPR;LISTPREISF;LISTPREISH;LNOD05;LPRG;LWER;L...
Object = My.Bussines.Strain.Misc.oD04e[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD04e[tcIndex1|,tiIndex1,tiIndex2]
*/ Beispiel: LOCAL loD04 AS Object */ Der 'niedrigste' wird ermittelt loD04 = My.Bussines.Strain.Misc.oD04e['00010123'+'MBB '] */ Der 'höchste' wird ermittelt loD04 = My.Bussines.Strain.Misc.oD04e['!'+'00010123'+'MBB ']
Rückgabe:[Object], Datenabruf der Tabelle: 'D05' - 'Rohstoffzuschläge'. loD05 = ...Misc.oD05[IDD05]
Wichtige Feldinformationen:
Primary Key ....: IDD05
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD05
IC- Field...........: none
IP- Field...........: IPD05
IK- Field...........: none
Feldliste...........: CDBF,IDD05,IPD05,ROHGRP,UFLAEZU,BASIS,EDELZAHL,IDC98,LASTUPD...
Die Komplette Liste der Felder finden Sie unter: Rohstoffzuschläge
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD05[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD05 erwartet! loRecord = My.Bussines.Strain.Misc.oD05[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD05 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D30' - 'Lieferantenanfragen'. loD30 = ...Misc.oD30[IDD30]
Wichtige Feldinformationen:
Primary Key ....: IDD30
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD30
IC- Field...........: ANFRNR
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANFRAART,ANFRDATUM,ANFRNR,ANGNUMMER,EKPVOR,FAKTOR,FTEXT,FUSS...
Die Komplette Liste der Felder finden Sie unter: Lieferantenanfragen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD30[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD30 erwartet! loRecord = My.Bussines.Strain.Misc.oD30[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD30 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D31' - 'Anfragepositionen/Lief.'. loD31 = ...Misc.oD31[IDD31]
Wichtige Feldinformationen:
Primary Key ....: IDD31
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD31
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ANFRDATUM,E10MATCH,EKPVOR,GBIS,IDB01S,IDC10,IDC19,IDC30,IDD3...
Die Komplette Liste der Felder finden Sie unter: Anfragepositionen/Lief.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD31[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD31[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD31 erwartet! loRecord = My.Bussines.Strain.Misc.oD31[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD31 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D33' - 'Artikelanfragen'. loD33 = ...Misc.oD33[IDD33]
Wichtige Feldinformationen:
Primary Key ....: IDD33
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD33
IC- Field...........: ANFRNR
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANFRDATUM,ANFRNR,ARTKRI,DEFAULT,EKPVOR,FAKTOR,FTEXT,FUSSTEXT...
Die Komplette Liste der Felder finden Sie unter: Artikelanfragen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD33[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD33[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD33 erwartet! loRecord = My.Bussines.Strain.Misc.oD33[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD33 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D34' - 'Anfragepositionen/Artikel'. loD34 = ...Misc.oD34[IDD34]
Wichtige Feldinformationen:
Primary Key ....: IDD34
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD34
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ANFRDATUM,E10MATCH,EKPVOR,IDB01S,IDC10,IDC19,IDC30,IDD32,IDD...
Die Komplette Liste der Felder finden Sie unter: Anfragepositionen/Artikel
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD34[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD34[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD34 erwartet! loRecord = My.Bussines.Strain.Misc.oD34[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD34 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D35' - 'Lieferanten/Artikel'. loD35 = ...Misc.oD35[IDD35]
Wichtige Feldinformationen:
Primary Key ....: IDD35
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD35
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD33,IDD34,IDD35,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG...
Die Komplette Liste der Felder finden Sie unter: Lieferanten/Artikel
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD35[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD35[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD35 erwartet! loRecord = My.Bussines.Strain.Misc.oD35[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD35 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D39' - 'Bestelladressen'. loD39 = ...Misc.oD39[IDD39|IDD40+IPD39]
Wichtige Feldinformationen:
Primary Key ....: IDD39
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD39
IC- Field...........: ICD39
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EMAIL,ICD39,IDC09,IDD39,IDD40,IPD39,LASTUPD,LDATUM,LPRG,LWER...
Die Komplette Liste der Felder finden Sie unter: Bestelladressen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD39[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD39[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD39 erwartet! loRecord = My.Bussines.Strain.Misc.oD39[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD39 ENDIF */ Abruf mittels eines definierten Sonderschlüssels lcKey = '' && Hier wird: IDD40+IPD39 erwartet! loRecord = My.Bussines.Strain.Misc.oD39[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD39 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D40' - 'EK-Bestellungen'. loD40 = ...Misc.oD40[IDD40]
Wichtige Feldinformationen:
Primary Key ....: IDD40
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD40
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABGESCHL,BESTAMD,EKBRU,EKBRUSK,EKEDEL,EKGBRU,EKGMWST,EKGNET,...
Die Komplette Liste der Felder finden Sie unter: EK-Bestellungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD40[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD40 erwartet! loRecord = My.Bussines.Strain.Misc.oD40[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD40 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: EK-Bestellungen
Primärkey.: IDD40
EAN-Code..: nd...
Candidate.: MATCH
Felder....: ABGESCHL;BESTAMD;EKBRU;EKBRUSK;EKEDEL;EKGBRU;EKGMWST;EKGNET;EKMSKONTO;EKNEB;EKNEBSK;EKNET;EKRAB;EKRABSK;EKWNET;EKWNETSK;FAKTOR;IDC03;IDC09ST...
Object = My.Bussines.Strain.Misc.oD40St[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD40St[tcIndex1|,tiIndex1,tiIndex2]
*/ Die Abfrage: loD40ST = My.Bussines.Strain.Misc.oD40St[cIdd40] */ Gibt verschiedene Statusinformationen zurück... With loD40St As Object .d40c = [I] = 1 .d40g = [I] - Anzahl der Bestellungen istbest=.T. (0|1) .d40s = [I] - Anzahl der Stornierten Bestellung (0|1) .icd40 = [C] - Bestellnummer .d41c = [I] - Anzahl der Wareneingänge .d41g = [I] - Anzahl der gebuchten Wareneingänge .d41s = [I] - Anzahl der stornierten Wareneingänge .d42c = [I] - Anzahl der Mat.-Prüfungen .d42g = [I] - Anzahl der gebuchten Mat.-Prüfungen .d42s = [I] - Anzahl der stornierten Mat.-Prüfungen .d43c = [I] - Anzahl der Rücklieferungen .d43g = [I] - Anzahl der gebuchten Rücklieferungen .d43s = [I] - Anzahl der stornierten Rücklieferungen .d44c = [I] - Anzahl der Rechnungen .d44g = [I] - Anzahl der gebuchten Rechnungen .d44s = [I] - Anzahl der Stornierten Rechnungen .d45c = [I] - Anzahl der Zusatzrechnungen .d45g = [I] - Anzahl der gebuchten Zusatzrechnungen .d45s = [I] - Anzahl der stornierten Zusatzrechnungen .d46c = [I] - Anzahl der Gutschriften .d46g = [I] - Anzahl der gebuchten Gutschriften .d46s = [I] - Anzahl der Stornierten Gutschriften Endwith
Rückgabe:[Object], Datenabruf der Tabelle: 'D41' - 'EK-Wareneingänge'. loD41 = ...Misc.oD41[IDD41]
Wichtige Feldinformationen:
Primary Key ....: IDD41
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD41
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD42,IDI22,IDI22MAT,NOTIZ,STORNIERT,WBZUPD,IDC63,IDC64,IDD4...
Die Komplette Liste der Felder finden Sie unter: EK-Wareneingänge
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD41[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD41[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD41 erwartet! loRecord = My.Bussines.Strain.Misc.oD41[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD41 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D42' - 'EK-Materialprüfungen'. loD42 = ...Misc.oD42[IDD42]
Wichtige Feldinformationen:
Primary Key ....: IDD42
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD42
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBUCHT,IDI22,IDI22MAT,NOTIZ,STORNIERT,GEPRAM,IDC64,IDC63,ID...
Die Komplette Liste der Felder finden Sie unter: EK-Materialprüfungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD42[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD42[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD42 erwartet! loRecord = My.Bussines.Strain.Misc.oD42[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD42 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D43' - 'EK-Rücklieferungen'. loD43 = ...Misc.oD43[IDD43]
Wichtige Feldinformationen:
Primary Key ....: IDD43
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD43
IC- Field...........: MATCH
IP- Field...........: IPD43
IK- Field...........: none
Feldliste...........: EKNEB,FAKTOR,GUTSCHRIFT,IDC03,IDC09ST,IDC30,IDE10,IDK10,IPD4...
Die Komplette Liste der Felder finden Sie unter: EK-Rücklieferungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD43[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD43[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD43 erwartet! loRecord = My.Bussines.Strain.Misc.oD43[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD43 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D44' - 'EK-Rechnungen'. loD44 = ...Misc.oD44[IDD44]
Wichtige Feldinformationen:
Primary Key ....: IDD44
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD44
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKBRU,EKBRUSK,EKEDEL,EKGBK,EKGBRU,EKGMWST,EKGNET,EKMSKONTO,E...
Die Komplette Liste der Felder finden Sie unter: EK-Rechnungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD44[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD44[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD44 erwartet! loRecord = My.Bussines.Strain.Misc.oD44[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD44 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D45' - 'EK-Spediteursrechnungen'. loD45 = ...Misc.oD45[IDD45]
Wichtige Feldinformationen:
Primary Key ....: IDD45
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD45
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKBRU,EKBRUSK,EKGBK,EKGBRU,EKGMWST,EKGNET,EKMSKONTO,EKNEB,EK...
Die Komplette Liste der Felder finden Sie unter: EK-Spediteursrechnungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD45[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD45[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD45 erwartet! loRecord = My.Bussines.Strain.Misc.oD45[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD45 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D46' - 'EK-Gutschriften'. loD46 = ...Misc.oD46[IDD46]
Wichtige Feldinformationen:
Primary Key ....: IDD46
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD46
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKBRUT,EKGBK,EKMWST,EKNEB,EKNET,EKWNET,FAKTOR,GDATUM,GEBUCHT...
Die Komplette Liste der Felder finden Sie unter: EK-Gutschriften
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD46[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD46[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD46 erwartet! loRecord = My.Bussines.Strain.Misc.oD46[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD46 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D47' - 'EK-Mahnungen'. loD47 = ...Misc.oD47[IDD47]
Wichtige Feldinformationen:
Primary Key ....: IDD47
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD47
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,DATUMB,DATUMV,GRUND,IDB01B,IDB01V,IDC61B,IDC61V,IDD47,...
Die Komplette Liste der Felder finden Sie unter: EK-Mahnungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD47[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD47[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD47 erwartet! loRecord = My.Bussines.Strain.Misc.oD47[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD47 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D51' - 'EK-Bestellungen -Pos'. loD51 = ...Misc.oD51[IDD40+IDD51]
Wichtige Feldinformationen:
Primary Key ....: IDD40+IDD51
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD51
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATBEST,EDPREIS,EDPREIS_I,IDD03,KOMP,MATCHBEST,MENGE_P,MENGE...
Die Komplette Liste der Felder finden Sie unter: EK-Bestellungen -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD51[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD51[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD40+IDD51 erwartet! loRecord = My.Bussines.Strain.Misc.oD51[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD51 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D52' - 'EK-Wareneingänge -Pos'. loD52 = ...Misc.oD52[IDD41+IDD52]
Wichtige Feldinformationen:
Primary Key ....: IDD41+IDD52
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD52
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD03,IDI21,KOMP,KOMPG,LREDU,MENGE_V,OKBUCH,POSNR,UEB,BESTNR...
Die Komplette Liste der Felder finden Sie unter: EK-Wareneingänge -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD52[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD52[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD41+IDD52 erwartet! loRecord = My.Bussines.Strain.Misc.oD52[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD52 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D53' - 'EK-Materialprüfungen -Pos'. loD53 = ...Misc.oD53[IDD42+IDD53]
Wichtige Feldinformationen:
Primary Key ....: IDD42+IDD53
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD53
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD03,MENGE_U,OKBUCH,POSNR,UEB,BESTNR,BUCH,GEPR,GRUND,IDC66,...
Die Komplette Liste der Felder finden Sie unter: EK-Materialprüfungen -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD53[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD53[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD42+IDD53 erwartet! loRecord = My.Bussines.Strain.Misc.oD53[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD53 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D54' - 'EK-Rücklieferungen -Pos'. loD54 = ...Misc.oD54[IDD43+IDD51]
Wichtige Feldinformationen:
Primary Key ....: IDD43+IDD51
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD03,IDI21,LSTORNO,POSNR,PREIS_F,UEB,BESTAM,BESTNR,BESTTEXT...
Die Komplette Liste der Felder finden Sie unter: EK-Rücklieferungen -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD54[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD54[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD43+IDD51 erwartet! loRecord = My.Bussines.Strain.Misc.oD54[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D55' - 'EK-Rechnungen -Pos'. loD55 = ...Misc.oD55[IDD44+IDD55]
Wichtige Feldinformationen:
Primary Key ....: IDD44+IDD55
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD55
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EDPREIS_I,EDPREIS_S,GEBU,GEBUCHT,IDD03,MENGE_R,MENGE_V,MENGE...
Die Komplette Liste der Felder finden Sie unter: EK-Rechnungen -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD55[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD55[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD44+IDD55 erwartet! loRecord = My.Bussines.Strain.Misc.oD55[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD55 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D56' - 'EK-Spediteursrechnungen -'. loD56 = ...Misc.oD56[IDD56|IDD45+IDD56]
Wichtige Feldinformationen:
Primary Key ....: IDD56
Secondary Key.: IDD45+IDD56
EAN Key..........: none
ID- Field...........: IDD56
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBU,IDD45,MENGE_V,POSNR,POSNR2,PREISNEB,PREIS_F,BESTNR,IDC0...
Die Komplette Liste der Felder finden Sie unter: EK-Spediteursrechnungen -
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD56[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD56[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD56 erwartet! loRecord = My.Bussines.Strain.Misc.oD56[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD56 ENDIF */ Abruf mittels Secondary Key: lcKey = '' && Hier wird: IDD45+IDD56 erwartet! loRecord = My.Bussines.Strain.Misc.oD56[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD56 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D57' - 'EK-Gutschriften -Pos'. loD57 = ...Misc.oD57[IDD46+IDD57]
Wichtige Feldinformationen:
Primary Key ....: IDD46+IDD57
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD57
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATGPL,EDELPREIS,EKPREIS,IDD40,IDD46,IDD57,LASTUPD,LDATUM,LP...
Die Komplette Liste der Felder finden Sie unter: EK-Gutschriften -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD57[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD57[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD46+IDD57 erwartet! loRecord = My.Bussines.Strain.Misc.oD57[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD57 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'D58' - 'EK-Mahnungen -Pos'. loD58 = ...Misc.oD58[IDD58]
Wichtige Feldinformationen:
Primary Key ....: IDD58
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDD58
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESTAMD,DATBEST,DATGPL,DATLAST,FAKTOR,IDC03,IDD40,IDD47,IDD5...
Die Komplette Liste der Felder finden Sie unter: EK-Mahnungen -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oD58[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oD58[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDD58 erwartet! loRecord = My.Bussines.Strain.Misc.oD58[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDD58 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'DIS' - 'Disposition'. loDIS = ...Misc.oDIS[IDDIS]
Wichtige Feldinformationen:
Primary Key ....: IDDIS
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDDIS
IC- Field...........: none
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: AUFART,AUFTRAG,DATUM,DISWER,FEHLER,FEHLERNR,IDDIS,IDK10,IDPO...
Die Komplette Liste der Felder finden Sie unter: Disposition
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oDis[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oDis[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDDIS erwartet! loRecord = My.Bussines.Strain.Misc.oDIS[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDDIS ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E00' - 'VK-Vorgangsdokumente'. loE00 = ...Misc.oE00[IPE00+IDEXX+NAME]
Wichtige Feldinformationen:
Primary Key ....: IPE00+IDEXX+NAME
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: IPE00
IK- Field...........: none
Feldliste...........: E00NOTIZ,IDK10,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NW...
Die Komplette Liste der Felder finden Sie unter: VK-Vorgangsdokumente
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE00[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE00[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IPE00+IDEXX+NAME erwartet! loRecord = My.Bussines.Strain.Misc.oE00[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IPE00 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E01' - 'VK-Zuschlagsarten Kalk.'. loE01 = ...Misc.oE01[IDE01]
Wichtige Feldinformationen:
Primary Key ....: IDE01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDE01
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE01,IDE10,XWERT,BEZEI,IDC26,POSNR,IDV02,IDE03,LASTUPD,LDAT...
Die Komplette Liste der Felder finden Sie unter: VK-Zuschlagsarten Kalk.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE01 erwartet! loRecord = My.Bussines.Strain.Misc.oE01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E03' - 'VK-Kalkulationsschema'. loE03 = ...Misc.oE03[IDE03+IDE10]
Wichtige Feldinformationen:
Primary Key ....: IDE03+IDE10
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDE03
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE10,IDV03,E_PREIS,IDC26,IDE03,LASTUPD,LDATUM,LPRG,LWER,LZE...
Die Komplette Liste der Felder finden Sie unter: VK-Kalkulationsschema
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE03+IDE10 erwartet! loRecord = My.Bussines.Strain.Misc.oE03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E04' - 'VK-Lohngruppen'. loE04 = ...Misc.oE04[IDE04]
Wichtige Feldinformationen:
Primary Key ....: IDE04
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDE04
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AKTIV,IDC02,IDE04,IDE10,KOSTEN,LASTUPD,LDATUM,LPRG,LWER,LZEI...
Die Komplette Liste der Felder finden Sie unter: VK-Lohngruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE04[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE04 erwartet! loRecord = My.Bussines.Strain.Misc.oE04[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE04 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E05' - 'VK-Gaeb-Daten zum Vorgang'. loE05 = ...Misc.oE05[IDE10]
Wichtige Feldinformationen:
Primary Key ....: IDE10
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AGBEZ,ANBEZ,ANZEP,BEZEITAN,BEZEPAN1,BEZEPAN2,BEZEPAN3,BEZEPA...
Die Komplette Liste der Felder finden Sie unter: VK-Gaeb-Daten zum Vorgang
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE05[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE10 erwartet! loRecord = My.Bussines.Strain.Misc.oE05[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.AGBEZ ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E10' - 'VK-Vorgänge'. loE10 = ...Misc.oE10[IDE10|IEE10]
Wichtige Feldinformationen:
Primary Key ....: IDE10
Secondary Key.: none
EAN Key..........: IEE10
ID- Field...........: IDE10
IC- Field...........: NUMMER
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ABGABEDAT,ABSCHLAG2,AFNUMMER,AUFGELOEST,AUFMASS,CAEIMP,DELBE...
Die Komplette Liste der Felder finden Sie unter: VK-Vorgänge
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE10 erwartet! loRecord = My.Bussines.Strain.Misc.oE10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE10 ENDIF */ Abruf mittels EAN Key: lcKey = '' && Hier wird: IEE10 erwartet! loRecord = My.Bussines.Strain.Misc.oE10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE10 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E10A' - 'CAE-Pluspack'. loE10A = ...Misc.oE10A[IDE10]
Wichtige Feldinformationen:
Primary Key ....: IDE10
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE10,PROPS
Die Komplette Liste der Felder finden Sie unter: CAE-Pluspack
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE10A[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE10A[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE10 erwartet! loRecord = My.Bussines.Strain.Misc.oE10A[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE10 ENDIF
Object = My.Bussines.Strain.Misc.oE10E15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE10E15[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: VK-Vorgänge
Primärkey.: IDE10
EAN-Code..: IEE10
Candidate.: NUMMER
Felder....: ABGABEDAT;ABSCHLAG2;AFNUMMER;AUFGELOEST;AUFMASS;CAEIMP;DELBEDARF;DISP_N_J;E10DIS;E10EDP;E10EPR;E10RAB;E10ROU;E10SPR;E10XROU;EKWIE;EKWIE2;EPL...
Object = My.Bussines.Strain.Misc.oE10Stat[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE10Stat[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: VK-Vorgänge
Primärkey.: IDE10
EAN-Code..: IEE10
Candidate.: NUMMER
Felder....: ABGABEDAT;ABSCHLAG2;AFNUMMER;AUFGELOEST;AUFMASS;CAEIMP;DELBEDARF;DISP_N_J;E10DIS;E10EDP;E10EPR;E10RAB;E10ROU;E10SPR;E10XROU;EKWIE;EKWIE2;EPL...
Object = My.Bussines.Strain.Misc.oE10c[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE10c[tcIndex1|,tiIndex1,tiIndex2]
*/ Beispiel: LOCAL loE10 AS Object */ Abruf einer Rechnung loE10 = My.Bussines.Strain.Misc.oE10c['RE-1601-0001:103'] */ Anderst formuliert... loE10 = My.Bussines.Strain.Misc.oE10c[e10.nummer+':'+e10.ipy01] */ Abruf eines Vorgangs mit angegebener Nummer loE10 = My.Bussines.Strain.Misc.oE10c['RE-1601-0001']
Rückgabe:[Object], Datenabruf der Tabelle: 'E11' - 'VK-Vorgänge -Pos'. loE11 = ...Misc.oE11[IDE11]
Wichtige Feldinformationen:
Primary Key ....: IDE11
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDE11
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ABGEBUCHT,AB_BOLD,AUFGEL,EIART,EKABST,EKALK,IDC67,IDE11S,IDE...
Die Komplette Liste der Felder finden Sie unter: VK-Vorgänge -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE11[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE11 erwartet! loRecord = My.Bussines.Strain.Misc.oE11[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE11 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E12' - 'VK-Vorgänge Staffelpreise'. loE12 = ...Misc.oE12[IDE12]
Wichtige Feldinformationen:
Primary Key ....: IDE12
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDE12
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABSCHLAG,ABSCHLAG_F,ABSCHLPROZ,ALTERNATIV,DB_II,DECKUNG,EK,E...
Die Komplette Liste der Felder finden Sie unter: VK-Vorgänge Staffelpreise
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE12[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE12 erwartet! loRecord = My.Bussines.Strain.Misc.oE12[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE12 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E15' - 'VK-Vorgangsreferenzen'. loE15 = ...Misc.oE15[IDE15]
Wichtige Feldinformationen:
Primary Key ....: IDE15
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDE15
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE10R,IDE10,IDE15,REFIDK10,REFIPY01,REFNUMMER,REFPRJNR
Die Komplette Liste der Felder finden Sie unter: VK-Vorgangsreferenzen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE15[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE15 erwartet! loRecord = My.Bussines.Strain.Misc.oE15[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE15 ENDIF
Gibt den Datensatz aus E15 zurück, der gleiche Quelle und Gleiche Ziel-Vorgangsart hat: ipQ|idQ|ipZ
Object = My.Bussines.Strain.Misc.oE15DQ[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE15DQ[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe:[Object], Datenabruf der Tabelle: 'E20' - 'VK-Aufmaßpositionen'. loE20 = ...Misc.oE20[IDE20]
Wichtige Feldinformationen:
Primary Key ....: IDE20
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDE20
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: SYSTEM,UNIT,IDE10,IDE20,LDATUM,GENDATE,LZEIT,LWER,NWER,GEN_W...
Die Komplette Liste der Felder finden Sie unter: VK-Aufmaßpositionen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE20[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE20 erwartet! loRecord = My.Bussines.Strain.Misc.oE20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE20 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'E30' - 'Kopfdaten-Erweiterung'. loE30 = ...Misc.oE30[IDE30]
Wichtige Feldinformationen:
Primary Key ....: IDE30
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDE30
IC- Field...........: ICE30
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FPARAC1,FPARAC2,FPARAC3,FPARAC4,FPARAC5,FPARAD1,FPARAD2,FPAR...
Die Komplette Liste der Felder finden Sie unter: Kopfdaten-Erweiterung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oE30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oE30[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDE30 erwartet! loRecord = My.Bussines.Strain.Misc.oE30[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDE30 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'F02' - 'Baugruppenpositionen'. loF02 = ...Misc.oF02[IDF02]
Wichtige Feldinformationen:
Primary Key ....: IDF02
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDF02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC19S,TEILER,UREM,URRM,URVM,IDF02,KENNUNG,IDB01S,IDV04A,LAS...
Die Komplette Liste der Felder finden Sie unter: Baugruppenpositionen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oF02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oF02[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDF02 erwartet! loRecord = My.Bussines.Strain.Misc.oF02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDF02 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Artikelstamm
Primärkey. : IDB01
EAN-Code : IEB01
Candidate : ARTNR
Felder. : BETRH;EIART;EILAGE;EKZUORD;IDC72;IDC98;IPY01LKZ;LSGUT;MGLOS;NOTRESU;RABATTJN;SHKENN;SKONTJN;STATUS;UFLAD;UFLAEZU;AUSPFLICHT;BESTNR;BBAS;FPAR...
... = My.Bussines.Strain.Misc.oF02B01s[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] ... = My.Bussines.Strain.Misc.oF02B01s[tcIndex1|,tiIndex1,tiIndex2]
LOCAL loB01 AS Object , lcId AS String */ Abruf des Datensatzes aus der Datenbank... lcId = "" && Benötigt wird: IDF02 loB01 = My.Bussines.Strain.Misc.oF02B01s[m.lcId] */ Prüfung, ob auch etwas gefunden wurde. Der Schlüssel könnte leer sein! IF .NOT. EMPTY(loB01.IDB01) */ Dann wurde ein Datensatz aus: B01 - Artikelstamm IF _VFP.StartMode=0 ACTIVATE SCREEN ? "ID=",loB01.IDB01,loB01.Artnr ELSE WAIT WINDOW "ID="+loB01.IDB01 ENDIF ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Baugruppenpositionen
Primärkey.: IDF02
EAN-Code..: nd...
Candidate.: nd...
Felder....: IDC19S;TEILER;UREM;URRM;URVM;IDF02;KENNUNG;IDB01S;IDV04A;LASTUPD;LDATUM;MENGE;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT;POSNR;POSNR2;TEXTZEILE;...
Object = My.Bussines.Strain.Misc.oF02t[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oF02t[tcIndex1|,tiIndex1,tiIndex2]
LOCAL loF02 AS Object , lcId AS String */ Abruf des Datensatzes aus der Datenbank... lcId = "" && Benötigt wird: IDB01 des Baugruppenkopfes loF02 = My.Bussines.Strain.Misc.oF02t[m.lcId] */ Prüfung, ob auch etwas gefunden wurde. Der Schlüssel könnte leer sein! IF .NOT. EMPTY(loF02.IDF02) */ Dann wurde der ERSTE Datensatz aus: F02 gelesen (Sortierung: F02.POSNR) IF _VFP.StartMode=0 ACTIVATE SCREEN ? "ID=",loF02.IDF02 ELSE WAIT WINDOW "ID="+loF02.IDF02 ENDIF ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Artikelstamm
Primärkey. : IDB01
EAN-Code : IEB01
Candidate : ARTNR
Felder. : BETRH;EIART;EILAGE;EKZUORD;IDC72;IDC98;IPY01LKZ;LSGUT;MGLOS;NOTRESU;RABATTJN;SHKENN;SKONTJN;STATUS;UFLAD;UFLAEZU;AUSPFLICHT;BESTNR;BBAS;FPAR...
... = My.Bussines.Strain.Misc.oF02tB01s[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] ... = My.Bussines.Strain.Misc.oF02tB01s[tcIndex1|,tiIndex1,tiIndex2]
LOCAL loB01 AS Object , lcId AS String */ Abruf des Datensatzes aus der Datenbank... lcId = "" && Benötigt wird: IDB01 des Baugruppenkopfes loB01 = My.Bussines.Strain.Misc.oF02tB01s[m.lcId] */ Prüfung, ob auch etwas gefunden wurde. Der Schlüssel könnte leer sein! IF .NOT. EMPTY(loB01.IDB01) */ Dann wurde der ERSTE Datensatz aus: B01.IDB01=F02.IDB01S gelesen (Sortierung: F02.POSNR) IF _VFP.StartMode=0 ACTIVATE SCREEN ? "ID=",loB01.IDB01,loB01.Artnr ELSE WAIT WINDOW "ID="+loB01.IDB01 ENDIF ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'F03' - 'Baugruppen-Zusatzdaten'. loF03 = ...Misc.oF03[IDF03]
Wichtige Feldinformationen:
Primary Key ....: IDF03
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDF03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EILAGE,IDF03,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER...
Die Komplette Liste der Felder finden Sie unter: Baugruppen-Zusatzdaten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oF03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oF03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDF03 erwartet! loRecord = My.Bussines.Strain.Misc.oF03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDF03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'F60' - 'Fertigungsauftrag'. loF60 = ...Misc.oF60[IDF60]
Wichtige Feldinformationen:
Primary Key ....: IDF60
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDF60
IC- Field...........: MATCH
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: GRUND,IDC65,IDF60,IDK10,IDZWI,IPZWI,LASTUPD,LDATUM,LPRG,LWER...
Die Komplette Liste der Felder finden Sie unter: Fertigungsauftrag
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oF60[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oF60[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDF60 erwartet! loRecord = My.Bussines.Strain.Misc.oF60[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDF60 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'F61' - 'Fertigungsauftrag -Pos'. loF61 = ...Misc.oF61[IDF61]
Wichtige Feldinformationen:
Primary Key ....: IDF61
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDF61
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDB01K,IDF60,IDF61,IDPOS,MENGE1,POSKENN,POSNR,POSNR2,STATUS,...
Die Komplette Liste der Felder finden Sie unter: Fertigungsauftrag -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oF61[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oF61[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDF61 erwartet! loRecord = My.Bussines.Strain.Misc.oF61[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDF61 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'F62' - 'Fertigungsauftrag -Buch.'. loF62 = ...Misc.oF62[IDF61]
Wichtige Feldinformationen:
Primary Key ....: IDF61
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDF61,IDI20,IDI21M,MENGE_B,MENGE_I,MENGE_S,IDC66
Die Komplette Liste der Felder finden Sie unter: Fertigungsauftrag -Buch.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oF62[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oF62[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDF61 erwartet! loRecord = My.Bussines.Strain.Misc.oF62[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDF61 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'F90' - 'CAE-Differenzliste'. loF90 = ...Misc.oF90[IDF90]
Wichtige Feldinformationen:
Primary Key ....: IDF90
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDF90
IC- Field...........: ICZWI
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: ICZWI,IDF90,IDZWI,IPZWI,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATU...
Die Komplette Liste der Felder finden Sie unter: CAE-Differenzliste
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oF90[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oF90[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDF90 erwartet! loRecord = My.Bussines.Strain.Misc.oF90[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDF90 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'F91' - 'CAE-Differenzliste -Pos'. loF91 = ...Misc.oF91[IDF91]
Wichtige Feldinformationen:
Primary Key ....: IDF91
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDF91
IC- Field...........: none
IP- Field...........: IPF91
IK- Field...........: none
Feldliste...........: IDF90,IDF91,IPF91,LDATUM,LPRG,LWER,LZEIT,MGALT,MGNEU,NDATUM,...
Die Komplette Liste der Felder finden Sie unter: CAE-Differenzliste -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oF91[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oF91[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDF91 erwartet! loRecord = My.Bussines.Strain.Misc.oF91[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDF91 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'FER' - 'Fehlermeldungen in FIBU'. loFER = ...Misc.oFER[IDFER]
Wichtige Feldinformationen:
Primary Key ....: IDFER
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDFER
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AUF,DAT,ERR,FEH,IDC6X,IDFER,IDXXX,IPC6X,IPXXX,TEX,WER
Die Komplette Liste der Felder finden Sie unter: Fehlermeldungen in FIBU
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oFer[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oFer[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDFER erwartet! loRecord = My.Bussines.Strain.Misc.oFER[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDFER ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'H01' - 'FIBU Kopfdaten'. loH01 = ...Misc.oH01[IDH01]
Wichtige Feldinformationen:
Primary Key ....: IDH01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDH01
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AUSDRUCK,FAKTOR,IDC03,IDC30,IDH01,KURS,LASTUPD,LAUFWERK,LDAT...
Die Komplette Liste der Felder finden Sie unter: FIBU Kopfdaten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oH01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDH01 erwartet! loRecord = My.Bussines.Strain.Misc.oH01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'H02' - 'FIBU Positionsdaten'. loH02 = ...Misc.oH02[IDH02]
Wichtige Feldinformationen:
Primary Key ....: IDH02
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDH02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AWIN,AZEV,DATEB,DATEV,DTNR,IDH01,IDH02,KENN,LASTUPD,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: FIBU Positionsdaten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oH02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH02[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDH02 erwartet! loRecord = My.Bussines.Strain.Misc.oH02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH02 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'H03' - 'Buchungssätze FIBU'. loH03 = ...Misc.oH03[IDH03]
Wichtige Feldinformationen:
Primary Key ....: IDH03
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDH03
IC- Field...........: none
IP- Field...........: IPXXX
IK- Field...........: none
Feldliste...........: BEDATE,BETEXT,EGDATE,EGLAND,EGUSTID,FAKTOR,GKONTO,ICXXX,IDC0...
Die Komplette Liste der Felder finden Sie unter: Buchungssätze FIBU
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oH03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDH03 erwartet! loRecord = My.Bussines.Strain.Misc.oH03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'H04' - 'Stammdatensätze FIBU'. loH04 = ...Misc.oH04[IDH04]
Wichtige Feldinformationen:
Primary Key ....: IDH04
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDH04
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,EGL,EGU,IDC6X,IDH04,ILH04,IPC6X,KTO,KZ1,LASTUPD,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: Stammdatensätze FIBU
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oH04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH04[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDH04 erwartet! loRecord = My.Bussines.Strain.Misc.oH04[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH04 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'H10' - 'Buchungs Kopfdaten'. loH10 = ...Misc.oH10[IDH10]
Wichtige Feldinformationen:
Primary Key ....: IDH10
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDH10
IC- Field...........: none
IP- Field...........: IPH10
IK- Field...........: none
Feldliste...........: IIH10S,IPH10S,IPH10,IDH10,ICH10,IDC03,IDC03FI,IDC09ST,IDC24,...
Die Komplette Liste der Felder finden Sie unter: Buchungs Kopfdaten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oH10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDH10 erwartet! loRecord = My.Bussines.Strain.Misc.oH10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH10 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Buchungs Kopfdaten
Primärkey.: IDH10
EAN-Code..: nd...
Candidate.: nd...
Felder....: IIH10S;IPH10S;IPH10;IDH10;ICH10;IDC03;IDC03FI;IDC09ST;IDC24;IPC6X;IDC6X;ICC6B;ICC6X;IPXXX;IDXXX;ICXXX;ICXXXF;IPZ02;IDZ01;IDZ02;CF;CQ;CP;TDSK...
Object = My.Bussines.Strain.Misc.oH10Stat[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH10Stat[tcIndex1|,tiIndex1,tiIndex2]
*/ Beispiel: LOCAL loH10ext AS Object loH10ext = My.Bussines.Strain.Misc.oH10Stat[idh10] */ Zusätzliche Spalten: WITH loH10ext h10.*... .v0nP = Summe v0n der Positionen .v0bP = Summe v0b der Positionen ENDWITH
Rückgabe:[Object], Datenabruf der Tabelle: 'H11' - 'Buchungspositionen'. loH11 = ...Misc.oH11[IDH11]
Wichtige Feldinformationen:
Primary Key ....: IDH11
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDH11
IC- Field...........: none
IP- Field...........: IPH11
IK- Field...........: none
Feldliste...........: KS1,KS2,IDH10,IPH11,IPH11S,IDH11,ICH11,ILH11,IDH19S,IDH19T,I...
Die Komplette Liste der Felder finden Sie unter: Buchungspositionen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oH11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH11[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDH11 erwartet! loRecord = My.Bussines.Strain.Misc.oH11[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH11 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'H18' - 'Kontenrahmen'. loH18 = ...Misc.oH18[IDH18|IPH18]
Wichtige Feldinformationen:
Primary Key ....: IDH18
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDH18
IC- Field...........: none
IP- Field...........: IPH18
IK- Field...........: none
Feldliste...........: IPH18,IDH18,ICH18,IFH18T,IFH18S,IFH18H,FNKTOV,FNKTOB,EAB,EAB...
Die Komplette Liste der Felder finden Sie unter: Kontenrahmen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oH18[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH18[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDH18 erwartet! loRecord = My.Bussines.Strain.Misc.oH18[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH18 ENDIF */ Abruf mittels eines definierten Sonderschlüssels lcKey = '' && Hier wird: IPH18 erwartet! loRecord = My.Bussines.Strain.Misc.oH18[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH18 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'H19' - 'Kontenschlüssel'. loH19 = ...Misc.oH19[IDH19]
Wichtige Feldinformationen:
Primary Key ....: IDH19
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDH19
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BABIC,BABLZ,BAIBAN,BAKTO,FIEGL,FIEGU,IPH18,IDH19,ICH19,ILH19...
Die Komplette Liste der Felder finden Sie unter: Kontenschlüssel
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oH19[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oH19[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDH19 erwartet! loRecord = My.Bussines.Strain.Misc.oH19[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDH19 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I01' - 'Artikel - Lagerorte'. loI01 = ...Misc.oI01[IDI01|IDB01+IDK10+IDC66]
Wichtige Feldinformationen:
Primary Key ....: IDI01
Secondary Key.: IDB01+IDK10+IDC66
EAN Key..........: none
ID- Field...........: IDI01
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATENT,DATIBW,DATINV,ENTKUM,IDC01,IDI01,IDK10,INVENTUR,LASTU...
Die Komplette Liste der Felder finden Sie unter: Artikel - Lagerorte
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI01 erwartet! loRecord = My.Bussines.Strain.Misc.oI01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI01 ENDIF */ Abruf mittels Secondary Key: lcKey = '' && Hier wird: IDB01+IDK10+IDC66 erwartet! loRecord = My.Bussines.Strain.Misc.oI01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI01 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Artikel - Lagerorte
Primärkey.: IDI01
EAN-Code..: IDB01+IDK10+IDC66
Candidate.: IDB01+IDK10+IDC66
Felder....: DATENT;DATIBW;DATINV;ENTKUM;IDC01;IDI01;IDK10;INVENTUR;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT;PREIS;TGKM;VO;VOB;VOG;VOMAX;VOM...
Object = My.Bussines.Strain.Misc.oI01S[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI01S[tcIndex1|,tiIndex1,tiIndex2]
*/ Abfrage... WHERE i01.IDB01+i01.IDK10+i01.IDC66 LIKE '<<m.tcPrimaryKey>>' */ Es werden die Summen aus: vo,vob,vor,vog,vov zurückgegeben! */ ODER */ Der Datensatz aus I01 mit einem Filter... LOCAL loI01s AS Object */ Hinweis: Der SQL wird IMMER mit i01.idb01+i01.idk10+i01.idc66 LIKE '....' gebildet! */ Platzhalter: % - Irgendeine Sequenz, _ - Irgendein Zeichen */ Summen... IDB01+IDK10, Lagerort beliebig loI01s = My.Bussines.Strain.Misc.oI01S[idb01+idk10+'%'] */ Summen... IDK10, Artikel und Lagerort beliebig loI01s = My.Bussines.Strain.Misc.oI01S['________'+idk10+'%'] */ Summen-Objekt WITH loI01s .vo - Summe physikalischer Bestand .vob - Summe bestellter Bestand .vog - Summe gesperrter Bestand .vor - Summe reservierter Bestand .vov - Summe verfügbarer Bestand .__Count = 1 ENDWITH */ Datensatzobjekt der Tabelle I01... */ Erster I01 Satz mit VOV>0 und einem beliebigen Lagerort loI01s = My.Bussines.Strain.Misc.oI01S['>'+idb01+idk10+'%'] loI01s.__Count => Anzahl der SQL Sätze */ Erster I01 Satz mit VOV=0 und einem beliebigen Lagerort loI01s = My.Bussines.Strain.Misc.oI01S['='+idb01+idk10+'%'] loI01s.__Count => Anzahl der SQL Sätze
Abruf der Mengen aus I01 über idb01+idk10+idc66. DIe Abfrage wird mit LIKE erwartet.
Das Objekt enthält in Summe die Mengenfelder VO, VOB, VOG, VOR und VOV...
Object = My.Bussines.Strain.Misc.oI01STq[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI01STq[tcIndex1|,tiIndex1,tiIndex2]
LOCAL loI01 AS Object */ Alle Mengen des Artikels loI01 = My.Bussines.Strain.Misc.oI01STq[idb01+"%"] */ Alle Stammlagermengen des Artikels loI01 = My.Bussines.Strain.Misc.oI01STq[idb01+SPACE(8)+"%"] */ Alle Wareneingangslagermengen des Artikels loI01 = My.Bussines.Strain.Misc.oI01STq[idb01+REPLICATE("#",8)+"%"] */ Alle Projektlagermengen loI01 = My.Bussines.Strain.Misc.oI01STq[idb01+"0%"] */ Alle Projektlagermengen mit Lagerort P* loI01 = My.Bussines.Strain.Misc.oI01STq[idb01+"0%P%"]
Object = My.Bussines.Strain.Misc.oI05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI05[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe:[Object], Datenabruf der Tabelle: 'I15' - 'Disposammelbuchungen'. loI15 = ...Misc.oI15[IDI15|IPE10+IDE10]
Wichtige Feldinformationen:
Primary Key ....: IDI15
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI15
IC- Field...........: NUMMER
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ART,AUSGABE,DPARA,GENBEST,IDE10,IDI15,IDK10,IPE10,LASTUPD,LD...
Die Komplette Liste der Felder finden Sie unter: Disposammelbuchungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI15[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI15 erwartet! loRecord = My.Bussines.Strain.Misc.oI15[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI15 ENDIF */ Abruf mittels eines definierten Sonderschlüssels lcKey = '' && Hier wird: IPE10+IDE10 erwartet! loRecord = My.Bussines.Strain.Misc.oI15[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI15 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I16' - 'Dispositionshinweise'. loI16 = ...Misc.oI16[IDI16]
Wichtige Feldinformationen:
Primary Key ....: IDI16
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI16
IC- Field...........: none
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: AUFART,AUFARTB,AUFTRAG,AUFTRAGB,DISWER,IDAUF,IDAUFP,IDI16,ID...
Die Komplette Liste der Felder finden Sie unter: Dispositionshinweise
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI16[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI16 erwartet! loRecord = My.Bussines.Strain.Misc.oI16[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI16 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I17' - 'Überschußmengen'. loI17 = ...Misc.oI17[IDI17]
Wichtige Feldinformationen:
Primary Key ....: IDI17
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI17
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDI17,IDK10,LASTUPD,MENGE,IDC66,IPB01,IDB01
Die Komplette Liste der Felder finden Sie unter: Überschußmengen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI17[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI17[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI17 erwartet! loRecord = My.Bussines.Strain.Misc.oI17[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI17 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I18' - 'Korrekturbuchungen'. loI18 = ...Misc.oI18[IDI18]
Wichtige Feldinformationen:
Primary Key ....: IDI18
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI18
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEARB,BUART,IDD41,IDD44,IDD55,IDI18,IDI21,IDI21S,LASTUPD,LDA...
Die Komplette Liste der Felder finden Sie unter: Korrekturbuchungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI18[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI18[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI18 erwartet! loRecord = My.Bussines.Strain.Misc.oI18[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI18 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I19' - 'Bestellvorschlag'. loI19 = ...Misc.oI19[IDI19]
Wichtige Feldinformationen:
Primary Key ....: IDI19
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI19
IC- Field...........: none
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: BEST,DATGPL,IDC31,IDD40,IDI19,IDI20,IDK10,IDPOS,IDZWI,IPC80,...
Die Komplette Liste der Felder finden Sie unter: Bestellvorschlag
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI19[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI19[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI19 erwartet! loRecord = My.Bussines.Strain.Misc.oI19[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI19 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I20' - 'Disposition'. loI20 = ...Misc.oI20[IDI20]
Wichtige Feldinformationen:
Primary Key ....: IDI20
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI20
IC- Field...........: none
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: BGCHK,DATGPL,IDB01K,IDC31,IDD40,IDD41,IDD51,IDI20,IDI25,IDK1...
Die Komplette Liste der Felder finden Sie unter: Disposition
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI20[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI20 erwartet! loRecord = My.Bussines.Strain.Misc.oI20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI20 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Disposition
Primärkey.: IDI20
EAN-Code..: nd...
Candidate.: nd...
Felder....: BGCHK;DATGPL;IDB01K;IDC31;IDD40;IDD41;IDD51;IDI20;IDK10;IDPOS;IDZWI;IPC80;IPZWI;LASTUPD;LDATUM;LPRG;LWER;LZEIT;MENGE_I;MENGE_L;MENGE_O;MENGE...
Object = My.Bussines.Strain.Misc.oI20St[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI20St[tcIndex1|,tiIndex1,tiIndex2]
LOCAL lcKey AS String , loStatus AS Object lcKey = ipzwi+'|'+idzwi+'|'+idpos loStatus= My.Bussines.Strain.Misc.oI20St[m.lcKey] */ Das Objekt Status hat folgende Struktur: Ipzwi ="101" Idzwi ="M0001091" Idpos ="M0025922" */ BG-Kopfdaten bzw. Einzelartikel Mgsg =5 && Sollmenge Mgog =5 && Offene Menge Mgig =0 && Gelieferte Menge Stg ="RVLSSUEBBKSTrR W" && Gesamtstatus */ Daraus vom Lager Mgsl =5 Mgol =5 Mgil =0 Stkl =" S " */ Daraus aus Bestellungen Mgsb =0 Mgob =0 Mgib =0 Stkb =" " */ BG-Positionsdaten... nur gefüllt, wenn es eine 'aufgelöste' Baugruppe ist Mgsgp =50 Mgigp =15 Mgogp =35 */ Daraus vom Lager Mgslp =25 Mgilp =15 Mgolp =10 Stpl ="RVSSL " */ Daraus aus Bestellungen Mgsbp =25 Mgibp =0 Mgobp =25 Stpb =" FF "
Es wird ein Objekt mit den Summen der Mengen zurückgegeben.
Artikel|Projekt|Lagerort|IPauf|IDauf
Object = My.Bussines.Strain.Misc.oI20StB[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI20StB[tcIndex1|,tiIndex1,tiIndex2]
*/ Beispiel: LOCAL loDispo AS Object */ Filter auf... loDispo = My.Bussines.Strain.Misc.oI20StB[idb01+'|'+idk10+'|'+idc66] IF m.loDispo.__LastGet>0 TEXT TO lcText NOSHOW TEXTMERGE PRETEXT 3 Menge_S = <<STR(loDispo._mgs,10,3)>> Menge_O = <<STR(loDispo._mgo,10,3)>> Menge_I = <<STR(loDispo._mgi,10,3)>> ENDTEXT =MESSAGEBOX(m.lcText,64,"Info...") ENDIF */ Filter auf Vorgangsart (CAE-Listen) loDispo = My.Bussines.Strain.Misc.oI20StB[idb01+'|'+idk10+'|'+idc66+'|'+'108'] IF m.loDispo.__LastGet>0 TEXT TO lcText NOSHOW TEXTMERGE PRETEXT 3 Menge_S = <<STR(loDispo._mgs,10,3)>> Menge_O = <<STR(loDispo._mgo,10,3)>> Menge_I = <<STR(loDispo._mgi,10,3)>> ENDTEXT =MESSAGEBOX(m.lcText,64,"Info...") ENDIF */ Filter auf Vorgangsart und VorgangsID (CAE-Liste) loDispo = My.Bussines.Strain.Misc.oI20StB[idb01+'|'+idk10+'|'+idc66+'|'+'108'+'|'+ide10] IF m.loDispo.__LastGet>0 TEXT TO lcText NOSHOW TEXTMERGE PRETEXT 3 Menge_S = <<STR(loDispo._mgs,10,3)>> Menge_O = <<STR(loDispo._mgo,10,3)>> Menge_I = <<STR(loDispo._mgi,10,3)>> ENDTEXT =MESSAGEBOX(m.lcText,64,"Info...") ENDIF
Dieser Datenabruf gibt die Dispositionsmengen für eine Vorgangsposition bzw. Artikelposition zurück.
Die Summenspalten haben den gleichen Namen wie die Mengenfelder in der Disposition.
Object = My.Bussines.Strain.Misc.oI20StQ[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI20StQ[tcIndex1|,tiIndex1,tiIndex2]
*/ Beispiel LOCAL loI20Sum AS Object loI20Sum = My.Bussines.Strain.Misc.oI20StQ["1"+e10.ipy01+e10.ide10+e11.ide11] */ Das zurückgegebene Objekt hat die Properties WITH loI20Sum .menge_s - Sollmenge .menge_o - Offene Menge .menge_i - Gelieferte Menge .menge_l - Rückgemeldete Menge (BG) .menge_r - Zurückgelieferte Menge .menge_v - <frei> ENDWITH
Rückgabe:[Object], Datenabruf der Tabelle: 'I21' - 'Buchungsjournal'. loI21 = ...Misc.oI21[IDI21]
Wichtige Feldinformationen:
Primary Key ....: IDI21
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI21
IC- Field...........: none
IP- Field...........: BUART
IK- Field...........: none
Feldliste...........: BUART,DATBUCH,IDAUF,IDC01,IDC31,IDC6X,IDI21,IDI21S,IDK10,IDP...
Die Komplette Liste der Felder finden Sie unter: Buchungsjournal
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI21[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI21 erwartet! loRecord = My.Bussines.Strain.Misc.oI21[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI21 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I22' - 'Lagerumbuchungen'. loI22 = ...Misc.oI22[IDI22]
Wichtige Feldinformationen:
Primary Key ....: IDI22
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI22
IC- Field...........: MATCH
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: FLAG,GRUND,I22LDOI20,I22LNOI20,I22LUEBER,IDC64,IDI22,IDK10,I...
Die Komplette Liste der Felder finden Sie unter: Lagerumbuchungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI22[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI22[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI22 erwartet! loRecord = My.Bussines.Strain.Misc.oI22[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI22 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Lagerumbuchungen
Primärkey.: IDI22
EAN-Code..: nd...
Candidate.: MATCH
Felder....: FLAG;GRUND;I22LDOI20;I22LNOI20;I22LUEBER;IDC64;IDI22;IDK10;IDZWI;IPI22S;IPZWI;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NEU221;NPRG;NUMMER;NWER;...
Object = My.Bussines.Strain.Misc.oI22st[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI22st[tcIndex1|,tiIndex1,tiIndex2]
*/ Hier nun der Codeabschnitt zum ausprobieren der Funktion */ In einer 'freien' Umgebung, d.h. ohne die Unterstützung des Systems müssen Sie zuerst */ Die Variable My definieren. Es wird von einem Programm ausgegangen, dass Sie mit VFP-9 starten! */ Wir gehen in das Startverzeichnis von PMS32 CD c:\pms\pms32 */ Definieren von MY (immer PUBLIC!) PUBLIC My */ Instanziieren des Objekts My = NEWOBJECT('pmsmy','pmsmyhandler.vcx','pmsmyhandler.app') */ Zuweisen des letzten aktiven Mandanten */ Die Mandanten-ID's können Sie aus der Definitionsdatei PMS32.PTH ersehen! My.cIdx02 = My.cIdx02 && Oder: My.cIdx02 = "MANDANTEN_ID" */ Benutzen Sie den oberen Codeabschnitt NICHT, wenn Sie einen Test in PMS32K.EXE machen! LOCAL loI22st AS Object , lcId AS String, lcText AS String */ Abruf des Datensatzes aus der Datenbank... lcId = "" && Benötigt wird: IDI22 IF !EMPTY(m.lcId) loI22st = My.Bussines.Strain.Misc.oI22st[m.lcId] */ Wird erzeugen eine Textanzeige... WITH loI22st TEXT TO lcText NOSHOW TEXTMERGE PRETEXT 3 .idi22 = '<<.idi22>>' - Abgefragte ID .count = <<.count>> - Anzahl der Datensätze in I23 zu idi22 .gebu = <<.gebu>> - Anzahl der ABgebuchten Datensätze .zuga = <<.zuga>> - Anzahl der ZUgebuchten Datensätze .storno= <<.storno>> - Anzahl der stornierten Datensätze .ngebu = <<.ngebu>> - Anzahl der NICHT ABgebuchten Datensätze .nzuga = <<.nzuga>> - Anzahl der NICHT ZUgebuchten Datensätze .nstorno= <<.nstorno>> - Anzahl der NICHT stornierten Datensätze .d40v = <<.d40v>> - Anzahl der Datensätze aus einer Bestellung .i01v = <<.i01v>> - Anzahl der Datensätze aus dem Stammlager .k10v = <<.k10v>> - Anzahl der Datensätze aus einem Projekt .d40a = <<.d40a>> - Anzahl der Datensätze an eine Bestellung .i01a = <<.i01a>> - Anzahl der Datensätze an das Stammlager .k10a = <<.k10a>> - Anzahl der Datensätze an ein Projekt ENDTEXT ENDWITH */ Anzeige... =MESSAGEBOX(m.lcText,64,"Information oI22st!") ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I23' - 'Lagerumbuchungen -Pos'. loI23 = ...Misc.oI23[IDI23]
Wichtige Feldinformationen:
Primary Key ....: IDI23
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI23
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATBUCH,GEBU,GRUND,IDAUFA,IDAUFV,IDC01A,IDC01V,IDC66A,IDC66V...
Die Komplette Liste der Felder finden Sie unter: Lagerumbuchungen -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI23[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI23[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI23 erwartet! loRecord = My.Bussines.Strain.Misc.oI23[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI23 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Lagerumbuchungen -Pos
Primärkey.: IDI23
EAN-Code..: nd...
Candidate.: nd...
Felder....: DATBUCH;GEBU;GRUND;IDAUFA;IDAUFV;IDC01A;IDC01V;IDC66A;IDC66V;IDD51V;IDI20;IDI21A;IDI21V;IDI22;IDI23;IDI33;IDK10A;IDK10V;INFO;IPAUFA;IPAUFV;L...
Object = My.Bussines.Strain.Misc.oI23StI20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI23StI20[tcIndex1|,tiIndex1,tiIndex2]
*/ Folgender SQL wird erstellt... SELECT ; MAX(b01.STATUS) AS sta,; SUM(IIF(i23.idk10v="########",1,0)) AS vnb,; SUM(IIF(i23.idk10v==b01.idk10,1,0)) AS vns; FROM CDBFDIR!I23 AS i23, CDBFDIR!B01.dbf AS b01+; WHERE i23.idi20=m.tcIdi20 AND i23.idb01=b01.idb01
Rückgabe:[Object], Datenabruf der Tabelle: 'I24' - 'Fertigungsaufträge'. loI24 = ...Misc.oI24[IDI24|IEI24]
Wichtige Feldinformationen:
Primary Key ....: IDI24
Secondary Key.: none
EAN Key..........: IEI24
ID- Field...........: IDI24
IC- Field...........: MATCH
IP- Field...........: IPZWI
IK- Field...........: none
Feldliste...........: ANF,BDEUEB,BDEUEBF,DATUM,FPARAC2,FPARAC3,FPARAD1,FPARAD2,FPA...
Die Komplette Liste der Felder finden Sie unter: Fertigungsaufträge
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI24[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI24[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI24 erwartet! loRecord = My.Bussines.Strain.Misc.oI24[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI24 ENDIF */ Abruf mittels EAN Key: lcKey = '' && Hier wird: IEI24 erwartet! loRecord = My.Bussines.Strain.Misc.oI24[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI24 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I25' - 'Fertigungsaufträge -Pos'. loI25 = ...Misc.oI25[IDI25]
Wichtige Feldinformationen:
Primary Key ....: IDI25
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI25
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBU,IDF02,IDI21,IDI24,IDI25,IDK10,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Fertigungsaufträge -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI25[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI25[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI25 erwartet! loRecord = My.Bussines.Strain.Misc.oI25[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI25 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I26' - 'Materialanforderung auto'. loI26 = ...Misc.oI26[IDI26]
Wichtige Feldinformationen:
Primary Key ....: IDI26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI26
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,GRUND,IDC31,IDC64,IDI26,INDISPO,IPI26S,LASTUPD,LDATUM,...
Die Komplette Liste der Felder finden Sie unter: Materialanforderung auto
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI26[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI26[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI26 erwartet! loRecord = My.Bussines.Strain.Misc.oI26[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI26 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I27' - 'Materialanforderung -Pos'. loI27 = ...Misc.oI27[IDI27]
Wichtige Feldinformationen:
Primary Key ....: IDI27
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI27
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATGPL,GEBUCHT,IDB01K,IDC31,IDI20,IDI26,IDI27,IDI27K,IDK10,I...
Die Komplette Liste der Felder finden Sie unter: Materialanforderung -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI27[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI27[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI27 erwartet! loRecord = My.Bussines.Strain.Misc.oI27[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI27 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I28' - 'Materialanforderung man.'. loI28 = ...Misc.oI28[IDI28]
Wichtige Feldinformationen:
Primary Key ....: IDI28
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI28
IC- Field...........: MATCH
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: DATUM,GRUND,IDC31,IDC64,IDE10,IDI28,INDISPO,IPI28S,IPY01,LAS...
Die Komplette Liste der Felder finden Sie unter: Materialanforderung man.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI28[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI28[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI28 erwartet! loRecord = My.Bussines.Strain.Misc.oI28[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI28 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I29' - 'Materialanforderung -Pos'. loI29 = ...Misc.oI29[IDI29]
Wichtige Feldinformationen:
Primary Key ....: IDI29
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI29
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: DATGPL,GEBUCHT,IDB01K,IDC31,IDE10,IDI20,IDI28,IDI29,IDI29K,I...
Die Komplette Liste der Felder finden Sie unter: Materialanforderung -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI29[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI29[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI29 erwartet! loRecord = My.Bussines.Strain.Misc.oI29[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI29 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I30' - 'Lagerzugänge'. loI30 = ...Misc.oI30[IDI30]
Wichtige Feldinformationen:
Primary Key ....: IDI30
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI30
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BELEG,DATUM,GEBUCHT,GMWST,GPREIS_B,GPREIS_N,GRUND,IDC64,IDI3...
Die Komplette Liste der Felder finden Sie unter: Lagerzugänge
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI30[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI30 erwartet! loRecord = My.Bussines.Strain.Misc.oI30[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI30 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Lagerzugänge
Primärkey.: IDI30
EAN-Code..: nd...
Candidate.: MATCH
Felder....: BELEG;DATUM;GEBUCHT;GMWST;GPREIS_B;GPREIS_N;GRUND;IDC64;IDI30;LASTUPD;LDATUM;LPRG;LWER;LZEIT;L_UEBER;NDATUM;NPRG;NWER;NZEIT;MATCH
Object = My.Bussines.Strain.Misc.oI30st[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI30st[tcIndex1|,tiIndex1,tiIndex2]
*/ Hier nun der Codeabschnitt zum ausprobieren der Funktion */ In einer 'freien' Umgebung, d.h. ohne die Unterstützung des Systems müssen Sie zuerst */ Die Variable My definieren. Es wird von einem Programm ausgegangen, dass Sie mit VFP-9 starten! */ Wir gehen in das Startverzeichnis von PMS32 CD c:\pms\pms32 */ Definieren von MY (immer PUBLIC!) PUBLIC My */ Instanziieren des Objekts My = NEWOBJECT('pmsmy','pmsmyhandler.vcx','pmsmyhandler.app') */ Zuweisen des letzten aktiven Mandanten */ Die Mandanten-ID's können Sie aus der Definitionsdatei PMS32.PTH ersehen! My.cIdx02 = My.cIdx02 && Oder: My.cIdx02 = "MANDANTEN_ID" */ Benutzen Sie den oberen Codeabschnitt NICHT, wenn Sie einen Test in PMS32K.EXE machen! LOCAL loI30st AS Object , lcId AS String, lcText AS String */ Abruf des Datensatzes aus der Datenbank... lcId = "" && Benötigt wird: IDI30 IF !EMPTY(m.lcId) loI30st = My.Bussines.Strain.Misc.oI30st[m.lcId] */ Wird erzeugen eine Textanzeige... WITH loI30st TEXT TO lcText NOSHOW TEXTMERGE PRETEXT 3 .idi30 = '<<.idi30>>' - Abgefragte ID .count = <<.count>> - Anzahl der Datensätze in I31 zu idi30 .gebu = <<.gebu>> - Anzahl der gebuchten Datensätze .storno= <<.storno>> - Anzahl der stornierten Datensätze .ngebu = <<.ngebu>> - Anzahl der NICHT gebuchten Datensätze .nstorno= <<.nstorno>> - Anzahl der NICHT stornierten Datensätze .d40 = <<.d40>> - Anzahl der Datensätze an eine Bestellung .i01 = <<.i01>> - Anzahl der Datensätze an das Stammlager .k10 = <<.k10>> - Anzahl der Datensätze an ein Projekt ENDTEXT ENDWITH */ Anzeige... =MESSAGEBOX(m.lcText,64,"Information oI30st!") ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I31' - 'Lagerzugänge -Pos'. loI31 = ...Misc.oI31[IDI31]
Wichtige Feldinformationen:
Primary Key ....: IDI31
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI31
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBU,GRUND,IDAUF,IDI21,IDI30,IDI31,IDK10,INFO,IPAUF,LASTUPD,...
Die Komplette Liste der Felder finden Sie unter: Lagerzugänge -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI31[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI31[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI31 erwartet! loRecord = My.Bussines.Strain.Misc.oI31[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI31 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I32' - 'Lagerabgänge'. loI32 = ...Misc.oI32[IDI32]
Wichtige Feldinformationen:
Primary Key ....: IDI32
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI32
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BELEG,DATUM,GEBUCHT,GMWST,GPREIS_B,GPREIS_N,GRUND,IDC32,IDC6...
Die Komplette Liste der Felder finden Sie unter: Lagerabgänge
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI32[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI32[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI32 erwartet! loRecord = My.Bussines.Strain.Misc.oI32[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI32 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Lagerabgänge
Primärkey.: IDI32
EAN-Code..: nd...
Candidate.: MATCH
Felder....: BELEG;DATUM;GEBUCHT;GMWST;GPREIS_B;GPREIS_N;GRUND;IDC32;IDC64;IDE10;IDI22;IDI32;IDK10;IPI32;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;...
Object = My.Bussines.Strain.Misc.oI32st[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI32st[tcIndex1|,tiIndex1,tiIndex2]
*/ Hier nun der Codeabschnitt zum ausprobieren der Funktion */ In einer 'freien' Umgebung, d.h. ohne die Unterstützung des Systems müssen Sie zuerst */ Die Variable My definieren. Es wird von einem Programm ausgegangen, dass Sie mit VFP-9 starten! */ Wir gehen in das Startverzeichnis von PMS32 CD c:\pms\pms32 */ Definieren von MY (immer PUBLIC!) PUBLIC My */ Instanziieren des Objekts My = NEWOBJECT('pmsmy','pmsmyhandler.vcx','pmsmyhandler.app') */ Zuweisen des letzten aktiven Mandanten */ Die Mandanten-ID's können Sie aus der Definitionsdatei PMS32.PTH ersehen! My.cIdx02 = My.cIdx02 && Oder: My.cIdx02 = "MANDANTEN_ID" */ Benutzen Sie den oberen Codeabschnitt NICHT, wenn Sie einen Test in PMS32K.EXE machen! LOCAL loI32st AS Object , lcId AS String, lcText AS String */ Abruf des Datensatzes aus der Datenbank... lcId = "" && Benötigt wird: IDI32 IF !EMPTY(m.lcId) loI32st = My.Bussines.Strain.Misc.oI32st[m.lcId] */ Wird erzeugen eine Textanzeige... WITH loI32st TEXT TO lcText NOSHOW TEXTMERGE PRETEXT 3 .idi32 = '<<.idi32>>' - Abgefragte ID .count = <<.count>> - Anzahl der Datensätze in I33 zu idi32 .gebu = <<.gebu>> - Anzahl der gebuchten Datensätze .storno= <<.storno>> - Anzahl der stornierten Datensätze .ngebu = <<.ngebu>> - Anzahl der NICHT gebuchten Datensätze .nstorno= <<.nstorno>> - Anzahl der NICHT stornierten Datensätze .d40 = <<.d40>> - Anzahl der Datensätze aus einer Bestellung .i01 = <<.i01>> - Anzahl der Datensätze aus dem Stammlager .k10 = <<.k10>> - Anzahl der Datensätze aus einem Projekt ENDTEXT ENDWITH */ Anzeige... =MESSAGEBOX(m.lcText,64,"Information oI32st!") ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I33' - 'Lagerabgänge -Pos'. loI33 = ...Misc.oI33[IDI33]
Wichtige Feldinformationen:
Primary Key ....: IDI33
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI33
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: GEBU,GRUND,IDAUF,IDI21,IDI32,IDI33,IDK10,INFO,IPAUF,LASTUPD,...
Die Komplette Liste der Felder finden Sie unter: Lagerabgänge -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI33[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI33[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI33 erwartet! loRecord = My.Bussines.Strain.Misc.oI33[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI33 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I40' - 'Inventur'. loI40 = ...Misc.oI40[IDI40]
Wichtige Feldinformationen:
Primary Key ....: IDI40
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI40
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ADATUM,ALLNIL,ARTNRB,ARTNRV,BUERR,DDATUM,GJAHR,IDC03,IDC25B,...
Die Komplette Liste der Felder finden Sie unter: Inventur
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI40[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI40 erwartet! loRecord = My.Bussines.Strain.Misc.oI40[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI40 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Inventur
Primärkey.: IDI40
EAN-Code..: nd...
Candidate.: MATCH
Felder....: ADATUM;ALLNIL;ARTNRB;ARTNRV;BUERR;DDATUM;GJAHR;IDC03;IDC25B;IDC25V;IDC42EKB;IDC42EKV;IDC42VKB;IDC42VKV;IDC44B;IDC44V;IDC65;IDI40;IDK10B;IDK1...
Object = My.Bussines.Strain.Misc.oI40F[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI40F[tcIndex1|,tiIndex1,tiIndex2]
*/ Abruf der Tabelle I40 unter Angabe eines Filters */ Es wird IMMER der 'Erste' Datensatz zurückgegeben!
Rückgabe:[Object], Datenabruf der Tabelle: 'I41' - 'Inventur -Pos'. loI41 = ...Misc.oI41[IDI41]
Wichtige Feldinformationen:
Primary Key ....: IDI41
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI41
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BDATUM,BMENGE,BPREIS,BUERR,CPOSNR,DT1,DT2,DT3,DT4,DT5,DT6,DT...
Die Komplette Liste der Felder finden Sie unter: Inventur -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI41[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI41[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI41 erwartet! loRecord = My.Bussines.Strain.Misc.oI41[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI41 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I50' - 'Inventurbewertung'. loI50 = ...Misc.oI50[IDI50]
Wichtige Feldinformationen:
Primary Key ....: IDI50
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI50
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,DATUM,IDC25B,IDC25V,IDC42EKB,IDC42EKV,IDC42VKB...
Die Komplette Liste der Felder finden Sie unter: Inventurbewertung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI50[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI50[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI50 erwartet! loRecord = My.Bussines.Strain.Misc.oI50[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI50 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I51' - 'Inventurbewertung -Pos'. loI51 = ...Misc.oI51[IDI51]
Wichtige Feldinformationen:
Primary Key ....: IDI51
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI51
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDC81,IDC84,IDD44NW,IDI50,IDI51,IDK10,IDX06,LASTUPD,LDATUM,L...
Die Komplette Liste der Felder finden Sie unter: Inventurbewertung -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI51[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI51[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI51 erwartet! loRecord = My.Bussines.Strain.Misc.oI51[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI51 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I52' - 'Inventurbewertung -U.Pos'. loI52 = ...Misc.oI52[IDI51]
Wichtige Feldinformationen:
Primary Key ....: IDI51
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATBUCH,IDI21,IDI51,IDI52,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDA...
Die Komplette Liste der Felder finden Sie unter: Inventurbewertung -U.Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI52[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI52[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI51 erwartet! loRecord = My.Bussines.Strain.Misc.oI52[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.DATBUCH ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I54' - 'Wertminderungen'. loI54 = ...Misc.oI54[IDI51]
Wichtige Feldinformationen:
Primary Key ....: IDI51
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATMOD,DVERBRAUCH,EWEITE,IDC84,IDI51,KENN,LASTUPD,LDATUM,LPR...
Die Komplette Liste der Felder finden Sie unter: Wertminderungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI54[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI54[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI51 erwartet! loRecord = My.Bussines.Strain.Misc.oI54[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.DATMOD ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'I55' - 'Bewertungsfehler'. loI55 = ...Misc.oI55[IDI55]
Wichtige Feldinformationen:
Primary Key ....: IDI55
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDI55
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BUART,DATBIS,DATBUCH,DATVON,IDAUF,IDI21,IDI21BIS,IDI21S,IDI5...
Die Komplette Liste der Felder finden Sie unter: Bewertungsfehler
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oI55[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI55[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDI55 erwartet! loRecord = My.Bussines.Strain.Misc.oI55[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDI55 ENDIF
Object = My.Bussines.Strain.Misc.oI62[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI62[tcIndex1|,tiIndex1,tiIndex2]
Object = My.Bussines.Strain.Misc.oI63[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oI63[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe:[Object], Datenabruf der Tabelle: 'J30' - 'BDE-Aufträge'. loJ30 = ...Misc.oJ30[IDJ30+STR(AFO_NR,3)]
Wichtige Feldinformationen:
Primary Key ....: IDJ30+STR(AFO_NR,3)
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDJ30
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,ERFASST,IDE10,KUNDE,LIEFER,LOEMON,PROJEKT,UEBERGEBEN,IDJ...
Die Komplette Liste der Felder finden Sie unter: BDE-Aufträge
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oJ30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oJ30[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDJ30+STR(AFO_NR,3) erwartet! loRecord = My.Bussines.Strain.Misc.oJ30[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDJ30 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'J32' - 'Auftragsdatenimport BDE'. loJ32 = ...Misc.oJ32[IDJ32]
Wichtige Feldinformationen:
Primary Key ....: IDJ32
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDJ32
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,IDC64,IDJ32,LOHNART,LOHNPROZ,STUNDEN
Die Komplette Liste der Felder finden Sie unter: Auftragsdatenimport BDE
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oJ32[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oJ32[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDJ32 erwartet! loRecord = My.Bussines.Strain.Misc.oJ32[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDJ32 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'J40' - 'BDE-Übergaben'. loJ40 = ...Misc.oJ40[IDJ40|IEJ40]
Wichtige Feldinformationen:
Primary Key ....: IDJ40
Secondary Key.: none
EAN Key..........: IEJ40
ID- Field...........: IDJ40
IC- Field...........: ICJ40
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ALDATUM,ANDATUM,DATUEB,ICJ40,IDAUF,IDJ40,IDK10,IEJ40,IPAUF,I...
Die Komplette Liste der Felder finden Sie unter: BDE-Übergaben
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oJ40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oJ40[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDJ40 erwartet! loRecord = My.Bussines.Strain.Misc.oJ40[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDJ40 ENDIF */ Abruf mittels EAN Key: lcKey = '' && Hier wird: IEJ40 erwartet! loRecord = My.Bussines.Strain.Misc.oJ40[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDJ40 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'J41' - 'BDE-Übergaben -Pos'. loJ41 = ...Misc.oJ41[IDJ41]
Wichtige Feldinformationen:
Primary Key ....: IDJ41
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDJ41
IC- Field...........: none
IP- Field...........: IPJ41
IK- Field...........: none
Feldliste...........: AFONR,BEMERKUNG,DATBIS,DATVON,GRUPPE1,GRUPPE2,IDC02,IDC32,ID...
Die Komplette Liste der Felder finden Sie unter: BDE-Übergaben -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oJ41[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oJ41[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDJ41 erwartet! loRecord = My.Bussines.Strain.Misc.oJ41[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDJ41 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'K06' - 'Vorgänge - Edelmetalle'. loK06 = ...Misc.oK06[IDK06]
Wichtige Feldinformationen:
Primary Key ....: IDK06
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDK06
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,DATUM,GEWI,IDC26,IDC98,IDE10,IDK06,LASTUPD,LDATUM,LPRG...
Die Komplette Liste der Felder finden Sie unter: Vorgänge - Edelmetalle
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oK06[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oK06[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDK06 erwartet! loRecord = My.Bussines.Strain.Misc.oK06[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDK06 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'K10' - 'Projekte'. loK10 = ...Misc.oK10[IDK10|IEK10]
Wichtige Feldinformationen:
Primary Key ....: IDK10
Secondary Key.: none
EAN Key..........: IEK10
ID- Field...........: IDK10
IC- Field...........: PRJNR
IP- Field...........: IPK10
IK- Field...........: none
Feldliste...........: AMANID,E10EDP,GESPERRT,GETB01C66,IEK10,IPK10,BEZ,D_BEGINN,D_...
Die Komplette Liste der Felder finden Sie unter: Projekte
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oK10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oK10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDK10 erwartet! loRecord = My.Bussines.Strain.Misc.oK10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDK10 ENDIF */ Abruf mittels EAN Key: lcKey = '' && Hier wird: IEK10 erwartet! loRecord = My.Bussines.Strain.Misc.oK10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDK10 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Projekte
Primärkey.: IDK10
EAN-Code..: IEK10
Candidate.: PRJNR
Felder....: AMANID;E10EDP;GESPERRT;GETB01C66;IEK10;IPK10;BEZ;D_BEGINN;D_ENDE;D_ERLOESE;IDC63;D_ERTRAEGE;D_FERT_GRA;IDC66;D_FERT_ZEI;NV03FV;NV03HV;D_KOST...
Object = My.Bussines.Strain.Misc.oK10c[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oK10c[tcIndex1|,tiIndex1,tiIndex2]
*/ Wie oK10[] jedoch unter Angabe der Projektnummer LOCAL loK10 AS Object loK10 = My.Bussines.Strain.Misc.oK10c['PROJEKTNUMMER']
Rückgabe:[Object], Datenabruf der Tabelle: 'K11' - 'Projektzuordnungen'. loK11 = ...Misc.oK11[IDK11]
Wichtige Feldinformationen:
Primary Key ....: IDK11
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDK11
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: ICK11,IDE10,IDK11,PROPS,HSTATUS2,IDK10,IDXXX,IDYYY,IPY01,LAS...
Die Komplette Liste der Felder finden Sie unter: Projektzuordnungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oK11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oK11[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDK11 erwartet! loRecord = My.Bussines.Strain.Misc.oK11[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDK11 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'K12' - 'ausgelagerte Projekte'. loK12 = ...Misc.oK12[IDK12]
Wichtige Feldinformationen:
Primary Key ....: IDK12
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDK12
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDE10,IDK10,IDK12,IPE10,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATU...
Die Komplette Liste der Felder finden Sie unter: ausgelagerte Projekte
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oK12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oK12[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDK12 erwartet! loRecord = My.Bussines.Strain.Misc.oK12[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDK12 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'K20' - 'Projektlagerauflösung'. loK20 = ...Misc.oK20[IDK20]
Wichtige Feldinformationen:
Primary Key ....: IDK20
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDK20
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ICI22,ICI40,ICI50,ICK10,IDI22,IDI40,IDI50,IDK10,IDK20,IPK20,...
Die Komplette Liste der Felder finden Sie unter: Projektlagerauflösung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oK20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oK20[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDK20 erwartet! loRecord = My.Bussines.Strain.Misc.oK20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDK20 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'K30' - 'Prognosen Kopftabelle'. loK30 = ...Misc.oK30[IDK30]
Wichtige Feldinformationen:
Primary Key ....: IDK30
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDK30
IC- Field...........: ICK30
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ANZEIGE,DTBIS,DTVON,ICE10,ICK10,ICK30,IDE10,IDK10,IDK30,IPK3...
Die Komplette Liste der Felder finden Sie unter: Prognosen Kopftabelle
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oK30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oK30[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDK30 erwartet! loRecord = My.Bussines.Strain.Misc.oK30[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDK30 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'K31' - 'Prognosen Positionen'. loK31 = ...Misc.oK31[IDK31]
Wichtige Feldinformationen:
Primary Key ....: IDK31
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDK31
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DA1,DA2,DA3,DA4,DA5,DTAN,DTCH,ICK31F,IDK30,IDK31,LASTUPD,LDA...
Die Komplette Liste der Felder finden Sie unter: Prognosen Positionen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oK31[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oK31[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDK31 erwartet! loRecord = My.Bussines.Strain.Misc.oK31[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDK31 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'L20' - 'Dokumente'. loL20 = ...Misc.oL20[IDL20]
Wichtige Feldinformationen:
Primary Key ....: IDL20
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDL20
IC- Field...........: ICL20
IP- Field...........: none
IK- Field...........: IKL20
Feldliste...........: CDBF,ICL20,ICL20F,IDDBF,IDL20,IDL21,IKL20,ITL20,LASTUPD,LDAT...
Die Komplette Liste der Felder finden Sie unter: Dokumente
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oL20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oL20[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDL20 erwartet! loRecord = My.Bussines.Strain.Misc.oL20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDL20 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Dokumente
Primärkey.: IDL20
EAN-Code..: nd...
Candidate.: nd...
Felder....: CDBF;ICL20;ICL20F;IDDBF;IDL20;IDL21;IKL20;ITL20;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NOTIZ;NPRG;NWER;NZEIT
Object = My.Bussines.Strain.Misc.oL20TIG[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oL20TIG[tcIndex1|,tiIndex1,tiIndex2]
*/ Hier nun der Abruf der Daten über Tabelle:idTabelle[:idDokumentengruppe] LOCAL loL20 AS Object */ Abruf des Datensatzes aus der Datenbank... */ Das 'erste' Dokument, dass zur angegebenen Artikel-ID angelegt wurde... loDbf = My.Bussines.Strain.Misc.oL20TIG['B01:00004356'] */ Prüfung, ob auch etwas gefunden wurde. Der Schlüssel könnte leer sein! IF .NOT. EMPTY(loDbf.IDL20) */ Dann wurde ein Datensatz aus: L20 - Dokumente gelesen IF _VFP.StartMode=0 ACTIVATE SCREEN ? "ID=",loDbf.IDL20,loDbf.DNL20 ELSE WAIT WINDOW "ID="+loDbf.IDL20 ENDIF ENDIF */ Das 'erste' Dokument, dass zur angegebenen Artikel-ID und Dokumentengruppe angelegt wurde... loDbf = My.Bussines.Strain.Misc.oL20TIG['B01:00004356:WICHTIG'] */ Das 'erste' Dokument, dass zur angegebenen Vorgangs-ID angelegt wurde... loDbf = My.Bussines.Strain.Misc.oL20TIG['E10:00004356'] */ Prüfung, ob auch etwas gefunden wurde. Der Schlüssel könnte leer sein! IF .NOT. EMPTY(loDbf.IDL20) */ Dann wurde ein Datensatz aus: L20 - Dokumente gelesen IF _VFP.StartMode=0 ACTIVATE SCREEN ? "ID=",loDbf.IDL20,loDbf.DNL20 ELSE WAIT WINDOW "ID="+loDbf.IDL20 ENDIF ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'L21' - 'Dokumentgruppen'. loL21 = ...Misc.oL21[IDL21]
Wichtige Feldinformationen:
Primary Key ....: IDL21
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDL21
IC- Field...........: ICL21
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ICL21,IDL21,ITL21,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Dokumentgruppen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oL21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oL21[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDL21 erwartet! loRecord = My.Bussines.Strain.Misc.oL21[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDL21 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'L26' - 'Übersetzungen'. loL26 = ...Misc.oL26[IDL26+IDC26|IDL26+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDL26+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDL26
IC- Field...........: ICL26
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ICL26,ICL262,ICL263,IDC26,IDL26,LASTUPD,LDATUM,LPRG,LWER,LZE...
Die Komplette Liste der Felder finden Sie unter: Übersetzungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oL26[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oL26[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDL26+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idl26|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDL26)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDL26 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oL26[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDL26 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDL26 erwartet! loRecord = My.Bussines.Strain.Misc.oL26[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDL26 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'L26' - 'Übersetzungen'. loL26 = ...Misc.oL26T[IDL26+IDC26|IDL26+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDL26+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDL26
IC- Field...........: ICL26
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ICL26,ICL262,ICL263,IDC26,IDL26,LASTUPD,LDATUM,LPRG,LWER,LZE...
Die Komplette Liste der Felder finden Sie unter: Übersetzungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
... = My.Bussines.Strain.Misc.oL26T[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] ... = My.Bussines.Strain.Misc.oL26T[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDL26+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idl26|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDL26)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDL26 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oL26T[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDL26 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDL26 erwartet! loRecord = My.Bussines.Strain.Misc.oL26T[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDL26 ENDIF */ Die Strings: ICL26,ICL262 und ICL263 sind getrimmt!
Rückgabe:[Object], Datenabruf der Tabelle: 'O01' - 'Kanaldaten'. loO01 = ...Misc.oO01[IDO01]
Wichtige Feldinformationen:
Primary Key ....: IDO01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO01
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEDEUTUNG,IDO01,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,N...
Die Komplette Liste der Felder finden Sie unter: Kanaldaten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO01 erwartet! loRecord = My.Bussines.Strain.Misc.oO01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O02' - 'Anschlußgruppe'. loO02 = ...Misc.oO02[IDO02]
Wichtige Feldinformationen:
Primary Key ....: IDO02
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEDEUTUNG,IDO01,IDO02,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,...
Die Komplette Liste der Felder finden Sie unter: Anschlußgruppe
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO02[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO02 erwartet! loRecord = My.Bussines.Strain.Misc.oO02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO02 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O03' - 'Anschlußdaten'. loO03 = ...Misc.oO03[IDO03]
Wichtige Feldinformationen:
Primary Key ....: IDO03
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEDEUTUNG,IDO02,IDO03,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,...
Die Komplette Liste der Felder finden Sie unter: Anschlußdaten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO03 erwartet! loRecord = My.Bussines.Strain.Misc.oO03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O04' - 'Austauschteile'. loO04 = ...Misc.oO04[IDO04]
Wichtige Feldinformationen:
Primary Key ....: IDO04
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO04
IC- Field...........: BEZ
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,IDO04,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZ...
Die Komplette Liste der Felder finden Sie unter: Austauschteile
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO04[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO04 erwartet! loRecord = My.Bussines.Strain.Misc.oO04[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO04 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O05' - 'Zubehörteile'. loO05 = ...Misc.oO05[IDO05]
Wichtige Feldinformationen:
Primary Key ....: IDO05
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO05
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,IDO05,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZ...
Die Komplette Liste der Felder finden Sie unter: Zubehörteile
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO05[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO05 erwartet! loRecord = My.Bussines.Strain.Misc.oO05[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO05 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O10' - 'Ausprägng. Kanal'. loO10 = ...Misc.oO10[IDO10+IDC50+IDC26]
Wichtige Feldinformationen:
Primary Key ....: IDO10+IDC50+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO10
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,BEZUG,CHECKSUM,DDFORMAT,IDC26,IDC99,IDO10,KONTEXT,LAST...
Die Komplette Liste der Felder finden Sie unter: Ausprägng. Kanal
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO10+IDC50+IDC26 erwartet! loRecord = My.Bussines.Strain.Misc.oO10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO10 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O20' - 'Ausprägng. Anschlußgrg.'. loO20 = ...Misc.oO20[IDO20+IDC26|IDO20+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDO20+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO20
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,BEZUG,CHECKSUM,DDFORMAT,IDC26,IDC99,IDO20,KONTEXT,LAST...
Die Komplette Liste der Felder finden Sie unter: Ausprägng. Anschlußgrg.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO20[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO20+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'ido20|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDO20)=4 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),4," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDO20 C(4) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oO20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO20 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDO20 erwartet! loRecord = My.Bussines.Strain.Misc.oO20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO20 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O30' - 'Ausprägng. Anschluß'. loO30 = ...Misc.oO30[IDO30+IDC50+IDC26]
Wichtige Feldinformationen:
Primary Key ....: IDO30+IDC50+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO30
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,BEZUG,CHECKSUM,DDFORMAT,IDC26,IDC99,IDO30,KONTEXT,LAST...
Die Komplette Liste der Felder finden Sie unter: Ausprägng. Anschluß
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO30[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO30+IDC50+IDC26 erwartet! loRecord = My.Bussines.Strain.Misc.oO30[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO30 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O40' - 'Wert Kanal'. loO40 = ...Misc.oO40[IDO40]
Wichtige Feldinformationen:
Primary Key ....: IDO40
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO40
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDO01,IDO10,IDO40,INHALTC,INHALTN,LASTUPD,LDATUM,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Wert Kanal
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO40[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO40 erwartet! loRecord = My.Bussines.Strain.Misc.oO40[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO40 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O50' - 'Wert Anschlußgruppe'. loO50 = ...Misc.oO50[IDO50]
Wichtige Feldinformationen:
Primary Key ....: IDO50
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO50
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDO02,IDO20,IDO50,INHALTC,INHALTN,LASTUPD,LDATUM,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Wert Anschlußgruppe
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO50[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO50[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO50 erwartet! loRecord = My.Bussines.Strain.Misc.oO50[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO50 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O60' - 'Wert Anschluß'. loO60 = ...Misc.oO60[IDO60]
Wichtige Feldinformationen:
Primary Key ....: IDO60
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO60
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDO03,IDO30,IDO60,INHALTC,INHALTN,LASTUPD,LDATUM,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Wert Anschluß
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO60[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO60[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO60 erwartet! loRecord = My.Bussines.Strain.Misc.oO60[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO60 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'O99' - 'Vorgabewerte'. loO99 = ...Misc.oO99[IDO99+IPY01]
Wichtige Feldinformationen:
Primary Key ....: IDO99+IPY01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDO99
IC- Field...........: BEZ
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: BEZ,CHECKSUM,EXPAND,ID,IDO99,IPY01,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Vorgabewerte
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oO99[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oO99[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDO99+IPY01 erwartet! loRecord = My.Bussines.Strain.Misc.oO99[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDO99 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P11' - 'Schnittstellendefinition'. loP11 = ...Misc.oP11[IDP11]
Wichtige Feldinformationen:
Primary Key ....: IDP11
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP11
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AENDERN,ANZ_FELDTR,CHECKSUM,FELDTRENNE,FEL_TR_FOR,FORM_FELDT...
Die Komplette Liste der Felder finden Sie unter: Schnittstellendefinition
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP11[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP11 erwartet! loRecord = My.Bussines.Strain.Misc.oP11[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP11 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P12' - 'Satzkenner 1'. loP12 = ...Misc.oP12[IDP11+IDP12]
Wichtige Feldinformationen:
Primary Key ....: IDP11+IDP12
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP12
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AENDERN,CHECKSUM,FELDART,GWSATZ,NOTIZ,ULESEN,IDP11,IDP12,LDA...
Die Komplette Liste der Felder finden Sie unter: Satzkenner 1
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP12[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP11+IDP12 erwartet! loRecord = My.Bussines.Strain.Misc.oP12[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP12 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P13' - 'Satzkenner 2'. loP13 = ...Misc.oP13[IDP11+IDP12+IDP13+VON2]
Wichtige Feldinformationen:
Primary Key ....: IDP11+IDP12+IDP13+VON2
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP13
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AENDERN,ANZAHL_2,CHECKSUM,NOTIZ,VON2,IDP11,IDP12,IDP13,LDATU...
Die Komplette Liste der Felder finden Sie unter: Satzkenner 2
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP13[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP13[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP11+IDP12+IDP13+VON2 erwartet! loRecord = My.Bussines.Strain.Misc.oP13[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP13 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P15' - 'Importformat'. loP15 = ...Misc.oP15[IDP15]
Wichtige Feldinformationen:
Primary Key ....: IDP15
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP15
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,CHECKSUM,IDP15,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,N...
Die Komplette Liste der Felder finden Sie unter: Importformat
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP15[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP15 erwartet! loRecord = My.Bussines.Strain.Misc.oP15[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP15 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P16' - 'Exportformat'. loP16 = ...Misc.oP16[IDP16]
Wichtige Feldinformationen:
Primary Key ....: IDP16
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP16
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,CHECKSUM,IDP16,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,N...
Die Komplette Liste der Felder finden Sie unter: Exportformat
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP16[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP16 erwartet! loRecord = My.Bussines.Strain.Misc.oP16[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP16 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P90' - 'Exportdatei ECAD-BAUT.'. loP90 = ...Misc.oP90[IDP90]
Wichtige Feldinformationen:
Primary Key ....: IDP90
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP90
IC- Field...........: BEZ
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNR1,BESTNR1,BEZ,CADNR,CADNR1,DINNR,DINNR1,DLU_PFAD,IDP90,...
Die Komplette Liste der Felder finden Sie unter: Exportdatei ECAD-BAUT.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP90[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP90[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP90 erwartet! loRecord = My.Bussines.Strain.Misc.oP90[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP90 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P91' - 'EXPORT / Positionen'. loP91 = ...Misc.oP91[IDP91]
Wichtige Feldinformationen:
Primary Key ....: IDP91
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP91
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EXPORT,IDP90,IDP91,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPR...
Die Komplette Liste der Felder finden Sie unter: EXPORT / Positionen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP91[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP91[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP91 erwartet! loRecord = My.Bussines.Strain.Misc.oP91[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP91 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P95' - 'Importdatei ECAD-BAUT.'. loP95 = ...Misc.oP95[IDP95]
Wichtige Feldinformationen:
Primary Key ....: IDP95
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP95
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DLUPFAD,IDP95,IDUPD,IMPART,IMPMARK,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Importdatei ECAD-BAUT.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP95[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP95[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP95 erwartet! loRecord = My.Bussines.Strain.Misc.oP95[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP95 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P96' - 'Importpositionen / ECAD'. loP96 = ...Misc.oP96[IDP96]
Wichtige Feldinformationen:
Primary Key ....: IDP96
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP96
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDB01NEU,IDC19,IDP95,IDP96,IMPORT,LAGERART,LASTUPD,LDATUM,LP...
Die Komplette Liste der Felder finden Sie unter: Importpositionen / ECAD
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP96[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP96[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP96 erwartet! loRecord = My.Bussines.Strain.Misc.oP96[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP96 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P97' - 'ECAD-Import Preise'. loP97 = ...Misc.oP97[IDP95]
Wichtige Feldinformationen:
Primary Key ....: IDP95
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP97
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EKPDATUM,IDP95,IDP96,IDP97,LASTUPD,LDATUM,LPRG,LWER,LZEIT,MG...
Die Komplette Liste der Felder finden Sie unter: ECAD-Import Preise
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP97[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP97[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP95 erwartet! loRecord = My.Bussines.Strain.Misc.oP97[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP97 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'P98' - 'ECAD-Import Edelmetalle'. loP98 = ...Misc.oP98[IDP98]
Wichtige Feldinformationen:
Primary Key ....: IDP98
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDP98
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CDBF,IDD05,IDP95,IDP96,IDP98,LASTUPD,LDATUM,LPRG,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: ECAD-Import Edelmetalle
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oP98[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oP98[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDP98 erwartet! loRecord = My.Bussines.Strain.Misc.oP98[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDP98 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'Q01' - 'Manuelle BDE-Erfassung'. loQ01 = ...Misc.oQ01[IDQ01]
Wichtige Feldinformationen:
Primary Key ....: IDQ01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDQ01
IC- Field...........: PRJNR
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABTEILUNG,ANFANGZEIT,BELEG,BELEGNR,BEMERKUNG,DATUM,DATUME,EN...
Die Komplette Liste der Felder finden Sie unter: Manuelle BDE-Erfassung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oQ01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oQ01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDQ01 erwartet! loRecord = My.Bussines.Strain.Misc.oQ01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDQ01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'Q02' - 'Reise- / Sonstige Kosten'. loQ02 = ...Misc.oQ02[IDQ02]
Wichtige Feldinformationen:
Primary Key ....: IDQ02
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDQ02
IC- Field...........: PRJNR
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABTEILUNG,ANFANGZEIT,BELEG,BELEGNR,BEMERKUNG,DATUM,DMPROKM,E...
Die Komplette Liste der Felder finden Sie unter: Reise- / Sonstige Kosten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oQ02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oQ02[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDQ02 erwartet! loRecord = My.Bussines.Strain.Misc.oQ02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDQ02 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'Q03' - 'Manuelle Rechnungen'. loQ03 = ...Misc.oQ03[IDQ03]
Wichtige Feldinformationen:
Primary Key ....: IDQ03
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDQ03
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEGLEITTXT,IDC22,IDC24,IDE10,IDK10,IDQ03,KDBSTNR,LASTUPD,LDA...
Die Komplette Liste der Felder finden Sie unter: Manuelle Rechnungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oQ03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oQ03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDQ03 erwartet! loRecord = My.Bussines.Strain.Misc.oQ03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDQ03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'R10' - 'Barcodedaten'. loR10 = ...Misc.oR10[IDR10]
Wichtige Feldinformationen:
Primary Key ....: IDR10
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDR10
IC- Field...........: ICR10
IP- Field...........: IPR10
IK- Field...........: none
Feldliste...........: ICR10,IDR10,IDREF,IFR10,IIR10,IKR10,IMR10,INR10,IPR10,IPREF,...
Die Komplette Liste der Felder finden Sie unter: Barcodedaten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oR10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oR10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDR10 erwartet! loRecord = My.Bussines.Strain.Misc.oR10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDR10 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S01' - 'Lagerstatistiken'. loS01 = ...Misc.oS01[IDS01]
Wichtige Feldinformationen:
Primary Key ....: IDS01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS01
IC- Field...........: CNS01
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AUSWERT,CNS01,DATBIS,DATVON,IDE10,IDK10,IDS01,IPLIST,LASTUPD...
Die Komplette Liste der Felder finden Sie unter: Lagerstatistiken
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS01 erwartet! loRecord = My.Bussines.Strain.Misc.oS01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S10' - 'Fehlteilliste'. loS10 = ...Misc.oS10[IDS10]
Wichtige Feldinformationen:
Primary Key ....: IDS10
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS10
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,DATWIE,ICAUFB,ICAUFV,ICK10B,ICK10V,IDC25B,IDC2...
Die Komplette Liste der Felder finden Sie unter: Fehlteilliste
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS10 erwartet! loRecord = My.Bussines.Strain.Misc.oS10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS10 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S11' - 'Fehlteilliste -Pos'. loS11 = ...Misc.oS11[IDS11]
Wichtige Feldinformationen:
Primary Key ....: IDS11
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS11
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESTAM,DATBEST,DATGPL,ICAUF,ICK10,IDD40,IDS10,IDS11,LASTUPD,...
Die Komplette Liste der Felder finden Sie unter: Fehlteilliste -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS11[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS11 erwartet! loRecord = My.Bussines.Strain.Misc.oS11[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS11 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S12' - 'Umsatzstatistik'. loS12 = ...Misc.oS12[IDS12]
Wichtige Feldinformationen:
Primary Key ....: IDS12
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS12
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,BBESDAT,BRECHDAT,IDC25B,IDC25V,IDC42EKB,IDC42E...
Die Komplette Liste der Felder finden Sie unter: Umsatzstatistik
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS12[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS12 erwartet! loRecord = My.Bussines.Strain.Misc.oS12[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS12 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S13' - 'Umsatzstatistik -Pos'. loS13 = ...Misc.oS13[IDS13]
Wichtige Feldinformationen:
Primary Key ....: IDS13
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS13
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS12,IDS13,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Umsatzstatistik -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS13[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS13[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS13 erwartet! loRecord = My.Bussines.Strain.Misc.oS13[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS13 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S14' - 'Umsatzstatistik -U.Pos'. loS14 = ...Misc.oS14[IDS14]
Wichtige Feldinformationen:
Primary Key ....: IDS14
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS14
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS13,IDS14,LASTUPD,LDATUM,LPRG,LWER,LZEIT,MENGEB,MENGER,MEN...
Die Komplette Liste der Felder finden Sie unter: Umsatzstatistik -U.Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS14[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS14[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS14 erwartet! loRecord = My.Bussines.Strain.Misc.oS14[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS14 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S15' - 'Bestellobligo'. loS15 = ...Misc.oS15[IDS15]
Wichtige Feldinformationen:
Primary Key ....: IDS15
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS15
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,IDC25B,IDC25V,IDC42EKB,IDC42EKV,IDC42VKB,IDC42...
Die Komplette Liste der Felder finden Sie unter: Bestellobligo
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS15[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS15 erwartet! loRecord = My.Bussines.Strain.Misc.oS15[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS15 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S16' - 'Bestellobligo -Pos'. loS16 = ...Misc.oS16[IDS16]
Wichtige Feldinformationen:
Primary Key ....: IDS16
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS16
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS15,IDS16,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,...
Die Komplette Liste der Felder finden Sie unter: Bestellobligo -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS16[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS16 erwartet! loRecord = My.Bussines.Strain.Misc.oS16[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS16 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S17' - 'Bestellobligo -U.Pos'. loS17 = ...Misc.oS17[IDS17]
Wichtige Feldinformationen:
Primary Key ....: IDS17
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS17
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,IDC24,IDD41,IDS16,IDS17,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Bestellobligo -U.Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS17[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS17[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS17 erwartet! loRecord = My.Bussines.Strain.Misc.oS17[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS17 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S18' - 'Preisentwicklung'. loS18 = ...Misc.oS18[IDS18]
Wichtige Feldinformationen:
Primary Key ....: IDS18
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS18
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS18,IDX06,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTIZ,NPRG...
Die Komplette Liste der Felder finden Sie unter: Preisentwicklung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS18[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS18[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS18 erwartet! loRecord = My.Bussines.Strain.Misc.oS18[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS18 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S19' - 'Preisentwicklung -Pos'. loS19 = ...Misc.oS19[IDS19]
Wichtige Feldinformationen:
Primary Key ....: IDS19
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS19
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD40,IDD44,IDS18,IDS19,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATU...
Die Komplette Liste der Felder finden Sie unter: Preisentwicklung -Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS19[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS19[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS19 erwartet! loRecord = My.Bussines.Strain.Misc.oS19[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS19 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S20' - 'Über-/Unterlieferungen'. loS20 = ...Misc.oS20[IDS20]
Wichtige Feldinformationen:
Primary Key ....: IDS20
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS20
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ARTNRB,ARTNRV,IDC25B,IDC25V,IDC42EKB,IDC42EKV,IDC42VKB,IDC42...
Die Komplette Liste der Felder finden Sie unter: Über-/Unterlieferungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS20[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS20 erwartet! loRecord = My.Bussines.Strain.Misc.oS20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS20 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S21' - 'Über-/Unterlieferungen -P'. loS21 = ...Misc.oS21[IDS21]
Wichtige Feldinformationen:
Primary Key ....: IDS21
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS21
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABEST,AULIEF,AÜLIEF,IDS20,IDS21,LASTUPD,LDATUM,LPRG,LWER,LZE...
Die Komplette Liste der Felder finden Sie unter: Über-/Unterlieferungen -P
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS21[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS21 erwartet! loRecord = My.Bussines.Strain.Misc.oS21[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS21 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S22' - 'Über-/Unterlieferungen -U'. loS22 = ...Misc.oS22[IDS22]
Wichtige Feldinformationen:
Primary Key ....: IDS22
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS22
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDD40,IDS21,IDS22,LASTUPD,LDATUM,LPRG,LWER,LZEIT,MENGE_I,MEN...
Die Komplette Liste der Felder finden Sie unter: Über-/Unterlieferungen -U
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS22[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS22[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS22 erwartet! loRecord = My.Bussines.Strain.Misc.oS22[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS22 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S23' - 'Preisvergleiche'. loS23 = ...Misc.oS23[IDS23]
Wichtige Feldinformationen:
Primary Key ....: IDS23
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS23
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IDS23,IDX06,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTIZ,NPRG...
Die Komplette Liste der Felder finden Sie unter: Preisvergleiche
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS23[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS23[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS23 erwartet! loRecord = My.Bussines.Strain.Misc.oS23[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS23 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S24' - 'Preisvergleiche -Pos.'. loS24 = ...Misc.oS24[IDS24]
Wichtige Feldinformationen:
Primary Key ....: IDS24
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS24
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZ,IDS23,IDS24,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,N...
Die Komplette Liste der Felder finden Sie unter: Preisvergleiche -Pos.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS24[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS24[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS24 erwartet! loRecord = My.Bussines.Strain.Misc.oS24[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS24 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'S25' - 'Preisvergleiche -U.Pos'. loS25 = ...Misc.oS25[IDS25]
Wichtige Feldinformationen:
Primary Key ....: IDS25
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDS25
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BESTMIN,IDS24,IDS25,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NP...
Die Komplette Liste der Felder finden Sie unter: Preisvergleiche -U.Pos
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oS25[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oS25[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDS25 erwartet! loRecord = My.Bussines.Strain.Misc.oS25[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDS25 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'SC0' - 'Cubes'. loSC0 = ...Misc.oSC0[IDSC0]
Wichtige Feldinformationen:
Primary Key ....: IDSC0
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDSC0
IC- Field...........: ICSC0
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ABTEILUNG,AKTIV,CUBEADODB,CUBEFILE,CUBEMETA,CUBEPRGAF,CUBEPR...
Die Komplette Liste der Felder finden Sie unter: Cubes
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oSC0[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oSC0[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDSC0 erwartet! loRecord = My.Bussines.Strain.Misc.oSC0[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDSC0 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'SC1' - 'Cube Fields'. loSC1 = ...Misc.oSC1[IDSC1]
Wichtige Feldinformationen:
Primary Key ....: IDSC1
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDSC1
IC- Field...........: none
IP- Field...........: IPSC1
IK- Field...........: none
Feldliste...........: CCAPTION,CFIELD,DNOSUM,FHIDDEN,FSUBTOTAL,FTOTAL,FTYP,IDSC0,I...
Die Komplette Liste der Felder finden Sie unter: Cube Fields
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oSC1[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oSC1[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDSC1 erwartet! loRecord = My.Bussines.Strain.Misc.oSC1[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDSC1 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'SC2' - 'Cube Clients'. loSC2 = ...Misc.oSC2[IDSC2]
Wichtige Feldinformationen:
Primary Key ....: IDSC2
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDSC2
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: AKTIV,CMANIC,CMANID,CUBEFILE,IDSC0,IDSC2,LASTUPD,LDATUM,LPRG...
Die Komplette Liste der Felder finden Sie unter: Cube Clients
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oSC2[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oSC2[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDSC2 erwartet! loRecord = My.Bussines.Strain.Misc.oSC2[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDSC2 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'SC3' - 'Cube Filters'. loSC3 = ...Misc.oSC3[IDSC3]
Wichtige Feldinformationen:
Primary Key ....: IDSC3
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDSC3
IC- Field...........: ICSC3
IP- Field...........: none
IK- Field...........: none
Feldliste...........: FILTERDIMS,FILTERFACT,FILTERFRX,ICSC3,IDC65,IDSC0,IDSC2,IDSC...
Die Komplette Liste der Felder finden Sie unter: Cube Filters
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oSC3[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oSC3[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDSC3 erwartet! loRecord = My.Bussines.Strain.Misc.oSC3[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDSC3 ENDIF
Ermittelt MAX(SC0.FORDER) für die Neuanlage
Integer = My.Bussines.Strain.Misc.oSc0Max[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Integer = My.Bussines.Strain.Misc.oSc0Max[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Cubes
Primärkey.: IDSC0
EAN-Code..: nd...
Candidate.: ICSC0
Felder....: ABTEILUNG;AKTIV;CUBEADODB;CUBEFILE;CUBEMETA;CUBEPRGAF;CUBEPRGBF;CUBESQL;DTCUBE;FORDER;ICSC0;IDC65;IDSC0;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATU...
Object = My.Bussines.Strain.Misc.oSc0a[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oSc0a[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Cube Fields
Primärkey.: IDSC1
EAN-Code..: nd...
Candidate.: nd...
Felder....: CCAPTION;CFIELD;DNOSUM;FHIDDEN;FSUBTOTAL;FTOTAL;FTYP;IDSC0;IDSC1;IPSC1;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT
Object = My.Bussines.Strain.Misc.oSc1a[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oSc1a[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Cube Clients
Primärkey.: IDSC2
EAN-Code..: nd...
Candidate.: nd...
Felder....: AKTIV;CMANIC;CMANID;CUBEFILE;IDSC0;IDSC2;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NETONLY;NPRG;NWER;NZEIT
Object = My.Bussines.Strain.Misc.oSc2a[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oSc2a[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Cube Filters
Primärkey.: IDSC3
EAN-Code..: nd...
Candidate.: nd...
Felder....: FILTERDIMS;FILTERFACT;FILTERFRX;ICSC3;IDC65;IDSC0;IDSC2;IDSC3;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NOTIZ;NPRG;NWER;NZEIT;TXSC3
Object = My.Bussines.Strain.Misc.oSc3a[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oSc3a[tcIndex1|,tiIndex1,tiIndex2]
Object = My.Bussines.Strain.Misc.oSqlCL
Rückgabe:[Object], Datenabruf der Tabelle: 'T20' - 'BackGround'. loT20 = ...Misc.oT20[IDT20]
Wichtige Feldinformationen:
Primary Key ....: IDT20
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDT20
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CLASTERR,CMETHOD,CUSER,DTIMEA,DTIMEE,DTIMEJ,DTIMES,IDT20,IJT...
Die Komplette Liste der Felder finden Sie unter: BackGround
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oT20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oT20[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDT20 erwartet! loRecord = My.Bussines.Strain.Misc.oT20[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDT20 ENDIF
Object = My.Bussines.Strain.Misc.oTSX[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oTSX[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe:[Object], Datenabruf der Tabelle: 'V01' - 'Kalk. Zuschlagsarten'. loV01 = ...Misc.oV01[IPV01]
Wichtige Feldinformationen:
Primary Key ....: IPV01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IPV01
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: IPV01,XWERT,BEZEI,IDC26,IDV01,IDV02,IDV03,LASTUPD,LDATUM,LPR...
Die Komplette Liste der Felder finden Sie unter: Kalk. Zuschlagsarten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oV01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oV01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IPV01 erwartet! loRecord = My.Bussines.Strain.Misc.oV01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IPV01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'V02' - 'Kalk. Kostenarten'. loV02 = ...Misc.oV02[IDV02+IDC26|IDV02+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDV02+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDV02
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,BEZEI,IDC19,IDC26,IDV02,LASTUPD,LDATUM,LPRG,LWER,LZ...
Die Komplette Liste der Felder finden Sie unter: Kalk. Kostenarten
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oV02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oV02[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDV02+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idv02|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDV02)=3 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),3," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDV02 C(3) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oV02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV02 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDV02 erwartet! loRecord = My.Bussines.Strain.Misc.oV02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV02 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'V03' - 'Kalkulationsschemata'. loV03 = ...Misc.oV03[IDV03+IDC26|IDV03+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDV03+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDV03
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: E_PREIS,IDC26,IDV03,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NO...
Die Komplette Liste der Felder finden Sie unter: Kalkulationsschemata
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oV03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oV03[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDV03+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idv03|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDV03)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDV03 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oV03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV03 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDV03 erwartet! loRecord = My.Bussines.Strain.Misc.oV03[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV03 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'V04' - 'Arbeitspläne'. loV04 = ...Misc.oV04[IDV04+IDC26|IEV04|IDV04+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDV04+IDC26
Secondary Key.: none
EAN Key..........: IEV04
ID- Field...........: IDV04
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC26,IDV04,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NOTI...
Die Komplette Liste der Felder finden Sie unter: Arbeitspläne
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oV04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oV04[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDV04+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idv04|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDV04)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDV04 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oV04[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV04 ENDIF */ Abruf mittels EAN Key: lcKey = '' && Hier wird: IEV04 erwartet! loRecord = My.Bussines.Strain.Misc.oV04[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV04 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDV04 erwartet! loRecord = My.Bussines.Strain.Misc.oV04[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV04 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'V05' - 'Arbeitsgänge'. loV05 = ...Misc.oV05[IDV05+IDC26|IEV05|IDV05+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDV05+IDC26
Secondary Key.: none
EAN Key..........: IEV05
ID- Field...........: IDV05
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,IDC02,IEV05,IDC26,IDV05,IKV05,LASTUPD,LDATUM,LPRG,LWER...
Die Komplette Liste der Felder finden Sie unter: Arbeitsgänge
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oV05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oV05[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDV05+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idv05|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDV05)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDV05 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oV05[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV05 ENDIF */ Abruf mittels EAN Key: lcKey = '' && Hier wird: IEV05 erwartet! loRecord = My.Bussines.Strain.Misc.oV05[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV05 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDV05 erwartet! loRecord = My.Bussines.Strain.Misc.oV05[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV05 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Arbeitsgänge
Primärkey.: IDV05+IDC26
EAN-Code..: IEV05
Candidate.: MATCH
Felder....: BEZEI;IDC02;IEV05;IDC26;IDV05;IKV05;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NOTIZ;NPRG;NWER;NZEIT;MATCHDieser Datenabruf wird in Zusammenhang mit der BDE Schnittstelle benötigt. Dabei gilt:
Für die Tabelle C64 - oC64Bde[nPersnrBde] - Abfrage der Daten aus den Mitarbeitern über die Personalnummer
Für die Tabelle V05 - oV05Bde[nIdv05] - Abfrage der Daten aus den Arbeitsgängen über einen Integerwert der V05.IDV05: INT(VAL(V05.IDV05))
Object = My.Bussines.Strain.Misc.oV05Bde[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oV05Bde[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loV05 AS Object , liNumber AS Integer */ Der entsprechende Datensatz wird über einem num. Wert ermittelt! liNumber = 0 loV05 = My.Bussines.Strain.Misc.oV05Bde[m.liNumber] IF m.loV05.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loV05.IDV05 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'V06' - 'Arbeitsgänge/Arbeitsplan'. loV06 = ...Misc.oV06[IDV06]
Wichtige Feldinformationen:
Primary Key ....: IDV06
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDV06
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZEIT,IDV04,...
Die Komplette Liste der Felder finden Sie unter: Arbeitsgänge/Arbeitsplan
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oV06[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oV06[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDV06 erwartet! loRecord = My.Bussines.Strain.Misc.oV06[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDV06 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'X09' - 'Firmenparameter'. loX09 = ...Misc.oX09[IDX09]
Wichtige Feldinformationen:
Primary Key ....: IDX09
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDX09
IC- Field...........: MATCH
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,EPL2VORG,LASTUPD,LDATUM,LEITNR,LEITVERB,LPRG,LWER,L...
Die Komplette Liste der Felder finden Sie unter: Firmenparameter
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX09[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX09[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDX09 erwartet! loRecord = My.Bussines.Strain.Misc.oX09[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDX09 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'X10' - 'System- Rechtedefinition'. loX10 = ...Misc.oX10[MASKE+IDC26|MASKE+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: MASKE+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: MASKE
IC- Field...........: TITEL
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,EPLAN,GRUPPEN,IDC26,LDATUM,LPRG,LUPDATE,LWER,LZEIT,...
Die Komplette Liste der Felder finden Sie unter: System- Rechtedefinition
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: MASKE+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'maske|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(MASKE)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : MASKE C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oX10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.MASKE ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: MASKE erwartet! loRecord = My.Bussines.Strain.Misc.oX10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.MASKE ENDIF
Object = My.Bussines.Strain.Misc.oX12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX12[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe:[Object], Datenabruf der Tabelle: 'X16' - 'Maskenrechte - Mandant'. loX16 = ...Misc.oX16[MASKE+IDC26|MASKE+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: MASKE+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: MASKE
IC- Field...........: TITEL
IP- Field...........: none
IK- Field...........: none
Feldliste...........: EPLAN,GRUPPEN,IDC26,INTIME,LDATUM,LPRG,LUPDATE,LWER,LZEIT,MA...
Die Komplette Liste der Felder finden Sie unter: Maskenrechte - Mandant
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX16[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: MASKE+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'maske|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(MASKE)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : MASKE C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oX16[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.MASKE ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: MASKE erwartet! loRecord = My.Bussines.Strain.Misc.oX16[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.MASKE ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'X21' - 'Reports'. loX21 = ...Misc.oX21[REPNAME+RWOBINICH+RSPRACHE+IIF(REINZEL,"T","F")]
Wichtige Feldinformationen:
Primary Key ....: REPNAME+RWOBINICH+RSPRACHE+IIF(REINZEL,"T","F")
Secondary Key.: none
EAN Key..........: none
ID- Field...........: REPNAME
IC- Field...........: BEZ
IP- Field...........: none
IK- Field...........: none
Feldliste...........: REPNAME,RWOBINICH,RSPRACHE,REINZEL,BEZ,BESCHR,GETPAGE,ANZEIG...
Die Komplette Liste der Felder finden Sie unter: Reports
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX21[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: REPNAME+RWOBINICH+RSPRACHE+IIF(REINZEL,"T","F") erwartet! loRecord = My.Bussines.Strain.Misc.oX21[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.REPNAME ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'X22' - 'Druckbereich'. loX22 = ...Misc.oX22[IDX22+IDC26|IDX22+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IDX22+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDX22
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,CHECKSUM,IDC26,IDX22,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPR...
Die Komplette Liste der Felder finden Sie unter: Druckbereich
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX22[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX22[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDX22+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'idx22|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IDX22)=8 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),8," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IDX22 C(8) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oX22[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDX22 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IDX22 erwartet! loRecord = My.Bussines.Strain.Misc.oX22[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDX22 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'X23' - 'Druckaufrufbereich'. loX23 = ...Misc.oX23[IDX23+IDX22]
Wichtige Feldinformationen:
Primary Key ....: IDX23+IDX22
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDX23
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: ACTDIM,BERDIM,BEREST,CHECKSUM,CHGDIM,CHILDFLD,FILTER,IACTION...
Die Komplette Liste der Felder finden Sie unter: Druckaufrufbereich
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX23[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX23[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDX23+IDX22 erwartet! loRecord = My.Bussines.Strain.Misc.oX23[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDX23 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'X26' - 'Reportsprache'. loX26 = ...Misc.oX26[IDX26]
Wichtige Feldinformationen:
Primary Key ....: IDX26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDX26
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: BEZEI,CHECKSUM,IDX26,IDX26EXT,LASTUPD,LDATUM,LPRG,LWER,LZEIT...
Die Komplette Liste der Felder finden Sie unter: Reportsprache
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX26[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX26[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDX26 erwartet! loRecord = My.Bussines.Strain.Misc.oX26[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDX26 ENDIF
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Reportsprache
Primärkey.: IDX26
EAN-Code..: nd...
Candidate.: BEZEI
Felder....: BEZEI;CHECKSUM;IDX26;IDX26EXT;LASTUPD;LDATUM;LPRG;LWER;LZEIT;NDATUM;NPRG;NWER;NZEIT;X26FONT;X26GR;X26STYLEDer Abruf des Datensatzobjekts erfolgt über die Information der Firmenparameter! Zum Abruf des Objekts muss keine weitere Information angegeben werden.Aus den Firmenparametern, Tabelle X09, wird das Feld: IDX26 - Sprache für den Report abgefragt und das entsprechende Datensatzobjekt aus X26 - Reportsprache zurückgegeben.
Object = My.Bussines.Strain.Misc.oX26Fi
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loX26 AS Object */ Der entsprechende Datensatz wird über die Firmenparameter ermittelt! loX26 = My.Bussines.Strain.Misc.oX26Fi IF m.loX26.__LastGet<>-1 */ Dann wurde der Datensatz gefunden... WAIT WINDOW m.loX26.IDX26 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'X50' - 'Masken'. loX50 = ...Misc.oX50[SPRACHE+PROG]
Wichtige Feldinformationen:
Primary Key ....: SPRACHE+PROG
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DBFS,EIGENTUM,LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM...
Die Komplette Liste der Felder finden Sie unter: Masken
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX50[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX50[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: SPRACHE+PROG erwartet! loRecord = My.Bussines.Strain.Misc.oX50[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.CHECKSUM ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'X51' - 'Tabellenbeziehungen'. loX51 = ...Misc.oX51[IDX51]
Wichtige Feldinformationen:
Primary Key ....: IDX51
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDX51
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DELETEALL,DELETEOK,IDX51,LDATUM,LWER,LZEIT
Die Komplette Liste der Felder finden Sie unter: Tabellenbeziehungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX51[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX51[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDX51 erwartet! loRecord = My.Bussines.Strain.Misc.oX51[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDX51 ENDIF
Object = My.Bussines.Strain.Misc.oX60[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX60[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Tabelleneinstellungen
Abfruf der Tabelle X61 - Program+Type+Dbf
Variant = My.Bussines.Strain.Misc.oX61[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Variant = My.Bussines.Strain.Misc.oX61[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe:[Object], Datenabruf der Tabelle: 'X62' - 'Sepzielle Gridfelder'. loX62 = ...Misc.oX62[IDX62]
Wichtige Feldinformationen:
Primary Key ....: IDX62
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDX62
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LASTUPD,LDATUM,LPRG,LWER,LZEIT,NDATUM,NPRG,NWER,NZEIT,PROGRA...
Die Komplette Liste der Felder finden Sie unter: Sepzielle Gridfelder
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oX62[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX62[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDX62 erwartet! loRecord = My.Bussines.Strain.Misc.oX62[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDX62 ENDIF
Object = My.Bussines.Strain.Misc.oX63[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oX63[tcIndex1|,tiIndex1,tiIndex2]
Rückgabe:[Object], Datenabruf der Tabelle: 'Y01' - 'Präfix Systemtabelle'. loY01 = ...Misc.oY01[IPY01+IDC26|IPY01+My.cIdc26]
Wichtige Feldinformationen:
Primary Key ....: IPY01+IDC26
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IPY01
IC- Field...........: BEZEI
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CCDBF,CGRP2,CGRUPPE,CHECKSUM,CMASK,CMDBF,CMIC,BEZEI,IBCOL,IF...
Die Komplette Liste der Felder finden Sie unter: Präfix Systemtabelle
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oY01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oY01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IPY01+IDC26 erwartet! */ Da diese Tabelle einen Sprachindex hat kann auch mit: 'ipy01|'+Sprache gearbeitet werden. */ Durch das Trennzeichen '|' (Pipe) wird das ID Feld auf die korrekte Länge gebracht! */ LEN(IPY01)=3 Der Rest wird mit BLANK aufgefüllt! */ Formel: PADR(GETWORDNUM(m.lcKey,1,"|"),3," ") + PADR(GETWORDNUM(m.lcKey,2,"|"),3," ") : IPY01 C(3) + IDC26 C(3) */ Aus: 'STCK|EN' => 'STCK EN ' für IDC19+IDC26 in Englisch! loRecord = My.Bussines.Strain.Misc.oY01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IPY01 ENDIF */ Abruf mittels ID- Field, My.cIdc26 spendiert die Systemsprache: lcKey = '' && Hier wird: IPY01 erwartet! loRecord = My.Bussines.Strain.Misc.oY01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IPY01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'Y10' - 'Blockbearbeitung'. loY10 = ...Misc.oY10[PRG+FIELD]
Wichtige Feldinformationen:
Primary Key ....: PRG+FIELD
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: TEXT
IP- Field...........: none
IK- Field...........: none
Feldliste...........: CHECKSUM,DBF,DECIMALS,EIGENTUM,FIELD,LASTUPD,LDATUM,LOOKUP,L...
Die Komplette Liste der Felder finden Sie unter: Blockbearbeitung
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oY10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oY10[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: PRG+FIELD erwartet! loRecord = My.Bussines.Strain.Misc.oY10[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.TEXT ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'Y98' - 'Messageinformationen'. loY98 = ...Misc.oY98[IDY98]
Wichtige Feldinformationen:
Primary Key ....: IDY98
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDY98
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: DATUM,DATUMA,DATUMB,IDC65E,IDC65S,IDX02,IDY98,IIY98,IMY98,IN...
Die Komplette Liste der Felder finden Sie unter: Messageinformationen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oY98[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oY98[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDY98 erwartet! loRecord = My.Bussines.Strain.Misc.oY98[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDY98 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'Y99' - 'Globale Einstellungen'. loY99 = ...Misc.oY99[TERMINAL+USER+SEEKFOR]
Wichtige Feldinformationen:
Primary Key ....: TERMINAL+USER+SEEKFOR
Secondary Key.: none
EAN Key..........: none
ID- Field...........: none
IC- Field...........: none
IP- Field...........: none
IK- Field...........: none
Feldliste...........: LDATUM,LZEIT,MINFO,NDATUM,NINFO,NZEIT,SEEKFOR,TERMINAL,USER
Die Komplette Liste der Felder finden Sie unter: Globale Einstellungen
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oY99[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oY99[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: TERMINAL+USER+SEEKFOR erwartet! loRecord = My.Bussines.Strain.Misc.oY99[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.LDATUM ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'Z01' - 'Zahlungspläne'. loZ01 = ...Misc.oZ01[IDZ01|VTID+VTSID]
Wichtige Feldinformationen:
Primary Key ....: IDZ01
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDZ01
IC- Field...........: MATCH
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: DSTAT,IDC24,IDZ01,IPY01,KTEXT,KTOZP,LASTUPD,LDATUM,LPRG,LWER...
Die Komplette Liste der Felder finden Sie unter: Zahlungspläne
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oZ01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oZ01[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDZ01 erwartet! loRecord = My.Bussines.Strain.Misc.oZ01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDZ01 ENDIF */ Abruf mittels eines definierten Sonderschlüssels lcKey = '' && Hier wird: VTID+VTSID erwartet! loRecord = My.Bussines.Strain.Misc.oZ01[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDZ01 ENDIF
Rückgabe:[Object], Datenabruf der Tabelle: 'Z02' - 'Zahlungspläne -Pos.'. loZ02 = ...Misc.oZ02[IDZ02]
Wichtige Feldinformationen:
Primary Key ....: IDZ02
Secondary Key.: none
EAN Key..........: none
ID- Field...........: IDZ02
IC- Field...........: none
IP- Field...........: IPY01
IK- Field...........: none
Feldliste...........: DSTAT,IDC24,IDZ01,IDZ02,IPY01,KENN,LASTUPD,LDATUM,LPRG,LWER,...
Die Komplette Liste der Felder finden Sie unter: Zahlungspläne -Pos.
Beim Abruf des Datensatzobjekts kann entweder der Primäry Key, Secondary Key oder der EAN-Code angegeben werden, soweit verhanden.
Die Rückgabe ist 'immer' ein Datensatzobjekt! Prüfen Sie bitte oObject.__LastGet auf ungleich -1 wenn sie überprüfen möchten, ob der Datensatz gefunden wurde.
Enthält eine Tabelle einen Sprachschlüssel (IDC26), so kann dieser mit dem ID-Feld angegeben werden. Wird der Spracheschlüssel nicht angegeben, so wird dieser durch My.cIdc26 (Systemsprache) vorgegeben.
WICHTIG IST DIE LÄNGE DES ÜBERGEBENEN SCHLÜSSELS! Diese wird für die Abfrage geprüft!
Object = My.Bussines.Strain.Misc.oZ02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Object = My.Bussines.Strain.Misc.oZ02[tcIndex1|,tiIndex1,tiIndex2]
*/ Es wird davon ausgegangen, dass My aktiv ist! LOCAL loRecord AS Object , lcKey AS String */ Abruf mittels Primary Key: lcKey = '' && Hier wird: IDZ02 erwartet! loRecord = My.Bussines.Strain.Misc.oZ02[m.lcKey] IF m.loRecord.__LastGet<>-1 */ Dann wurde der 'erste' Datensatz gefunden... WAIT WINDOW m.loRecord.IDZ02 ENDIF
Trennzeichen bei Tabellen mit Sprachindex. Z.B.: C10 = IDC10+IDC26 = "idc10|"+IDC26
String = My.Bussines.Strain.Misc.sDel
Rückgabe:[Variant], Daten aus Y01 ermitteln anhand der IPY01. Die Methode kann verschiedene Werte lieferen: ...Misc.vY01( IPY01 | IPY01:feldname). Wird ein Feldname angegeben, so wird dessen Inhalt zurückgegeben, ansonsten Object.
ACHTUNG! Alte Funktion! Nehmen Sie stattdessen ...Misc.oY01[ipy01]
Variant = My.Bussines.Strain.Misc.vY01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Variant = My.Bussines.Strain.Misc.vY01[tcIndex1|,tiIndex1,tiIndex2]
Variant = My.Bussines.Strain.Misc.xY01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer] Variant = My.Bussines.Strain.Misc.xY01[tcIndex1|,tiIndex1,tiIndex2]
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