PMS32 Online- Hilfereferenz
Kontenschlüssel
BIC/Swift - Kennung der Bank für SEPA
IBAN - Code des Kunden/Lieferanten
IBAN - max. 34 Stellen.
LLppBBBBBBBBKKKKKKKKKK
L - Ländercode (DE)
p - Prüfziffer nach Modulo 97
B - Bankleitzahl (8-Stellen)
K - Kontonummer (10-Stellen)
*/ Dieses Feld ist ein relationales Feld zur Tabelle: C08 - Steuerschlüssel */ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen H19 und C08... */ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel: SELECT H19.IDC08P AS _Quelle, C08.IDC08 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"H19.DBF") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"C08.DBF") ON H19.IDC08P=C08.IDC08 ; WHERE H19.... ; INTO CURSOR qH19 NOFILTER READWRITE */ Der obige Cursor enthält alle Datensätze der Tabelle H19 im Feld _Quelle und nur vorhandene Datensätze der Tabelle C08 */ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL. */ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind: SELECT H19.IDC08P AS _Quelle, C08.IDC08 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"H19.DBF") INNER JOIN (My.Clients.Path.cDbfDir+"C08.DBF") ON H19.IDC08P=C08.IDC08 ; WHERE H19.... ; INTO CURSOR qH19 NOFILTER READWRITE */ Geht auch so... SELECT H19.IDC08P AS _Quelle, C08.IDC08 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"H19.DBF") , (My.Clients.Path.cDbfDir+"C08.DBF") ; WHERE H19.IDC08P=C08.IDC08 AND H19.... ; INTO CURSOR qH19 NOFILTER READWRITE */ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt... LOCAL loC08 AS Object loC08 = My.Bussines.Strain.Misc.oC08[H19.IDC08P] IF !EMPTY(loC08.IDC08) */ Dann wurde der Datensatz in der Tabelle C08 gefunden! */ Weiterer Code kann hier stehen... ENDIF
*/ Dieses Feld ist ein relationales Feld zur Tabelle: C20 - FIBU - Gruppen Kopfdaten */ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen H19 und C20... */ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel: SELECT H19.IDC20 AS _Quelle, C20.IDC20 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"H19.DBF") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"C20.DBF") ON H19.IDC20=C20.IDC20 ; WHERE H19.... ; INTO CURSOR qH19 NOFILTER READWRITE */ Der obige Cursor enthält alle Datensätze der Tabelle H19 im Feld _Quelle und nur vorhandene Datensätze der Tabelle C20 */ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL. */ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind: SELECT H19.IDC20 AS _Quelle, C20.IDC20 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"H19.DBF") INNER JOIN (My.Clients.Path.cDbfDir+"C20.DBF") ON H19.IDC20=C20.IDC20 ; WHERE H19.... ; INTO CURSOR qH19 NOFILTER READWRITE */ Geht auch so... SELECT H19.IDC20 AS _Quelle, C20.IDC20 AS _Ziel ; FROM (My.Clients.Path.cDbfDir+"H19.DBF") , (My.Clients.Path.cDbfDir+"C20.DBF") ; WHERE H19.IDC20=C20.IDC20 AND H19.... ; INTO CURSOR qH19 NOFILTER READWRITE */ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt... LOCAL loC20 AS Object loC20 = My.Bussines.Strain.Misc.oC20[H19.IDC20] IF !EMPTY(loC20.IDC20) */ Dann wurde der Datensatz in der Tabelle C20 gefunden! */ Weiterer Code kann hier stehen... ENDIF
*/ Dieses ID Feld IDDBF kann Informationen aus verschiedenen Tabellen enthalten! */ Wichtig in diesem Zusammenhang ist das IP Feld IPDBF in dem über die Systemtabelle Y01 die Zieltabelle angegeben wird... */ Substitution des Feldes IPDBF : 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[H19.IPDBF] 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[H19.IDDBF] 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(H19.IPDBF,H19.IDDBF) */ 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
*/ Das Feld IDH19 ist das Primärschlüsselfeld der Tabelle H19 - Kontenschlüssel */ 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 H19.* FROM (My.Clients.Path.cDbfDir+"H19.DBF") ; WHERE H19.IDH19 = m.idh19 ; INTO CURSOR qH19 NOFILTER READWRITE */ Werden die Daten über die die Methode _SqlRead() abgerufen, so kann der Pfad als Datenbank-Verweis angegeben werden... IF poThis._SqlRead([SELECT H19.* FROM CDBFDIR!H19 WHERE IDH19=']+m.idh19+['],"qH19",2) */ Hier könnte Code stehen... */ Siehe auch: My.Clients.SQL.SQLRead(tnDataSession,tcSQLStatement,tcAlias,tvTable) ENDIF
*/ 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[H19.IPDBF] */ 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[H19.IPH18] */ 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