PMS32 Online- Hilfereferenz
Bestellauswahl aus I19
Interne ID des Artikels. Dieses Feld ist ReadOnly.
Interne ID des Artikels. Dieses Feld ist ReadOnly.
*/ Dieses Feld ist ein relationales Feld zur Tabelle: B01 - Artikelstamm
*/ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen QI19 und B01...
*/ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel:
SELECT QI19.IDB01 AS _Quelle, B01.IDB01 AS _Ziel ;
FROM ("QI19") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"B01.DBF") ON QI19.IDB01=B01.IDB01 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Der obige Cursor enthält alle Datensätze der Tabelle QI19 im Feld _Quelle und nur vorhandene Datensätze der Tabelle B01
*/ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL.
*/ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind:
SELECT QI19.IDB01 AS _Quelle, B01.IDB01 AS _Ziel ;
FROM ("QI19") INNER JOIN (My.Clients.Path.cDbfDir+"B01.DBF") ON QI19.IDB01=B01.IDB01 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Geht auch so...
SELECT QI19.IDB01 AS _Quelle, B01.IDB01 AS _Ziel ;
FROM ("QI19") , (My.Clients.Path.cDbfDir+"B01.DBF") ;
WHERE QI19.IDB01=B01.IDB01
AND QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt...
LOCAL loB01 AS Object
loB01 = My.Bussines.Strain.Misc.oB01[QI19.IDB01]
IF !EMPTY(loB01.IDB01)
*/ Dann wurde der Datensatz in der Tabelle B01 gefunden!
*/ Weiterer Code kann hier stehen...
ENDIF
*/ Dieses Feld ist ein relationales Feld zur Tabelle: C31 - Kostenträger
*/ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen QI19 und C31...
*/ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel:
SELECT QI19.IDC31 AS _Quelle, C31.IDC31 AS _Ziel ;
FROM ("QI19") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"C31.DBF") ON QI19.IDC31=C31.IDC31 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Der obige Cursor enthält alle Datensätze der Tabelle QI19 im Feld _Quelle und nur vorhandene Datensätze der Tabelle C31
*/ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL.
*/ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind:
SELECT QI19.IDC31 AS _Quelle, C31.IDC31 AS _Ziel ;
FROM ("QI19") INNER JOIN (My.Clients.Path.cDbfDir+"C31.DBF") ON QI19.IDC31=C31.IDC31 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Geht auch so...
SELECT QI19.IDC31 AS _Quelle, C31.IDC31 AS _Ziel ;
FROM ("QI19") , (My.Clients.Path.cDbfDir+"C31.DBF") ;
WHERE QI19.IDC31=C31.IDC31
AND QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt...
LOCAL loC31 AS Object
loC31 = My.Bussines.Strain.Misc.oC31[QI19.IDC31]
IF !EMPTY(loC31.IDC31)
*/ Dann wurde der Datensatz in der Tabelle C31 gefunden!
*/ Weiterer Code kann hier stehen...
ENDIF
*/ Dieses Feld ist ein relationales Feld zur Tabelle: C63 - Kunden
*/ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen QI19 und C63...
*/ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel:
SELECT QI19.IDC63 AS _Quelle, C63.IDC63 AS _Ziel ;
FROM ("QI19") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"C63.DBF") ON QI19.IDC63=C63.IDC63 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Der obige Cursor enthält alle Datensätze der Tabelle QI19 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 QI19.IDC63 AS _Quelle, C63.IDC63 AS _Ziel ;
FROM ("QI19") INNER JOIN (My.Clients.Path.cDbfDir+"C63.DBF") ON QI19.IDC63=C63.IDC63 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Geht auch so...
SELECT QI19.IDC63 AS _Quelle, C63.IDC63 AS _Ziel ;
FROM ("QI19") , (My.Clients.Path.cDbfDir+"C63.DBF") ;
WHERE QI19.IDC63=C63.IDC63
AND QI19.... ;
INTO CURSOR qQI19 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[QI19.IDC63]
IF !EMPTY(loC63.IDC63)
*/ Dann wurde der Datensatz in der Tabelle C63 gefunden!
*/ Weiterer Code kann hier stehen...
ENDIF
ID des Lagerortes aus I20. Dieses Feld ist ReadOnly.
*/ Dieses Feld ist ein relationales Feld zur Tabelle: C66 - Lagerorte
*/ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen QI19 und C66...
*/ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel:
SELECT QI19.IDC66 AS _Quelle, C66.IDC66 AS _Ziel ;
FROM ("QI19") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"C66.DBF") ON QI19.IDC66=C66.IDC66 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Der obige Cursor enthält alle Datensätze der Tabelle QI19 im Feld _Quelle und nur vorhandene Datensätze der Tabelle C66
*/ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL.
*/ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind:
SELECT QI19.IDC66 AS _Quelle, C66.IDC66 AS _Ziel ;
FROM ("QI19") INNER JOIN (My.Clients.Path.cDbfDir+"C66.DBF") ON QI19.IDC66=C66.IDC66 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Geht auch so...
SELECT QI19.IDC66 AS _Quelle, C66.IDC66 AS _Ziel ;
FROM ("QI19") , (My.Clients.Path.cDbfDir+"C66.DBF") ;
WHERE QI19.IDC66=C66.IDC66
AND QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt...
LOCAL loC66 AS Object
loC66 = My.Bussines.Strain.Misc.oC66[QI19.IDC66]
IF !EMPTY(loC66.IDC66)
*/ Dann wurde der Datensatz in der Tabelle C66 gefunden!
*/ Weiterer Code kann hier stehen...
ENDIF
*/ Dieses Feld ist ein relationales Feld zur Tabelle: D40 - EK-Bestellungen
*/ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen QI19 und D40...
*/ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel:
SELECT QI19.IDD40 AS _Quelle, D40.IDD40 AS _Ziel ;
FROM ("QI19") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"D40.DBF") ON QI19.IDD40=D40.IDD40 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Der obige Cursor enthält alle Datensätze der Tabelle QI19 im Feld _Quelle und nur vorhandene Datensätze der Tabelle D40
*/ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL.
*/ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind:
SELECT QI19.IDD40 AS _Quelle, D40.IDD40 AS _Ziel ;
FROM ("QI19") INNER JOIN (My.Clients.Path.cDbfDir+"D40.DBF") ON QI19.IDD40=D40.IDD40 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Geht auch so...
SELECT QI19.IDD40 AS _Quelle, D40.IDD40 AS _Ziel ;
FROM ("QI19") , (My.Clients.Path.cDbfDir+"D40.DBF") ;
WHERE QI19.IDD40=D40.IDD40
AND QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Es gibt auch einen Zugriff über die My - Struktur, die ein Tabellen-Objekt zurückgibt...
LOCAL loD40 AS Object
loD40 = My.Bussines.Strain.Misc.oD40[QI19.IDD40]
IF !EMPTY(loD40.IDD40)
*/ Dann wurde der Datensatz in der Tabelle D40 gefunden!
*/ Weiterer Code kann hier stehen...
ENDIF
*/ Dieses Feld ist ein relationales Feld zur Tabelle: I19 - Bestellvorschlag
*/ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen QI19 und I19...
*/ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel:
SELECT QI19.IDI19 AS _Quelle, I19.IDI19 AS _Ziel ;
FROM ("QI19") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"I19.DBF") ON QI19.IDI19=I19.IDI19 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Der obige Cursor enthält alle Datensätze der Tabelle QI19 im Feld _Quelle und nur vorhandene Datensätze der Tabelle I19
*/ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL.
*/ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind:
SELECT QI19.IDI19 AS _Quelle, I19.IDI19 AS _Ziel ;
FROM ("QI19") INNER JOIN (My.Clients.Path.cDbfDir+"I19.DBF") ON QI19.IDI19=I19.IDI19 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Geht auch so...
SELECT QI19.IDI19 AS _Quelle, I19.IDI19 AS _Ziel ;
FROM ("QI19") , (My.Clients.Path.cDbfDir+"I19.DBF") ;
WHERE QI19.IDI19=I19.IDI19
AND QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Dieses Feld ist ein relationales Feld zur Tabelle: I20 - Disposition
*/ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen QI19 und I20...
*/ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel:
SELECT QI19.IDI20 AS _Quelle, I20.IDI20 AS _Ziel ;
FROM ("QI19") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"I20.DBF") ON QI19.IDI20=I20.IDI20 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Der obige Cursor enthält alle Datensätze der Tabelle QI19 im Feld _Quelle und nur vorhandene Datensätze der Tabelle I20
*/ Besteht keine relationale Verbindung, so ist der Inhalt der Cursorspalte _Ziel = .NULL.
*/ Die 'gleiche' Abfrage in der NUR relationale Daten vonhanden sind:
SELECT QI19.IDI20 AS _Quelle, I20.IDI20 AS _Ziel ;
FROM ("QI19") INNER JOIN (My.Clients.Path.cDbfDir+"I20.DBF") ON QI19.IDI20=I20.IDI20 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Geht auch so...
SELECT QI19.IDI20 AS _Quelle, I20.IDI20 AS _Ziel ;
FROM ("QI19") , (My.Clients.Path.cDbfDir+"I20.DBF") ;
WHERE QI19.IDI20=I20.IDI20
AND QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Dieses Feld ist ein relationales Feld zur Tabelle: K10 - Projekte
*/ Evetuell ist dieses Feld NICHT gefüllt, dann besteht keine relationale Verbindung zwischen QI19 und K10...
*/ Eine SQL - Abfrage zum Ermitteln von Quelle und Ziel:
SELECT QI19.IDK10 AS _Quelle, K10.IDK10 AS _Ziel ;
FROM ("QI19") LEFT OUTER JOIN (My.Clients.Path.cDbfDir+"K10.DBF") ON QI19.IDK10=K10.IDK10 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Der obige Cursor enthält alle Datensätze der Tabelle QI19 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 QI19.IDK10 AS _Quelle, K10.IDK10 AS _Ziel ;
FROM ("QI19") INNER JOIN (My.Clients.Path.cDbfDir+"K10.DBF") ON QI19.IDK10=K10.IDK10 ;
WHERE QI19.... ;
INTO CURSOR qQI19 NOFILTER READWRITE
*/ Geht auch so...
SELECT QI19.IDK10 AS _Quelle, K10.IDK10 AS _Ziel ;
FROM ("QI19") , (My.Clients.Path.cDbfDir+"K10.DBF") ;
WHERE QI19.IDK10=K10.IDK10
AND QI19.... ;
INTO CURSOR qQI19 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[QI19.IDK10]
IF !EMPTY(loK10.IDK10)
*/ Dann wurde der Datensatz in der Tabelle K10 gefunden!
*/ Weiterer Code kann hier stehen...
ENDIF
*/ Dieses ID Feld IDZWI kann Informationen aus verschiedenen Tabellen enthalten! */ Wichtig in diesem Zusammenhang ist das IP Feld IPZWI in dem über die Systemtabelle Y01 die Zieltabelle angegeben wird... */ Substitution des Feldes IPZWI : 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[QI19.IPZWI] 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[QI19.IDZWI] 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(QI19.IPZWI,QI19.IDZWI) */ 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
Artikelart aus I20 bzw. B01. Dieses Feld ist ReadOnly.
Artikelart aus I20 bzw. B01. Dieses Feld ist ReadOnly.
*/ 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[QI19.IPB01] */ 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[QI19.IPC80] */ 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[QI19.IPZWI] */ 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)
Enthält den Kunden des Anforderers. Dieses Feld ist ReadOnly.
Enthält den Kunden des Anforderers. Dieses Feld ist ReadOnly.
Dieses Feld enthält die Projekt-ID des Anforderers. Dieses Feld ist ReadOnly.
Dieses Feld enthält die Projekt-ID des Anforderers. Dieses Feld ist ReadOnly.
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