PMS32 Online- Hilfereferenz
BDE-Übergaben
Eingabe des Datums oder Auswahl in der Kalendermaske mit STRG+F2 oder durch Mausklick auf den Button rechts neben dem Datumsfeld.
Für die Datenübergabe an ein BDE-System wird das letzte Änderungsdatum aus dem zugrundeliegenden Auftrag mitgeführt.
Eingabe des Datums oder Auswahl in der Kalendermaske mit STRG+F2 oder durch Mausklick auf den Button rechts neben dem Datumsfeld.
Für die Datenübergabe an ein BDE-System wird das Neuanlagedatum aus dem zugrundeliegenden Auftrag mitgeführt.
Datum- Uhrzeitfeld. Letzter Import der BDE-Daten
Datum- Uhrzeitfeld. Eingabe des Datums incl. der Uhrzeit. Die Eingabemakse richtet sich nach der Einstellung der Systemvorgaben Ihres Rechnersystems! "Regions- und Sprachoptionen".
Datum- Uhrzeitfeld. Letzter Export der BDE-Daten
Datum- Uhrzeitfeld. Eingabe des Datums incl. der Uhrzeit. Die Eingabemakse richtet sich nach der Einstellung der Systemvorgaben Ihres Rechnersystems! "Regions- und Sprachoptionen".
PAGE04
Bitte füllen Sie möglichst das Feld mit einem eindeutigen Wert, damit Sie bei einer Auswahl (Lookup) die Information deutlich indentifizieren können.
Candidate Felder einer Tabelle definieren einen eindeutigen Suchbefriff für den Benutzer. Meistens hat die Tabelle auch eine interne ID, die den Primärschlüssel der Tabelle bildet. Dann "könnten" mehrere "gleiche" Datensätze mit gleichem Candidateschlüssel angelegt werden. Das System wäre in der Lage, bei Doppeltbenennungen "quasi gleicher" Definitionen, anhand der internen ID die Daten auseinander zu halten. Der Benutzer kann bei einer Auswahl (Lookup) die Informationen dann aber nicht unbedingt auseinanderhalten. Dieses Feld wird "meistens" bei einer Relation aus einer anderen Tabelle heraus angezeigt. Achten Sie deshalb darauf, dass Sie die Information wiedererkennen können. Am Beispiel einer Artikelnummer: Unter einer Artikelnummer mit "74568958743.14" kann sich kaum jemand was vorstellen, jedoch mit "SIE.3TH..." (Hersteller + Typennummer) weiss der Benutzer zumindest, dass es sich hier um Leistungsschütze handelt. Wie Sie Ihre Candidate Schlüssel eingeben bleibt Ihnen überlassen, bedenken Sie jedoch, dass einen sprechende Nummer für nicht eingeweihte Personen besser lesbar ist.
ID Feld der entsprechenden Ziel- bzw. Quelltabelle. Zu diesem ID Feld muss es ein entsprechendes IP Feld geben, um die Ziel- bzw. Quelltabelle ermitteln zu können.
ID Feld der entsprechenden Ziel- bzw. Quelltabelle. Zu diesem ID Feld muss es ein entsprechendes IP Feld geben, um die Ziel- bzw. Quelltabelle ermitteln zu können. Siehe dazu auch IPAUF, IPZWI, etc. Das Präfixfeld IP... gibt die Ziel- bzw. Quelltabelle der Datenherkunft an. Über das ID Feld kann dann die Relation in die ermittelte Tabelle hergestellt werden. Siehe dazu auch das Codebeispiel.
*/ Dieses ID Feld IDAUF kann Informationen aus verschiedenen Tabellen enthalten! */ Wichtig in diesem Zusammenhang ist das IP Feld IPAUF in dem über die Systemtabelle Y01 die Zieltabelle angegeben wird... */ Substitution des Feldes IPAUF : LOCAL loY01 AS Object,lcDbf AS String,lcIC AS String,lcID AS String,loDbf AS Object,lxDbf */ Wir holen uns zunächst die Informationen über die IP aus der Systemtabelle Y01... loY01 = My.Bussines.Strain.Misc.vY01[J40.IPAUF] IF !EMPTY(m.lcIP) */ Dann wurden Informationen gefunden... lcDbf = RTRIM(loY01.cmDbf) && Die Mastertabelle der IP lcID = "ID"+m.lcDbf && Das Primärschlüsselfeld der Mastertabelle lcIC = RTRIM(loY01.cMic) && Das Candidate Feld der Mastertabelle (z.B. Artikelnummer: B01=>ARTNR) lxDbf = "o"+m.lcDbf IF PEMSTATUS(My.Bussines.Strain.Misc,m.lxDbf,5) */ Dann gibt es einen direkten Abruf des Datensatzes loDbf = My.Bussines.Strain.Misc.&lxDbf[J40.IDAUF] IF !EMPTY(loDbf.&lcID) */ Dann wurden die Daten gefunden... ENDIF ENDIF ENDIF */ Ein direkter Abruf kann auch über: LOCAL loDbf AS Object loDbf = My.Bussines.Strain.Misc.oSWTbl(J40.IPAUF,J40.IDAUF) */ erfolgen, hier muss man prüfen, ob loDbf <> .NULL. ist... IF !ISNULL(m.loDbf) */ Dann kann auf die Daten der Switched Table zugeriffen werden! */ Um dem Benutzer die Aufgabe einfacher zu machen werden an das Tabellenobjekt folgende Felder geadded: */ __DBF => Name der Tabelle (B01) */ __ID => Name des ID Feldes */ __IC => Name des IC Feldes, falls vorhanden ENDIF
Relationales Feld (Lookup) in die Kundentabelle. Der Feldinhalt wird meistens durch F2 bzw. F3 - Auswahl gefüllt.
Relationales Feld zur Kundentabelle. Dieses Feld ist ein Lookup- relationales Feld in die Kundentabelle (C63). Bei SQL Abfragen wird dieses Feld zur Verknüpfung der eigentlichen Tabelle mit der Kundentabelle benötigt. Ein Beispiel: SELECT c63.match, COUNT(*) AS anzahl FROM c63,d40 WHERE c63.idc63=d40.idc61 AND ... GROUP BY 1 ... Dieser SQL würde alle Beistellungen und Reparaturbestellungen zum Kunden ermitteln.
*/ Dieses Feld ist ein relationales Feld zur Tabelle: C63 - Kunden */ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen J40 und C63... */ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel: SELECT J40.IDC63 AS _Quelle, C63.IDC63 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"J40.DBF") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"C63.DBF") ON J40.IDC63=C63.IDC63 ; WHERE J40.... ; INTO CURSOR qJ40 NOFILTER READWRITE */ Der obige Cursor enthält alle Datensätze der Tabelle J40 im Feld _Quelle und nur vorhandene Datensätze der Tabelle C63 */ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL. */ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind: SELECT J40.IDC63 AS _Quelle, C63.IDC63 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"J40.DBF") INNER JOIN (My.Clients.Path.cDbfDir+"C63.DBF") ON J40.IDC63=C63.IDC63 ; WHERE J40.... ; INTO CURSOR qJ40 NOFILTER READWRITE */ Geht auch so... SELECT J40.IDC63 AS _Quelle, C63.IDC63 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"J40.DBF") , (My.Clients.Path.cDbfDir+"C63.DBF") ; WHERE J40.IDC63=C63.IDC63 AND J40.... ; INTO CURSOR qJ40 NOFILTER READWRITE */ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt... LOCAL loC63 AS Object loC63 = My.Bussines.Strain.Misc.oC63[J40.IDC63] IF !EMPTY(loC63.IDC63) */ Dann wurde der Datensatz in der Tabelle C63 gefunden! */ Weiterer Code kann hier stehen... ENDIF
Primärschlüssel der Tabelle : BDE-Übergaben
Primärfelder einer Tabelle indentifizieren den Datensatz der Tabelle. Der Feldinhalt ist immer eindeutig und kann niemals mehrfach vorkommen. Primärfelder können aus einem Feld der Tabelle oder aus mehreren Feldern der Tabelle bestehen.
*/ Das Feld IDJ40 ist das Primärschlüsselfeld der Tabelle J40 - BDE-Übergaben */ Dieses Feld kann in anderen Tabellen als relationaler Schlüssel zu dieser Tabelle dienen */ An einem SQL - Beispiel eines beschreibbaren Cursors... */ Die Daten des Cursors können zwar geändert werden, die Änderungen werden jedoch NICHT in die Datenbank zurückgeschrieben! SELECT J40.* FROM (My.Clients.Path.cDbfDir+"J40.DBF") ; WHERE J40.IDJ40 = m.idj40 ; INTO CURSOR qJ40 NOFILTER READWRITE */ Werden die Daten über die die Methode _SqlRead() abgerufen, so kann der Pfad als Datenbank-Verweis angegeben werden... IF poThis._SqlRead([SELECT J40.* FROM CDBFDIR!J40 WHERE IDJ40=']+m.idj40+['],"qJ40",2) */ Hier könnte Code stehen... */ Siehe auch: My.Clients.SQL.SQLRead(tnDataSession,tcSQLStatement,tcAlias,tvTable) ENDIF */ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt... LOCAL loJ40 AS Object loJ40 = My.Bussines.Strain.Misc.oJ40[m.idj40] IF !EMPTY(loJ40.IDJ40) */ Dann wurde der Datensatz in der Tabelle J40 gefunden! */ Hier kann weiterer Code stehen... ENDIF */ Hinweis: Diese Tabelle ein Feld mit dem Namen: IEJ40! */ Damit kann auch über den EAN-Code das Tabellenobjekt abgefragt werden... LOCAL loJ40 AS Object loJ40 = My.Bussines.Strain.Misc.oJ40[m.IEJ40] IF !EMPTY(loJ40.IDJ40) */ Dann wurde der Datensatz in der Tabelle J40 gefunden! */ Hier kann weiterer Code stehen... ENDIF
Relationales Feld (Lookup) in die Projekttabelle. Der Feldinhalt wird meistens durch F2 bzw. F3 - Auswahl gefüllt.
Relationales Feld zur Projekttabelle. Dieses Feld ist ein Lookup- relationales Feld in die Projekttabelle (K10). Bei SQL Abfragen wird dieses Feld zur Verknüpfung der eigentlichen Tabelle mit der Projekttabelle benötigt. Ein Beispiel: SELECT k10.prjnr, i21.menge, i21.preis FROM i21,k10 WHERE i21.idk10 = k10.idk10 AND ...
*/ Dieses Feld ist ein relationales Feld zur Tabelle: K10 - Projekte */ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen J40 und K10... */ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel: SELECT J40.IDK10 AS _Quelle, K10.IDK10 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"J40.DBF") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"K10.DBF") ON J40.IDK10=K10.IDK10 ; WHERE J40.... ; INTO CURSOR qJ40 NOFILTER READWRITE */ Der obige Cursor enthält alle Datensätze der Tabelle J40 im Feld _Quelle und nur vorhandene Datensätze der Tabelle K10 */ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL. */ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind: SELECT J40.IDK10 AS _Quelle, K10.IDK10 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"J40.DBF") INNER JOIN (My.Clients.Path.cDbfDir+"K10.DBF") ON J40.IDK10=K10.IDK10 ; WHERE J40.... ; INTO CURSOR qJ40 NOFILTER READWRITE */ Geht auch so... SELECT J40.IDK10 AS _Quelle, K10.IDK10 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"J40.DBF") , (My.Clients.Path.cDbfDir+"K10.DBF") ; WHERE J40.IDK10=K10.IDK10 AND J40.... ; INTO CURSOR qJ40 NOFILTER READWRITE */ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt... LOCAL loK10 AS Object loK10 = My.Bussines.Strain.Misc.oK10[J40.IDK10] IF !EMPTY(loK10.IDK10) */ Dann wurde der Datensatz in der Tabelle K10 gefunden! */ Weiterer Code kann hier stehen... ENDIF
Neues EAN-Code Feld. Wird automatisch vom System vorbelegt
Neues EAN-Code Feld. Wird automatisch vom System vorbelegt. ie«Table» = My.Clients.Numbers.EANCode(«Table»), Beispiel: iec02=My.Clients.Numbers.EANCode("E02") Die Aufschlüsselung des Codes erfolgt folgendermaßen: «Tabelle»«FortlaufendeNummer»«Prüfziffer» Wobei die angegebene Tabelle nach einem Prüfstring umgewandelt wird. Prüfstring: "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" Daraus ergibt sich für "E10" =» "1410" =» 14te Stelle = "E", ... Es wird bei Stelle 0 zu zählen begonnen! Danach erfolgt eine fortlaufende Nummer, die über die Systemtabelle X14 gebildet wird. 00000001 - 99999999 Zuletzt wird die Prüfziffer über lcEAN = My.Functions.BarCodes.EanCodePP(CodeOhnePrüfziffer) gebildet. Der zurückgegebene Code ist ein gültiger EAN-13 Code und kann mit den mitgelieferten Schriftarten, siehe ..\mitgeben\, auf einem Report ausgegeben werden.
*/ Dieses Feld ist ein IE - Feld der Tabelle (EAN-Code)... */ Die Information der Tabelle kann über die My Struktur ermittelt werden... LOCAL loJ40 AS Object loJ40 = My.Bussines.Strain.Misc.oJ40[J40.IEJ40] IF !EMPTY(loJ40.IEJ40) */ Dann wurden Daten gefunden... */ Weiterer Code hier... ENDIF
Präfix einer Positionstabelle. Dieses Präfix beschreibt die Tabelle aus der die Information für das ID Feld (IDAUF|a|v) kommt.
Präfix einer Positionstabelle. Dieses Präfix beschreibt die Tabelle aus der die Information für das ID Feld (IDAUF|a|v) kommt. Hat das Präfixfeld den Namen IPZWI so ist das verwandte ID Feld IDZWI. Es kann Tabellen mit mehreren Switch Felder geben! Z.B.: I21 - Buchungsjournal, diese Tabelle enthält 2 Switch Felder, IPAUF und IDAUF als Zeiger in die Prozesstabellen und IPC6X und IDC6X als Zeiger in die Adressmasken. Wobei der Adresspräfix direkt die Adresstabelle angibt. Diese Felder werden überall dort eingesetzt, wo Informationen in einer Tabelle aus mehreren Tabellen zusammengeführt werden. Hier wird ein IP Feld benötigt, dass dann die Ziel- oder Quelltabelle der Information beschreibt. Zur Bestimmung der Tabelle muss die Systemdatei Y01 benutzt werden. Im Codebeispiel ist die Ermittlung für die Zieltabelle angegeben.
*/ Dieses Feld ist ein IP - Feld der Tabelle... */ Der Abruf der Informationen kann über die Tabelle Y01 erfolgen... */ IP Felder geben entweder eine Zeilenart oder eine relationale Tabelle an... LOCAL loY01 AS Object loY01 = My.Bussines.Strain.Misc.vY01[J40.IPAUF] */ Damit kann die Zeilenart bestimmt werden...
*/ Dieses Feld ist ein IP - Feld der Tabelle... */ Der Abruf der Informationen kann über die Tabelle Y01 erfolgen... */ IP Felder geben entweder eine Zeilenart oder eine relationale Tabelle an... LOCAL loY01 AS Object loY01 = My.Bussines.Strain.Misc.vY01[J40.IPAUFS] */ Damit kann die Zeilenart bestimmt werden...
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld führt ein sogenanntes Änderungskennzeichen mit.
Bei jeder Änderung an dem Datensatz der Tabelle wird dieses Feld um 1 nach oben gezählt.
Bei einem Wert der größer 999 ist wird wieder bei 0 angefangen.
*/ Ein Beispiel für die Berechnung: REPLACE ... , LASTUPD WITH (LASTUPD+1)%1000 UPDATE .... , LASTUPD = (LASTUPD+1)%1000
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld enthält das letzte Änderungsdatum des Datensatzes.
*/ Ein Beispiel für die Berechnung: REPLACE ... , LDATUM WITH My.xDate UPDATE .... , LDATUM = My.xDate
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld enthält das Programm der letzten Änderung des Datensatzes.
*/ Ein Beispiel für die Berechnung: REPLACE ... , LPRG WITH My.lProgram UPDATE .... , LPRG = My.lProgram
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld enthält den Benutzer der letzten Änderung des Datensatzes.
*/ Ein Beispiel für die Berechnung: REPLACE ... , LWER WITH My.cUser UPDATE .... , LWER = My.cUser
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld enthält die Uhrzeit der letzten Änderung des Datensatzes.
*/ Ein Beispiel für die Berechnung: REPLACE ... , LZEIT WITH My.xTime UPDATE .... , LZEIT = My.xTime
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld enthält das Neuanlagedatum des Datensatzes.
My.xDate gibt das aktuelle Datum zurück.
Bitte verwenden Sie nicht DATE()!
*/ Ein Beispiel für die Berechnung: INSERT INTO ... (...,NDATUM) VALUES (...,My.xDate)
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld enthält das Programm der Neuanlage des Datensatzes.
My.lProgram gibt das aktuelle Programm zurück.
*/ Ein Beispiel für die Berechnung: INSERT INTO ... (...,NWER) VALUES (...,My.cUser)
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld enthält den Benutzer der Neuanlage des Datensatzes.
My.cUser gibt den angemeldeten Benutzer (C65) zurück.
*/ Ein Beispiel für die Berechnung: INSERT INTO ... (...,NWER) VALUES (...,My.cUser)
Diese Feld dient als Timestamp Feld innerhalb der Tabelle und wird vom System verwendet.
Dieses Feld enthält das Neuanlageuhrzeit des Datensatzes.
My.xTime gibt das aktuelle Uhrzeit zurück.
Bitte verwenden Sie nicht TIME()!
*/ Ein Beispiel für die Berechnung: INSERT INTO ... (...,NZEIT) VALUES (...,My.xTime)
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