PMS32 Online- Hilfereferenz
Arbeitsgänge
Textfelder, sind variable Speicherfelder in denen Informationen bis zu einer Größe von 2GB gespeichert werden können. Die Unterscheidung der Textfelder liegt in ihrem Namen. NOTIZ z.B. wird ausschlieslich für Notizen benutzt. Andere Textfelder wiederum werden beim Erstellen von Vorgängen bzw. Bestellungen aus Stammfeldern übernommen. Im Vorgang: B01.BEZ => E11.BEZ, B01.LANG => E11.LANG. In den Textfeldern können folgende Funktionen über Funktionstasten oder ein ShortCut - Menü (Rechte Maustaste) aufgerufen werden: F2 - Sprung in die Maske C40 - Langtexte, F3 - Auswahl aus C40 - Langtexte und F4 - vergrößerte Eingabe in einer separaten Maske. Diese Funktionen können je nach Textfeld variieren!
Lookup in : Lohngruppen (C02). Eine Änderung erfolgt durch F3 - Auswahl. Der Srung zu Stammtabelle erfolgt mit F2
Lookup- bzw. relationale Felder werden benötigt um Tabellen mittels SQL Select oder einer Relation zu verbinden. Durch die Namensgebung der Lookupfelder kann aus dem Feldnamen "meistens" die Zieltabelle der Relation bestimmt werden. Alle Relationen werden in PMS32 über sogenannte ID- Felder hergestellt, wobei die Zieltabelle ab der dritten Stelle des Feldnamens bis zur fünften Stelle des Feldnames angegeben ist. Aus ein paar Beispielen: D51.IDB01 => B01, I40.IDC42VKB => C42, I50.IDC25B => C25. Mit der Formel aus dem Codeblock kann zu "fast" allen ID Feldern die entsprechende Zieltabelle ermittelt werden. Spezial- Lookupfelder wie z.B.: I20.IDZWI oder I23.IDAUFA... benötigen zur Bestimmung die entsprechende IP, mit der über die Systemtabelle Y01 die entsprechende Zieltabelle ermittelt werden kann.
*/ Dieses Feld ist ein relationales Feld zur Tabelle: C02 - Lohngruppen */ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen V05 und C02... */ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel: SELECT V05.IDC02 AS _Quelle, C02.IDC02 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"V05.DBF") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"C02.DBF") ON V05.IDC02=C02.IDC02 ; WHERE V05.... ; INTO CURSOR qV05 NOFILTER READWRITE */ Der obige Cursor enthält alle Datensätze der Tabelle V05 im Feld _Quelle und nur vorhandene Datensätze der Tabelle C02 */ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL. */ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind: SELECT V05.IDC02 AS _Quelle, C02.IDC02 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"V05.DBF") INNER JOIN (My.Clients.Path.cDbfDir+"C02.DBF") ON V05.IDC02=C02.IDC02 ; WHERE V05.... ; INTO CURSOR qV05 NOFILTER READWRITE */ Geht auch so... SELECT V05.IDC02 AS _Quelle, C02.IDC02 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"V05.DBF") , (My.Clients.Path.cDbfDir+"C02.DBF") ; WHERE V05.IDC02=C02.IDC02 AND V05.... ; INTO CURSOR qV05 NOFILTER READWRITE */ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt... LOCAL loC02 AS Object loC02 = My.Bussines.Strain.Misc.oC02[V05.IDC02] IF !EMPTY(loC02.IDC02) */ Dann wurde der Datensatz in der Tabelle C02 gefunden! */ Weiterer Code kann hier stehen... ENDIF
Sprachauswahl mit F3.
Sprachauswahl. Diese Feld definiert die Sprache, in der die Eingaben für diesen Datensatz vorgenommen werden. Dies ist nur dann wichtig, wenn bei der Reportausgabe bestimmte Werte in der Sprache des Empfängers ausgegeben werden müssen. Der Standard wird bei einer Neuanlage immer mit der Systemsprache vorbelegt. Sie können den Wert durch eine Auswahl mit F3 ändern. Bitte bedenken Sie, dass mindestens eine Eingabe in der Systemsprache vorliegt, da sonst einige SQL's nicht korrekt funktionieren und eventuell diverse Auswertungen fehlerhaft sind.
*/ Dieses Feld ist ein relationales Feld zur Tabelle: C26 - Sprachen */ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen V05 und C26... */ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel: SELECT V05.IDC26 AS _Quelle, C26.IDC26 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"V05.DBF") LEFT OUTER JOIN (My.Clients.Path.cSysDir+"C26.DBF") ON V05.IDC26=C26.IDC26 ; WHERE V05.... ; INTO CURSOR qV05 NOFILTER READWRITE */ Der obige Cursor enthält alle Datensätze der Tabelle V05 im Feld _Quelle und nur vorhandene Datensätze der Tabelle C26 */ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL. */ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind: SELECT V05.IDC26 AS _Quelle, C26.IDC26 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"V05.DBF") INNER JOIN (My.Clients.Path.cSysDir+"C26.DBF") ON V05.IDC26=C26.IDC26 ; WHERE V05.... ; INTO CURSOR qV05 NOFILTER READWRITE */ Geht auch so... SELECT V05.IDC26 AS _Quelle, C26.IDC26 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"V05.DBF") , (My.Clients.Path.cSysDir+"C26.DBF") ; WHERE V05.IDC26=C26.IDC26 AND V05.... ; INTO CURSOR qV05 NOFILTER READWRITE */ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt... LOCAL loC26 AS Object loC26 = My.Bussines.Strain.Misc.oC26[V05.IDC26] IF !EMPTY(loC26.IDC26) */ Dann wurde der Datensatz in der Tabelle C26 gefunden! */ Weiterer Code kann hier stehen... ENDIF
Lookup in :Mitarbeitergruppen (C39). Eine Änderung erfolgt durch F3 - Auswahl. Der Srung zu Stammtabelle erfolgt mit F2
Lookup- bzw. relationale Felder werden benötigt um Tabellen mittels SQL Select oder einer Relation zu verbinden. Durch die Namensgebung der Lookupfelder kann aus dem Feldnamen "meistens" die Zieltabelle der Relation bestimmt werden. Alle Relationen werden in PMS32 über sogenannte ID- Felder hergestellt, wobei die Zieltabelle ab der dritten Stelle des Feldnamens bis zur fünften Stelle des Feldnames angegeben ist. Aus ein paar Beispielen: D51.IDB01 => B01, I40.IDC42VKB => C42, I50.IDC25B => C25. Mit der Formel aus dem Codeblock kann zu "fast" allen ID Feldern die entsprechende Zieltabelle ermittelt werden. Spezial- Lookupfelder wie z.B.: I20.IDZWI oder I23.IDAUFA... benötigen zur Bestimmung die entsprechende IP, mit der über die Systemtabelle Y01 die entsprechende Zieltabelle ermittelt werden kann.
Primärschlüssel der Tabelle : Arbeitsgänge
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 IDV05+IDC26 bilden den Primärschlüssel der Tabelle V05 - Arbeitsgänge */ Dieses Feld IDV05 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 V05.* FROM (My.Clients.Path.cDbfDir+"V05.DBF") ; WHERE V05.IDV05 = m.idv05 AND V05.IDC26 = My.cIdc26 ; INTO CURSOR qV05 NOFILTER READWRITE */ Werden die Daten über die die Methode _SqlRead() abgerufen, so kann der Pfad als Datenbank-Verweis angegeben werden... IF poThis._SqlRead([SELECT V05.* FROM CDBFDIR!V05 WHERE IDV05=']+m.idv05+[' AND IDC26=']+My.cIdc26+['],"qV05",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 loV05 AS Object */ Die Filterung auf IDC26 der Tabelle erfolgt immer über My.cIdc26 (Systemsprache)! loV05 = My.Bussines.Strain.Misc.oV05[m.idv05] IF !EMPTY(loV05.IDV05) */ Dann wurde der Datensatz in der Tabelle V05 gefunden! ENDIF */ Hinweis: Diese Tabelle ein Feld mit dem Namen: IEV05! */ Damit kann auch über den EAN-Code das Tabellenobjekt abgefragt werden... LOCAL loV05 AS Object loV05 = My.Bussines.Strain.Misc.oV05[m.IEV05] IF !EMPTY(loV05.IDV05) */ Dann wurde der Datensatz in der Tabelle V05 gefunden! */ Hier kann weiterer Code stehen... ENDIF
EAN-Code wird 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 loV05 AS Object loV05 = My.Bussines.Strain.Misc.oV05[V05.IEV05] IF !EMPTY(loV05.IEV05) */ Dann wurden Daten gefunden... */ Weiterer Code hier... ENDIF
Primärschlüssel der Tabelle : Arbeitsgänge
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 IDV05+IDC26 bilden den Primärschlüssel der Tabelle V05 - Arbeitsgänge */ Dieses Feld IDV05 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 V05.* FROM (My.Clients.Path.cDbfDir+"V05.DBF") ; WHERE V05.IDV05 = m.idv05 AND V05.IDC26 = My.cIdc26 ; INTO CURSOR qV05 NOFILTER READWRITE */ Werden die Daten über die die Methode _SqlRead() abgerufen, so kann der Pfad als Datenbank-Verweis angegeben werden... IF poThis._SqlRead([SELECT V05.* FROM CDBFDIR!V05 WHERE IDV05=']+m.idv05+[' AND IDC26=']+My.cIdc26+['],"qV05",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 loV05 AS Object */ Die Filterung auf IDC26 der Tabelle erfolgt immer über My.cIdc26 (Systemsprache)! loV05 = My.Bussines.Strain.Misc.oV05[m.idv05] IF !EMPTY(loV05.IDV05) */ Dann wurde der Datensatz in der Tabelle V05 gefunden! ENDIF */ Hinweis: Diese Tabelle ein Feld mit dem Namen: IEV05! */ Damit kann auch über den EAN-Code das Tabellenobjekt abgefragt werden... LOCAL loV05 AS Object loV05 = My.Bussines.Strain.Misc.oV05[m.IEV05] IF !EMPTY(loV05.IDV05) */ Dann wurde der Datensatz in der Tabelle V05 gefunden! */ Hier kann weiterer Code stehen... ENDIF
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
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.
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)
Notizfeld. Freie Langtexteingabe.
Notizfeld. In diesem Feld können Sie Notizen hinterlegen. Notizfelder werden normaler Weise nicht in andere Tabellen übernommen bzw. ausgewertet. Einige Notizfelder werden jedoch aus anderen Modulen gefüttert, wie z.B. das Notizfeld in der Projekttabelle (K10), Masken K1001 und K1002, dass aus dem Bestellwesen bei best. Einstellungen mit Informationen aus den Bestellungen gefüllt wird.
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