PMS32 Online- Hilfereferenz

MY.BUSSINES.STRAIN.MISC

Misc - Verschiedene Stammwerte, die in allen Bereichen genutzt werden.

Hilfe: Verschiedenes
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.

Code: Verschiedenes
*/ 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...
Memberliste von Misc

Liste der Methoden von Misc

E15Ref() - Vorwärtsreferenz holen

Ruft die Referenzen in e15 ab.
Hilfeinformation
Holt die angegebene Vorwärtsreferenz.
Welcher Vorgang wurde von diesem referenziert?

Aufrufinformation
Variant = My.Bussines.Strain.Misc.E15Ref(tcIde10 AS STRING , tcIps AS STRING, tlWithProject AS Boolean)
Variant = My.Bussines.Strain.Misc.E15Ref(tcIde10,tcIps,tlWithProject)
Codeinformation
*/ 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"
E15RefAll() - Rückwärts und Vorwärts Referenz holen

Rückgabe:[String], Wie E15Ref(), jedoch wird vorwärts und Rückwärts gesucht!
Hilfeinformation
Rückwärts und Vorwärts Referenz holen

Aufrufinformation
String = My.Bussines.Strain.Misc.E15RefAll(tcIde10 AS STRING , tcIp AS STRING , tnBits AS INTEGER)
String = My.Bussines.Strain.Misc.E15RefAll(tcIde10,tcIp,tnBits)
Codeinformation
*/ 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
Evaluate() - Ausführen eines Befehls

Mit Setzen dieser Property auf .T. kann die Form zentriert werden.
Hilfeinformation
Ausführen eines VFP-Befehls mit EVALUATE().
Achtung! Eventuell müssen Variablen als PRIVATE deklariert werden!ENDTEXT
*
TEXT TO lcMessage NOSHOW TEXTMERGE
Ausführen eines VFP-Befehls mit EVALUATE().

Aufrufinformation
Variant = My.Bussines.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)
Codeinformation
*/ Mit Evaluate kann eine Befehlszeile ausgeführt werden
*/ Eventuell benutzte Variablen sind PRIVATE zu deklarieren
PRIVATE pnVar1 AS Number , pnVar2 AS Number
LOCAL lnVar AS Number
STORE 2 TO pnVar1,pnVar2
lnVar = My.Bussines.Strain.Misc.Evaluate([m.pnVar1+m.pnVar2])
WAIT WINDOW m.lnVar		&& Ergibt 4...	ENDTEXT
ExecScript() - Ausführen eines VFP-Scripts

Ausführen eines VFP-Scripts incl. der Prüfung, ob ein ALIAS besteht.
Hilfeinformation
Ausführen eines VFP-Scripts incl. der Prüfung, ob ein ALIAS besteht.

Aufrufinformation
Variant = My.Bussines.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)
Codeinformation
*/ Mit EXECSCRIPT kann ein VFP-Script ausgeführt werden
LOCAL lcScript AS String,lnVar1 AS Number,lnVar2 AS Number,lnVar AS Number
TEXT TO lcScript NOSHOW TEXTMERGE
LPARAMETERS tnVar1 AS Number @,tnVar2 AS Number @
tnVar1 = m.tnVar1 + 1
tnVar2 = m.tnVar2 - 2
RETURN m.tnVar1 + m.tnVar2
ENDTEXT
*/ Vorbelegen der Variablen (Parameter)
STORE 2 TO lnVar1,lnVar2
lnVar = My.Bussines.Strain.Misc.ExecScript("",m.lcScript,0,@lnVar1,@lnVar2)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2
ExecScriptP() - Ausführen eines VFP-Scripts

Ausführen eines VFP-Scripts incl. PARAMETER (Collection)
Hilfeinformation
Ausführen eines VFP-Scripts incl. PARAMETER (Collection)
Als Parameter wird eine Collection mit Informationen übergeben!

Aufrufinformation
Variant = My.Bussines.Strain.Misc.ExecScriptP(tcScript AS STRING,toPara AS COLLECTION)
Variant = My.Bussines.Strain.Misc.ExecScriptP(tcScript,toPara)
Codeinformation
*/ Mit EXECSCRIPTP kann ein VFP-Script ausgeführt werden
LOCAL lcScript AS String,lnVar AS Number,loColl AS Collection
loColl = CREATEOBJECT("Collection")
loColl.Add(2,"Var1")
loColl.Add(2,"Var2")
TEXT TO lcScript NOSHOW TEXTMERGE
LPARAMETERS toColl AS Collection
RETURN toColl.Item("Var1") + toColl.Item("Var2")
ENDTEXT
lnVar = My.Bussines.Strain.Misc.ExecScriptP(m.lcScript,m.loColl)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar
GetMaskForDbf() - Ermitteln der Maske für die angegebene DBF und ID

Rückgabe:[String], Gibt den Maskennamen für die angegebene DBF und ID zurück. Prüfung erfolgt über X10.Maske
Hilfeinformation
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!

Aufrufinformation
String = My.Bussines.Strain.Misc.GetMaskForDbf(tcDbf AS String,tcId AS String)
String = My.Bussines.Strain.Misc.GetMaskForDbf(tcDbf,tcId)
Codeinformation
*/ 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!
GetMaskForIp() - Maskenname anhand seiner IP

Rückgabe:[String], Gibt den Maskennamen anhand seiner IP zurück
Hilfeinformation
Gibt den Maskennamen anhand seiner IP zurück. Siehe Beispielcode...

Aufrufinformation
String = My.Bussines.Strain.Misc.GetMaskForIp(tcIP AS String)
String = My.Bussines.Strain.Misc.GetMaskForIp(tcIP)
Codeinformation
LOCAL lcMask AS String
lcMask = My.Bussines.Strain.Misc.GetMaskForIp("108")
=Messagebox(m.lcMask,64,"Maskenname")	&& Solle in diesem Fall E9601 sein!
GetParameters() - Parameter to Collection

Wandelt übergebene Parameter in eine Collection um.
Hilfeinformation
Wandelt übergebene Parameter in eine Collection um.
Umkehrfunktion zu SetParameters.

Aufrufinformation
Variant = My.Bussines.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)
Codeinformation
*/ 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)
GetParametersCount() - Parameter to Collection

Wandelt übergebene Parameter in eine Collection um.
Hilfeinformation
Wandelt übergebene Parameter in eine Collection um.
Jedoch wird als 'erster' Parameter die Anzahl der Parameter mitgegeben.

Aufrufinformation
Variant = My.Bussines.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)
Codeinformation
*/ Hier können mehrere Parameter in eine Collection übertragen werden
*/ Als Beispiel kann nur der Aufruf eines Scripts / einer Methode dienen
LPARAMETERS tp1 AS Variant , tp2 AS Variant , tp3 AS Variant 	&& Es könnten mehr sein!
LOCAL loCollection AS Collection , lni AS Integer
lni = PCOUNT()		&& Wieviele Parameter wurden übergeben?
loCollection = My.Bussines.Strain.Misc.GetParametersCount(m.lni,m.tp1,m.tp2,m.tp3)
WAIT WINDOW m.loCollection.Count		&& Anzahl der Werte (?)
IsInX13() - IDC in X13 vorhanden?

Rückgabe:[Boolean], Ist die IDC in X13 vorhanden?
Hilfeinformation
Prüft, ob die angegebene Langnummer 9n X13 vorhanden ist.
Rückgabe ist Boolean (.T./.F.)

Aufrufinformation
Boolean = My.Bussines.Strain.Misc.IsInX13(tcLastIdc AS String)
Boolean = My.Bussines.Strain.Misc.IsInX13(tcLastIdc)
Codeinformation
*/ 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
IsProject() - Berechnen des Projekts

Rückgabe:[String], Gibt das Projekt (IDK10) für eine Bestellzeile zurück, wenn diese zu EINEM Projekt gehört.
Hilfeinformation
Gibt das Projekt der Bestellzeile zurück, sofern die Bestellung auf ein Projekt verweist.
Es wird immer nur EIN Projekt zurückgegeben!

Aufrufinformation
String = My.Bussines.Strain.Misc.IsProject(tcIdd40 AS STRING,tcIdd51 AS STRING)
String = My.Bussines.Strain.Misc.IsProject(tcIdd40,tcIdd51)
Codeinformation
*/ 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
IsProjectX() - Berechnen von Projekt und Lagerort

Rückgabe:[Boolean], Gibt Projekt (IDK10) und Lagerort (IDC66) für eine Bestellzeile zurück, wenn diese zu EINEM Projekt gehört.
Hilfeinformation
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!

Aufrufinformation
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)
Codeinformation
*/ 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
OA01W() - Schreiben A01

oRecord,cAction=N-eu,L-öschen|l-öschen,A-endern des Datensatzes in: A01-EK-Auswertung im Vorgang
Hilfeinformation

Aufrufinformation
Variant = My.Bussines.Strain.Misc.OA01W(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.OA01W(toRecord,tcAction,tlCheckNew)
Codeinformation


OF60w() - Schreiben F60

 oRecord,cAction=N-eu,L-öschen|l-öschen,A-endern des Datensatzes in: F60-Fertigungsauftrag
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Strain.Misc.OF60w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.OF60w(toRecord,tcAction,tlCheckNew)


Codeinformation




SetParameters() - Collection to Parameter

 Wandelt eine übergebene Collection in Parameter um.
Hilfeinformation

Wandelt eine übergebene Collection in Parameter um.
Umkehrfunktion zu GetParameters.
Aufrufinformation


Variant = My.Bussines.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)


Codeinformation


*/ Umwandeln einer Collection in Parameter
LOCAL loCollection AS Collection,lnVar1 AS Number,lnVar2 AS Number
loCollection = CREATEOBJECT("Collection")
=loCollection.Add(1,"tvp1")
=loCollection.Add(2,"tvp2")
=My.Bussines.Strain.Misc.SetParameters(m.loCollection,@lnVar1,@lnVar2)
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2


Technik() - Abruf technischer Daten

 Rückgabe:[Variant], Abruf technischer Daten aus B02
Hilfeinformation

Gibt technische Werte aus B02 zurück.
Je nach Angabe kann die Rückgabe vom Typ [C] oder [N] sein.
Aufrufinformation


Variant = My.Bussines.Strain.Misc.Technik(tcIdc51 AS STRING,tcIdb01 AS STRING)
Variant = My.Bussines.Strain.Misc.Technik(tcIdc51,tcIdb01)


Codeinformation


*/ 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)



_SqlCount() - Anzahl der Datensätze

 Anzahl der Datensätze eines SQL Statements ermitteln.
Hilfeinformation

Anzahl der Datensätze eines SQL Statements ermitteln.
Die Rückgabe ist Number oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
Aufrufinformation


Variant = My.Bussines.Strain.Misc._SqlCount(tcSql AS String)
Variant = My.Bussines.Strain.Misc._SqlCount(tcSql)


Codeinformation


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!


_SqlExist() - Gibt es Datensätze?

 Werden Datensätze durch den SQL ermittelt?
Hilfeinformation

Werden Datensätze im SQL-Statement ermittelt?
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
Aufrufinformation


Variant = My.Bussines.Strain.Misc._SqlExist(tcSql AS String)
Variant = My.Bussines.Strain.Misc._SqlExist(tcSql)


Codeinformation


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!


_SqlObject() - 

 Holt die Daten der Datenbank direkt in ein Objekt und schliesst die Tabellen!
Hilfeinformation

Holt die Daten der Datenbank direkt in ein Objekt und schliesst die Tabellen!
Aufrufinformation


Variant = My.Bussines.Strain.Misc._SqlObject(tcSql AS STRING)
Variant = My.Bussines.Strain.Misc._SqlObject(tcSql)


Codeinformation




_SqlRead() - Lesen von SQL Daten

 Ausführen eines SQL-Statements und Rückgabe des angegebenen Cursors.
Hilfeinformation

Ausführen eines SQL-Statements und Rückgabe des angegebenen Cursors.
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
Aufrufinformation


Variant = My.Bussines.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)


Codeinformation


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>


_SqlReadArray() - SQL Daten in ein Array

 Ausführen eines SQL-Statements in ein Array und Rückgabe der Datensätze.
Hilfeinformation

Ausführen eines SQL-Statements in ein Array und Rückgabe ob Daten ermittelt wurden.
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
Aufrufinformation


Variant = My.Bussines.Strain.Misc._SqlReadArray(tcSql AS String,toObject AS Object,taArray)
Variant = My.Bussines.Strain.Misc._SqlReadArray(tcSql,toObject,taArray)


Codeinformation


LOCAL lcSql AS String , laErg[1] , loObject AS Object
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
*/ Ausführen in ein lokales Array
IF My.Bussines.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


_SqlReadCollection() - SQL Daten in eine Collection

 Ausführen eines SQL-Statements in eine Collection und Rückgabe der Collection.
Hilfeinformation

Ausführen eines SQL-Statements in eine Collection und Rückgabe der Collection.
Die Rückgabe ist Collection oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
Aufrufinformation


Variant = My.Bussines.Strain.Misc._SqlReadCollection(tcSql AS String,tcIndex AS String)
Variant = My.Bussines.Strain.Misc._SqlReadCollection(tcSql,tcIndex)


Codeinformation


LOCAL lcSql AS String , loColl AS Collection
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
*/ Normale Ausführung OHNE Indexangabe.
*/ Die Keys der Collection sind fortlaufend nummeriert!
loColl= My.Bussines.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"


_SqlReadValue() - SQL Abfrage einer Value

 Ausführen eines SQL-Statements und Rückgabe der Value des ERSTEN Feldes.
Hilfeinformation

Ausführen eines SQL-Statements und Rückgabe der Value des ERSTEN Feldes.
Die Rückgabe ist Variant oder .NULL.
Die Datenbankangaben:
      CSYSDIR! => My.Clients.Path.cSysDir
      CDBFDIR! => My.Clients.Path.cDbfDir
      CFRXDIR! => My.Clients.Path.cFrxDir
      CNETDIR! => My.Clients.Path.cNetDir
      CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
Aufrufinformation


Variant = My.Bussines.Strain.Misc._SqlReadValue(tcSql AS String,tiValue AS Integer)
Variant = My.Bussines.Strain.Misc._SqlReadValue(tcSql,tiValue)


Codeinformation


LOCAL lcSql AS String , lvValue AS Variant
*/ Gibt den Inhalt der ERSTEN Spalte zurück
lcSql = [SELECT bezei,kurz,master FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
lvValue = My.Bussines.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


_SqlUpdate() - Einen Cursor updaten

 UPDATE eines lokalen Cursors gegenüber der angegebenen Tabelle durchführen.
Hilfeinformation

UPDATE eines lokalen Cursors gegenüber der angegebenen Tabelle durchführen.
Die Rückgabe ist Boolean oder .NULL.
Der Cursor MUSS die Spalten __Changed und __New enthalten!
Außerdem MUSS die Zieltabelle die Spalte LastUpd enthalten!
Aufrufinformation


Variant = My.Bussines.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)


Codeinformation


LOCAL lcSql AS String , tlUpdate AS Boolean
lcSql = [SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH']
*/ Lesen der Daten vom Backend
IF My.Bussines.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


_SqlUpdateAll() - Eine Cursorliste updaten

 UPDATE eines lokalen Cursors gegenüber der angegebenen Tabelle durchführen.
Hilfeinformation

UPDATE mehrerer lokaler Cursor gegenüber den angegebenen Tabellen durchführen.
Die Rückgabe ist Boolean oder .NULL.
Die Cursor MUSS die Spalten __Changed und __New enthalten!
Außerdem MUSS die Zieltabelle die Spalte LastUpd enthalten!
Aufrufinformation


;Filter1 = My.Bussines.Strain.Misc._SqlUpdateAll(tcList AS STRING)
;Filter1 = My.Bussines.Strain.Misc._SqlUpdateAll(tcList)


Codeinformation


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]


aD40E10() - Erstellt ein Array mit den Vorgangsinformationen

 Rückgabe:[Integer], Array mit Informationen zu den Anforderen einer Bestellung bzw. einer Bestellposition
Hilfeinformation

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


Aufrufinformation


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)


Codeinformation


*/ 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()


aD40K10() - Erstellt ein Array mit Projektinformationen der Bestellung

 Rückgabe:[Integer], Gibt alle Projekte (IDK10) zu einer Bestellung bzw. Bestellposition zurück. Rückgabe ist Anzahl der Array-Einträge
Hilfeinformation

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...
Aufrufinformation


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)


Codeinformation


*/ 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()!


cD40E10() - Erstellt einen String mit den Vorgangsinformationen

 Rückgabe:[String], String mit Informationen zu den Anforderen einer Bestellung bzw. einer Bestellposition
Hilfeinformation

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!
Aufrufinformation


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)


Codeinformation


*/ 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()!


cD40K10() - Erstellt einen String mit Projektinformationen der Bestellung

 Rückgabe:[String], Gibt einen String mit aufgelisteten Projektnummern der Bestellung zurück. Ähnlich aD40K10()
Hilfeinformation

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!
Aufrufinformation


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)


Codeinformation


*/ 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()!


cE10Last() - Gibt den Letzten/Ersten Vorgang eines Benutzers zurück

 Gibt den LETZTEN Vorgang eines Benutzers zurück
Hilfeinformation

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
Aufrufinformation


Variant = My.Bussines.Strain.Misc.cE10Last(tcWer AS STRING , RcIP AS STRING @ , tlFirst AS Boolean)
Variant = My.Bussines.Strain.Misc.cE10Last(tcWer,@RcIP,tlFirst)


Codeinformation


*/ 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



cE10ip() - Gibt die Vorgangsart zurück

 Rückgabe:[String], Rückgabe der IP der angegebenen Vorgangsnummer oder VorgangsID
Hilfeinformation

Rückgabe der Vorgangsart (E10.IPY01) zur Vorgangs- Nummer oder ID.
Aufrufinformation


String = My.Bussines.Strain.Misc.cE10ip(tcVorg AS String , tlNumber AS Boolean)
String = My.Bussines.Strain.Misc.cE10ip(tcVorg,tlNumber)


Codeinformation


*/ 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!



cF02s() - Enthalten in

 Gibt einen String mit den Köpfen der Baugruppen zurück. ;idb01;idb01;idb01;..
Hilfeinformation

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.
Aufrufinformation


Variant = My.Bussines.Strain.Misc.cF02s(tcIdb01s AS STRING)
Variant = My.Bussines.Strain.Misc.cF02s(tcIdb01s)


Codeinformation




lFreeDay() - Ist das Datum ein Feiertag?

 Ist der angegebene Tag ein Feiertag?
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Strain.Misc.lFreeDay(tdDate AS DATE , tcIdc14 AS STRING)
Variant = My.Bussines.Strain.Misc.lFreeDay(tdDate,tcIdc14)


Codeinformation




oB01w() - Datenänderung der Tabelle: 'B01' - 'Artikelstamm'

 B01' - 'Artikelstamm
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oB01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oB01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oB02w() - Datenänderung der Tabelle: 'B02' - 'Variabler Technikteil'

 B02' - 'Variabler Technikteil
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oB02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oB02w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oB03w() - Datenänderung der Tabelle: 'B03' - 'Referenzartikel'

 B03' - 'Referenzartikel
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oB03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oB03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oB04w() - Datenänderung der Tabelle: 'B04' - 'Artikelstamm (Sprache)'

 B04' - 'Artikelstamm (Sprache)
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oB04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oB04w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oB12w() - Datenänderung der Tabelle: 'B12' - 'TQFS-im Artikelstamm'

 B12' - 'TQFS-im Artikelstamm
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oB12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oB12w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oB92w() - Datenänderung der Tabelle: 'B92' - 'Variabler Technikteil (S)'

 B92' - 'Variabler Technikteil (S)
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oB92w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oB92w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oB99w() - Datenänderung der Tabelle: 'B99' - 'Technische Summen'

 B99' - 'Technische Summen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oB99w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oB99w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC02w() - Datenänderung der Tabelle: 'C02' - 'Lohngruppen'

 C02' - 'Lohngruppen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC02w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC03w() - Datenänderung der Tabelle: 'C03' - 'Währungen'

 C03' - 'Währungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC07w() - Datenänderung der Tabelle: 'C07' - 'Kontinente'

 C07' - 'Kontinente
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC07w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC07w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC08T() - Abruf der Tabelle C08

 Gibt ein Steuerschlüssel - Objekt zurück, dass durch die Daten ermittelt wurde
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC08T(tcIdc08 AS STRING,tcIdc09St AS STRING,tdDate AS DATE)
Variant = My.Bussines.Strain.Misc.oC08T(tcIdc08,tcIdc09St,tdDate)


Codeinformation




oC08w() - Datenänderung der Tabelle: 'C08' - 'Steuerschlüssel'

 C08' - 'Steuerschlüssel
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC08w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC08w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC09w() - Datenänderung der Tabelle: 'C09' - 'Länder'

 C09' - 'Länder
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC09w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC09w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC10w() - Datenänderung der Tabelle: 'C10' - 'Versandarten'

 C10' - 'Versandarten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC13w() - Datenänderung der Tabelle: 'C13' - 'Rabattgruppe'

 C13' - 'Rabattgruppe
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC13w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC13w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC14w() - Datenänderung der Tabelle: 'C14' - 'Kalender'

 C14' - 'Kalender
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC14w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC14w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC15w() - Datenänderung der Tabelle: 'C15' - 'Kalenderpositionen'

 C15' - 'Kalenderpositionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC15w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC16w() - Datenänderung der Tabelle: 'C16' - 'Branchen'

 C16' - 'Branchen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC16w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC18w() - Datenänderung der Tabelle: 'C18' - 'Banken (BLZ)'

 C18' - 'Banken (BLZ)
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC18w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC18w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC19w() - Datenänderung der Tabelle: 'C19' - 'Einheiten-Basiseinheiten'

 C19' - 'Einheiten-Basiseinheiten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC19w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC19w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC20T() - Abruf der Tabelle C21+C20

 Gibt ein Fibugruppen - Objekt zurück, dass durch die Daten ermittelt wurde
Hilfeinformation


Aufrufinformation


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)


Codeinformation




oC20w() - Datenänderung der Tabelle: 'C20' - 'FIBU - Gruppen Kopfdaten'

 C20' - 'FIBU - Gruppen Kopfdaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC21w() - Datenänderung der Tabelle: 'C21' - 'FIBU - Gruppen Positionen'

 C21' - 'FIBU - Gruppen Positionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC21w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC22w() - Datenänderung der Tabelle: 'C22' - 'Lieferbedingungen'

 C22' - 'Lieferbedingungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC22w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC22w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC23w() - Datenänderung der Tabelle: 'C23' - 'Preisgruppen Einkauf'

 C23' - 'Preisgruppen Einkauf
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC23w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC23w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC24w() - Datenänderung der Tabelle: 'C24' - 'Zahlungskonditionen'

 C24' - 'Zahlungskonditionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC24w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC24w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC26w() - Datenänderung der Tabelle: 'C26' - 'Sprachen'

 C26' - 'Sprachen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC26w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC26w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC27w() - Datenänderung der Tabelle: 'C27' - 'Abschlagsarten'

 C27' - 'Abschlagsarten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC27w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC27w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC28w() - Datenänderung der Tabelle: 'C28' - 'Vorgangsarten'

 C28' - 'Vorgangsarten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC28w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC28w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC29w() - Datenänderung der Tabelle: 'C29' - 'Anlagenbezeichner'

 C29' - 'Anlagenbezeichner
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC29w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC29w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC30w() - Datenänderung der Tabelle: 'C30' - 'Adressen'

 C30' - 'Adressen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC30w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC31w() - Datenänderung der Tabelle: 'C31' - 'Kostenträger'

 C31' - 'Kostenträger
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC31w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC31w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC32w() - Datenänderung der Tabelle: 'C32' - 'Kostenstellen'

 C32' - 'Kostenstellen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC32w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC32w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC33w() - Datenänderung der Tabelle: 'C33' - 'Artikelhauptgruppen'

 C33' - 'Artikelhauptgruppen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC33w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC33w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC34w() - Datenänderung der Tabelle: 'C34' - 'Artikeluntergruppen'

 C34' - 'Artikeluntergruppen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC34w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC34w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC39w() - Datenänderung der Tabelle: 'C39' - 'Mitarbeitergruppen'

 C39' - 'Mitarbeitergruppen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC39w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC39w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC40w() - Datenänderung der Tabelle: 'C40' - 'Textbausteine'

 C40' - 'Textbausteine
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC40w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC41w() - Datenänderung der Tabelle: 'C41' - 'Kostenarten'

 C41' - 'Kostenarten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC41w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC41w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC42w() - Datenänderung der Tabelle: 'C42' - 'Statistikgruppen'

 C42' - 'Statistikgruppen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC42w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC42w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC43w() - Datenänderung der Tabelle: 'C43' - 'Preisgruppen Verkauf'

 C43' - 'Preisgruppen Verkauf
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC43w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC43w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC44w() - Datenänderung der Tabelle: 'C44' - 'Produktgruppen'

 C44' - 'Produktgruppen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC44w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC44w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC48w() - Datenänderung der Tabelle: 'C48' - 'Prüfvorschriften'

 C48' - 'Prüfvorschriften
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC48w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC48w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC49w() - Datenänderung der Tabelle: 'C49' - 'Kennbuchstaben'

 C49' - 'Kennbuchstaben
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC49w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC49w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC50w() - Datenänderung der Tabelle: 'C50' - 'VNS Klassen'

 C50' - 'VNS Klassen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC50w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC51w() - Datenänderung der Tabelle: 'C51' - 'VNS Ausprägungsmerkmale'

 C51' - 'VNS Ausprägungsmerkmale
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC51w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC51w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC52Ext() - Ermitteln C52

 Abfrage der C52 über eine Erweiterte Struktur
Hilfeinformation

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!
Aufrufinformation


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)


Codeinformation




oC52w() - Datenänderung der Tabelle: 'C52' - 'Adressverknüpfungen'

 C52' - 'Adressverknüpfungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC52w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC52w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC53w() - Datenänderung der Tabelle: 'C53' - 'Support Meldungen'

 C53' - 'Support Meldungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC53w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC53w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC54w() - Datenänderung der Tabelle: 'C54' - 'Entwickler-Module'

 C54' - 'Entwickler-Module
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC54w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC54w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC55w() - Datenänderung der Tabelle: 'C55' - 'Verträge / Presente'

 C55' - 'Verträge / Presente
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC55w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC55w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC61w() - Datenänderung der Tabelle: 'C61' - 'Lieferanten'

 C61' - 'Lieferanten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC61w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC61w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC62w() - Datenänderung der Tabelle: 'C62' - 'Hersteller'

 C62' - 'Hersteller
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC62w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC62w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC63w() - Datenänderung der Tabelle: 'C63' - 'Kunden'

 C63' - 'Kunden
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC63w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC63w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC65w() - Datenänderung der Tabelle: 'C65' - 'Benutzer'

 C65' - 'Benutzer
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC65w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC65w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC66w() - Datenänderung der Tabelle: 'C66' - 'Lagerorte'

 C66' - 'Lagerorte
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC66w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC66w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC67w() - Datenänderung der Tabelle: 'C67' - 'Ansprechpartner'

 C67' - 'Ansprechpartner
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC67w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC67w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC68w() - Datenänderung der Tabelle: 'C68' - 'Sachbearbeiter'

 C68' - 'Sachbearbeiter
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC68w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC68w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC69w() - Datenänderung der Tabelle: 'C69' - 'Vertreter'

 C69' - 'Vertreter
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC69w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC69w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC70w() - Datenänderung der Tabelle: 'C70' - 'Kunden Vertreter'

 C70' - 'Kunden Vertreter
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC70w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC70w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC71w() - Datenänderung der Tabelle: 'C71' - 'Vorgang Vertreter'

 C71' - 'Vorgang Vertreter
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC71w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC71w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC72w() - Datenänderung der Tabelle: 'C72' - 'Produktzuordnung'

 C72' - 'Produktzuordnung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC72w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC72w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC73w() - Datenänderung der Tabelle: 'C73' - 'Vorg.-P.-Produktzuordnung'

 C73' - 'Vorg.-P.-Produktzuordnung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC73w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC73w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC74w() - Datenänderung der Tabelle: 'C74' - 'Seriennummernzuordnung'

 C74' - 'Seriennummernzuordnung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC74w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC74w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC75w() - Datenänderung der Tabelle: 'C75' - 'Statistikmerkmale-1'

 C75' - 'Statistikmerkmale-1
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC75w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC75w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC76w() - Datenänderung der Tabelle: 'C76' - 'Statistikmerkmale-2'

 C76' - 'Statistikmerkmale-2
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC76w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC76w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC77w() - Datenänderung der Tabelle: 'C77' - 'Statistikmerkmale-3'

 C77' - 'Statistikmerkmale-3
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC77w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC77w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC78w() - Datenänderung der Tabelle: 'C78' - 'Statistikmerkmale-4'

 C78' - 'Statistikmerkmale-4
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC78w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC78w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC80w() - Datenänderung der Tabelle: 'C80' - 'Dispotypen'

 C80' - 'Dispotypen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC80w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC80w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC81w() - Datenänderung der Tabelle: 'C81' - 'Bewertungskriterien'

 C81' - 'Bewertungskriterien
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC81w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC81w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC82w() - Datenänderung der Tabelle: 'C82' - 'Bewertungsprioritäten'

 C82' - 'Bewertungsprioritäten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC82w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC82w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC83w() - Datenänderung der Tabelle: 'C83' - 'Minderungen'

 C83' - 'Minderungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC83w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC83w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC84w() - Datenänderung der Tabelle: 'C84' - 'Minderungskennzeichen'

 C84' - 'Minderungskennzeichen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC84w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC84w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC91w() - Datenänderung der Tabelle: 'C91' - 'Lieferantenrabatte'

 C91' - 'Lieferantenrabatte
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC91w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC91w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC97w() - Datenänderung der Tabelle: 'C97' - 'Montagearten'

 C97' - 'Montagearten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC97w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC97w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC98w() - Datenänderung der Tabelle: 'C98' - 'Elemente / Legierungen'

 C98' - 'Elemente / Legierungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC98w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC98w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oC99w() - Datenänderung der Tabelle: 'C99' - 'VNS-Einheiten'

 C99' - 'VNS-Einheiten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oC99w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oC99w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD03VG() - Ermitteln der IDD03

 Abruf der EK-Daten mittels IDB01,IDC61 und Menge
Hilfeinformation

Abruf der EK-Daten mittels IDB01,IDC61 und Menge. Rückgabe ist ein Datensatzobjekt der Tabelle D03
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD03VG(tcIdb01 AS String,tcIdc61 AS String,tnQ0 AS Number)
Object = My.Bussines.Strain.Misc.oD03VG(tcIdb01,tcIdc61,tnQ0)


Codeinformation


*/ 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!


oD03w() - Datenänderung der Tabelle: 'D03' - 'Artikel EK-Daten'

 D03' - 'Artikel EK-Daten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD04GC() - Ermitteln B01+D04

 Rückgabe:[Object], Gibt ein Objekt mit den Feldern aus B01+D04 zurück. Wenn keine Daten ermittelt wurden, dann .NULL.
Hilfeinformation

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!
Aufrufinformation


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)


Codeinformation


*/ 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



oD04VG() - Ermitteln der IDD04

 Abruf der D04 aus Vorgangsdaten... Rückgabe: Datensatz aus D04
Hilfeinformation

Abruf der D04 aus Vorgangsdaten... Rückgabe: Datensatz aus D04
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD04VG(tcIdb01 AS String,tcIdc63 AS String,tnMenge AS Number)
Object = My.Bussines.Strain.Misc.oD04VG(tcIdb01,tcIdc63,tnMenge)


Codeinformation


*/ 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!


oD04w() - Datenänderung der Tabelle: 'D04' - 'Artikel VK-Daten'

 D04' - 'Artikel VK-Daten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD04w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD05w() - Datenänderung der Tabelle: 'D05' - 'Rohstoffzuschläge'

 D05' - 'Rohstoffzuschläge
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD05w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD30w() - Datenänderung der Tabelle: 'D30' - 'Lieferantenanfragen'

 D30' - 'Lieferantenanfragen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD30w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD31w() - Datenänderung der Tabelle: 'D31' - 'Anfragepositionen/Lief.'

 D31' - 'Anfragepositionen/Lief.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD31w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD31w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD33w() - Datenänderung der Tabelle: 'D33' - 'Artikelanfragen'

 D33' - 'Artikelanfragen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD33w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD33w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD34w() - Datenänderung der Tabelle: 'D34' - 'Anfragepositionen/Artikel'

 D34' - 'Anfragepositionen/Artikel
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD34w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD34w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD35w() - Datenänderung der Tabelle: 'D35' - 'Lieferanten/Artikel'

 D35' - 'Lieferanten/Artikel
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD35w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD35w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD39w() - Datenänderung der Tabelle: 'D39' - 'Bestelladressen'

 D39' - 'Bestelladressen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD39w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD39w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD40w() - Datenänderung der Tabelle: 'D40' - 'EK-Bestellungen'

 D40' - 'EK-Bestellungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD40w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD41w() - Datenänderung der Tabelle: 'D41' - 'EK-Wareneingänge'

 D41' - 'EK-Wareneingänge
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD41w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD41w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD42w() - Datenänderung der Tabelle: 'D42' - 'EK-Materialprüfungen'

 D42' - 'EK-Materialprüfungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD42w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD42w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD43w() - Datenänderung der Tabelle: 'D43' - 'EK-Rücklieferungen'

 D43' - 'EK-Rücklieferungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD43w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD43w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD44w() - Datenänderung der Tabelle: 'D44' - 'EK-Rechnungen'

 D44' - 'EK-Rechnungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD44w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD44w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD45w() - Datenänderung der Tabelle: 'D45' - 'EK-Spediteursrechnungen'

 D45' - 'EK-Spediteursrechnungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD45w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD45w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD46w() - Datenänderung der Tabelle: 'D46' - 'EK-Gutschriften'

 D46' - 'EK-Gutschriften
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD46w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD46w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD47w() - Datenänderung der Tabelle: 'D47' - 'EK-Mahnungen'

 D47' - 'EK-Mahnungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD47w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD47w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD50w() - Datenänderung der Tabelle: 'D50' - 'EK-Zuordnungen'

 D50' - 'EK-Zuordnungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD50w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD51w() - Datenänderung der Tabelle: 'D51' - 'EK-Bestellungen -Pos'

 D51' - 'EK-Bestellungen -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD51w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD51w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD52w() - Datenänderung der Tabelle: 'D52' - 'EK-Wareneingänge -Pos'

 D52' - 'EK-Wareneingänge -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD52w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD52w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD53w() - Datenänderung der Tabelle: 'D53' - 'EK-Materialprüfungen -Pos'

 D53' - 'EK-Materialprüfungen -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD53w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD53w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD54w() - Datenänderung der Tabelle: 'D54' - 'EK-Rücklieferungen -Pos'

 D54' - 'EK-Rücklieferungen -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD54w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD54w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD55w() - Datenänderung der Tabelle: 'D55' - 'EK-Rechnungen -Pos'

 D55' - 'EK-Rechnungen -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD55w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD55w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD56w() - Datenänderung der Tabelle: 'D56' - 'EK-Spediteursrechnungen -'

 D56' - 'EK-Spediteursrechnungen -
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD56w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD56w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD57w() - Datenänderung der Tabelle: 'D57' - 'EK-Gutschriften -Pos'

 D57' - 'EK-Gutschriften -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD57w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD57w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oD58w() - Datenänderung der Tabelle: 'D58' - 'EK-Mahnungen -Pos'

 D58' - 'EK-Mahnungen -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oD58w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oD58w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oDisw() - Datenänderung der Tabelle: 'DIS' - 'Disposition'

 DIS' - 'Disposition
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oDisw(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oDisw(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE00w() - Datenänderung der Tabelle: 'E00' - 'VK-Vorgangsdokumente'

 E00' - 'VK-Vorgangsdokumente
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE00w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE00w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE01w() - Datenänderung der Tabelle: 'E01' - 'VK-Zuschlagsarten Kalk.'

 E01' - 'VK-Zuschlagsarten Kalk.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE03w() - Datenänderung der Tabelle: 'E03' - 'VK-Kalkulationsschema'

 E03' - 'VK-Kalkulationsschema
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE04w() - Datenänderung der Tabelle: 'E04' - 'VK-Lohngruppen'

 E04' - 'VK-Lohngruppen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE04w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE05w() - Datenänderung der Tabelle: 'E05' - 'VK-Gaeb-Daten zum Vorgang'

 E05' - 'VK-Gaeb-Daten zum Vorgang
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE05w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE06w() - Datenänderung der Tabelle: 'E06' - 'Kalkulierte Rohstoffdaten'

 E06' - 'Kalkulierte Rohstoffdaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE06w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE06w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE10Aw() - Datenänderung der Tabelle: 'E10A' - 'CAE-Pluspack'

 E10A' - 'CAE-Pluspack
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE10Aw(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE10Aw(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE10w() - Datenänderung der Tabelle: 'E10' - 'VK-Vorgänge'

 E10' - 'VK-Vorgänge
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE11w() - Datenänderung der Tabelle: 'E11' - 'VK-Vorgänge -Pos'

 E11' - 'VK-Vorgänge -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE11w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE12w() - Datenänderung der Tabelle: 'E12' - 'VK-Vorgänge Staffelpreise'

 E12' - 'VK-Vorgänge Staffelpreise
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE12w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE15w() - Datenänderung der Tabelle: 'E15' - 'VK-Vorgangsreferenzen'

 E15' - 'VK-Vorgangsreferenzen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE15w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE20w() - Datenänderung der Tabelle: 'E20' - 'VK-Aufmaßpositionen'

 E20' - 'VK-Aufmaßpositionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oE30w() - Datenänderung der Tabelle: 'E30' - 'Kopfdaten-Erweiterung'

 E30' - 'Kopfdaten-Erweiterung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oE30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oE30w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oF02w() - Datenänderung der Tabelle: 'F02' - 'Baugruppenpositionen'

 F02' - 'Baugruppenpositionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oF02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oF02w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oF03w() - Datenänderung der Tabelle: 'F03' - 'Baugruppen-Zusatzdaten'

 F03' - 'Baugruppen-Zusatzdaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oF03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oF03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oF61w() - Datenänderung der Tabelle: 'F61' - 'Fertigungsauftrag -Pos'

 F61' - 'Fertigungsauftrag -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oF61w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oF61w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oF62w() - Datenänderung der Tabelle: 'F62' - 'Fertigungsauftrag -Buch.'

 F62' - 'Fertigungsauftrag -Buch.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oF62w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oF62w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oF90w() - Datenänderung der Tabelle: 'F90' - 'CAE-Differenzliste'

 F90' - 'CAE-Differenzliste
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oF90w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oF90w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oF91w() - Datenänderung der Tabelle: 'F91' - 'CAE-Differenzliste -Pos'

 F91' - 'CAE-Differenzliste -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oF91w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oF91w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oFerw() - Datenänderung der Tabelle: 'FER' - 'Fehlermeldungen in FIBU'

 FER' - 'Fehlermeldungen in FIBU
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oFerw(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oFerw(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH01w() - Datenänderung der Tabelle: 'H01' - 'FIBU Kopfdaten'

 H01' - 'FIBU Kopfdaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH02w() - Datenänderung der Tabelle: 'H02' - 'FIBU Positionsdaten'

 H02' - 'FIBU Positionsdaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH02w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH03w() - Datenänderung der Tabelle: 'H03' - 'Buchungssätze FIBU'

 H03' - 'Buchungssätze FIBU
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH04w() - Datenänderung der Tabelle: 'H04' - 'Stammdatensätze FIBU'

 H04' - 'Stammdatensätze FIBU
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH04w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH05w() - Datenänderung der Tabelle: 'H05' - 'Übertragene Buchungen'

 H05' - 'Übertragene Buchungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH05w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH10w() - Datenänderung der Tabelle: 'H10' - 'Buchungs Kopfdaten'

 H10' - 'Buchungs Kopfdaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH11w() - Datenänderung der Tabelle: 'H11' - 'Buchungspositionen'

 H11' - 'Buchungspositionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH11w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH18w() - Datenänderung der Tabelle: 'H18' - 'Kontenrahmen'

 H18' - 'Kontenrahmen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH18w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH18w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oH19w() - Datenänderung der Tabelle: 'H19' - 'Kontenschlüssel'

 H19' - 'Kontenschlüssel
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oH19w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oH19w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI01w() - Datenänderung der Tabelle: 'I01' - 'Artikel - Lagerorte'

 I01' - 'Artikel - Lagerorte
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI05W() - Datenänderung der Tabelle I05 - Plandaten

 oRecord,cAction=N-eu,L-öschen|l-öschen,A-endern des Datensatzes in: I05-Resourcenplanung
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI05W(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI05W(toRecord,tcAction,tlCheckNew)


Codeinformation




oI15w() - Datenänderung der Tabelle: 'I15' - 'Disposammelbuchungen'

 I15' - 'Disposammelbuchungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI15w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI16w() - Datenänderung der Tabelle: 'I16' - 'Dispositionshinweise'

 I16' - 'Dispositionshinweise
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI16w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI17w() - Datenänderung der Tabelle: 'I17' - 'Überschußmengen'

 I17' - 'Überschußmengen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI17w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI17w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI18w() - Datenänderung der Tabelle: 'I18' - 'Korrekturbuchungen'

 I18' - 'Korrekturbuchungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI18w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI18w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI19w() - Datenänderung der Tabelle: 'I19' - 'Bestellvorschlag'

 I19' - 'Bestellvorschlag
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI19w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI19w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI20w() - Datenänderung der Tabelle: 'I20' - 'Disposition'

 I20' - 'Disposition
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI21St() - Gibt ein Objekt mit Status- bzw. SummenInformationen zurück

 Rückgabe:[Object], Gibt ein Objekt mit Status- bzw. SummenInformationen zurück. Übergeben wird IDB01,IDK10 und IDC66, tnWhat kann sein: 0-Alle, 1-Ab ltz. Inventur, 2-Ab ltz. Inventurbewertung
Hilfeinformation

Gibt ein Objekt mit den Informationen  aus I21 zurück. Siehe Beispielcode.
Aufrufinformation


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)


Codeinformation


*/ 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.



oI21w() - Datenänderung der Tabelle: 'I21' - 'Buchungsjournal'

 I21' - 'Buchungsjournal
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI21w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI22w() - Datenänderung der Tabelle: 'I22' - 'Lagerumbuchungen'

 I22' - 'Lagerumbuchungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI22w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI22w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI23w() - Datenänderung der Tabelle: 'I23' - 'Lagerumbuchungen -Pos'

 I23' - 'Lagerumbuchungen -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI23w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI23w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI24w() - Datenänderung der Tabelle: 'I24' - 'Fertigungsaufträge'

 I24' - 'Fertigungsaufträge
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI24w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI24w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI25w() - Datenänderung der Tabelle: 'I25' - 'Fertigungsaufträge -Pos'

 I25' - 'Fertigungsaufträge -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI25w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI25w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI26w() - Datenänderung der Tabelle: 'I26' - 'Materialanforderung auto'

 I26' - 'Materialanforderung auto
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI26w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI26w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI27w() - Datenänderung der Tabelle: 'I27' - 'Materialanforderung -Pos'

 I27' - 'Materialanforderung -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI27w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI27w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI28w() - Datenänderung der Tabelle: 'I28' - 'Materialanforderung man.'

 I28' - 'Materialanforderung man.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI28w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI28w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI29w() - Datenänderung der Tabelle: 'I29' - 'Materialanforderung -Pos'

 I29' - 'Materialanforderung -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI29w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI29w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI30w() - Datenänderung der Tabelle: 'I30' - 'Lagerzugänge'

 I30' - 'Lagerzugänge
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI30w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI31w() - Datenänderung der Tabelle: 'I31' - 'Lagerzugänge -Pos'

 I31' - 'Lagerzugänge -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI31w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI31w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI32w() - Datenänderung der Tabelle: 'I32' - 'Lagerabgänge'

 I32' - 'Lagerabgänge
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI32w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI32w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI33w() - Datenänderung der Tabelle: 'I33' - 'Lagerabgänge -Pos'

 I33' - 'Lagerabgänge -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI33w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI33w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI40w() - Datenänderung der Tabelle: 'I40' - 'Inventur'

 I40' - 'Inventur
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI40w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI41w() - Datenänderung der Tabelle: 'I41' - 'Inventur -Pos'

 I41' - 'Inventur -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI41w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI41w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI50w() - Datenänderung der Tabelle: 'I50' - 'Inventurbewertung'

 I50' - 'Inventurbewertung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI50w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI51w() - Datenänderung der Tabelle: 'I51' - 'Inventurbewertung -Pos'

 I51' - 'Inventurbewertung -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI51w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI51w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI52w() - Datenänderung der Tabelle: 'I52' - 'Inventurbewertung -U.Pos'

 I52' - 'Inventurbewertung -U.Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI52w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI52w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI54w() - Datenänderung der Tabelle: 'I54' - 'Wertminderungen'

 I54' - 'Wertminderungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI54w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI54w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI55w() - Datenänderung der Tabelle: 'I55' - 'Bewertungsfehler'

 I55' - 'Bewertungsfehler
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI55w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI55w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oI62W() - Lagerbuchung extern

 oRecord,cAction=N-eu,L-öschen|l-öschen,A-endern des Datensatzes in: I62-Lagerbuchung (extern)
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI62W(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI62W(toRecord,tcAction,tlCheckNew)


Codeinformation




oI63W() - Lagerbuchungspositionen extern

 oRecord,cAction=N-eu,L-öschen|l-öschen,A-endern des Datensatzes in: I63-Lagerbuchungspos. (extern)
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Strain.Misc.oI63W(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oI63W(toRecord,tcAction,tlCheckNew)


Codeinformation




oJ30w() - Datenänderung der Tabelle: 'J30' - 'BDE-Aufträge'

 J30' - 'BDE-Aufträge
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oJ30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oJ30w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oJ32w() - Datenänderung der Tabelle: 'J32' - 'Auftragsdatenimport BDE'

 J32' - 'Auftragsdatenimport BDE
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oJ32w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oJ32w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oJ40w() - Datenänderung der Tabelle: 'J40' - 'BDE-Übergaben'

 J40' - 'BDE-Übergaben
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oJ40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oJ40w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oJ41w() - Datenänderung der Tabelle: 'J41' - 'BDE-Übergaben -Pos'

 J41' - 'BDE-Übergaben -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oJ41w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oJ41w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oK06w() - Datenänderung der Tabelle: 'K06' - 'Vorgänge - Edelmetalle'

 K06' - 'Vorgänge - Edelmetalle
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oK06w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oK06w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oK10w() - Datenänderung der Tabelle: 'K10' - 'Projekte'

 K10' - 'Projekte
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oK10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oK10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oK11w() - Datenänderung der Tabelle: 'K11' - 'Projektzuordnungen'

 K11' - 'Projektzuordnungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oK11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oK11w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oK12w() - Datenänderung der Tabelle: 'K12' - 'ausgelagerte Projekte'

 K12' - 'ausgelagerte Projekte
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oK12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oK12w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oK20w() - Datenänderung der Tabelle: 'K20' - 'Projektlagerauflösung'

 K20' - 'Projektlagerauflösung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oK20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oK20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oK30w() - Datenänderung der Tabelle: 'K30' - 'Prognosen Kopftabelle'

 K30' - 'Prognosen Kopftabelle
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oK30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oK30w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oK31w() - Datenänderung der Tabelle: 'K31' - 'Prognosen Positionen'

 K31' - 'Prognosen Positionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oK31w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oK31w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oL20w() - Datenänderung der Tabelle: 'L20' - 'Dokumente'

 L20' - 'Dokumente
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oL20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oL20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oL21w() - Datenänderung der Tabelle: 'L21' - 'Dokumentgruppen'

 L21' - 'Dokumentgruppen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oL21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oL21w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oL26w() - Datenänderung der Tabelle: 'L26' - 'Übersetzungen'

 L26' - 'Übersetzungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oL26w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oL26w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO01w() - Datenänderung der Tabelle: 'O01' - 'Kanaldaten'

 O01' - 'Kanaldaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO02w() - Datenänderung der Tabelle: 'O02' - 'Anschlußgruppe'

 O02' - 'Anschlußgruppe
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO02w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO03w() - Datenänderung der Tabelle: 'O03' - 'Anschlußdaten'

 O03' - 'Anschlußdaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO04w() - Datenänderung der Tabelle: 'O04' - 'Austauschteile'

 O04' - 'Austauschteile
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO04w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO05w() - Datenänderung der Tabelle: 'O05' - 'Zubehörteile'

 O05' - 'Zubehörteile
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO05w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO10w() - Datenänderung der Tabelle: 'O10' - 'Ausprägng. Kanal'

 O10' - 'Ausprägng. Kanal
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO20w() - Datenänderung der Tabelle: 'O20' - 'Ausprägng. Anschlußgrg.'

 O20' - 'Ausprägng. Anschlußgrg.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO30w() - Datenänderung der Tabelle: 'O30' - 'Ausprägng. Anschluß'

 O30' - 'Ausprägng. Anschluß
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO30w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO30w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO40w() - Datenänderung der Tabelle: 'O40' - 'Wert Kanal'

 O40' - 'Wert Kanal
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO40w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO40w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO50w() - Datenänderung der Tabelle: 'O50' - 'Wert Anschlußgruppe'

 O50' - 'Wert Anschlußgruppe
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO50w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO60w() - Datenänderung der Tabelle: 'O60' - 'Wert Anschluß'

 O60' - 'Wert Anschluß
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO60w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO60w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oO99w() - Datenänderung der Tabelle: 'O99' - 'Vorgabewerte'

 O99' - 'Vorgabewerte
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oO99w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oO99w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP11w() - Datenänderung der Tabelle: 'P11' - 'Schnittstellendefinition'

 P11' - 'Schnittstellendefinition
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP11w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP12w() - Datenänderung der Tabelle: 'P12' - 'Satzkenner 1'

 P12' - 'Satzkenner 1
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP12w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP13w() - Datenänderung der Tabelle: 'P13' - 'Satzkenner 2'

 P13' - 'Satzkenner 2
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP13w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP13w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP14w() - Datenänderung der Tabelle: 'P14' - 'Exportdatei Felder'

 P14' - 'Exportdatei Felder
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP14w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP14w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP15w() - Datenänderung der Tabelle: 'P15' - 'Importformat'

 P15' - 'Importformat
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP15w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP16w() - Datenänderung der Tabelle: 'P16' - 'Exportformat'

 P16' - 'Exportformat
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP16w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP20w() - Datenänderung der Tabelle: 'P20' - 'Substringdefinitionen'

 P20' - 'Substringdefinitionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP21w() - Datenänderung der Tabelle: 'P21' - 'Substringdef. Detail'

 P21' - 'Substringdef. Detail
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP21w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP80w() - Datenänderung der Tabelle: 'P80' - 'Übernahme Eplan-Stammdate'

 P80' - 'Übernahme Eplan-Stammdate
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP80w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP80w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP81w() - Datenänderung der Tabelle: 'P81' - 'Technische Daten P80'

 P81' - 'Technische Daten P80
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP81w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP81w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP90w() - Datenänderung der Tabelle: 'P90' - 'Exportdatei ECAD-BAUT.'

 P90' - 'Exportdatei ECAD-BAUT.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP90w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP90w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP91w() - Datenänderung der Tabelle: 'P91' - 'EXPORT / Positionen'

 P91' - 'EXPORT / Positionen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP91w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP91w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP95w() - Datenänderung der Tabelle: 'P95' - 'Importdatei ECAD-BAUT.'

 P95' - 'Importdatei ECAD-BAUT.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP95w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP95w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP96w() - Datenänderung der Tabelle: 'P96' - 'Importpositionen / ECAD'

 P96' - 'Importpositionen / ECAD
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP96w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP96w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP97w() - Datenänderung der Tabelle: 'P97' - 'ECAD-Import Preise'

 P97' - 'ECAD-Import Preise
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP97w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP97w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oP98w() - Datenänderung der Tabelle: 'P98' - 'ECAD-Import Edelmetalle'

 P98' - 'ECAD-Import Edelmetalle
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oP98w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oP98w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oQ01w() - Datenänderung der Tabelle: 'Q01' - 'Manuelle BDE-Erfassung'

 Q01' - 'Manuelle BDE-Erfassung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oQ01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oQ01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oQ02w() - Datenänderung der Tabelle: 'Q02' - 'Reise- / Sonstige Kosten'

 Q02' - 'Reise- / Sonstige Kosten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oQ02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oQ02w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oQ03w() - Datenänderung der Tabelle: 'Q03' - 'Manuelle Rechnungen'

 Q03' - 'Manuelle Rechnungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oQ03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oQ03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oR10w() - Datenänderung der Tabelle: 'R10' - 'Barcodedaten'

 R10' - 'Barcodedaten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oR10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oR10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS01w() - Datenänderung der Tabelle: 'S01' - 'Lagerstatistiken'

 S01' - 'Lagerstatistiken
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS10w() - Datenänderung der Tabelle: 'S10' - 'Fehlteilliste'

 S10' - 'Fehlteilliste
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS11w() - Datenänderung der Tabelle: 'S11' - 'Fehlteilliste -Pos'

 S11' - 'Fehlteilliste -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS11w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS11w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS12w() - Datenänderung der Tabelle: 'S12' - 'Umsatzstatistik'

 S12' - 'Umsatzstatistik
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS12w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS13w() - Datenänderung der Tabelle: 'S13' - 'Umsatzstatistik -Pos'

 S13' - 'Umsatzstatistik -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS13w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS13w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS14w() - Datenänderung der Tabelle: 'S14' - 'Umsatzstatistik -U.Pos'

 S14' - 'Umsatzstatistik -U.Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS14w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS14w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS15w() - Datenänderung der Tabelle: 'S15' - 'Bestellobligo'

 S15' - 'Bestellobligo
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS15w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS15w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS16w() - Datenänderung der Tabelle: 'S16' - 'Bestellobligo -Pos'

 S16' - 'Bestellobligo -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS16w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS17w() - Datenänderung der Tabelle: 'S17' - 'Bestellobligo -U.Pos'

 S17' - 'Bestellobligo -U.Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS17w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS17w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS18w() - Datenänderung der Tabelle: 'S18' - 'Preisentwicklung'

 S18' - 'Preisentwicklung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS18w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS18w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS19w() - Datenänderung der Tabelle: 'S19' - 'Preisentwicklung -Pos'

 S19' - 'Preisentwicklung -Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS19w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS19w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS20w() - Datenänderung der Tabelle: 'S20' - 'Über-/Unterlieferungen'

 S20' - 'Über-/Unterlieferungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS21w() - Datenänderung der Tabelle: 'S21' - 'Über-/Unterlieferungen -P'

 S21' - 'Über-/Unterlieferungen -P
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS21w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS21w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS22w() - Datenänderung der Tabelle: 'S22' - 'Über-/Unterlieferungen -U'

 S22' - 'Über-/Unterlieferungen -U
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS22w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS22w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS23w() - Datenänderung der Tabelle: 'S23' - 'Preisvergleiche'

 S23' - 'Preisvergleiche
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS23w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS23w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oS25w() - Datenänderung der Tabelle: 'S25' - 'Preisvergleiche -U.Pos'

 S25' - 'Preisvergleiche -U.Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oS25w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oS25w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oSWTbl() - Tabellenobjekt einer Switched-Table

 Rückgabe:[Object], Gibt ein Tabellenobjekt einer Switched Table zurück. Bedingung sind IP und ID der Werte
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSWTbl(tcIP AS STRING,tcID AS STRING)
Object = My.Bussines.Strain.Misc.oSWTbl(tcIP,tcID)


Codeinformation


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



oSc0w() - Datenänderung der Tabelle: 'SC0' - 'Cubes'

 SC0' - 'Cubes
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oSc0w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oSc0w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oSc1w() - Datenänderung der Tabelle: 'SC1' - 'Cube Fields'

 SC1' - 'Cube Fields
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oSc1w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oSc1w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oSc2w() - Datenänderung der Tabelle: 'SC2' - 'Cube Clients'

 SC2' - 'Cube Clients
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oSc2w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oSc2w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oSc3w() - Datenänderung der Tabelle: 'SC3' - 'Cube Filters'

 SC3' - 'Cube Filters
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oSc3w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oSc3w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oT01w() - Datenänderung der Tabelle: 'T01' - 'Timestamp-Tabelle'

 T01' - 'Timestamp-Tabelle
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oT01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oT01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oT10w() - Datenänderung der Tabelle: 'T10' - 'B01-Protokoll-Tabelle'

 T10' - 'B01-Protokoll-Tabelle
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oT10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oT10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oT20w() - Datenänderung der Tabelle: 'T20' - 'BackGround'

 T20' - 'BackGround
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oT20w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oT20w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oV01w() - Datenänderung der Tabelle: 'V01' - 'Kalk. Zuschlagsarten'

 V01' - 'Kalk. Zuschlagsarten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oV01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oV01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oV02w() - Datenänderung der Tabelle: 'V02' - 'Kalk. Kostenarten'

 V02' - 'Kalk. Kostenarten
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oV02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oV02w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oV03w() - Datenänderung der Tabelle: 'V03' - 'Kalkulationsschemata'

 V03' - 'Kalkulationsschemata
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oV03w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oV03w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oV04w() - Datenänderung der Tabelle: 'V04' - 'Arbeitspläne'

 V04' - 'Arbeitspläne
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oV04w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oV04w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oV05w() - Datenänderung der Tabelle: 'V05' - 'Arbeitsgänge'

 V05' - 'Arbeitsgänge
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oV05w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oV05w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oV06w() - Datenänderung der Tabelle: 'V06' - 'Arbeitsgänge/Arbeitsplan'

 V06' - 'Arbeitsgänge/Arbeitsplan
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oV06w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oV06w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX09w() - Datenänderung der Tabelle: 'X09' - 'Firmenparameter'

 X09' - 'Firmenparameter
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX09w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX09w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX10w() - Datenänderung der Tabelle: 'X10' - 'System- Rechtedefinition'

 X10' - 'System- Rechtedefinition
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX12w() - Datenänderung der Tabelle: 'X12' - 'Nummernkreise'

 X12' - 'Nummernkreise
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX12w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX12w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX13w() - Datenänderung der Tabelle: 'X13' - 'Nummernkreise -U.Pos'

 X13' - 'Nummernkreise -U.Pos
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX13w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX13w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX14w() - Datenänderung der Tabelle: 'X14' - 'Systemnummernkreise'

 X14' - 'Systemnummernkreise
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX14w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX14w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX16w() - Datenänderung der Tabelle: 'X16' - 'Maskenrechte - Mandant'

 X16' - 'Maskenrechte - Mandant
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX16w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX16w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX22w() - Datenänderung der Tabelle: 'X22' - 'Druckbereich'

 X22' - 'Druckbereich
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX22w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX22w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX23w() - Datenänderung der Tabelle: 'X23' - 'Druckaufrufbereich'

 X23' - 'Druckaufrufbereich
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX23w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX23w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX26w() - Datenänderung der Tabelle: 'X26' - 'Reportsprache'

 X26' - 'Reportsprache
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX26w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX26w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX50w() - Datenänderung der Tabelle: 'X50' - 'Masken'

 X50' - 'Masken
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX50w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX50w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX51w() - Datenänderung der Tabelle: 'X51' - 'Tabellenbeziehungen'

 X51' - 'Tabellenbeziehungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX51w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX51w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX52w() - Datenänderung der Tabelle: 'X52' - 'User-spez. Einstellungen'

 X52' - 'User-spez. Einstellungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX52w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX52w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX53w() - Datenänderung der Tabelle: 'X53' - 'User-spez. Filtereinst.'

 X53' - 'User-spez. Filtereinst.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX53w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX53w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX60w() - Datenänderung der Tabelle: 'X60' - 'Benutzer- Einstellungen'

 X60' - 'Benutzer- Einstellungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX60w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX60w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX62w() - Datenänderung der Tabelle: 'X62' - 'Sepzielle Gridfelder'

 X62' - 'Sepzielle Gridfelder
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX62w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX62w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oX63w() - Benutzerdefinierte Datenraster

 oRecord,cAction=N-eu,L-öschen|l-öschen,A-endern des Datensatzes in: X63-Benutzerdefinierte Grids
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX63w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oX63w(toRecord,tcAction,tlCheckNew)


Codeinformation




oY01w() - Datenänderung der Tabelle: 'Y01' - 'Präfix Systemtabelle'

 Y01' - 'Präfix Systemtabelle
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oY01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oY01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oY10w() - Datenänderung der Tabelle: 'Y10' - 'Blockbearbeitung'

 Y10' - 'Blockbearbeitung
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oY10w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oY10w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oY98w() - Datenänderung der Tabelle: 'Y98' - 'Messageinformationen'

 Y98' - 'Messageinformationen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oY98w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oY98w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oY99w() - Datenänderung der Tabelle: 'Y99' - 'Globale Einstellungen'

 Y99' - 'Globale Einstellungen
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oY99w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oY99w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oZ01w() - Datenänderung der Tabelle: 'Z01' - 'Zahlungspläne'

 Z01' - 'Zahlungspläne
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oZ01w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oZ01w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


oZ02w() - Datenänderung der Tabelle: 'Z02' - 'Zahlungspläne -Pos.'

 Z02' - 'Zahlungspläne -Pos.
Hilfeinformation

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!
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oZ02w(toRecord AS OBJECT,tcAction AS STRING,tlCheckNew AS Boolean)
Variant = My.Bussines.Strain.Misc.oZ02w(toRecord,tcAction,tlCheckNew)


Codeinformation


*/ 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


tD40D51() - Tabelle mit den Anforderen

 Rückgabe:[String], Gibt eine Tabelle der Anforderer zur Bestellung / Bestellposition zurück
Hilfeinformation

Es wirtd eine Tabelle mit den Anforderen der Bestellung zurückgegeben.
Aufrufinformation


String = My.Bussines.Strain.Misc.tD40D51(tcIdd40 AS String , tcIdd51 AS String ,tlWithPos AS Boolean)
String = My.Bussines.Strain.Misc.tD40D51(tcIdd40,tcIdd51,tlWithPos)


Codeinformation




Liste der Properties von Misc


cIc4Ip - Gibt die IC der angegebenen IP zurück

 Gibt die Nummer (IC) der gewählten IP zurück
Hilfeinformation

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.
Aufrufinformation


String = My.Bussines.Strain.Misc.cIc4Ip[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
String = My.Bussines.Strain.Misc.cIc4Ip[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



cIdx02 - Mandanten-ID

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

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

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


String = My.Bussines.Strain.Misc.cIdx02


Codeinformation


*/ 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...


cLastError - Letzter Fehler

 Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.
Hilfeinformation

Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.
Aufrufinformation


String = My.Bussines.Strain.Misc.cLastError


Codeinformation


*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcError AS String
lcError = My.Bussines.Strain.Misc.cLastError


cMethod - Methode des Fehlers

 Methode in der der letzte Fehler auftrat.
Hilfeinformation

Methode in der der letzte Fehler auftrat.
Aufbau: [Fehlernummer] [Methode] [Zeilennummer] [Message]
Aufrufinformation


String = My.Bussines.Strain.Misc.cMethod


Codeinformation


*/ Abruf...
WAIT WINDOW My.Bussines.Strain.Misc.cMethod


lReset - Reset durchführen

 Führt einen Reset in der Klasse durch
Hilfeinformation

Führt einen Reset in der Klasse durch
Aufrufinformation


Boolean = My.Bussines.Strain.Misc.lReset


Codeinformation


My.Bussines.Strain.Misc.lReset = .T.


lShowThermos - Thermosanzeige

 Thermosanzeige bei der Ausführung
Hilfeinformation

Thermosanzeige bei der Ausführung
Aufrufinformation


Boolean = My.Bussines.Strain.Misc.lShowThermos


Codeinformation


My.Bussines.Strain.Misc.lShowThermos = .T.


lWithPos - Mit Positionsnummer?

 Wert:[Boolean], Soll die Positionsnummer mit ausgegeben werden? (Verlängert die SQL-Abfrage!)
Hilfeinformation


Aufrufinformation


Boolean = My.Bussines.Strain.Misc.lWithPos


Codeinformation




nDelaySeconds - Zeit solange der ermittelte Datensatz aktuell bleibt

 Zeit in Sekunden, solange ein Datensatz aktuell bleibt. Standard=10 Sekunden
Hilfeinformation


Aufrufinformation


Number = My.Bussines.Strain.Misc.nDelaySeconds


Codeinformation




nError - Fehlernummer d. Fehlers

 Fehlernummer des letzten Fehlers.
Hilfeinformation

Fehlernummer des letzten Fehlers.
Ist der Wert kleiner null, so handelt es sich um einen logischen Fehler.
Aufrufinformation


Number = My.Bussines.Strain.Misc.nError


Codeinformation


WAIT WINDOW My.Bussines.Strain.Misc.nError


nLine - Zeilennummer d. Fehlers

 Zeilennummer, in der der letzte Fehler auftrat
Hilfeinformation

Zeilennummer, in der der letzte Fehler auftrat
Aufrufinformation


Number = My.Bussines.Strain.Misc.nLine


Codeinformation


WAIT WINDOW My.Bussines.Strain.Misc.nLine


nRecords - Verarbeitete Datensätze

 Verarbeitete Datensätze
Hilfeinformation

Verarbeitete Datensätze
Aufrufinformation


Number = My.Bussines.Strain.Misc.nRecords


Codeinformation


WAIT WINDOW My.Bussines.Strain.Misc.nRecords


nSeconds - Ausführungszeit

 Ausführungszeit in Sekunden
Hilfeinformation

Ausführungszeit in Sekunden
Aufrufinformation


Number = My.Bussines.Strain.Misc.nSeconds


Codeinformation


WAIT WINDOW My.Bussines.Strain.Misc.nSeconds


nStatus - Status der Ausführung

 Status der Ausführung
Hilfeinformation

Status der Ausführung
Aufrufinformation


Number = My.Bussines.Strain.Misc.nStatus


Codeinformation


WAIT WINDOW My.Bussines.Strain.Misc.nStatus


oA01 - Datenabruf der Tabelle: 'A01' - 'EK-Auswertung im Vorgang'

 Rückgabe:[Object], Datenabruf der Tabelle: 'A01' - 'EK-Auswertung im Vorgang'. loA01 = ...Misc.oA01[IDA01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oA01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oA01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oB01 - Datenabruf der Tabelle: 'B01' - 'Artikelstamm'

 Rückgabe:[Object], Datenabruf der Tabelle: 'B01' - 'Artikelstamm'. loB01 = ...Misc.oB01[IDB01|IEB01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oB01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oB01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oB01c - Datenabruf der Tabelle B01 'Artikelstamm'

 Wert:[Object], Abruf der Artikelstammdaten über die Artikelnummer
Hilfeinformation

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;...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oB01c[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oB01c[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oB02 - Datenabruf der Tabelle: 'B02' - 'Variabler Technikteil'

 Rückgabe:[Object], Datenabruf der Tabelle: 'B02' - 'Variabler Technikteil'. loB02 = ...Misc.oB02[IDB02]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oB02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oB02[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oB03 - Datenabruf der Tabelle: 'B03' - 'Referenzartikel'

 Rückgabe:[Object], Datenabruf der Tabelle: 'B03' - 'Referenzartikel'. loB03 = ...Misc.oB03[IDB03]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oB03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oB03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oB04 - Datenabruf der Tabelle: 'B04' - 'Artikelstamm (Sprache)'

 Rückgabe:[Object], Datenabruf der Tabelle: 'B04' - 'Artikelstamm (Sprache)'. loB04 = ...Misc.oB04[IDB01+IDX26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oB04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oB04[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oB12 - Datenabruf der Tabelle: 'B12' - 'TQFS-im Artikelstamm'

 Rückgabe:[Object], Datenabruf der Tabelle: 'B12' - 'TQFS-im Artikelstamm'. loB12 = ...Misc.oB12[IDB12]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oB12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oB12[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oB92 - Datenabruf der Tabelle: 'B92' - 'Variabler Technikteil (S)'

 Rückgabe:[Object], Datenabruf der Tabelle: 'B92' - 'Variabler Technikteil (S)'. loB92 = ...Misc.oB92[IDB92]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oB92[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oB92[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC02 - Datenabruf der Tabelle: 'C02' - 'Lohngruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C02' - 'Lohngruppen'. loC02 = ...Misc.oC02[IDC02+IDC26|IEC02|IDC02+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC02[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC03 - Datenabruf der Tabelle: 'C03' - 'Währungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C03' - 'Währungen'. loC03 = ...Misc.oC03[IDC03]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC03Fi - Datenabruf der Tabelle C03 'Währungen'

 Rückgabe:[Object], Gibt die in den Firmenparametern hinterlegte Firmenwährung zurück. My.Clients.Fips.yx_wsymbol
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC03Fi[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC03Fi[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC07 - Datenabruf der Tabelle: 'C07' - 'Kontinente'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C07' - 'Kontinente'. loC07 = ...Misc.oC07[IDC07+IDC26|IDC07+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC07[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC07[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC08 - Datenabruf der Tabelle: 'C08' - 'Steuerschlüssel'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C08' - 'Steuerschlüssel'. loC08 = ...Misc.oC08[IDC08+IDC26+DTOS(GDATUM)+IDC09|IDC08P]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC08[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC08[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC08Fi - Datenabruf der Tabelle C08 'Steuerschlüssel'

 Rückgabe:[Object], wie oC08() jedoch der Wert aus den Firmenparametern
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC08Fi


Codeinformation


*/ 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


oC08d - Datenabruf der Tabelle C08 'Steuerschlüssel'

 Abfrage der C08 mit Abtrennung des Datums
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC08d[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC08d[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



oC09 - Datenabruf der Tabelle: 'C09' - 'Länder'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C09' - 'Länder'. loC09 = ...Misc.oC09[IDC09+IDC26|IDC09+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC09[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC09[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC09Fi - Datenabruf der Tabelle C09 'Länder'

 Gibt ein Datensatz Objekt des Landes (C09) der Firmenadresse zurück. Heimatland.
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC09Fi[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC09Fi[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC09VW - Datenabruf der Tabelle C09 'Länder'

 Wert:[Object], Ermitteln des Landes anhand seiner Ländervorwahl
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC09VW[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC09VW[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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']



oC10 - Datenabruf der Tabelle: 'C10' - 'Versandarten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C10' - 'Versandarten'. loC10 = ...Misc.oC10[IDC10+IDC26|IDC10+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC13 - Datenabruf der Tabelle: 'C13' - 'Rabattgruppe'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C13' - 'Rabattgruppe'. loC13 = ...Misc.oC13[IDC13]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC13[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC13[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC14 - Datenabruf der Tabelle: 'C14' - 'Kalender'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C14' - 'Kalender'. loC14 = ...Misc.oC14[IDC14]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC14[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC14[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC14Fi - Datenabruf der Tabelle C14 'Kalender'

 Rückgabe:[Object], wie oC14() jedoch der Wert aus den Firmenparametern
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC14Fi


Codeinformation


*/ 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


oC15 - Datenabruf der Tabelle: 'C15' - 'Kalenderpositionen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C15' - 'Kalenderpositionen'. loC15 = ...Misc.oC15[IDC14+DTOS(FEI_DATUM)]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC15[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC16 - Datenabruf der Tabelle: 'C16' - 'Branchen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C16' - 'Branchen'. loC16 = ...Misc.oC16[IDC16+IDC26|IDC16+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC16[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC18 - Datenabruf der Tabelle: 'C18' - 'Banken (BLZ)'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C18' - 'Banken (BLZ)'. loC18 = ...Misc.oC18[IDC18]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC18[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC18[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC19 - Datenabruf der Tabelle: 'C19' - 'Einheiten-Basiseinheiten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C19' - 'Einheiten-Basiseinheiten'. loC19 = ...Misc.oC19[IDC19+IDC26|IDC19+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC19[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC19[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC19Fi - Datenabruf der Tabelle C19 'Einheiten-Basiseinheiten'

 Wert:[String], Gibt die Standardeinheit aus den Firmenparametern zurück: yx_idc19
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC19Fi


Codeinformation


*/ 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


oC20 - Datenabruf der Tabelle: 'C20' - 'FIBU - Gruppen Kopfdaten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C20' - 'FIBU - Gruppen Kopfdaten'. loC20 = ...Misc.oC20[IDC20+IDC26|IDC20+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC20Fi - Datenabruf der Tabelle C20 'FIBU - Gruppen Kopfdaten'

 Rückgabe:[Object], wie oC20() jedoch der Wert aus den Firmenparametern
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC20Fi


Codeinformation


*/ 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


oC21 - Datenabruf der Tabelle: 'C21' - 'FIBU - Gruppen Positionen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C21' - 'FIBU - Gruppen Positionen'. loC21 = ...Misc.oC21[IDC21]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC21[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC22 - Datenabruf der Tabelle: 'C22' - 'Lieferbedingungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C22' - 'Lieferbedingungen'. loC22 = ...Misc.oC22[IDC22+IDC26|IDC22+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC22[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC22[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC23 - Datenabruf der Tabelle: 'C23' - 'Preisgruppen Einkauf'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C23' - 'Preisgruppen Einkauf'. loC23 = ...Misc.oC23[IDC23+IDC26|IDC23+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC23[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC23[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC24 - Datenabruf der Tabelle: 'C24' - 'Zahlungskonditionen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C24' - 'Zahlungskonditionen'. loC24 = ...Misc.oC24[IDC24+IDC26|IDC24+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC24[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC24[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC25 - Datenabruf der Tabelle: 'C25' - 'Artikelgruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C25' - 'Artikelgruppen'. loC25 = ...Misc.oC25[IDC25+IDC26|IDC25+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC25[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC25[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC26 - Datenabruf der Tabelle: 'C26' - 'Sprachen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C26' - 'Sprachen'. loC26 = ...Misc.oC26[IDC26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC26[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC26[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC26Fi - Datenabruf der Tabelle C26 'Sprachen'

 Rückgabe der Sprache aus den Firmenparametern
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC26Fi


Codeinformation


*/ 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


oC27 - Datenabruf der Tabelle: 'C27' - 'Abschlagsarten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C27' - 'Abschlagsarten'. loC27 = ...Misc.oC27[IDC27+IDC26|IDC27+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC27[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC27[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC28 - Datenabruf der Tabelle: 'C28' - 'Vorgangsarten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C28' - 'Vorgangsarten'. loC28 = ...Misc.oC28[IDC28+IDC26|IDC28+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC28[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC28[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC28Ip - Datenabruf der Tabelle C28 'Vorgangsarten'

 Wie oC28[], jedoch wird der erste Datensatz anhand der IPY01 zurückgegeben!
Hilfeinformation

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
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC28Ip[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC28Ip[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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]



oC28Ku - Datenabruf der Tabelle C28 'Vorgangsarten'

 Abruf der Tabelle C28 über die Spalte KURZ
Hilfeinformation

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
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC28Ku[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC28Ku[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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]



oC29 - Datenabruf der Tabelle: 'C29' - 'Anlagenbezeichner'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C29' - 'Anlagenbezeichner'. loC29 = ...Misc.oC29[IDC29+IDC26|IDC29+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC29[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC29[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC30 - Datenabruf der Tabelle: 'C30' - 'Adressen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C30' - 'Adressen'. loC30 = ...Misc.oC30[IDC30]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC30[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC30Fi - Datenabruf der Tabelle C30 'Adressen'

 Rückgabe der Firmenadresse, die in den Firmenparametern hinterlegt ist.
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC30Fi[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC30Fi[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC31 - Datenabruf der Tabelle: 'C31' - 'Kostenträger'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C31' - 'Kostenträger'. loC31 = ...Misc.oC31[IDC31+IDC26|IDC31+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC31[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC31[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC32 - Datenabruf der Tabelle: 'C32' - 'Kostenstellen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C32' - 'Kostenstellen'. loC32 = ...Misc.oC32[IDC32+IDC26|IDC32+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC32[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC32[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC33 - Datenabruf der Tabelle: 'C33' - 'Artikelhauptgruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C33' - 'Artikelhauptgruppen'. loC33 = ...Misc.oC33[IDC33+IDC26|IDC33+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC33[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC33[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC34 - Datenabruf der Tabelle: 'C34' - 'Artikeluntergruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C34' - 'Artikeluntergruppen'. loC34 = ...Misc.oC34[IDC34+IDC26|IDC34+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC34[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC34[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC39 - Datenabruf der Tabelle: 'C39' - 'Mitarbeitergruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C39' - 'Mitarbeitergruppen'. loC39 = ...Misc.oC39[IDC39+IDC26|IDC39+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC39[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC39[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC40 - Datenabruf der Tabelle: 'C40' - 'Textbausteine'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C40' - 'Textbausteine'. loC40 = ...Misc.oC40[IDC40+IDC26|IDC40+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC40[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC41 - Datenabruf der Tabelle: 'C41' - 'Kostenarten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C41' - 'Kostenarten'. loC41 = ...Misc.oC41[IDC41+IDC26|IDC41+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC41[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC41[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC42 - Datenabruf der Tabelle: 'C42' - 'Statistikgruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C42' - 'Statistikgruppen'. loC42 = ...Misc.oC42[IDC42+IDC26|IDC42+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC42[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC42[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC43 - Datenabruf der Tabelle: 'C43' - 'Preisgruppen Verkauf'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C43' - 'Preisgruppen Verkauf'. loC43 = ...Misc.oC43[IDC43+IDC26|IDC43+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC43[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC43[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC44 - Datenabruf der Tabelle: 'C44' - 'Produktgruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C44' - 'Produktgruppen'. loC44 = ...Misc.oC44[IDC44+IDC26|IDC44+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC44[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC44[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC48 - Datenabruf der Tabelle: 'C48' - 'Prüfvorschriften'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C48' - 'Prüfvorschriften'. loC48 = ...Misc.oC48[IDC48+IDC26|IDC48+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC48[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC48[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC49 - Datenabruf der Tabelle: 'C49' - 'Kennbuchstaben'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C49' - 'Kennbuchstaben'. loC49 = ...Misc.oC49[IDC50+IDC49+IDC26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC49[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC49[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC50 - Datenabruf der Tabelle: 'C50' - 'VNS Klassen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C50' - 'VNS Klassen'. loC50 = ...Misc.oC50[IDC50+IDC26|IDC50+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC50[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC50[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC51 - Datenabruf der Tabelle: 'C51' - 'VNS Ausprägungsmerkmale'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C51' - 'VNS Ausprägungsmerkmale'. loC51 = ...Misc.oC51[IDC50+IDC51+IDC26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC51[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC51[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC52 - Datenabruf der Tabelle: 'C52' - 'Adressverknüpfungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C52' - 'Adressverknüpfungen'. loC52 = ...Misc.oC52[IDC5X]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC52[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC52[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC53 - Datenabruf der Tabelle: 'C53' - 'Support Meldungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C53' - 'Support Meldungen'. loC53 = ...Misc.oC53[IDC53]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC53[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC53[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC55 - Datenabruf der Tabelle: 'C55' - 'Verträge / Presente'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C55' - 'Verträge / Presente'. loC55 = ...Misc.oC55[IDC55]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC55[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC55[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC61 - Datenabruf der Tabelle: 'C61' - 'Lieferanten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C61' - 'Lieferanten'. loC61 = ...Misc.oC61[IDC61]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC61[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC61[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC62 - Datenabruf der Tabelle: 'C62' - 'Hersteller'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C62' - 'Hersteller'. loC62 = ...Misc.oC62[IDC62]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC62[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC62[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC63 - Datenabruf der Tabelle: 'C63' - 'Kunden'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C63' - 'Kunden'. loC63 = ...Misc.oC63[IDC63]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC63[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC63[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC64 - Datenabruf der Tabelle: 'C64' - 'Mitarbeiter'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C64' - 'Mitarbeiter'. loC64 = ...Misc.oC64[IDC64]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC64[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC64[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC64Bde - Datenabruf der Tabelle C64 'Mitarbeiter'

 Zugriff auf den Mitarbeiter über die PERSNRBDE - Numerisch!
Hilfeinformation

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))
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC64Bde[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC64Bde[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC65 - Datenabruf der Tabelle: 'C65' - 'Benutzer'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C65' - 'Benutzer'. loC65 = ...Misc.oC65[IDC65]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC65[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC65[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC66 - Datenabruf der Tabelle: 'C66' - 'Lagerorte'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C66' - 'Lagerorte'. loC66 = ...Misc.oC66[IDC66]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC66[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC66[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC66Bs - Datenabruf der Tabelle C66 'Lagerorte'

 Gibt ein Datensatz Objekt des angegebenen Beistelllagers aus den Firmenparametern zurück. My.Clients.Fips.yx_idc66bs
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC66Bs[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC66Bs[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC66Fi - Datenabruf der Tabelle C66 'Lagerorte'

 Gibt ein Datensatz Objekt des angegebenen Stammlagers aus den Firmenparametern zurück. My.Clients.Fips.yx_idc66fi
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC66Fi[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC66Fi[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC67 - Datenabruf der Tabelle: 'C67' - 'Ansprechpartner'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C67' - 'Ansprechpartner'. loC67 = ...Misc.oC67[IDC67]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC67[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC67[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC68 - Datenabruf der Tabelle: 'C68' - 'Sachbearbeiter'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C68' - 'Sachbearbeiter'. loC68 = ...Misc.oC68[IDC68]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC68[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC68[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC69 - Datenabruf der Tabelle: 'C69' - 'Vertreter'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C69' - 'Vertreter'. loC69 = ...Misc.oC69[IDC69]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC69[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC69[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC70 - Datenabruf der Tabelle: 'C70' - 'Kunden Vertreter'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C70' - 'Kunden Vertreter'. loC70 = ...Misc.oC70[IDC70]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC70[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC70[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC71 - Datenabruf der Tabelle: 'C71' - 'Vorgang Vertreter'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C71' - 'Vorgang Vertreter'. loC71 = ...Misc.oC71[IDC71]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC71[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC71[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC72 - Datenabruf der Tabelle: 'C72' - 'Produktzuordnung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C72' - 'Produktzuordnung'. loC72 = ...Misc.oC72[IDC72+IDC26|IDC72+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC72[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC72[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC73 - Datenabruf der Tabelle: 'C73' - 'Vorg.-P.-Produktzuordnung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C73' - 'Vorg.-P.-Produktzuordnung'. loC73 = ...Misc.oC73[IDC73]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC73[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC73[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC74 - Datenabruf der Tabelle: 'C74' - 'Seriennummernzuordnung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C74' - 'Seriennummernzuordnung'. loC74 = ...Misc.oC74[IDC74]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC74[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC74[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC75 - Datenabruf der Tabelle: 'C75' - 'Statistikmerkmale-1'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C75' - 'Statistikmerkmale-1'. loC75 = ...Misc.oC75[IDC75]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC75[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC75[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC76 - Datenabruf der Tabelle: 'C76' - 'Statistikmerkmale-2'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C76' - 'Statistikmerkmale-2'. loC76 = ...Misc.oC76[IDC76]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC76[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC76[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC77 - Datenabruf der Tabelle: 'C77' - 'Statistikmerkmale-3'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C77' - 'Statistikmerkmale-3'. loC77 = ...Misc.oC77[IDC77]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC77[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC77[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC78 - Datenabruf der Tabelle: 'C78' - 'Statistikmerkmale-4'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C78' - 'Statistikmerkmale-4'. loC78 = ...Misc.oC78[IDC78]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC78[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC78[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC80 - Datenabruf der Tabelle: 'C80' - 'Dispotypen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C80' - 'Dispotypen'. loC80 = ...Misc.oC80[IPC80+IDC26|IPC80+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC80[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC80[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC81 - Datenabruf der Tabelle: 'C81' - 'Bewertungskriterien'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C81' - 'Bewertungskriterien'. loC81 = ...Misc.oC81[IDC81]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC81[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC81[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC82 - Datenabruf der Tabelle: 'C82' - 'Bewertungsprioritäten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C82' - 'Bewertungsprioritäten'. loC82 = ...Misc.oC82[IDC82]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC82[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC82[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC83 - Datenabruf der Tabelle: 'C83' - 'Minderungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C83' - 'Minderungen'. loC83 = ...Misc.oC83[IDC84+IDC81+PADL(ALLTRIM(STR(ZEITRAUM)),8,"0")]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC83[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC83[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC84 - Datenabruf der Tabelle: 'C84' - 'Minderungskennzeichen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C84' - 'Minderungskennzeichen'. loC84 = ...Misc.oC84[IDC84]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC84[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC84[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC91 - Datenabruf der Tabelle: 'C91' - 'Lieferantenrabatte'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C91' - 'Lieferantenrabatte'. loC91 = ...Misc.oC91[IDC91]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC91[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC91[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC97 - Datenabruf der Tabelle: 'C97' - 'Montagearten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C97' - 'Montagearten'. loC97 = ...Misc.oC97[IDC97+IDC26|IDC97+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC97[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC97[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC98 - Datenabruf der Tabelle: 'C98' - 'Elemente / Legierungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C98' - 'Elemente / Legierungen'. loC98 = ...Misc.oC98[IDC98+IDC26|IDC98+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC98[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC98[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oC99 - Datenabruf der Tabelle: 'C99' - 'VNS-Einheiten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'C99' - 'VNS-Einheiten'. loC99 = ...Misc.oC99[IDC99+IDC26|IDC99+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oC99[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oC99[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD03 - Datenabruf der Tabelle: 'D03' - 'Artikel EK-Daten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D03' - 'Artikel EK-Daten'. loD03 = ...Misc.oD03[IDD03]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD04 - Datenabruf der Tabelle: 'D04' - 'Artikel VK-Daten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D04' - 'Artikel VK-Daten'. loD04 = ...Misc.oD04[IDD04]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD04[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD04e - Datenabruf der Tabelle D04 'Artikel VK-Daten'

 Ermittelt die D04 Daten Anhand IDB01+IDC63. Wenn das Erste Zeichen ein "!" ist wird die Größte Staffel ermittelt!
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD04e[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD04e[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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   ']



oD05 - Datenabruf der Tabelle: 'D05' - 'Rohstoffzuschläge'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D05' - 'Rohstoffzuschläge'. loD05 = ...Misc.oD05[IDD05]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD05[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD30 - Datenabruf der Tabelle: 'D30' - 'Lieferantenanfragen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D30' - 'Lieferantenanfragen'. loD30 = ...Misc.oD30[IDD30]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD30[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD31 - Datenabruf der Tabelle: 'D31' - 'Anfragepositionen/Lief.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D31' - 'Anfragepositionen/Lief.'. loD31 = ...Misc.oD31[IDD31]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD31[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD31[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD33 - Datenabruf der Tabelle: 'D33' - 'Artikelanfragen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D33' - 'Artikelanfragen'. loD33 = ...Misc.oD33[IDD33]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD33[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD33[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD34 - Datenabruf der Tabelle: 'D34' - 'Anfragepositionen/Artikel'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D34' - 'Anfragepositionen/Artikel'. loD34 = ...Misc.oD34[IDD34]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD34[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD34[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD35 - Datenabruf der Tabelle: 'D35' - 'Lieferanten/Artikel'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D35' - 'Lieferanten/Artikel'. loD35 = ...Misc.oD35[IDD35]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD35[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD35[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD39 - Datenabruf der Tabelle: 'D39' - 'Bestelladressen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D39' - 'Bestelladressen'. loD39 = ...Misc.oD39[IDD39|IDD40+IPD39]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD39[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD39[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD40 - Datenabruf der Tabelle: 'D40' - 'EK-Bestellungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D40' - 'EK-Bestellungen'. loD40 = ...Misc.oD40[IDD40]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD40[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD40St - Datenabruf der Tabelle D40 'EK-Bestellungen'

 Rückgabe:[Object] Gibt verschiedene Status-Informationen zu einer Bestellung zurück
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD40St[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD40St[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



oD41 - Datenabruf der Tabelle: 'D41' - 'EK-Wareneingänge'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D41' - 'EK-Wareneingänge'. loD41 = ...Misc.oD41[IDD41]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD41[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD41[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD42 - Datenabruf der Tabelle: 'D42' - 'EK-Materialprüfungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D42' - 'EK-Materialprüfungen'. loD42 = ...Misc.oD42[IDD42]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD42[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD42[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD43 - Datenabruf der Tabelle: 'D43' - 'EK-Rücklieferungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D43' - 'EK-Rücklieferungen'. loD43 = ...Misc.oD43[IDD43]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD43[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD43[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD44 - Datenabruf der Tabelle: 'D44' - 'EK-Rechnungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D44' - 'EK-Rechnungen'. loD44 = ...Misc.oD44[IDD44]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD44[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD44[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD45 - Datenabruf der Tabelle: 'D45' - 'EK-Spediteursrechnungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D45' - 'EK-Spediteursrechnungen'. loD45 = ...Misc.oD45[IDD45]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD45[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD45[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD46 - Datenabruf der Tabelle: 'D46' - 'EK-Gutschriften'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D46' - 'EK-Gutschriften'. loD46 = ...Misc.oD46[IDD46]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD46[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD46[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD47 - Datenabruf der Tabelle: 'D47' - 'EK-Mahnungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D47' - 'EK-Mahnungen'. loD47 = ...Misc.oD47[IDD47]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD47[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD47[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD51 - Datenabruf der Tabelle: 'D51' - 'EK-Bestellungen -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D51' - 'EK-Bestellungen -Pos'. loD51 = ...Misc.oD51[IDD40+IDD51]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD51[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD51[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD52 - Datenabruf der Tabelle: 'D52' - 'EK-Wareneingänge -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D52' - 'EK-Wareneingänge -Pos'. loD52 = ...Misc.oD52[IDD41+IDD52]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD52[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD52[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD53 - Datenabruf der Tabelle: 'D53' - 'EK-Materialprüfungen -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D53' - 'EK-Materialprüfungen -Pos'. loD53 = ...Misc.oD53[IDD42+IDD53]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD53[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD53[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD54 - Datenabruf der Tabelle: 'D54' - 'EK-Rücklieferungen -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D54' - 'EK-Rücklieferungen -Pos'. loD54 = ...Misc.oD54[IDD43+IDD51]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD54[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD54[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD55 - Datenabruf der Tabelle: 'D55' - 'EK-Rechnungen -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D55' - 'EK-Rechnungen -Pos'. loD55 = ...Misc.oD55[IDD44+IDD55]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD55[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD55[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD56 - Datenabruf der Tabelle: 'D56' - 'EK-Spediteursrechnungen -'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D56' - 'EK-Spediteursrechnungen -'. loD56 = ...Misc.oD56[IDD56|IDD45+IDD56]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD56[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD56[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD57 - Datenabruf der Tabelle: 'D57' - 'EK-Gutschriften -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D57' - 'EK-Gutschriften -Pos'. loD57 = ...Misc.oD57[IDD46+IDD57]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD57[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD57[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oD58 - Datenabruf der Tabelle: 'D58' - 'EK-Mahnungen -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'D58' - 'EK-Mahnungen -Pos'. loD58 = ...Misc.oD58[IDD58]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oD58[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oD58[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oDis - Datenabruf der Tabelle: 'DIS' - 'Disposition'

 Rückgabe:[Object], Datenabruf der Tabelle: 'DIS' - 'Disposition'. loDIS = ...Misc.oDIS[IDDIS]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oDis[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oDis[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE00 - Datenabruf der Tabelle: 'E00' - 'VK-Vorgangsdokumente'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E00' - 'VK-Vorgangsdokumente'. loE00 = ...Misc.oE00[IPE00+IDEXX+NAME]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE00[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE00[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE01 - Datenabruf der Tabelle: 'E01' - 'VK-Zuschlagsarten Kalk.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E01' - 'VK-Zuschlagsarten Kalk.'. loE01 = ...Misc.oE01[IDE01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE03 - Datenabruf der Tabelle: 'E03' - 'VK-Kalkulationsschema'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E03' - 'VK-Kalkulationsschema'. loE03 = ...Misc.oE03[IDE03+IDE10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE04 - Datenabruf der Tabelle: 'E04' - 'VK-Lohngruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E04' - 'VK-Lohngruppen'. loE04 = ...Misc.oE04[IDE04]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE04[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE05 - Datenabruf der Tabelle: 'E05' - 'VK-Gaeb-Daten zum Vorgang'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E05' - 'VK-Gaeb-Daten zum Vorgang'. loE05 = ...Misc.oE05[IDE10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE05[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE10 - Datenabruf der Tabelle: 'E10' - 'VK-Vorgänge'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E10' - 'VK-Vorgänge'. loE10 = ...Misc.oE10[IDE10|IEE10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE10A - Datenabruf der Tabelle: 'E10A' - 'CAE-Pluspack'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E10A' - 'CAE-Pluspack'. loE10A = ...Misc.oE10A[IDE10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE10A[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE10A[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE10E15 - Abfrage E10 über E15

 Daten ermitteln über E15 => E10. Rückgabe ist ein Objekt der Tabelle E10. IDE10|QUELLVORGANGSART
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oE10E15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE10E15[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oE10Stat - Datenabruf der Tabelle E10 'VK-Vorgänge'

 Gibt Y01 des Status zurück, wenn IDE10 übergeben wird.
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE10Stat[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE10Stat[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oE10c - Datenabruf der Tabelle E10 'VK-Vorgänge'

 Rückgabe eines Datensatzes aus E10 unter Angabe von Vorgangsnummer:IP
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE10c[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE10c[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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']



oE11 - Datenabruf der Tabelle: 'E11' - 'VK-Vorgänge -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E11' - 'VK-Vorgänge -Pos'. loE11 = ...Misc.oE11[IDE11]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE11[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE12 - Datenabruf der Tabelle: 'E12' - 'VK-Vorgänge Staffelpreise'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E12' - 'VK-Vorgänge Staffelpreise'. loE12 = ...Misc.oE12[IDE12]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE12[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE15 - Datenabruf der Tabelle: 'E15' - 'VK-Vorgangsreferenzen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E15' - 'VK-Vorgangsreferenzen'. loE15 = ...Misc.oE15[IDE15]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE15[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE15DQ - Datenabruf aus E15

 Gibt den Datensatz aus E15 zurück, der gleiche Quelle und Gleiche Ziel-Vorgangsart hat: ipQ|idQ|ipZ
Hilfeinformation

Gibt den Datensatz aus E15 zurück, der gleiche Quelle und Gleiche Ziel-Vorgangsart hat: ipQ|idQ|ipZ
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE15DQ[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE15DQ[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oE20 - Datenabruf der Tabelle: 'E20' - 'VK-Aufmaßpositionen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E20' - 'VK-Aufmaßpositionen'. loE20 = ...Misc.oE20[IDE20]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oE30 - Datenabruf der Tabelle: 'E30' - 'Kopfdaten-Erweiterung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'E30' - 'Kopfdaten-Erweiterung'. loE30 = ...Misc.oE30[IDE30]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oE30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oE30[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oF02 - Datenabruf der Tabelle: 'F02' - 'Baugruppenpositionen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'F02' - 'Baugruppenpositionen'. loF02 = ...Misc.oF02[IDF02]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oF02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oF02[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oF02B01s - Datenabruf der Tabelle B01 unter Angabe von IDF02

 Rückgabe des Artikels der Baugruppenposition. Wie THIS.oB01[...]
Hilfeinformation

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...
Aufrufinformation


... = My.Bussines.Strain.Misc.oF02B01s[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
... = My.Bussines.Strain.Misc.oF02B01s[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


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



oF02t - Datenabruf der Tabelle F02 'Baugruppenpositionen'

 Gibt den 'ersten' Datensatz der Baugruppe auf F02 zurück
Hilfeinformation

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;...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oF02t[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oF02t[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


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



oF02tB01s - Datenabruf der Tabelle B01 unter Angabe von F02

 Rückgabe des Artikels der Baugruppenposition. Wie THIS.oB01[...]
Hilfeinformation

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...
Aufrufinformation


... = My.Bussines.Strain.Misc.oF02tB01s[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
... = My.Bussines.Strain.Misc.oF02tB01s[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


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



oF03 - Datenabruf der Tabelle: 'F03' - 'Baugruppen-Zusatzdaten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'F03' - 'Baugruppen-Zusatzdaten'. loF03 = ...Misc.oF03[IDF03]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oF03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oF03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oF60 - Datenabruf der Tabelle: 'F60' - 'Fertigungsauftrag'

 Rückgabe:[Object], Datenabruf der Tabelle: 'F60' - 'Fertigungsauftrag'. loF60 = ...Misc.oF60[IDF60]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oF60[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oF60[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oF61 - Datenabruf der Tabelle: 'F61' - 'Fertigungsauftrag -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'F61' - 'Fertigungsauftrag -Pos'. loF61 = ...Misc.oF61[IDF61]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oF61[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oF61[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oF62 - Datenabruf der Tabelle: 'F62' - 'Fertigungsauftrag -Buch.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'F62' - 'Fertigungsauftrag -Buch.'. loF62 = ...Misc.oF62[IDF61]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oF62[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oF62[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oF90 - Datenabruf der Tabelle: 'F90' - 'CAE-Differenzliste'

 Rückgabe:[Object], Datenabruf der Tabelle: 'F90' - 'CAE-Differenzliste'. loF90 = ...Misc.oF90[IDF90]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oF90[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oF90[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oF91 - Datenabruf der Tabelle: 'F91' - 'CAE-Differenzliste -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'F91' - 'CAE-Differenzliste -Pos'. loF91 = ...Misc.oF91[IDF91]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oF91[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oF91[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oFer - Datenabruf der Tabelle: 'FER' - 'Fehlermeldungen in FIBU'

 Rückgabe:[Object], Datenabruf der Tabelle: 'FER' - 'Fehlermeldungen in FIBU'. loFER = ...Misc.oFER[IDFER]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oFer[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oFer[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oH01 - Datenabruf der Tabelle: 'H01' - 'FIBU Kopfdaten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'H01' - 'FIBU Kopfdaten'. loH01 = ...Misc.oH01[IDH01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oH02 - Datenabruf der Tabelle: 'H02' - 'FIBU Positionsdaten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'H02' - 'FIBU Positionsdaten'. loH02 = ...Misc.oH02[IDH02]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH02[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oH03 - Datenabruf der Tabelle: 'H03' - 'Buchungssätze FIBU'

 Rückgabe:[Object], Datenabruf der Tabelle: 'H03' - 'Buchungssätze FIBU'. loH03 = ...Misc.oH03[IDH03]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oH04 - Datenabruf der Tabelle: 'H04' - 'Stammdatensätze FIBU'

 Rückgabe:[Object], Datenabruf der Tabelle: 'H04' - 'Stammdatensätze FIBU'. loH04 = ...Misc.oH04[IDH04]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH04[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oH10 - Datenabruf der Tabelle: 'H10' - 'Buchungs Kopfdaten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'H10' - 'Buchungs Kopfdaten'. loH10 = ...Misc.oH10[IDH10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oH10Stat - Datenabruf der Tabelle H10 'Buchungs Kopfdaten'

 Gibt ein Objekt der H10 zurück incl. der Summe der Positionen (H11). OPOS()
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH10Stat[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH10Stat[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



oH11 - Datenabruf der Tabelle: 'H11' - 'Buchungspositionen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'H11' - 'Buchungspositionen'. loH11 = ...Misc.oH11[IDH11]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH11[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oH18 - Datenabruf der Tabelle: 'H18' - 'Kontenrahmen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'H18' - 'Kontenrahmen'. loH18 = ...Misc.oH18[IDH18|IPH18]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH18[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH18[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oH19 - Datenabruf der Tabelle: 'H19' - 'Kontenschlüssel'

 Rückgabe:[Object], Datenabruf der Tabelle: 'H19' - 'Kontenschlüssel'. loH19 = ...Misc.oH19[IDH19]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oH19[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oH19[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI01 - Datenabruf der Tabelle: 'I01' - 'Artikel - Lagerorte'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I01' - 'Artikel - Lagerorte'. loI01 = ...Misc.oI01[IDI01|IDB01+IDK10+IDC66]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI01S - Datenabruf der Tabelle I01 'Artikel - Lagerorte'

 Rückgabe der Summenwerte aus I01 für IDB01+IDK10+IDC66 LIKE "Schlüssel"
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI01S[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI01S[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



oI01STq - Mengen aus I01

 Abruf der Mengen aus I01
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI01STq[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI01STq[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


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%"]



oI05 - Datenabruf der Tabelle I05 - Plandaten

 Rückgabe:[Object], Datenabruf der Tabelle: 'I05' - 'Resourcenplanung'. loI05 = ...Misc.oI05[IDI05|IEI05]
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oI05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI05[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oI15 - Datenabruf der Tabelle: 'I15' - 'Disposammelbuchungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I15' - 'Disposammelbuchungen'. loI15 = ...Misc.oI15[IDI15|IPE10+IDE10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI15[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI16 - Datenabruf der Tabelle: 'I16' - 'Dispositionshinweise'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I16' - 'Dispositionshinweise'. loI16 = ...Misc.oI16[IDI16]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI16[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI17 - Datenabruf der Tabelle: 'I17' - 'Überschußmengen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I17' - 'Überschußmengen'. loI17 = ...Misc.oI17[IDI17]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI17[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI17[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI18 - Datenabruf der Tabelle: 'I18' - 'Korrekturbuchungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I18' - 'Korrekturbuchungen'. loI18 = ...Misc.oI18[IDI18]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI18[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI18[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI19 - Datenabruf der Tabelle: 'I19' - 'Bestellvorschlag'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I19' - 'Bestellvorschlag'. loI19 = ...Misc.oI19[IDI19]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI19[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI19[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI20 - Datenabruf der Tabelle: 'I20' - 'Disposition'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I20' - 'Disposition'. loI20 = ...Misc.oI20[IDI20]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI20St - Datenabruf der Tabelle I20 'Disposition'

 Gesamt-Status einer Dispositionszeile. Der Parameter wird folgendermaßen aufgeteilt: ipe10|ide10|ide11
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI20St[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI20St[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


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        "



oI20StB - Abruf der Disposition

 Abruf der Disposition über Artikel|Projekt|Lagerort
Hilfeinformation

Es wird ein Objekt mit den Summen der Mengen zurückgegeben.
Artikel|Projekt|Lagerort|IPauf|IDauf
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI20StB[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI20StB[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



oI20StQ - Dispositionsmengen

 Gibt NUR die Mengen aus I20 summiert zurück. '1'+ip+id+idpos | '2'+idb01+idk10+idc66
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI20StQ[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI20StQ[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



oI21 - Datenabruf der Tabelle: 'I21' - 'Buchungsjournal'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I21' - 'Buchungsjournal'. loI21 = ...Misc.oI21[IDI21]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI21[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI22 - Datenabruf der Tabelle: 'I22' - 'Lagerumbuchungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I22' - 'Lagerumbuchungen'. loI22 = ...Misc.oI22[IDI22]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI22[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI22[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI22st - Datenabruf der Tabelle I22 'Lagerumbuchungen'

 Ist eine Lagerumbuchung storniert worden?
Hilfeinformation

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;...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI22st[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI22st[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI23 - Datenabruf der Tabelle: 'I23' - 'Lagerumbuchungen -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I23' - 'Lagerumbuchungen -Pos'. loI23 = ...Misc.oI23[IDI23]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI23[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI23[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI23StI20 - Datenabruf der Tabelle I23 'Lagerumbuchungen -Pos'

 Berechnen des Status für I20 aus I23 und B01. Rückgabe: B01.STATUS=STA, I23.IDK10V="########"=VNB, I23.IDK10V=B01.IDK10=VNS
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI23StI20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI23StI20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



oI24 - Datenabruf der Tabelle: 'I24' - 'Fertigungsaufträge'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I24' - 'Fertigungsaufträge'. loI24 = ...Misc.oI24[IDI24|IEI24]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI24[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI24[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI25 - Datenabruf der Tabelle: 'I25' - 'Fertigungsaufträge -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I25' - 'Fertigungsaufträge -Pos'. loI25 = ...Misc.oI25[IDI25]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI25[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI25[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI26 - Datenabruf der Tabelle: 'I26' - 'Materialanforderung auto'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I26' - 'Materialanforderung auto'. loI26 = ...Misc.oI26[IDI26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI26[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI26[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI27 - Datenabruf der Tabelle: 'I27' - 'Materialanforderung -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I27' - 'Materialanforderung -Pos'. loI27 = ...Misc.oI27[IDI27]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI27[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI27[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI28 - Datenabruf der Tabelle: 'I28' - 'Materialanforderung man.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I28' - 'Materialanforderung man.'. loI28 = ...Misc.oI28[IDI28]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI28[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI28[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI29 - Datenabruf der Tabelle: 'I29' - 'Materialanforderung -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I29' - 'Materialanforderung -Pos'. loI29 = ...Misc.oI29[IDI29]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI29[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI29[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI30 - Datenabruf der Tabelle: 'I30' - 'Lagerzugänge'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I30' - 'Lagerzugänge'. loI30 = ...Misc.oI30[IDI30]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI30[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI30st - Datenabruf der Tabelle I30 'Lagerzugänge'

 Ermittle die gebuchten bzw. stornierten Daten aus dem Lagerzugang
Hilfeinformation

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
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI30st[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI30st[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI31 - Datenabruf der Tabelle: 'I31' - 'Lagerzugänge -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I31' - 'Lagerzugänge -Pos'. loI31 = ...Misc.oI31[IDI31]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI31[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI31[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI32 - Datenabruf der Tabelle: 'I32' - 'Lagerabgänge'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I32' - 'Lagerabgänge'. loI32 = ...Misc.oI32[IDI32]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI32[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI32[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI32st - Datenabruf der Tabelle I32 'Lagerabgänge'

 Ermittle die gebuchten bzw. stornierten Daten aus dem Lagerabgang
Hilfeinformation

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;...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI32st[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI32st[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI33 - Datenabruf der Tabelle: 'I33' - 'Lagerabgänge -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I33' - 'Lagerabgänge -Pos'. loI33 = ...Misc.oI33[IDI33]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI33[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI33[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI40 - Datenabruf der Tabelle: 'I40' - 'Inventur'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I40' - 'Inventur'. loI40 = ...Misc.oI40[IDI40]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI40[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI40F - Datenabruf der Tabelle I40 'Inventur'

 Zugriff auf die Tabelle I40 unter Angabe eines Filters
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI40F[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI40F[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ Abruf der Tabelle I40 unter Angabe eines Filters
*/ Es wird IMMER der 'Erste' Datensatz zurückgegeben!



oI41 - Datenabruf der Tabelle: 'I41' - 'Inventur -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I41' - 'Inventur -Pos'. loI41 = ...Misc.oI41[IDI41]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI41[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI41[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI50 - Datenabruf der Tabelle: 'I50' - 'Inventurbewertung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I50' - 'Inventurbewertung'. loI50 = ...Misc.oI50[IDI50]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI50[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI50[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI51 - Datenabruf der Tabelle: 'I51' - 'Inventurbewertung -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I51' - 'Inventurbewertung -Pos'. loI51 = ...Misc.oI51[IDI51]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI51[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI51[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI52 - Datenabruf der Tabelle: 'I52' - 'Inventurbewertung -U.Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I52' - 'Inventurbewertung -U.Pos'. loI52 = ...Misc.oI52[IDI51]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI52[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI52[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI54 - Datenabruf der Tabelle: 'I54' - 'Wertminderungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I54' - 'Wertminderungen'. loI54 = ...Misc.oI54[IDI51]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI54[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI54[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI55 - Datenabruf der Tabelle: 'I55' - 'Bewertungsfehler'

 Rückgabe:[Object], Datenabruf der Tabelle: 'I55' - 'Bewertungsfehler'. loI55 = ...Misc.oI55[IDI55]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oI55[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI55[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oI62 - Lagerbuchung extern

 Rückgabe:[Object], Datenabruf der Tabelle: 'I62' - 'Lagerbuchung (extern)'. loI62 = ...Misc.oI62[IDI62|IEI62]
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oI62[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI62[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oI63 - Lagerbuchungsposition extern

 Rückgabe:[Object], Datenabruf der Tabelle: 'I63' - 'Lagerbuchungspos. (extern)'. loI63 = ...Misc.oI63[IDI63]
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oI63[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oI63[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oJ30 - Datenabruf der Tabelle: 'J30' - 'BDE-Aufträge'

 Rückgabe:[Object], Datenabruf der Tabelle: 'J30' - 'BDE-Aufträge'. loJ30 = ...Misc.oJ30[IDJ30+STR(AFO_NR,3)]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oJ30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oJ30[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oJ32 - Datenabruf der Tabelle: 'J32' - 'Auftragsdatenimport BDE'

 Rückgabe:[Object], Datenabruf der Tabelle: 'J32' - 'Auftragsdatenimport BDE'. loJ32 = ...Misc.oJ32[IDJ32]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oJ32[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oJ32[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oJ40 - Datenabruf der Tabelle: 'J40' - 'BDE-Übergaben'

 Rückgabe:[Object], Datenabruf der Tabelle: 'J40' - 'BDE-Übergaben'. loJ40 = ...Misc.oJ40[IDJ40|IEJ40]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oJ40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oJ40[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oJ41 - Datenabruf der Tabelle: 'J41' - 'BDE-Übergaben -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'J41' - 'BDE-Übergaben -Pos'. loJ41 = ...Misc.oJ41[IDJ41]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oJ41[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oJ41[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oK06 - Datenabruf der Tabelle: 'K06' - 'Vorgänge - Edelmetalle'

 Rückgabe:[Object], Datenabruf der Tabelle: 'K06' - 'Vorgänge - Edelmetalle'. loK06 = ...Misc.oK06[IDK06]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oK06[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oK06[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oK10 - Datenabruf der Tabelle: 'K10' - 'Projekte'

 Rückgabe:[Object], Datenabruf der Tabelle: 'K10' - 'Projekte'. loK10 = ...Misc.oK10[IDK10|IEK10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oK10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oK10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oK10c - Datenabruf der Tabelle K10 'Projekte'

 Rückgabe eines Datensatzes aus K10 unter Angabe der Projektnummer
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oK10c[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oK10c[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ Wie oK10[] jedoch unter Angabe der Projektnummer
LOCAL loK10 AS Object
loK10 = My.Bussines.Strain.Misc.oK10c['PROJEKTNUMMER']



oK11 - Datenabruf der Tabelle: 'K11' - 'Projektzuordnungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'K11' - 'Projektzuordnungen'. loK11 = ...Misc.oK11[IDK11]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oK11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oK11[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oK12 - Datenabruf der Tabelle: 'K12' - 'ausgelagerte Projekte'

 Rückgabe:[Object], Datenabruf der Tabelle: 'K12' - 'ausgelagerte Projekte'. loK12 = ...Misc.oK12[IDK12]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oK12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oK12[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oK20 - Datenabruf der Tabelle: 'K20' - 'Projektlagerauflösung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'K20' - 'Projektlagerauflösung'. loK20 = ...Misc.oK20[IDK20]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oK20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oK20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oK30 - Datenabruf der Tabelle: 'K30' - 'Prognosen Kopftabelle'

 Rückgabe:[Object], Datenabruf der Tabelle: 'K30' - 'Prognosen Kopftabelle'. loK30 = ...Misc.oK30[IDK30]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oK30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oK30[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oK31 - Datenabruf der Tabelle: 'K31' - 'Prognosen Positionen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'K31' - 'Prognosen Positionen'. loK31 = ...Misc.oK31[IDK31]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oK31[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oK31[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oL20 - Datenabruf der Tabelle: 'L20' - 'Dokumente'

 Rückgabe:[Object], Datenabruf der Tabelle: 'L20' - 'Dokumente'. loL20 = ...Misc.oL20[IDL20]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oL20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oL20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oL20TIG - Datenabruf der Tabelle L20 'Dokumente'

 Wert:[Object], Gibt ein Dokumentobjekt aus L20 zurück über :[:]
Hilfeinformation

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
Aufrufinformation


Object = My.Bussines.Strain.Misc.oL20TIG[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oL20TIG[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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



oL21 - Datenabruf der Tabelle: 'L21' - 'Dokumentgruppen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'L21' - 'Dokumentgruppen'. loL21 = ...Misc.oL21[IDL21]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oL21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oL21[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oL26 - Datenabruf der Tabelle: 'L26' - 'Übersetzungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'L26' - 'Übersetzungen'. loL26 = ...Misc.oL26[IDL26+IDC26|IDL26+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oL26[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oL26[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oL26T - Wie oL26[] jedoch werden die Strings getrimmt

 Wie THIS.oL26[...] jedoch werden die Texte getrimmt!
Hilfeinformation

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!
Aufrufinformation


... = My.Bussines.Strain.Misc.oL26T[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
... = My.Bussines.Strain.Misc.oL26T[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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!


oO01 - Datenabruf der Tabelle: 'O01' - 'Kanaldaten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O01' - 'Kanaldaten'. loO01 = ...Misc.oO01[IDO01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO02 - Datenabruf der Tabelle: 'O02' - 'Anschlußgruppe'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O02' - 'Anschlußgruppe'. loO02 = ...Misc.oO02[IDO02]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO02[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO03 - Datenabruf der Tabelle: 'O03' - 'Anschlußdaten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O03' - 'Anschlußdaten'. loO03 = ...Misc.oO03[IDO03]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO04 - Datenabruf der Tabelle: 'O04' - 'Austauschteile'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O04' - 'Austauschteile'. loO04 = ...Misc.oO04[IDO04]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO04[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO05 - Datenabruf der Tabelle: 'O05' - 'Zubehörteile'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O05' - 'Zubehörteile'. loO05 = ...Misc.oO05[IDO05]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO05[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO10 - Datenabruf der Tabelle: 'O10' - 'Ausprägng. Kanal'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O10' - 'Ausprägng. Kanal'. loO10 = ...Misc.oO10[IDO10+IDC50+IDC26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO20 - Datenabruf der Tabelle: 'O20' - 'Ausprägng. Anschlußgrg.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O20' - 'Ausprägng. Anschlußgrg.'. loO20 = ...Misc.oO20[IDO20+IDC26|IDO20+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO30 - Datenabruf der Tabelle: 'O30' - 'Ausprägng. Anschluß'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O30' - 'Ausprägng. Anschluß'. loO30 = ...Misc.oO30[IDO30+IDC50+IDC26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO30[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO30[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO40 - Datenabruf der Tabelle: 'O40' - 'Wert Kanal'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O40' - 'Wert Kanal'. loO40 = ...Misc.oO40[IDO40]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO40[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO40[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO50 - Datenabruf der Tabelle: 'O50' - 'Wert Anschlußgruppe'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O50' - 'Wert Anschlußgruppe'. loO50 = ...Misc.oO50[IDO50]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO50[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO50[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO60 - Datenabruf der Tabelle: 'O60' - 'Wert Anschluß'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O60' - 'Wert Anschluß'. loO60 = ...Misc.oO60[IDO60]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO60[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO60[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oO99 - Datenabruf der Tabelle: 'O99' - 'Vorgabewerte'

 Rückgabe:[Object], Datenabruf der Tabelle: 'O99' - 'Vorgabewerte'. loO99 = ...Misc.oO99[IDO99+IPY01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oO99[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oO99[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP11 - Datenabruf der Tabelle: 'P11' - 'Schnittstellendefinition'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P11' - 'Schnittstellendefinition'. loP11 = ...Misc.oP11[IDP11]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP11[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP12 - Datenabruf der Tabelle: 'P12' - 'Satzkenner 1'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P12' - 'Satzkenner 1'. loP12 = ...Misc.oP12[IDP11+IDP12]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP12[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP13 - Datenabruf der Tabelle: 'P13' - 'Satzkenner 2'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P13' - 'Satzkenner 2'. loP13 = ...Misc.oP13[IDP11+IDP12+IDP13+VON2]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP13[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP13[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP15 - Datenabruf der Tabelle: 'P15' - 'Importformat'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P15' - 'Importformat'. loP15 = ...Misc.oP15[IDP15]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP15[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP16 - Datenabruf der Tabelle: 'P16' - 'Exportformat'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P16' - 'Exportformat'. loP16 = ...Misc.oP16[IDP16]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP16[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP90 - Datenabruf der Tabelle: 'P90' - 'Exportdatei ECAD-BAUT.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P90' - 'Exportdatei ECAD-BAUT.'. loP90 = ...Misc.oP90[IDP90]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP90[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP90[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP91 - Datenabruf der Tabelle: 'P91' - 'EXPORT / Positionen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P91' - 'EXPORT / Positionen'. loP91 = ...Misc.oP91[IDP91]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP91[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP91[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP95 - Datenabruf der Tabelle: 'P95' - 'Importdatei ECAD-BAUT.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P95' - 'Importdatei ECAD-BAUT.'. loP95 = ...Misc.oP95[IDP95]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP95[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP95[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP96 - Datenabruf der Tabelle: 'P96' - 'Importpositionen / ECAD'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P96' - 'Importpositionen / ECAD'. loP96 = ...Misc.oP96[IDP96]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP96[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP96[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP97 - Datenabruf der Tabelle: 'P97' - 'ECAD-Import Preise'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P97' - 'ECAD-Import Preise'. loP97 = ...Misc.oP97[IDP95]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP97[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP97[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oP98 - Datenabruf der Tabelle: 'P98' - 'ECAD-Import Edelmetalle'

 Rückgabe:[Object], Datenabruf der Tabelle: 'P98' - 'ECAD-Import Edelmetalle'. loP98 = ...Misc.oP98[IDP98]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oP98[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oP98[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oQ01 - Datenabruf der Tabelle: 'Q01' - 'Manuelle BDE-Erfassung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Q01' - 'Manuelle BDE-Erfassung'. loQ01 = ...Misc.oQ01[IDQ01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oQ01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oQ01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oQ02 - Datenabruf der Tabelle: 'Q02' - 'Reise- / Sonstige Kosten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Q02' - 'Reise- / Sonstige Kosten'. loQ02 = ...Misc.oQ02[IDQ02]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oQ02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oQ02[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oQ03 - Datenabruf der Tabelle: 'Q03' - 'Manuelle Rechnungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Q03' - 'Manuelle Rechnungen'. loQ03 = ...Misc.oQ03[IDQ03]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oQ03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oQ03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oR10 - Datenabruf der Tabelle: 'R10' - 'Barcodedaten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'R10' - 'Barcodedaten'. loR10 = ...Misc.oR10[IDR10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oR10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oR10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS01 - Datenabruf der Tabelle: 'S01' - 'Lagerstatistiken'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S01' - 'Lagerstatistiken'. loS01 = ...Misc.oS01[IDS01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS10 - Datenabruf der Tabelle: 'S10' - 'Fehlteilliste'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S10' - 'Fehlteilliste'. loS10 = ...Misc.oS10[IDS10]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS11 - Datenabruf der Tabelle: 'S11' - 'Fehlteilliste -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S11' - 'Fehlteilliste -Pos'. loS11 = ...Misc.oS11[IDS11]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS11[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS11[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS12 - Datenabruf der Tabelle: 'S12' - 'Umsatzstatistik'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S12' - 'Umsatzstatistik'. loS12 = ...Misc.oS12[IDS12]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS12[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS13 - Datenabruf der Tabelle: 'S13' - 'Umsatzstatistik -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S13' - 'Umsatzstatistik -Pos'. loS13 = ...Misc.oS13[IDS13]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS13[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS13[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS14 - Datenabruf der Tabelle: 'S14' - 'Umsatzstatistik -U.Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S14' - 'Umsatzstatistik -U.Pos'. loS14 = ...Misc.oS14[IDS14]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS14[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS14[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS15 - Datenabruf der Tabelle: 'S15' - 'Bestellobligo'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S15' - 'Bestellobligo'. loS15 = ...Misc.oS15[IDS15]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS15[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS15[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS16 - Datenabruf der Tabelle: 'S16' - 'Bestellobligo -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S16' - 'Bestellobligo -Pos'. loS16 = ...Misc.oS16[IDS16]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS16[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS17 - Datenabruf der Tabelle: 'S17' - 'Bestellobligo -U.Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S17' - 'Bestellobligo -U.Pos'. loS17 = ...Misc.oS17[IDS17]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS17[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS17[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS18 - Datenabruf der Tabelle: 'S18' - 'Preisentwicklung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S18' - 'Preisentwicklung'. loS18 = ...Misc.oS18[IDS18]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS18[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS18[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS19 - Datenabruf der Tabelle: 'S19' - 'Preisentwicklung -Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S19' - 'Preisentwicklung -Pos'. loS19 = ...Misc.oS19[IDS19]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS19[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS19[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS20 - Datenabruf der Tabelle: 'S20' - 'Über-/Unterlieferungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S20' - 'Über-/Unterlieferungen'. loS20 = ...Misc.oS20[IDS20]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS21 - Datenabruf der Tabelle: 'S21' - 'Über-/Unterlieferungen -P'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S21' - 'Über-/Unterlieferungen -P'. loS21 = ...Misc.oS21[IDS21]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS21[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS22 - Datenabruf der Tabelle: 'S22' - 'Über-/Unterlieferungen -U'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S22' - 'Über-/Unterlieferungen -U'. loS22 = ...Misc.oS22[IDS22]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS22[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS22[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS23 - Datenabruf der Tabelle: 'S23' - 'Preisvergleiche'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S23' - 'Preisvergleiche'. loS23 = ...Misc.oS23[IDS23]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS23[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS23[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS24 - Datenabruf der Tabelle: 'S24' - 'Preisvergleiche -Pos.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S24' - 'Preisvergleiche -Pos.'. loS24 = ...Misc.oS24[IDS24]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS24[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS24[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oS25 - Datenabruf der Tabelle: 'S25' - 'Preisvergleiche -U.Pos'

 Rückgabe:[Object], Datenabruf der Tabelle: 'S25' - 'Preisvergleiche -U.Pos'. loS25 = ...Misc.oS25[IDS25]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oS25[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oS25[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oSC0 - Datenabruf der Tabelle: 'SC0' - 'Cubes'

 Rückgabe:[Object], Datenabruf der Tabelle: 'SC0' - 'Cubes'. loSC0 = ...Misc.oSC0[IDSC0]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSC0[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oSC0[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oSC1 - Datenabruf der Tabelle: 'SC1' - 'Cube Fields'

 Rückgabe:[Object], Datenabruf der Tabelle: 'SC1' - 'Cube Fields'. loSC1 = ...Misc.oSC1[IDSC1]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSC1[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oSC1[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oSC2 - Datenabruf der Tabelle: 'SC2' - 'Cube Clients'

 Rückgabe:[Object], Datenabruf der Tabelle: 'SC2' - 'Cube Clients'. loSC2 = ...Misc.oSC2[IDSC2]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSC2[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oSC2[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oSC3 - Datenabruf der Tabelle: 'SC3' - 'Cube Filters'

 Rückgabe:[Object], Datenabruf der Tabelle: 'SC3' - 'Cube Filters'. loSC3 = ...Misc.oSC3[IDSC3]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSC3[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oSC3[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oSc0Max - MAX(SC0.FORDER)

 Wert:[Integer], Ermittelt MAX(SC0.FORDER) für die Neuanlage
Hilfeinformation

Ermittelt MAX(SC0.FORDER) für die Neuanlage
Aufrufinformation


Integer = My.Bussines.Strain.Misc.oSc0Max[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Integer = My.Bussines.Strain.Misc.oSc0Max[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oSc0a - Datenabruf der Tabelle SC0 'Cubes'

 Wert:[Object], Rückgabe einer Liste mit Cubes... Übergeben werden kann ein FILTER auf SC0. WHERE 
Hilfeinformation

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...
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSc0a[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oSc0a[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oSc1a - Datenabruf der Tabelle SC1 'Cube Fields'

 Wert:[Object], Rückgabe der Datensätze aus SC1
Hilfeinformation

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
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSc1a[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oSc1a[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oSc2a - Datenabruf der Tabelle SC2 'Cube Clients'

 Wert:[Object], Rückgabe der Datensätze aus SC2, die als AKTIV=.T. gekennzeichnet sind
Hilfeinformation

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
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSc2a[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oSc2a[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oSc3a - Datenabruf der Tabelle SC3 'Cube Filters'

 Wert:[Object], Gibt eine Collection mit Records aus SC3 zurück. Übergeben wird ein Filter
Hilfeinformation

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
Aufrufinformation


Object = My.Bussines.Strain.Misc.oSc3a[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oSc3a[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oSqlCL - 

 Gibt My.Clients.Sql zurück
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oSqlCL


Codeinformation




oT20 - Datenabruf der Tabelle: 'T20' - 'BackGround'

 Rückgabe:[Object], Datenabruf der Tabelle: 'T20' - 'BackGround'. loT20 = ...Misc.oT20[IDT20]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oT20[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oT20[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oTSX - Abruf TSX

 Abruf der Tabelle TSX
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oTSX[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oTSX[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oV01 - Datenabruf der Tabelle: 'V01' - 'Kalk. Zuschlagsarten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'V01' - 'Kalk. Zuschlagsarten'. loV01 = ...Misc.oV01[IPV01]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oV01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oV01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oV02 - Datenabruf der Tabelle: 'V02' - 'Kalk. Kostenarten'

 Rückgabe:[Object], Datenabruf der Tabelle: 'V02' - 'Kalk. Kostenarten'. loV02 = ...Misc.oV02[IDV02+IDC26|IDV02+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oV02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oV02[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oV03 - Datenabruf der Tabelle: 'V03' - 'Kalkulationsschemata'

 Rückgabe:[Object], Datenabruf der Tabelle: 'V03' - 'Kalkulationsschemata'. loV03 = ...Misc.oV03[IDV03+IDC26|IDV03+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oV03[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oV03[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oV04 - Datenabruf der Tabelle: 'V04' - 'Arbeitspläne'

 Rückgabe:[Object], Datenabruf der Tabelle: 'V04' - 'Arbeitspläne'. loV04 = ...Misc.oV04[IDV04+IDC26|IEV04|IDV04+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oV04[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oV04[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oV05 - Datenabruf der Tabelle: 'V05' - 'Arbeitsgänge'

 Rückgabe:[Object], Datenabruf der Tabelle: 'V05' - 'Arbeitsgänge'. loV05 = ...Misc.oV05[IDV05+IDC26|IEV05|IDV05+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oV05[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oV05[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oV05Bde - Datenabruf der Tabelle V05 'Arbeitsgänge'

 Spezielle V05 Funktion für die BDE. Hier wird aus IDV05 ein Integer gebildet! und dieser wird abgefragt
Hilfeinformation

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))
Aufrufinformation


Object = My.Bussines.Strain.Misc.oV05Bde[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oV05Bde[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oV06 - Datenabruf der Tabelle: 'V06' - 'Arbeitsgänge/Arbeitsplan'

 Rückgabe:[Object], Datenabruf der Tabelle: 'V06' - 'Arbeitsgänge/Arbeitsplan'. loV06 = ...Misc.oV06[IDV06]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oV06[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oV06[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX09 - Datenabruf der Tabelle: 'X09' - 'Firmenparameter'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X09' - 'Firmenparameter'. loX09 = ...Misc.oX09[IDX09]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX09[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX09[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX10 - Datenabruf der Tabelle: 'X10' - 'System- Rechtedefinition'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X10' - 'System- Rechtedefinition'. loX10 = ...Misc.oX10[MASKE+IDC26|MASKE+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX12 - Datenabruf der Nummernkreise

 Rückgabe:[Object], Datenabruf der Tabelle: 'X12' - 'Nummernkreise'. loX12 = ...Misc.oX12[NR_KREIS+RESET_VAL]
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oX12[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX12[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oX16 - Datenabruf der Tabelle: 'X16' - 'Maskenrechte - Mandant'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X16' - 'Maskenrechte - Mandant'. loX16 = ...Misc.oX16[MASKE+IDC26|MASKE+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX16[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX16[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX21 - Datenabruf der Tabelle: 'X21' - 'Reports'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X21' - 'Reports'. loX21 = ...Misc.oX21[REPNAME+RWOBINICH+RSPRACHE+IIF(REINZEL,"T","F")]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX21[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX21[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX22 - Datenabruf der Tabelle: 'X22' - 'Druckbereich'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X22' - 'Druckbereich'. loX22 = ...Misc.oX22[IDX22+IDC26|IDX22+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX22[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX22[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX23 - Datenabruf der Tabelle: 'X23' - 'Druckaufrufbereich'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X23' - 'Druckaufrufbereich'. loX23 = ...Misc.oX23[IDX23+IDX22]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX23[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX23[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX26 - Datenabruf der Tabelle: 'X26' - 'Reportsprache'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X26' - 'Reportsprache'. loX26 = ...Misc.oX26[IDX26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX26[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX26[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX26Fi - Datenabruf der Tabelle X26 'Reportsprache'

 Gibt ein Datensatzobjekt der Tabelle X26 - Reportsprachen zurück. Die definierte Sprache wird aus den Firmenparametern geholt
Hilfeinformation

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.
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX26Fi


Codeinformation


*/ 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


oX50 - Datenabruf der Tabelle: 'X50' - 'Masken'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X50' - 'Masken'. loX50 = ...Misc.oX50[SPRACHE+PROG]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX50[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX50[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX51 - Datenabruf der Tabelle: 'X51' - 'Tabellenbeziehungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X51' - 'Tabellenbeziehungen'. loX51 = ...Misc.oX51[IDX51]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX51[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX51[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX60 - Datenabruf der Tabelle X60

 Abfrage der Tabelle X60
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oX60[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX60[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oX61 - Abruf X61

 Wert:[Variant], Abfruf der Tabelle X61 - Program+Type+Dbf
Hilfeinformation

Rückgabe. : [Object] - Datensatz- Objekt der Tabelle: Tabelleneinstellungen
Abfruf der Tabelle X61 - Program+Type+Dbf
Aufrufinformation


Variant = My.Bussines.Strain.Misc.oX61[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Variant = My.Bussines.Strain.Misc.oX61[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oX62 - Datenabruf der Tabelle: 'X62' - 'Sepzielle Gridfelder'

 Rückgabe:[Object], Datenabruf der Tabelle: 'X62' - 'Sepzielle Gridfelder'. loX62 = ...Misc.oX62[IDX62]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oX62[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX62[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oX63 - Datenabruf der benutzer spez. Datenraster

 Rückgabe:[Object], Datenabruf der Tabelle: 'X63' - 'Benutzerdefinierte Grids'. loX63 = ...Misc.oX63[IDX63]
Hilfeinformation


Aufrufinformation


Object = My.Bussines.Strain.Misc.oX63[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oX63[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




oY01 - Datenabruf der Tabelle: 'Y01' - 'Präfix Systemtabelle'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Y01' - 'Präfix Systemtabelle'. loY01 = ...Misc.oY01[IPY01+IDC26|IPY01+My.cIdc26]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oY01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oY01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oY10 - Datenabruf der Tabelle: 'Y10' - 'Blockbearbeitung'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Y10' - 'Blockbearbeitung'. loY10 = ...Misc.oY10[PRG+FIELD]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oY10[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oY10[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oY98 - Datenabruf der Tabelle: 'Y98' - 'Messageinformationen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Y98' - 'Messageinformationen'. loY98 = ...Misc.oY98[IDY98]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oY98[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oY98[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oY99 - Datenabruf der Tabelle: 'Y99' - 'Globale Einstellungen'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Y99' - 'Globale Einstellungen'. loY99 = ...Misc.oY99[TERMINAL+USER+SEEKFOR]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oY99[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oY99[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oZ01 - Datenabruf der Tabelle: 'Z01' - 'Zahlungspläne'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Z01' - 'Zahlungspläne'. loZ01 = ...Misc.oZ01[IDZ01|VTID+VTSID]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oZ01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oZ01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


oZ02 - Datenabruf der Tabelle: 'Z02' - 'Zahlungspläne -Pos.'

 Rückgabe:[Object], Datenabruf der Tabelle: 'Z02' - 'Zahlungspläne -Pos.'. loZ02 = ...Misc.oZ02[IDZ02]
Hilfeinformation

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!
Aufrufinformation


Object = My.Bussines.Strain.Misc.oZ02[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Object = My.Bussines.Strain.Misc.oZ02[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation


*/ 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


sDel - Trennzeichen zwischen ID und Sprachindex

 Trennzeichen bei Tabellen mit Sprachindex. Z.B.: C10 = IDC10+IDC26 = "idc10|"+IDC26
Hilfeinformation

Trennzeichen bei Tabellen mit Sprachindex. Z.B.: C10 = IDC10+IDC26 = "idc10|"+IDC26
Aufrufinformation


String = My.Bussines.Strain.Misc.sDel


Codeinformation




vY01 - Rückgabe von Systeminformationen aus Y01 über IPY01

 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.
Hilfeinformation

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]
Aufrufinformation


Variant = My.Bussines.Strain.Misc.vY01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Variant = My.Bussines.Strain.Misc.vY01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation




xY01 - Abruf Y01 - getrimmt

 Wert:[Variant], Gibt ein Objekt der Tabelle Y01 zurück für Ermittlungen des Master's etc.
Hilfeinformation


Aufrufinformation


Variant = My.Bussines.Strain.Misc.xY01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Variant = My.Bussines.Strain.Misc.xY01[tcIndex1|,tiIndex1,tiIndex2]


Codeinformation







Siehe auch :
Hauptmenü / 
Hauptindex / 
Such Index / 
Cursor Index / 
Programm Module / 
Tabellen Index / 
Tabellenmodule / 
Masken Index / 
Programmcode Index / 
Servicepacks / 
My.Struktur / 
Funktionen / 
Sonstiges Index

 Lokale Benutzerhilfe : Meine eigene Hilfe / 
Zurück zur PMS32 - Hilfe






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

Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS32 
Weitere Informationen finden Sie unter der aktuellen 
PMS32 WEB-Hilfe

Die Informationen dieser Mitteilung sind vertraulich und nur für Sie bestimmt. Unbefugtes Weiterleiten,
 Veröffentlichen, Kopieren usw. sind untersagt und werden gerichtlich verfolgt. 
© PMS Compelec GmbH 2022 ® el-Projekt