Toolmaker Produkt-Dokumentation
Prozeduren für CHG-Programme
Inhaltsübersicht
Übersicht: verfügbare Prozeduren für CHG-Programme
Für Change Programme stehen die folgenden RPGWX-Prozeduren zur Verfügung:
Tabelle 4: RPGWX-Prozeduren für Change-Programme
Für ein Change-Programm sind nicht immer alle RPGWX-Prozeduren erforderlich.
Der Aufruf der RPGWX-Prozeduren sollte jedoch (weitgehend) in der Reihenfolge, in der die Prozeduren aufgelistet sind erfolgen.
Die blau eingefärbten Prozeduren können sowohl in Work- als auch in Change-Tables aufgerufen werden. Die übrigen Prozeduren können nur in Verbindung mit Change-Tables verwendet werden.
In einem Change-Programm müssen die folgenden Schritte abgedeckt sein
1. Sofern erforderlich Schlüssel-Werte aus vorgelagertem Work-Programm empfangen
→ Prozeduren Wx_GetDBKeyXX
2. Sofern erforderlich Parameter aus vorgelagertem Programm empfangen
→ Prozeduren Wx_GetParmXX
3. Sofern erforderlich Modus prüfen
→ Prozeduren Wx_isModeXX
4. Sofern erforderlich abhängig vom Modus CGI-Programm aufrufen
→ Prozedur Wx_CallPGM() und individuelle Programmierung
5. HTML-Dokument öffnen
→ Prozedur Wx_OpnHTMLChg()
6. Verwendete Dateien/Tabellen/Views definieren
→ Prozedur Wx_ChgFile()
7. Datensätze einlesen
→ individuelle Programmierung
8. Ein-/Ausgabe Felder definieren
→ Prozedur Wx_ChgFld()
9. HTML-Dokument ausgeben und erfasste Daten empfangen
→ Prozedur Wx_GetChgInput()
10. Sofern erforderlich individuelle Eingabe-Prüfung und Ausgabe von Fehler-Meldungen
→ Prozeduren Wx_FldErr() oder Wx_MultFldErr()
11. Datensatz fortschreiben
→ individuelle Programmierung
12. HTML-Dokument ausgeben bzw. auf vorheriges Programm zurückspringen
→ Prozedur Wx_WrtChgTbl()
Template für Change-Programm
Ein Template für ein Change-Programm mit Copy-Strecken und den erforderlichen Prozedur-Aufrufen in der erforderlichen Reihenfolge befindet sich in:
- Bibliothek WOPIX
- Quellen-Datei QCPYLESRC
- Member EXCHGTEMP
Dieses Template kann kopiert und für die individuellen Change-Programme modifiziert werden.
Basis-Deklaration für die Seitenaufbereitung in einem CHG-Programm
Wx_OpnHTMLChg() – HTML Dokument öffnen
Mit der Prozedur WX_OpnHTMLChg() (Open HTML Document for Change Tables) signalisiert man dem System, dass man im Browser eine CHG-Anzeige aufbauen möchte: ein Programm, mit dem ein Datensatz bearbeitet (editiert, angzeigt, kopiert, gelöscht) wird.
In dieser Prozedur wird zunächst das Default-HTML-Template ermittelt und geöffnet. Anstatt des Default-HTML-Templates zu verwenden, kann auch ein Individuelles HTML-Dokument verwendet werden. In diesem Fall muss jedoch dafür gesorgt werden, dass die Platz-Halter für Work- bzw. Change-Tables, Überschriften, Error-Messages etc., die von RPGWX/Directweb ersetzt werden, in dem individuellen Dokument integriert sind.
Der Titel, der zur Laufzeit angezeigt werden soll wird als Parameter übergeben und kann wahlweise als Text oder als Message-Id aus der bei dem Einrichten der Anwendung angegebenen Nachrichten-Datei übergeben werden.
Das Folge-Programm (Detail-Anzeige oder eine weitere List-Anzeige) kann angegeben werden. Wird kein Folge-Programm angegeben, so wird davon ausgegangen, dass das gleiche Programm erneut aufgerufen werden soll. Dies ist bei Ein/Ausgabe-Programmen i.d.R. erforderlich, da das Programm beim Senden des HTML-Dokuments an den Browser beendet wird und zum Empfangen der erfassten Daten erneut aufgerufen wird. (Wird in der RPGWX-Prozedur DW_GetChgInput() gesteuert).
Die Prozedur Wx_OpnHTMLChg() darf pro Change-Programm nur einmalig aufgerufen werden.
Parameter
ParTitle - Message-Id oder Text für Titel
PInCGIPGM - Folge-Programm
Optionaler-Parameter
Wird kein CGI-Programm übergeben, wird das aktuelle Programm erneut aufgerufen.
PInHTMLDoc - HTML-Dokument
Optionaler Parameter
Muss nur angegeben werden, wenn ein anderes als das Default HTML-Dokument verwendet werden soll
PInOpnOpt - Options
Optionaler Parameter
- HelpDoc(Parm1, Parm2, Parm3, Parm4)
- Parm1 Hilfe-Text/Beschreibung
Kann direkt oder als Mesage-Id angegeben werden
- Parm2 PDF-Dokument oder Link
Kann direkt oder als Message-Id angegeben werden.
Ein PDF-Dokument wird ohne Pfad angegeben und muss sich im Anwendungs-Verzeichnis für Hilfe-Dokumente befinden:
/www/dirweb/htdocs/HelpDocs/ANWENDUNG
- Parm3 Seite in PDF-Dokumenten oder *NONE
Nur für PDF-Dokumente zulässig
Syntax: #page=x (x=Seiten-Zahl)
Sofern keine Seite angegeben werden kann und der 4. Parameter erforderlich ist, kann der Standard-Wert *NONE angegeben werden.
- Parm4 Icon
Sofern ein individuelles Icon angegeben werden soll, wird dieses ohne Pfand angegeben und muss im Anwendungs-Verzeichnis für Icons hinterlegt sein.
/www/dirweb/htdocs/icons/ANWENDUNG
Parm3 und Parm4 sind optional
Beispiele für den Aufruf
Wx_OpnHTMLChg('Artikel-Stamm'); Wx_OpnHTMLChg('Adress-Stamm': 'EXCHGAD01'); Wx_OpnHTMLChg('TOP0017': '': 'MyChgUmsatz.html'); Wx_OpnHTMLChg('TOP0017': '': 'MyChgUmsatz.html': 'helpDoc(HLP0002, HLP0001, *NONE, Phone-52.png) '));
Wx_ChgNavTab() – Reiter definieren
Optional: die einzelnen Ein-/Ausgabe-Felder in Change Tables können unter Navigation Tabs/Reitern gruppiert und zusammengefasst werden.
Über die Funktion Wx_ChgNavTab() wird ein Reiter definiert.
Alle Ein-/Ausgabe-Felder, die im Anschluss an diesen Reiter definiert werden, werden unter diesem Reiter angeordnet.
Wird ein weiterer Reiter definiert, werden die im Anschluss definierten Ein/Ausgabe-Felder unter diesem neuen Reiter angeordnet.
Anmerkung: In einer Change Table können nur maximal 100 Ein-/Ausgabe-Felder definiert werden (unabhängig davon, unter wie vielen Reitern die Ein-/Ausgabe-Felder angeordnet werden.
Parameter
ParNavTab - Eindeutiger (interner) Name für den Navigation Tab/Reiter
ParDescr - Beschreibung/Text, der im Navigation Tab/Reiter angezeigt wird.
Die Beschreibung kann entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParOptions - Aufbereitungsoptionen für Navigation Tab/Reiter
Optionaler Parameter
icn(..) - Icon, das in dem Reiter angezeigt werden soll
Der Name der Icon-Datei wird ohne Pfad angegeben. Sie muss im Anwendungs-Verzeichnis für Icons hinterlegt werden:
/www/dirweb/htdocs/icons/<anwendung>
Das Icon sollte 16 x 16 pixel gross sein.
Gültige Formate für die Icon-Datei: PNG, GIF, ICO, JPG
Beispiele für den Aufruf
Wx_ChgNavTab('Allgemein': 'KXD0037'); //Definition der Ein-/Ausgabe-Felder für Navigation Tab Allgemein
Wx_ChgNavTab('Ausgabe': 'Ausgabe');//Definition aller Ein-/Ausgabe-Felder für Navigation Tab Ausgabe
Wx_ChgNavTab('Suche': 'KXD0047');//Definition aller Ein-/Ausgabe-Felder für Navigation Tab Suche
Wx_ChgNavTab('Adresse' :'NAV0001' : 'icn(folderOpen.gif)'); //Definition aller Ein/Ausgabe-Felder für Navigation Tab Adresse
Abbildung 26: Navigation Tabs/Reiter - Ergebnis aus Source Code 167
Wx_ChgBtn() – Buttons definieren
Mit der Funktion Wx_ChgBtn() werden die angezeigten Buttons gesteuert.
- Wenn keine Funktion verwendet wird, dann werden automatisch, die Default-Buttons (siehe unten) angezeigt.
- Anstelle einer der vordefinierten Funktionen kann auch ein eigenes Programm angegeben werden.
- Beim Klicken auf den entsprechenden Button wird das gewünschte Folge-Programm aktiviert.
- Der angzeigte Text kann für alle (eigene und vordefinierte) Funktionen definiert werden
- Mit der Option "confirm" kann eine Bestätigung angefordert werden.
Vordefinierte Button-Funktionen
- *DFT (oder *DEFAULT) - es werden die Buttons angezeigt, bei der Anwendung als Standard Buttons definiert sind (Siehe: RPGWX (oder DIRWEB) → Anwendungen, Kontextmenü der Anwendung).
Diese Buttons werden auch angezeigt, wenn das Programm keine Wx_ChgBtn() - Funktion enthält.
Standard Buttons der Anwendung RPGWX (DIRWEB)
- *CHANGE- Sätz ändern
- *CANCEL - Abbrechen
- *REFRESH - Aktualisieren
- *SAVE - Sichern
- *COPY - Satz kopieren
- *APPLY - Anwenden
Parameter
ParButton - Name des Programms, das aufgerufen werden soll oder einer der Default-Werte (Change, Cancel, Refresh, Save, Copy, Apply – mit oder ohne führenden *) oder *DFT oder *DEFAULT für alle Default Buttons.
ParMsg - -Button-Text
Message-Id oder Message-Text
ParOptions - Optionen für Buttons z.B. Confirm für Bestätigung.
Beispiele für den Aufruf
Wx_ChgBtn('*Save': 'Bestätigen+Sichern': 'confirm'); Wx_ChgBtn('*CANCEL': 'MSG4711': 'confirm(Wollen Sie das wirklich?)'); Wx_ChgBtn('WXWRKLIBH': 'Bibliotheksliste');
Abbildung 27: Wx_ChgBtn - Buttons in Change Tables definieren
Anstatt *DEFAULT oder den entsprechenden Standard-Button (z.B. *CHANGE) als Parameter in der Funktion WX_ChgBtn() anzugeben, kann man auch die entsprechenden (bereitgestellen) Funktion für den entsprechenden Standard-Button aufrufen:
- WX_ChgBtnDefault: Alle zulässigen Default-Buttons
- WX_ChgBtnChange: Button für *CHANGE
- WX_ChgBtnCancel: Button für *CANCEL
- WX_ChgBtnRefresh: Button für *REFRESH
- WX_ChgBtnSave: Button für *SAVE (Sichern)
- WX_ChgBtnCopy: Button für *COPY
- Wx_ChgBtnApply: Button für *APPLY
Ermitteln/Prüfen Modi
Bearbeitungs-Modi werden z.B. in Kontext-Menüs oder Buttons festgelegt. Diese Modi werden an das Folge-Programm übergeben und können dort geprüft und ermittelt werden.
Abhängig von dem übergebenen Modus können im Folge-Programm unterschiedliche Aktionen initiiert werden.
Die Prüfung der Standard-Modi kann über die folgenden Funktionen erfolgen:
- Wx_isModeAdd()Prüfen Modus Hinzufügen
- Wx_isModeChange()Prüfen Modus Ändern
- Wx_isModeCopy () Prüfen Modus Kopieren
- Wx_isModeDelete()Prüfen Modus Löschen
- Wx_isModeProperty()Prüfen Modus Anzeigen
- Wx_isModeWritePrüfen() Modus Kopieren oder Hinzufügen
Beliebige Modi, die in der Kontext-Menü- und Button-Definition festgelegt werden, können über die folgende Funktion geprüft werden:
- Wx_isMode() Prüfen beliebigen Modus
Werden in Work-Programmen die Sonder-Funktionen/Buttons „Umsortieren" (Resequenzierung) oder „Änderungen speichern" (Editierbare Listanzeigen) definiert, wird die Steuerung nach Klick auf den entsprechenden Button an das Work-Programm zurückgegeben, d.h. das Work-Programm wird erneut aufgerufen.
Um festzustellen, ob das Work-Programm zu ersten Mal aufgerufen wird, oder ob ein ausgegebenes Ergebnis verarbeitet werden kann, können spezielle Modi über die folgenden Funktionen geprüft werden:
- Wx_isModeReseq()Der Umsortieren Button wurde in einer Worktable angeklickt
String oder Feldgruppe mit den Schlüssel-Werten in der neuen
Reihenfolge kann empfangen werden.
- Wx_isModeEdtList()Der Änderung Sichern-Button wurde in einer editierbare Worktable
angeklickt
Ein XML-Dokument mit den Änderungen kann empfangen werden
In Change-Programmen nach Klick auf einen der definierten Buttons ebenfalls der Modus abgefragt werden. Die Prüfung sollte erst nach Ausführung der Funktion Wx_GetChgInp (ähnl. OpCode EXFMT) erfolgen.
Zur Prüfung und Ermittlung der Standard-Modi können die folgenden Funktionen verwendet werden:
- Wx_isModeSave()Prüfen Modus Sichern
- Wx_isModeApply()Prüfen Modus Übernehmen
- Wx_isModeUpdate()Prüfen Modus Sicher oder Übernehmen
Alle Prüf-Funktionen entweder den Wert *ON oder *OFF zurück, je nachdem, ob der aktuelle Modus dem zu prüfenden Modus entspricht.
Die Funktionen können innerhalb des individuellen CGI-Programmes mehrfach aufgerufen werden. Der Modus wird von RPGWX einmalig ermittelt und beim nächsten Aufruf zurückgegeben.
Alle Prüf-Funktionen haben einen optionalen Parameter. Wird der Parameter mit dem Wert *ON übergeben, wird der Modus erneut ermittelt, unabhängig davon ob er bereits geprüft war oder nicht.
Wx_isModeAdd() – Modus Hinzufügen
Über die Funktion Wx_isModeAdd() kann geprüft werden, ob der aktuelle Modus Hinzufügen ist.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeAdd
P* Purpose: Check Current Mode --> Return True if Action is ADD
P* Returns: True/*ON = Action is ADD / False/*Off any other Action
P* Parameters: ParRtv => Retr. Mode in either way (even if already stored)
***************************************************************************
D Wx_isModeAdd...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 195165: Prototype - Funktion Wx_isModeAdd() - Prüfen Modus Hinzufügen
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeAdd() or Land = *Blanks;
//Default-Wert für Land Setzen
EndIf;
If Wx_isModeAdd(*ON) = *On;
//Default-Werte setzen
EndIf;
If MyKey <> *Zeros and Not Wx_isModeAdd()
//Einlesen Datensatz;
EndIf;
/End-Free
Source Code 196166: Aufruf - Funktion Wx_isModeAdd() - Prüfen Modus Hinzufügen
Wx_isModeChange() – Modus Ändern
Über die Funktion Wx_isModeChange() kann geprüft werden, ob der aktuelle Modus Ändern ist.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeChange
P* Purpose: Check Current Mode --> Return True if Action is CHANGE
P* Returns: True/*ON = Action is CHANGE / False/*Off any other Action
P* Parameters: ParRtv => Retr. Mode in either way (even if already stored)
***************************************************************************
D Wx_isModeChange...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 197167: Prototype - Funktion Wx_isModeChange() - Prüfen Modus Ändern
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeChange() and LiefTerm >= %Date();
//Änderungsmodus
EndIf;
If Wx_isModeChange(*ON) = *On;
//Änderungsmodus
EndIf;
If MyKey = *Zeros or Not Wx_isModeChange()
//Nicht Änderungsmodus
EndIf;
/End-Free
Source Code 198168: Aufruf - Funktion Wx_isModeChange() - Prüfen Modus Ändern
Wx_isModeCopy() – Modus Kopieren
Über die Funktion Wx_isModeCopy() kann geprüft werden, ob der aktuelle Modus Kopieren ist.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeCopy
P* Purpose: Check Current Mode --> Return True if Action is COPY
P* Returns: True/*ON = Action is COPY / False/*Off any other Action
P* Parameters: ParRtv => Retrieve Mode in either way (even if already s
***************************************************************************
D Wx_isModeCopy...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 199169: Prototype - Funktion Wx_isModeCopy() - Prüfen Modus Kopieren
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeCopy();
//Initialisieren
EndIf;
If Wx_isModeCopy(*ON) = *On;
//Initialisieren
EndIf;
If MyKey = *Zeros or Not Wx_isModeCopy()
//Einlesen Datensatz
EndIf;
/End-Free
Source Code 200170: Aufruf - Funktion Wx_isModeCopy() - Prüfen Modus Kopieren
Wx_isModeDelete() – Modus Löschen
Über die Funktion Wx_isModeDelete() kann geprüft werden, ob der aktuelle Modus Löschen ist.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeDelete
P* Purpose: Check Current Mode --> Return True if Action is DELETE
P* Returns: True/*ON = Action is DELETE / False/*Off any other Action
P* Parameters: ParRtv => Retrieve Mode in either way (even if already s
***************************************************************************
D Wx_isModeDelete...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 201171: Prototype - Funktion Wx_isModeDelete() - Prüfen Modus Löschen
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeDelete();
ArrKeyVal = Wx_GetDBKeyArrInt();
For Index = 1 To %Elem(ArrKeyVal);
If ArrKeyVal(Index) > *Zeros;
Delete(E) ArrKeyVal(Index) AdresseF1;
EndIf;
EndFor;
Wx_RtnPrv();
EndIf;
/End-Free
Source Code 202172: Aufruf - Funktion Wx_isModeDelete() - Prüfen Modus Löschen
Wx_isModeProperty() – Modus Anzeigen
Über die Funktion Wx_isModeProperty() kann geprüft werden, ob der aktuelle Modus Anzeigen ist.
Prototype
***************************************************************************
P* Procedure name: WX_IsModeProperty
P* Purpose: Check Current Mode --> Return True if Action is PROPERTY
P* Returns: True/*ON = Action is PROPERTY / False/*Off any other Action
P* Parameters: ParRtv => Retrieve Mode in either way (even if already stored
***************************************************************************
D WX_IsModeProperty...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 203173: Prototype - Funktion Wx_isModeProperty() - Prüfen Modus Anzeigen
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeProperty();
//Anzeigen
EndIf;
If Wx_isModeProperty(*ON) = *On;
//Anzeigen
EndIf;
If Not Wx_isModeProperty()
//Nicht Anzeigen
EndIf;
/End-Free
Source Code 204174: Aufruf - Funktion Wx_isModeProperty() - Prüfen Modus Anzeigen
Wx_isModeWrite() – Modus Hinzufügen oder Kopieren
Über die Funktion Wx_isModeWrite() kann geprüft werden, ob der aktuelle Modus entweder Kopieren oder Hinzufügen ist.
Dieser Modus kann geprüft werden, um festzustellen, ob ein neuer Datensatz geschrieben oder ein vorhandener Datensatz gesetzt werden kann.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeWrite
P* Purpose: Check Current Mode --> Return True if Action is either COPY or
P* Write
P* Returns: True/*ON = For Additional Input Checking / False/*Off
P* Parameters: ParRtv => Retr. Mode in either way (even if already stored)
***************************************************************************
D Wx_isModeWrite...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 205175: Prototype - Funktion Wx_isModeWrite() - Prüfen Modus Hinzufügen oder Kopieren
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen oder Kopieren
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeWrite();
//Initialisieren
EndIf;
If Wx_isModeWrite(*ON) = *On;
//Initialisieren
EndIf;
If Not Wx_isModeWrite()
//Weder Kopieren noch Hinzufügen
EndIf;
/End-Free
Source Code 206176: Aufruf - Funktion Wx_isModeWrite() - Prüfen Modus Hinzufügen oder Kopieren
Wx_isModeSave() – Modus Sichern
Über die Funktion Wx_isModeSave() kann geprüft werden, ob der aktuelle Modus Sichern ist.
Der Modus sollte erst nach Ausführung der Funktion Wx_GetChgInput() (ähnl. OpCode EXFMT) geprüft werden.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeSave
P* Purpose: Check Current Mode --> Return True if Action is SAVE
P* Returns: True/*ON = Action is Save / False/*Off any other Action
P* Parameters: ParRtv => Retr. Mode in either way (even if already stored)
***************************************************************************
D Wx_isModeSave...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 207177: Prototype - Funktion Wx_isModeSave() - Prüfen Modus Sichern
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeSave();
//Fortschreiben Datensatz
EndIf;
If Wx_isModeSave(*ON) = *On;
//Fortschreiben Datensatz
EndIf;
If Not Wx_isModeSave()
//Nicht Modus Sichern
EndIf;
/End-Free
Source Code 208178: Aufruf - Funktion Wx_isModeSave() - Prüfen Modus Sichern
Wx_isModeApply() – Modus Übernehmen
Über die Funktion Wx_isModeApply() kann geprüft werden, ob der aktuelle Modus Übernehmen ist.
Der Modus sollte erst nach Ausführung der Funktion Wx_GetChgInput() (ähnl. OpCode EXFMT) geprüft werden.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeApply
P* Purpose: Check Current Mode --> Return True if Action is APPLY
P* Returns: True/*ON = Action is APPLY / False/*Off any other Action
P* Parameters: ParRtv => Retr.Mode in either way (even if already stored)
***************************************************************************
D Wx_isModeApply...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 209179: Prototype - Funktion Wx_isModeApply() - Prüfen Modus Übernehmen
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeApply();
//Fortschreiben Datensatz
EndIf;
If Wx_isModeApply(*ON) = *On;
//Fortschreiben Datensatz
EndIf;
If Not Wx_isModeApply()
//Nicht Modus Übernehmen
EndIf;
/End-Free
Source Code 210180: Aufruf - Funktion Wx_isModeApply() - Prüfen Modus Übernehmen
Wx_isModeUpdate() – Modus Sichern oder Übernehmen
Über die Funktion Wx_isModeUpdate() kann geprüft werden, ob der aktuelle Modus Sichern oder Übernehmen ist.
Der Modus sollte erst nach Ausführung der Funktion Wx_GetChgInput() (ähnl. OpCode EXFMT) geprüft werden.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeUpdate
P* Purpose: Check Current Mode --> Return True if Action is either APPLY
P* or SAVE
P* Returns: True/*ON = Record must be written or updates / False/*Off
P* Parameters: ParRtv => Retrieve Mode in either way (even if already stored
***************************************************************************
D Wx_isModeUpdate...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 211181: Prototype - Funktion Wx_isModeUpdate() - Prüfen Modus Sichern oder Übernehmen
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Wx_isModeUpdate();
//Fortschreiben Datensatz
EndIf;
If Wx_isModeUpdate(*ON) = *On;
//Fortschreiben Datensatz
EndIf;
If Not Wx_isModeUpdate()
//Weder Modus Sichern noch Modus übernehmen
EndIf;
/End-Free
Source Code 212182: Aufruf - Funktion Wx_isModeApply() - Prüfen Modus Übernehmen
Wx_isModeOutput() – Modus Anzeigen oder Eigenschaften
Über die Funktion Wx_isModeOutput() kann geprüft werden, ob der aktuelle Modus Anzeigen oder Eigenschaften ist.
Der Modus sollte erst nach Ausführung der Funktion Wx_GetChgInput() (ähnl. OpCode EXFMT) geprüft werden.
Prototype
***************************************************************************
P* Procedure name: Wx_isModeOutput
P* Purpose: Check Current Mode --> Return True if Action is either DISPLAY
P* or PROPERTY
P* Returns: True/*ON = Fields must be set to output / False/*Off
P* Parameters: ParRtv => Retr. Mode in either way (even if already stored)
***************************************************************************
D Wx_isModeOutput...
D PR N OpDesc
D ParRtv N Options(*NoPass) Const
Source Code 213183: Prototype - Funktion Wx_isModeOutput() - Prüfen Modus Anzeigen oder Eigenschaften
Parameter
- Rückgabe-Wert*ON = Modus Anzeigen oder Eigenschaften
*OFF = Anderer Modus
- ParRtv *ON = Modus erneut prüfen/ermitteln
Optionaler Parameter
Beispiele für den Aufruf
/Free
If Not Wx_isModeOutput();
//Datensatz fortschreiben
EndIf;
If Wx_isModeOutput(*ON) = *Off;
//Datensatz fortschreiben
EndIf;
If Wx_isModeOutput()
//Modus Anzeigen oder Eigenschaften
EndIf;
/End-Free
Source Code 214184: Aufruf - Funktion Wx_isModeApply() - Prüfen Modus Übernehmen
Wx_isMode() – Prüfen beliebigen Modus
Über die Funktion Wx_isMode() kann geprüft werden, ob der aktuelle Modus dem vorgegebenen Modus entspricht.
Der Modus kann in jeder beliebigen Kombination aus Groß- und Kleinbuchstaben übergeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_isMode
P* Purpose: Check Mode, if the current mode is equal to the passed mode
P* Returns: True/*ON = Current Mode = Passed Mode / False/*Off
P* Parameters: ParRtv => Retrieve Mode in either way (even if already stored)
***************************************************************************
D Wx_isMode...
D PR N OpDesc
D ParMode Like(FldRef.ModeChar) Const
D ParRtv N Options(*NoPass) Const
Source Code 215185: Prototype - Funktion Wx_isMode() - Prüfen beliebigen Modus
Parameter
- Rückgabe-Wert*ON = Modus Hinzufügen
*OFF = Anderer Modus
- ParMode Modus
Case insensitive
- ParRtv *ON = Modus erneut prüfen/ermitteln
Beispiele für den Aufruf
/Free
Select;
When Wx_isMode('SALESITM');
Wx_CallPGM('EXWRKUM03');
When Wx_isMode('SalesCustItm': *ON);
Wx_CallPGM('EXWRKUM04': Wx_GetDBKeyChar());
EndSL;
/End-Free
Source Code 216186: Aufruf - Funktion Wx_isMode() - Prüfen beliebigen Modus
Dateien in CHG-Programmen
Wx_ChgFile() – Datei für Change Table definieren
Um Ein-/Ausgabe-Felder, die in Dateien/Tabellen/Views hinterlegt sind, müssen zunächst die Dateien/Tabellen/Views über die Prozedur Wx_ChgFile() definiert werden.
Über die Funktion Wx_ChgFile() können bis zu 10 Dateien/Tabellen/Views definiert werden. Im Gegensatz zu den Work Tables bei denen eine Verknüpfung zwischen den einzelnen Tabellen angegeben werden musste, können bei Change Tables die Dateien/Tabellen/Views unabhängig voneinander angegeben werden.
Sofern nur eine einzige Datei/Tabelle/View benötigt wird, kann diese auch direkt zusammen mit dem ersten Feld über Funktion Wx_ChgFileFld() (vergl. 3.18.7 Wx_ChgFileFld() – Datei und 1.Feld definieren) definiert werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ChgFile
P* Purpose: Define Files used for Change Tables
P* --> Up to 10 Files can be specified
P* Returns:
P* Parameters: ParFile1 => File/Table 1
P* Parameters: ParFile2 => File/Table 2 (Optional)
P* Parameters: ParFile3 => File/Table 3 (Optional)
P* Parameters: ParFile4 => File/Table 4 (Optional)
P* Parameters: ParFile5 => File/Table 5 (Optional)
P* Parameters: ParFile6 => File/Table 6 (Optional)
P* Parameters: ParFile7 => File/Table 7 (Optional)
P* Parameters: ParFile8 => File/Table 8 (Optional)
P* Parameters: ParFile9 => File/Table 9 (Optional)
P* Parameters: ParFile10 => File/Table 10 (Optional)
***************************************************************************
D Wx_ChgFile...
D PR OPDesc
D ParFile1 Like(FldRef.NameSQL) Const
D ParFile2 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile3 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile4 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile5 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile6 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile7 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile8 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile9 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile10 Like(FldRef.NameSQL) Const
D Options(*NoPass)
Source Code 246212: Prototype - Prozedur Wx_ChgFile - Dateien für Change Table definieren
Parameter
- ParFile1Physische Datei/Tabelle/View
Kann als kurzer System-Name (Max.10 Zeichen) oder langer SQL Name (Max. 128 Zeichen) angegeben werden.
- ParFile2 – ParFile10 Physische Datei/Tabelle/View
Optionaler Parameter
Kurzer System- oder langer SQL Name
Beispiel für den Aufruf
Wx_ChgFile('AuftrKopfX');
Wx_ChgFile('AuftrKopfX': 'AuftrPosX': 'KundSt');
Source Code 247213: Beispiel Aufruf Prozedur WX_ChgFile() – Dateien für Change Table definieren
Wx_ChgFld() – Felder in Change Tables definieren
Ein-/Ausgabe-Felder, die in den zuvor definierten Tabellen hinterlegt sind, müssen mit der Prozedur Wx_ChgFld() für RPGWX registriert werden.
Damit die Daten zwischen RPGWX und dem individuellen CGI-Programm ausgetauscht werden können, muss ein Pointer auf das gewünschte Feld, dessen Daten ausgetauscht werden sollen, an die RPGWX-Prozedur übergeben werden.
RPGWX ermittelt basierend auf der Feldbeschreibung den Datentypen und die Länge der übergebenen Daten, übersetzt die Daten in HTML-Schreibweise und bringt die eingegebenen Daten im Feld-Format zurück.
Anmerkung:Alle Felder und Variablen, über die Informationen mit RPGWX ausgetauscht werden, müssen als Datenstruktur-Unterfelder definiert werden!
Felder in Datenstrukturen werden vom RPG-Compiler nicht konvertiert.
Parameter
ParField - Feld/Spalten-Name des Ein-/Ausgabe-Feldes
Das Ein-/Ausgabe-Feld (der angegebene Feld-Name) muss in den zuvor definierten Tabellen vorhanden sein.
Wahlweise kann der kurze System-Name oder der lange SQL –Name angegeben werden.
ParPtr - Pointer auf das Ein-/Ausgabe-Feld
Das Ein-/Ausgabe-Feld muss in einer der zuvor definierten Tabellen vorhanden sein und in einer Datenstruktur hinterlegt sein.
Übergabe erfolgt in Verbindung mit der Built-In-Funktion %ADDR().
ParDescr - Beschreibung, die links neben dem Filter-Feld angezeigt wird
Optionaler Parameter
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder nicht oder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCond - Bedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
ParHelp - Bedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
If GblKGId = *Zeros;
Wx_ChgFld('KGTINR': %Addr(GblDSKGP.KGTINR): 'KXD0022': 'required ExecSQL(ITPWITITP)'); //Event
EndIf;
Wx_ChgFld('KGINFOKZA': %Addr(GblDSKGP.KGINFOKZA): 'KXD0084': 'ExecSQL(ITPINFOKZ2) ' + LocDftOpt); //Info-Kennz.1
Wx_ChgFld('KGINFOKZB': %Addr(GblDSKGP.KGINFOKZB): '': 'ExecSQL(ITPINFOKZ2) ' + LocDftOpt); //Info-Kennz.2
Wx_ChgFld('KGSTRDAT': %Addr(GblDSKGP.KGSTRDAT): 'KXD0035': LocDftOpt + ' NoNewLine Required'); //Startdatum
Wx_ChgFld('KGSTRTIM': %Addr(GblDSKGP.KGSTRTIM): 'KXD0036': LocDftOpt); //Startzeit
Wx_ChgFld('KGENDDAT': %Addr(GblDSKGP.KGENDDAT): 'KXD0039': LocDftOpt + ' NoNewLine Required'); //Endedatum
Wx_ChgFld('KGENDTIM': %Addr(GblDSKGP.KGENDTIM): 'KXD0036': LocDftOpt); //Ende-Zeit
Wx_ChgFld('KGHOTEL' : %Addr(GblDSKGP.KGHOTEL): 'KXD0041'); //Hotel
Wx_ChgFld('KGHOTELSTR' : %Addr(GblDSKGP.KGHOTELSTR); //Hotel – Strasse
Wx_ChgFld('KGHOTELORT' : %Addr(GblDSKGP.KGHOTELORT); //Hotel - Ort
Wx_ChgFld('KGHOTELTEL' : %Addr(GblDSKGP.KGHOTELTEL); //Hotel - Telefon
Wx_ChgFld('KGANFAHRT' : %Addr(GblDSKGP.KGANFAHRT): 'KXD0042'); //Hotel - Anfahrt
Source Code 249215 : Aufruf Prozedur Wx_ChgFld() – Ein-/Ausgabe-Felder definieren
Abbildung 28 : Definierte Ein/Ausgabe-Felder - Ergebnis aus Source Code 173
Wx_ChgFileFld() – Datei und 1.Feld definieren
Sofern nur auf eine einzige physische Datei/Tabelle/View zugegriffen wird, kann die Datei/Tabelle/View über die Funktion WX_ChgFileFld() direkt zusammen mit dem ersten Ein-/Ausgabe-Feld definiert werden.
Bei dieser Funktion wird die Datei/Tabelle/View als 1. Parameter übergeben. Die folgenden Parameter entsprechen den Parametern (Anzahl, Reihenfolge und Schlüssel-Wort CONST), die für Prozedur Wx_ChgFld() übergeben werden können.
Parameter
ParFile - Physische Datei/Tabelle/View
Kann als kurzer System-Name (Max.10 Zeichen) oder langer SQL Name (Max. 128 Zeichen) angegeben werden.
Analog Parameter ParFile1 in Funktion Wx_ChgFile()
ParField - Feld/Spalten-Name des Ein-/Ausgabe-Feldes
Das Ein-/Ausgabe-Feld (der angegebene Feld-Name) muss in den zuvor definierten Tabellen vorhanden sein.
Wahlweise kann der kurze System-Name oder der lange SQL –Name angegeben werden.
ParPtr - Pointer auf das Ein-/Ausgabe-Feld
Das Ein-/Ausgabe-Feld muss in einer der angegebenen Datei/Tabelle/View vorhanden und in einer Datenstruktur hinterlegt sein.
Übergabe erfolgt in Verbindung mit der Built-In-Funktion %ADDR().
ParDescr - Beschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Optionaler Parameter
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder nicht oder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCond - Bedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
ParHelp - Bedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ChgFileFld('AdresseX': 'KundeNr': %Addr(DS.KundeNr): 'FLD0001': 'Range(000000, 999999) Right Required');
Wx_ChgFileFld('ArtikelBas': 'ArtikelNr': %Addr(ArtikelNr): 'FLD0008');
Source Code 251217: Aufruf Prozedur Wx_FltFileFld() - Definieren Filter-File und 1. Feld
Definieren Arbeits-Felder/Variablen
Für Change Tables ist es nicht erforderlich, dass alle Ein-/Ausgabe-Felder in den definierten Dateien/Tabellen/Views vorhanden sind.
Für Change Tables können vielmehr auch Variablen, die in RPG entweder in den globalen oder lokalen D-Bestimmungen definiert wurden in RPGWX registriert werden.
Da der Datentyp und die Länge der Variablen nicht aus den definierten Tabellen ermittelt werden kann, ist es erforderlich, diese Informationen bei der Definition der Variablen in RPGWX anzugeben.
RPGWX stellt mehrere Funktionen zur Registrierung von Arbeitsfeldern/Variablen in RPGWX zur Verfügung:
- Wx_ManChgFld() Definieren Variable - Alle Datentypen
- Wx_ManChgFldChar() Definieren alphanumerische Variable mit fixer Länge
- Wx_ManChgFldVarChar() Definieren alphanumerische Variable mit variabler Länge
- Wx_ManChgFldUC2() Definieren Unicode-Variable mit fixer Länge
- Wx_ManChgFldVarUC2() Definieren Unicode-Variable mit variabler Länge
- Wx_ManChgFldPack()Definieren gepackte Variable
- Wx_ManChgFldZone()Definieren gezonte Variable
- Wx_ManChgFldInt()Definieren Integer-Variable
- Wx_ManChgFldFloat()Definieren Fließkomma-Variable
- Wx_ManChgFldDate()Definieren Datums-Variable
- Wx_ManChgFldTime()Definieren Zeit-Variable
- Wx_ManChgFldTimestamp()Definieren Zeitmarken-Variable
- Wx_ManChgFldRef()Definieren Variable basierend auf einem Referenz-Feld
Anmerkung:Wie auch die Ein-/Ausgabe-Felder, die in Dateien/Tabellen/Views hinterlegt sind, müssen auch die Arbeits-Felder/Variablen als in RPG als Datenstruktur-Unterfelder definiert werden.
Datums- und Zeitfelder sollten mit Datums- bzw. Zeit-Format *ISO definiert werden.
Wx_ManChgFld() – Definieren Variable für jeden Datentypen
Mit der Prozedur Wx_ManChgFld() können Arbeitsfelder/Variablen mit jedem in RPG zulässigen Datentypen definiert werden.
Parameter
ParField - Eindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
ParPtr - Pointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
ParDescr - Beschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParDataType - Datentyp in dem das Arbeitsfeld/Variable definiert wurde
Siehe Gültige Datentypen
ParLen - Länge des Arbeitsfeldes/Variable
Optionaler Parameter, muss nur angegeben werden, sofern die Länge nicht allein durch den Datentypen definiert wurde.
Ist die Länge erforderlich, muss die Anzahl der Zeichen (nicht Anzahl an Bytes) muss übergeben werden.
Bei alphanumerischen und Unicode Feldern mit fixer Länge entspricht die Länge der definierten Länge.
Bei alphanumerischen und Unicode Feldern mit variabler Länge entspricht die Länge der maximalen Länge.
Bei gezonten und gepackten numerischen Feldern wird die Anzahl der Ziffern angegeben, d.h. Definition 11P 2 11
Sofern bei Integer- oder Fließkomma-Feldern der SQL-Datentyp übergeben wurde, ist die Längenangabe nicht erforderlich.
Sofern bei Integer-Feldern der RPG Datentyp (I) angegeben wurde, muss die Länge so wie in RPG definiert angegeben werden, d.h. 5I 05.
Sofern bei Fließkomma-Feldern der RPG Datentyp (F) verwendet wurde, muss die Länge so wie in RPG definiert angegeben werden, d.h. 8F 8.
Für Datums-, Zeit- und Zeitmarken-Felder ist keine Längenangabe erforderlich.
ParDec - PosDezimal-Positionen
Optionaler Parameter, nur für gepackte und gezonte numerische Arbeitsfelder/Variablen erforderlich.
ParDatFmt - Datums- und Zeit-Formate
Optionaler Parameter, nur für Datums- und Zeit-Arbeitsfelder/Variablen erforderlich.
Die Angabe ist bei Datums- und Zeit-Feldern auch nur dann erforderlich, wenn diese Arbeitsfelder/Variablen in RPG nicht im *ISO-Format definiert wurden.
Gültige Werte für die Datums- und Zeit-Formate sind:
- *ISOISO-Datums-Format=JJJJ-MM-TT
ISO-Zeit-Format = HH.MM.SS
- *EUR Europäisches Datum =TT.MM.JJJJ
- *USA Amerikanisches Datum =MM/TT/JJJJ
Amerikansche Zeit = HH:MMam/PM
- *YMD Jahr/Monat/Tag Format =JJ-MM-TT
- *DMY Tag/Monat/Jahr Format =TT.MM.JJ
- *MDY Monat/Tag/Jahr Format = MM/TT/JJ
- *HMS Stunde/Minute/Sekunde = HH:MM:SS
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCond - Bedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
ParHelp - Bedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFld('LandBez': %Addr(GblLandBez): '': 'VARCHAR': %Size(GblLandBez) - 2: 0: '': 'DependList(File=LandBase, LaBez, LaLand=Land) '+ 'output ');
Wx_ManChgFld('ERFDATE': %Addr(GblErfDate): 'Erfassungsdatum': 'Date');
Wx_ManChgFld('TOTAL': %Addr(GblTotal): 'Gesamt': 'P': 11: 2: '': 'Output');
Wx_ManChgFldChar – Def. alphanumerische Variable fixer Länge
Mit Hilfe der Prozedur Wx_ManChgFldChar() können alphanumerische Arbeitsfelder/Variablen mit fixer Länge definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von alphanumerischen Variablen mit fixer Länge erforderlich sind angegeben werden.
Parameter
ParField - Eindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
ParPtr - Pointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
ParDescr - Beschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParLen - Länge des Arbeitsfeldes/Variable
Die zu übergebende Länge entspricht der Längen-Definition der Variablen.
Beispiel: Definition 256A → Länge = 256
Die Länge kann direkt angegeben oder mit Hilfe der Built-In-Funktion %LEN() ermittelt werden.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCond - Bedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt.
ParHelp - Bedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldChar('KBDelete': %Addr(GblDS.KBDelete): 'Löschen': %Len(GblDS.KBDelete): 'CheckBox');
Wx_ManChgFldChar('KGINFOTEXA': %Addr(GblDS.KGINFOTEXA): '': %Len(GblDS.KGINFOTEXA): 'DependList(File=INFOFV05, ININTX, + ININCD=KGINFOKZA) output ');
Wx_ManChgFldChar('SPNAME': %Addr(GblDS.SPNAME): '': %Len(GblDS.SPNAME));
Wx_ManChgFldVarChar – Def. alphanumerische Variable variabler Länge
Mit Hilfe der Prozedur Wx_ManChgFldVarChar() können alphanumerische Arbeitsfelder/Variablen mit variabler Länge definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von alphanumerischen Variablen mit variabler Länge erforderlich sind angegeben werden.
Parameter
ParField - Eindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
ParPtr - Pointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
Der Pointer muss auf die Variable incl. der beiden führenden unsichtbaren Bytes in denen die Länge gespeichert ist zeigen und nicht auf die Daten)
ParDescr - Beschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParLen - Maximale Länge des Arbeitsfeldes/Variable
Die zu übergebende Länge entspricht der maximalen Länge, die bei der Definition der Variablen angegeben wurde.
Beispiel: Definition 256A varying --> Länge = 256
Ab Release 7.1 kann die maximale Länge mit Hilfe der Built-In-Funktion %LEN() ermittelt werden. --> %LEN(MyVar:*max)
Vor Release 7.1 kann die maximale Länge mit Hilfe der Built-In-Funktion %SIZE() abzüglich der führenden Bytes ermittelt werden:
--> %SIZE(MyVar) – 2
Die maximale Länge kann auch direkt im Parameter angegeben werden.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCond - Bedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt.
ParHelp - Bedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldVarChar('CSVFILE': %Addr(GblDS.CsvFile): 'KXD0093': %Size(GblDS.CsvFile) - 2: 'required');
Wx_ManChgFldVarChar('LINKHOTEL': %Addr(GblDS.LinkHotel): '': %Size(GblDS.LinkHotel) - 2: 'output iswww');
Wx_ManChgFldVarChar('GUTLAST': %Addr(GblDS.GutLast): 'Gutschrift/LastSchrift': %Size(GblDS.GutLast) - 2 : 'ValuesList(' + %Trim(GblConstGut) + ', ' + %Trim(GblConstLast) + ') + required');
Wx_ManChgFldUC2 – Definieren Unicode-Variable mit fixer Länge
Mit Hilfe der Prozedur Wx_ManChgFldUC2() können Unicode-Arbeitsfelder/Variablen mit fixer Länge definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von Unicode-Variablen mit fixer Länge erforderlich sind angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldUC2
P* Purpose: Define fixed Length Unicode Fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParLen => Length
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No Help
***************************************************************************
D Wx_ManChgFldUC2...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParMsg Like(FldRef.MsgData) Const
D ParLen 10I 0 Const
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 258224: Prototype - Prozedur Wx_ManChgFldUC2() - Definieren Unicode-Variable mit fixer Länge
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParLenLänge des Arbeitsfeldes/Variable
Die zu übergebende Länge entspricht der Längen-Definition der Variablen.
- Beispiel:Definition 256C Länge = 256
Die Länge kann direkt angegeben oder mit Hilfe der Built-In-Funktion %LEN() ermittelt werden.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt.
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldUC2('KundeName': %Addr(GblDS.KundeName): '':
%Len(GblDS.LimdeMa,e):
'DependList(File=Kundst, KNDNAM, +
KNDNR=KundeNr) output ');
Wx_ManChgFldUC2('SPNAME': %Addr(GblDS.SPNAME): '':
%Len(GblDS.SPNAME));
Source Code 259225: Aufruf - Prozedur Wx_ManChgFldUC2() - Definieren Unicode-Variable mit fixer Länge
Wx_ManChgFldVarUC2 – Definieren Unicode-Variable mit variabler Länge
Mit Hilfe der Prozedur Wx_ManChgFldVarUC() können Unicode-Arbeitsfelder/Variablen mit variabler Länge definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von Unicode-Variablen mit variabler Länge erforderlich sind angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldVarUC2
P* Purpose: Define fixed Length Unicode Fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParLen => Length (= Maximum Length)
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No Help
***************************************************************************
D Wx_ManChgFldVarUC2...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParMsg Like(FldRef.MsgData) Const
D ParLen 10I 0 Const
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 260226: Prototype - Prozedur Wx_ManChgFldVarChar() - Definieren Unicode-Variable mit variabler Länge
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
Der Pointer muss auf die Variable incl. der (beiden) führenden unsichtbaren Bytes in denen die Länge gespeichert ist zeigen und nicht auf die Daten)
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParLenMaximale Länge des Arbeitsfeldes/Variable
Die zu übergebende Länge entspricht der maximalen Länge, die bei der Definition der Variablen angegeben wurde.
- Beispiel:Definition 256C varying Länge = 256
Ab Release 7.1 kann die maximale Länge mit Hilfe der Built-In-Funktion %LEN() ermittelt werden. %LEN(*Max: MyVar)
Die maximale Länge kann auch direkt im Parameter angegeben werden.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt.
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldVarUC2('LINKHOTEL': %Addr(GblDS.LinkHotel): '':
%Size(GblDS.LinkHotel) - 2: 'output iswww');
Wx_ManChgFldVarUC2('GUTLAST': %Addr(GblDS.GutLast):
'Gutschrift/LastSchrift': %Size(GblDS.GutLast) - 2:
'ValuesList(' + %Trim(GblConstGut) + ', ' +
%Trim(GblConstLast) + ') +
required');
Source Code 261227: Aufruf Prozedur Wx_ManChgFldVarUC2() - Definieren Unicode-Variable mit variabler Länge
Wx_ManChgFldPack() – Definieren gepackte numerische Variable
Mit Hilfe der Prozedur Wx_ManChgFldPack() können gepackte numerische Arbeitsfelder/Variablen definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von gepackten numerischen Variablen erforderlich sind angegeben werden.
Prototype
******************************************************************************
P* Procedure name: Wx_ManChgFldPack
P* Purpose: Define packed numeric fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParLen => Length (Not! Size)
P* Parameters: ParDecPos => Decimal Positions
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No Help
******************************************************************************
D Wx_ManChgFldPack...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const Fie
D ParPtr * Value Poi
D ParMsg Like(FldRef.MsgData) Const Mes
D ParLen 10I 0 Const Len
D ParDecPos 3U 0 Options(*NoPass) Const Dec
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const Con
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const Hel
D Options(*NoPass: *Trim)
Source Code 262228: Prototype - Prozedur Wx_ManChgFldPack() - Definieren gepackte numerische Variable
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParLenLänge des Arbeitsfeldes/Variable
Bei gezonten und gepackten numerischen Variablen/Arbeitsfeldern wird die Anzahl der Ziffern angegeben,
- Beispiel:Definition 11P 2 11
- ParDecPosDezimal-Positionen
Optionaler Parameter
Sofern der Parameter nicht angegeben wurde, werden 0 (*Zeros) Nachkommastellen angenommen.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldPack('NUMDATE': %Addr(GblDS.NumDate): 'Datum':
%Len(GblDS.NumDate): *Zeros: ' Output DateNum');
Wx_ManChgFldPack('TOTAL': %Addr(GblDS.Total): 'Gesamt in Euro': 11: 2);
Source Code 263229: Aufruf Prozedur Wx_ManChgFldPack() - Definieren gepackt numerische Variablen
Wx_ManChgFldZone() – Definieren gezonte numerische Variable
Mit Hilfe der Prozedur Wx_ManChgFldZone() können gezonte numerische Arbeitsfelder/Variablen definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von gezonten numerischen Variablen erforderlich sind angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldZone
P* Purpose: Define Zoned numeric fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParLen => Length (Not! Size)
P* Parameters: ParDecPos => Numeric Positions
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No Help
***************************************************************************
D Wx_ManChgFldZone...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParMsg Like(FldRef.MsgData) Const
D ParLen 10I 0 Const
D ParDecPos 3U 0 Options(*NoPass) Const
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 264230: Prototype - Prozedur Wx_ManChgFldZone() - Definieren gezonte numerische Variable
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParLenLänge des Arbeitsfeldes/Variable
Bei gezonten und gepackten numerischen Variablen/Arbeitsfeldern wird die Anzahl der Ziffern angegeben,
- Beispiel:Definition 11S 2 11
- ParDecPosDezimal-Positionen
Optionaler Parameter
Sofern der Parameter nicht angegeben wurde, werden 0 (*Zeros) Nachkommastellen angenommen.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldZone ('NUMDATE': %Addr(GblDS.NumDate): 'Datum':
%Len(GblDS.NumDate): *Zeros: ' Output DateNum');
Wx_ManChgFldZone('TOTAL': %Addr(GblDS.Total): 'Gesamt in Euro': 11: 2);
Source Code 265231: Aufruf Prozedur Wx_ManChgFldZone() - Definieren gezont numerische Variablen
Wx_ManChgFldInt() – Definieren ganzzahlige Variable
Mit Hilfe der Prozedur Wx_ManChgFldInt() können ganzzahlige (Integer) Arbeitsfelder/Variablen definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von ganzzahligen (Integer) Variablen erforderlich sind angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldInt
P* Purpose: Define Integer numeric fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParLen => Length (Not! Size)
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No Help
***************************************************************************
D Wx_ManChgFldInt...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParMsg Like(FldRef.MsgData) Const
D ParLen 10I 0 Const
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 266232: Prototype - Prozedur Wx_ManChgFldInt() - Definieren ganzzahlige/Integer-Variable
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParLenLänge des Arbeitsfeldes/Variable
Zur Definition von Integer-Variablen sind nur die folgenden Längenangaben zulässig:
- Small IntegerLänge = 5
- IntegerLänge = 10
- Big IntegerLänge = 20
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldInt ('Counter': %Addr(GblDS.Counter): 'Zähler':
%Len(GblDS.Counter): ' Output');
Wx_ManChgFldInt('Stueck': %Addr(GblDS.Stueck): 'Anzahl': 10);
Source Code 267233: Aufruf Prozedur Wx_ManChgFldInt() - Definieren ganzzahlige/Integer Variablen
Wx_ManChgFldFloat() – Definieren Fließkomma-Variable
Mit Hilfe der Prozedur Wx_ManChgFldFloat() können Fließkomma-Arbeitsfelder/Variablen definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von Fließkomma-Variablen erforderlich sind angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldFloat
P* Purpose: Define Float numeric fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParLen => Length (Not! Size)
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No Help
***************************************************************************
D Wx_ManChgFldFloat...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParMsg Like(FldRef.MsgData) Const
D ParLen 10I 0 Const
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 268234: Prototype - Prozedur Wx_ManChgFldFloat() - Definieren Fließkomma-Variable
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParLenLänge des Arbeitsfeldes/Variable
Zur Definition von Fließkomma-Variablen sind nur die folgenden Längenangaben zulässig:
- FloatLänge = 4
- Double Länge = 8
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet. Beispiele für den Aufruf
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldFloat('MyFloat': %Addr(GblDS.MyFloat): 'TXT0018':
%Len(GblDS.MyFloat): ' Output');
Wx_ManChgFldFloat('MyFloat2': %Addr(GblDS.MyFloat2): 'Beschreibung': 8);
Source Code 269235: Aufruf Prozedur Wx_ManChgFldFloat() - Definieren Fließkomma-Variable
Wx_ManChgFldDate() – Definieren Datums-Variable
Mit Hilfe der Prozedur Wx_ManChgFldDate() können Datums-Arbeitsfelder/Variablen definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von Datums-Variablen erforderlich sind angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldDate
P* Purpose: Define Date fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParDatFmt => Date Format
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No Help
***************************************************************************
D Wx_ManChgFldDate...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParMsg Like(FldRef.MsgData) Const
D Options(*NoPass)
D PInDatFmt Like(FldRef.Text10V) Const
D Options(*NoPass)
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 270236: Prototype - Prozedur Wx_ManChgFldDate() - Definieren Datums-Variable
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird
Optionaler Parameter
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder nicht, leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParDatFmt Datums-Format
Optionaler Parameter
Wird das Datumsformat nicht angegeben, so wird davon ausgegangen, dass das *ISO-Format verwendet wird.
Die folgenden Datumsformate sind zulässig
- *ISOISO-Datums-Format=JJJJ-MM-TT
- *EUREuropäisches Datum =TT.MM.JJJJ
- *USAAmerikanisches Datum =MM/TT/JJJJ
- *YMDJahr/Monat/Tag Format =JJ-MM-TT
- *DMYTag/Monat/Jahr Format =TT.MM.JJ
- *MDYMonat/Tag/Jahr Format = MM/TT/JJ
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
- ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldDate('FAKTURADAT': %Addr(GblDS.FakturaDat): 'KXD0065');
Wx_ManChgFldDate('StornoDat': %Addr(GblDS.StornoDat):
'Storno-Datum': '*EUR': ' Output ');
Source Code 271237: Aufruf Prozedur Wx_ManChgFldDate() - Definieren Datums-Variable
Wx_ManChgFldTime() – Definieren Zeit-Variable
Mit Hilfe der Prozedur Wx_ManChgFldTime() können Zeit-Arbeitsfelder/Variablen definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von Zeit-Variablen erforderlich sind angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldTime
P* Purpose: Define Time fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No H
***************************************************************************
D Wx_ManChgFldTime...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParMsg Like(FldRef.MsgData) Const
D Options(*NoPass)
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 272238: Prototype - Prozedur Wx_ManChgFldTime() - Definieren Zeit-Variable
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird.
Optionaler Parameter
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder nicht, leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
- ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldTime('FAKTURATIM': %Addr(GblDS.FakturaTim): 'KXD0067');
Wx_ManChgFldTime('StornoTim': %Addr(GblDS.StornoTim): 'Storno-Zeit':
' Output ');
Source Code 273239: Aufruf Prozedur Wx_ManChgFldTime() - Definieren Zeit-Variable
Wx_ManChgFldTimestamp() – Definieren Zeit-Variable
Mit Hilfe der Prozedur Wx_ManChgFldTimestamp() können Zeitmarken-Arbeitsfelder/Variablen definiert werden.
Im Gegensatz zur Definition mit Prozedur Wx_ManChgFld() müssen nur die Informationen, die zur Erstellung von Zeitmarken-Variablen erforderlich sind angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldTimestamp
P* Purpose: Define Timestamp fields manually for Change Table
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParHelp => Help --> Special Value *NONE = No Help
***************************************************************************
D Wx_ManChgFldTimestamp...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParMsg Like(FldRef.MsgData) Const
D Options(*NoPass)
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 274240: Prototype - Prozedur Wx_ManChgFldTimestamp() - Definieren Zeitmarken-Variable
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird.
Optionaler Parameter
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder nicht, leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
- ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldTimestamp('FAKTURATSP': %Addr(GblDS.FakturaTSp): 'KXD0060');
Wx_ManChgFldTimestamp('StornoTSP': %Addr(GblDS.StornoTSP): 'Storno-Datum/Zeit':
' Output ');
Source Code 275241: Aufruf Prozedur Wx_ManChgFldTimestamp() - Definieren Zeitmarken-Variable
Wx_ManChgFldRef() – Definieren Variable basierend auf Referenz-Feld
Mit Hilfe der Prozedur Wx_ManChgFldRef() können Arbeitsfelder/Variablen basierend auf der Definition von anderen Feldern definiert werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ManChgFldRef
P* Purpose: Define Fields manually with field reference for Change Ta
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParPtr => Pointer to the original Field
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParOptions => Options
P* Parameters: ParCond => Conditions
P* Parameters: ParNavTab => Navigation Tabs
P* Parameters: ParFile => File
P* Parameters: ParLib => Library
P* Parameters: ParHelp => Help --> Special Value *NONE = No H
***************************************************************************
D Wx_ManChgFldRef...
D PR OPDesc
D ParField Like(FldRef.NameSQL) Const
D ParPtr * Value
D ParRefField Like(FldRef.NameSQL) Const
D ParMsg Like(FldRef.MsgData) Const
D Options(*NoPass)
D ParOptions Like(FldRefCGI.Options) Const
D Options(*NoPass)
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
D ParNavTab Like(FldRef.Text15V) Const
D Options(*NoPass)
D ParFile Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParLib Like(FldRef.Lib) Const
D Options(*NoPass)
D ParHelp Like(FldRefCGI.Help) Const
D Options(*NoPass: *Trim)
Source Code 276242: Prototype - Prozedur Wx_ManChgFldRef() - Definieren Variable über Referenz-Feld
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
Die eindeutige Kennung muss nicht dem Namen der Variablen entsprechen, darf jedoch innerhalb der Change Table nur einmalig definiert werden.
- ParPtrPointer auf das Arbeitsfeld/Variable
Das Arbeitsfeld/Variable muss als Datenstruktur-Unterfeld definiert sein.
- ParRefFieldReferenz-Feld
Das Referenz-Feld muss in einer der Dateien/Tabellen/Views, die über die Funktion Wx_ChgFile() definiert wurden hinterlegt sein.
- ParDescrBeschreibung, die links neben dem Ein-/Ausgabe-Feld angezeigt wird.
Optionaler Parameter
Sofern keine Beschreibung angezeigt werden soll, wird der Parameter entweder nicht, leer oder mit *Blanks gefüllt übergeben.
Soll eine Beschreibung angezeigt werden, kann diese entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
ParOptions - Aufbereitungsoptionen
Optionaler Parameter
Vergl. Aufbereitungsoptionen für Detail-Anzeigen
ParCondBedingungen unter denen das Ein-/Ausgabe-Feld angezeigt werden soll.
Optionaler Parameter
Werden in JavaScript konvertiert und zur Laufzeit ausgeführt
- ParHelpBedienerhilfe
Optionaler Parameter
Kann wahlweise direkt als Text oder Message-Id angegeben werden. Als Hilfe-Text wird der Level 2 Message-Text verwendet.
Sonderwert *NONE = automatische Ermittlung der Bediener-Hilfe unterbinden
Beispiele für den Aufruf
Wx_ManChgFldTimestamp('FAKTURATSP': %Addr(GblDS.FakturaTSp): 'KXD0060');
Wx_ManChgFldTimestamp('StornoTSP': %Addr(GblDS.StornoTSP): 'Storno-Datum/Zeit':
' Output ');
Source Code 277243: Aufruf Prozedur Wx_ManChgFldRef() - Definieren Variable über Referenz-Feld
Bedienerhilfe
Für Ein-/Ausgabe-Felder können individuelle Bedienerhilfe-Texte definiert werden.
Default: Der Level 2 Message-Text der Feldüberschrift wird als Bedienerhilfe ausgegeben.
Die Bedienerhilfe kann zum einen über einen optionalen Parameter in allen Definitions-Funktionen für Change-Tables (z.B. Wx_ChgFld() oder Wx_ManChgFldChar()) angegeben werden.
Alternativ kann die Bedienerhilfe die Funktion Wx_ChgHelp() für einzelne Felder eingebunden werden.
Dabei kann wahlweise direkt ein Text oder eine Message-Id übergeben werden. Wird eine Message-Id übergeben wird per Default der Level 2-Message-Text dieser Message-Id ermittelt und als Hilfe-Text ausgegeben.
Default: Wurde weder ein Message-Text noch eine Message-Id angegeben, so wird, sofern eine Feldbeschreibung als Message-Id angegeben wurde der Level 2 Message-Text als Bedienerhilfe ausgegeben. Dieser Prozess erfolgt automatisch, ohne Angabe eines Schlüssel-Wortes.
Soll diese Automatik unterbunden werden, bzw. kein Hilfe-Text erwünscht sein, so kann in dem optionalen Parameter für die Bedienerhilfe der Sonderwert *NONE übergegeben werden. Das Hinzufügen der Bedienerhilfe kann ebenfalls durch den Aufruf der Funktion Wx_ChgNoHelp() entweder für ein einzelnes Feld oder alle Felder unterbunden werden.
Sofern für ein Ein/Ausgabe-Feld eine Bedienerhilfe vorliegt, wird die Ausgabe des Fragezeichen-Icons gekennzeichnet. Bei der Mouse Over-Aktion wird der Hilfe-Text angezeigt. 
Abbildung 29: Bedienerhilfe in Change Programmen
Wx_ChgHelp – Bedienerhilfe hinzufügen
Mit Hilfe der Funktion Wx_ChgHelp können in Change-Programmen Hilfe-Texte zugewiesen werden.
Prototyp
***************************************************************************
P* Procedure name: Wx_ChgHelp
P* Purpose: Add individual help to a change field
P* If a Message-Id is passed the 2nd Level Message Text will
P* be used as help text
P* If a Message-Text is passed this text will be used as Hel
P* Returns:
P* Parameters: ParField => Field
P* Parameters: ParMsg => Help text or message id
P* Parameters: ParMsgTxt => Variable Message Texte
P* (Optional if a message id is specified)
***************************************************************************
D Wx_ChgHelp...
D PR OpDesc
D ParField Like(FldRef.NameSQL) Const
D Options(*Trim)
D ParMsg Like(FldRefCGI.Help) Const
D ParMsgTxt Like(FldRef.MsgText) Const
D Options(*NoPass: *Trim)
Source Code 278244: Prototype - Procedure Wx_ChgHelp - Bedienerhilfe hinzufügen
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
- ParMsgBedienerhilfe oder Message-Id der Bedienerhilfe
Bedienerhilfe wird aus Level 2 Message-Text der Message-Id ermittelt
- ParMsgTxtVariable Message-Textes
Sofern eine Message-Id übergeben wurde, können zusätzlich Variable Message-Texte (die die Platzhalter in dem Message-Text ersetzen angegeben werden)
Beispiele für den Aufruf
Wx_ChgHelp('ARTNR': 'ABC1234');
Wx_ChgHelp('ARTNR': 'ABC1234': MyFld1 + ' ' + MyFld2);
Wx_ChgHelp('KUNDENR': 'Dies ist ein Hilfetext für die Kunden-Nr. ');
Source Code 279245: Aufruf Prozedur Wx_ChgHelp() - Bedienerhilfe hinzufügen
Wx_ChgNoHelp – Bedienerhilfe unterbinden
Mit der Funktion Wx_ChgNoHelp() kann die automatische Ermittlung der Bedienerhilfe für einzelne Felder oder alle Felder unterbunden werden.
Prototyp
*************************************************************************
P* Procedure name: Wx_ChgNoHelp
P* Purpose: Prevents from adding automatic help texts
P* Returns:
P* Parameters: ParField => Field (Optional)
P* Not Passed or Special Value *ALL
P* No Help Text for any field
*************************************************************************
D Wx_ChgNoHelp...
D PR OpDesc
D ParField Like(FldRef.NameSQL) Const
D Options(*NoPass: *Trim)
Source Code 280246: Prototype Procedure Wx_ChgNoHelp - Automatische Ermittlung der Bedienerhilfe unterbinden
Parameter
- ParFieldEindeutige Kennung des Arbeitsfelds/Variable
(Optional)
Nicht übergeben oder Sonderwert *NONE Bedienerhilfe wird für alle Felder unterbunden
Beispiele für den Aufruf
Wx_ChgNoHelp('ARTNR');
Wx_ChgNoHelp();
Source Code 281247: Aufruf Procedure Wx_ChgNoHelp - Automatische Ermittlung der Bedienerhilfe unterbinden
Bedingte Ein-/Ausgabe-Felder – Condition Group
RPGWX stellt mehrere Funktionen zur Verfügung, mit deren Hilfe JavaScript-Code erzeugt wird, der zur Laufzeit dafür sorgt, dass Ein-/Ausgabe-Felder nur unter bestimmten Bedingungen angezeigt werden.
Die Bedingungen unter denen die Ein-/Ausgabe-Felder angezeigt werden können auch bei den Prozeduren Wx_ChgFileFld(), Wx_ChgFld() sowie allen Prozeduren durch die Arbeits-Felder/Variablen definiert werden können (z.B. Wx_ManChgFld()) über einen optionalen Parameter hinzugefügt werden.
Um zu vermeiden, dass die gleichen Bedingungen mehrfach angegeben werden müssen, wurden Prozeduren erstellt, über die die Bedingung einmalig festgelegt wird. Alle im Folgenden definierten Ein-/Ausgabe-Felder werden unter der gleichen Bedingung angezeigt.
RPGWX erlaubt verschachtelte Condition-Groups bzw. If-Anweisungen.
Die folgenden Prozeduren werden zur Steuerung zur Verfügung gestellt:
- Wx_ChgIf() If-Anweisung = Beginn der Condition Group
- Wx_ChgElse() Else-Bedingung
- Wx_ChgEndIf() EndIf-Anweisung = Ende der Condition Group
Condition Groups können verschachtelt werden. Die Verschachtelung, sowie die Anzahl der Wx_ChgIf()-Prozedur-Aufrufe und die Anzahl der Wx_ChgEndIf()-Prozedur-Aufrufe werden zur Laufzeit geprüft. Im Fehlerfall wird eine Fehlermeldung ausgegeben.
In den Bedingungen können nur Ein-/Ausgabe-Felder geprüft werden, die zuvor mit RPGWX-Funktionen definiert wurden.
Die Bedingungen können in RPG oder CL oder Java-Script-Schreibweise angegeben werden, siehe auch Bedingtes Anzeigen von Filter- und Ein-/Ausgabefeldern.
Wx_ChgIf() – Beginn der Condition Group
Mit Hilfe der Prozedur Wx_ChgIf() wird die erste Bedingung definiert. Die Bedingung wird in Java-Script-Code übersetzt und steuert zur Laufzeit die Anzeige der Ein-/Ausgabe-Felder.
Alle Felder und Variablen, die nach dem Aufruf der Prozedur Wx_ChgIf() definiert werden, werden unter den gleichen Bedingungen angezeigt.
Wird die Prozedur Wx_ChgIf() erneut, mit einer weiteren Bedingung aufgerufen, werden alle im Anschluss definierten Felder und Variablen nur dann angezeigt, wenn beide Bedingungen erfüllt sind.
Syntax
Wx_ChgIf('<condition>');
- Character-Konstanten müssen in Anführungszeichen ("Gänsefüßchen") eingeschlossen werden
- Die Bedingungen können wahlweise in RPG, CL oder JavaScript-Schreibweise angegeben werden. Der angegebene Code wird in JavaScript konvertiert und zur Laufzeit ausgeführt.
- Nur Datei-Felder, die bereits in zuvor als Filter-Felder definiert wurden dürfen in den Bedingungen verwendet werden.
- Vergleichsoperatoren, wie =, >, <> etc. (RPG-Schreibweise) können ebenso angegeben werden, wie *EQ, *GT, *NE etc. (CL-Schreibweise) oder ==, >, != (JavaScript-Schreibweise)
- Logische Operatoren wie AND, OR, NOT (RPG) bzw. *AND, *OR, *NOT (CL) bzw. &&, ||, ! (JavaScript) können verwendet werden.
- Klammersetzung ist erlaubt
Parameter
<condition> - Ein Ausdruck, der WAHR oder FALSCH liefert
Wenn die Bedingung WAHR ist, dann werden die folgenden Anweisungen ausgeführt, bis eine der Anweisungen angetroffen wird:
- Wx_ElseIf()
- Wx_EndIf()
Beispiele
Wx_ChgIf('ARmailbox = "*DIRMAIL"');
Wx_ChgIf('Nettobetrag > 200');
Wx_ChgElse() – Else-Anweisung
Über die Prozedur Wx_ChgElse() kann eine ELSE-Anweisung definiert werden.
Alle Ein-/Ausgabe-Felder, die nach Ausführung der Prozedur Wx_ChgElse() über RPGWX-Funktionen definiert werden, werden zur Laufzeit unter den inversen Bedingungen der zuvor definierten IF-Anweisung angezeigt.
Durch die Angabe von weiteren Bedingungen können Else-If-Bedingungen definiert werden.
Innerhalb der Else-Anweisungen können weitere Condition Groups definiert werden.
Prototype
***************************************************************************
P* Procedure name: Wx_ChgElse
P* Purpose: Begin Else(IF)-Condition - Change
P* Returns:
P* Parameters: ParCond => Condition
***************************************************************************
D Wx_ChgElse...
D PR OpDesc
D ParCond Like(FldRefCGI.Cond) Const
D Options(*NoPass)
Source Code 283249: Prototype - Prozedur Wx_ChgElse - Else-Bedingungen
Parameter
- ParCondBedingungen (vergl. 3.5 Bedingtes Anzeigen von Ein-/Ausgabe-Feldern)
Optionaler Parameter
Durch Angabe von Bedingungen in der Else-Funktion wird eine ElseIf-Funktionalität erreicht.
Wx_ChgEndIf() – Ende Condition Group
Durch den Aufruf der Prozedur Wx_ChgEndIf() wird die äußerste Condition Group beendet.
Zu jedem Wx_ChgIf()-Prozedur-Aufruf, muss auch ein Wx_ChgEndIf()-Prozedur-Aufruf ausgeführt werden. Stimmt die Anzahl der Wx_ChgIf()-Prozedur-Aufrufe mit der Anzahl der Wx_ChgEndIf()-Prozedur-Aufrufe nicht überein, tritt zur Laufzeit ein Fehler auf.
Alle Ein-/Ausgabe-Felder, die mit RPGWX-Funktionen nach der Ausführung der Prozedur Wx_ChgEndIf() definiert werden, werden ohne Berücksichtigung der Bedingungen aus der beendeten Condition Group angezeigt.
Prototype
***************************************************************************
P* Procedure name: Wx_ChgEndIf
P* Purpose: End IF-Condition - Change
P* Returns:
P* Parameters:
***************************************************************************
D Wx_ChgEndIf...
D PR OpDesc
Source Code 284250: Prototype - Prozedur Wx_ChgEndIf - Ende der If-Anweisung
Parameter
- Für die Prozedur Wx_ChgEndIf() sind keine Parameter erforderlich
Condition Group Beispiel
Wx_ChgIf('STATUS = 01');
Wx_ChgFld('AKBESTMGE': 'Bestell-Menge');
//...weitere Ein-/Ausgabe-Felder für die gleiche Bedingung
Wx_ChgElse('STATUS = 02');
Wx_ChgFld('AKLIEFMGE': 'Liefer-Menge');
//...weitere Ein/Ausgabe-Felder für die ElseIf-Bedingung
Wx_ChgElse();
Wx_ChgFld('AKTEILMGE': 'Teillieferung');
//...weitere Ein-/Ausgabe-Felder für die Else-Bedingung
Wx_ChgEndIf();
Source Code 285251: Aufruf Prozeduren Wx_ChgIf(), Wx_ChgElse(), Wx_ChgEndIf() - Bedingte Ein-/Ausgabe-Felder
Definition von HTML-Tabellen
Innerhalb von Change Tables können Ein-/Ausgabe-Felder in Tabellen angeordnet werden. Die Definition der Tabellen bzw. der Aufruf der entsprechenden RPGWX-Funktionen erfolgt unmittelbar vor der Definition des ersten (Ein-/Ausgabe-)Feldes innerhalb der Tabelle.
Zur Tabellen-Definition werden die folgenden Prozeduren zur Verfügung gestellt.
- Wx_HTMLTbl Definition der Tabelle --> Anzahl Zeilen/Spalten
- Wx_HTMLTblColHdg Definition der Spalten
Die im Anschluss Zeilen*Spalten mit WX_ChgFld() oder mit irgendeiner Wx_ManChgFld…() Funktion definierten Felder, werden in der Tabelle hinterlegt.
Das erste Feld in Zeile1/Spalte1, das zweite Feld in Zeile1/Spalte2 … bis alle Spalten der ersten Zeile belegt sind in der Tabelle belegt sind und dann geht es in der nächsten Zeile weiter.
Auf der Seite Beispiel-Programme gibt es ein umfangreiches Beispiel für die Verwendung der Funktionen Wx_HtmlTbl und Wx_HtmlTblColhdg.
Wx_HTMLTbl – Definition Tabelle
Über die Funktion Wx_HTMLTbl wird die HTML Tabelle definiert, d.h. es wird angegeben wie viele Zeilen und Spalten in dieser Tabelle hinterlegt sein sollen.
Außer der Anzahl der Zeilen und Spalten sollen in Zukunft noch weitere Kriterien angegeben werden können. Die entsprechenden Parameter sind bereits als optionale Parameter vorhanden.
Mit jedem Aufruf der Prozedur Wx_HTMLTbl wird eine neue Tabelle definiert.
Syntax
Wx_HtmlTbl('<tablename>' : '<nbrcol>' : '<nbrrow>')
Parameter
Die Prozedur erfordert 3 Parameter. Über zwei optionale Parameter können in Zukunft zusätzliche Informationen übergeben werden.
tablename - Eindeutiger Tabellen-Namen
Jede Tabelle erhält innerhalb der Change Table einen eindeutigen Namen über den sie intern verwaltet wird.
Der Tabellen-Name ist frei wählbar. Groß/Kleinschreibung wird nicht berücksichtigt.
nbrcol - Anzahl der Spalten innerhalb der Tabelle
Innerhalb einer Tabelle können aktuell bis zu 32 Spalten definiert werden.
Es ist in diesem Zusammenhang zu beachten, dass pro Change Table nur maximal 100 Ein/Ausgabe-Felder definiert werden können.
nbrrow - Anzahl der Zeilen innerhalb der Tabelle
Beispiele für den Aufruf
//Tabelle1 mit 3 Spalten und 5 Zeilen Wx_HTMLTbl('Tabelle1': 3 : 5);
Auf der Seite Beispiel-Programme gibt es ein umfangreiches Beispiel für die Verwendung der Funktionen Wx_HtmlTbl und Wx_HtmlTblColhdg.
Wx_HTMLTblColHdg() – Definition Spalten
Über die Prozedur Wx_HTMLTblColHdg() können die einzelnen Spalten in der zuvor über Prozedur Wx_HTMLTbl() definierten Tabelle näher beschrieben werden.
Aktuell wird nur die Tabellen-Überschrift unterstützt. Für die Zukunft werden noch weitere Optionen geplant, die in Form von Schlüssel-Worten übergeben werden. Die entsprechenden Parameter sind bereits vorgesehen.
Durch den mehrfachen Aufruf der Funktion Wx_HTMLTbl wird jeweils die nächste (noch nicht definierte) Spalte definiert. Um eine bestimmte Spalte zu definieren kann auch die Spalten-Nr. direkt übergeben werden.
Wird die Funktion Wx_HTMLTblColHdg() nicht nach der Funktion Wx_HTMLTbl() aufgerufen erhält die Tabelle keine Spalten-Überschriften.
Syntax
Wx_HtmlTblColhdg('<headertext> : '<colnum>')
Parameter
Die Funktion erfordert einen Parameter.
headertext - Message-Id oder Text der als Spaltenüberschrift angezeigt werden soll
colnum - Spalten-Nr.
Optionaler Parameter
Wird die Spalten-Nr. nicht übergeben, wird die nächste (nach der zuletzt definierten) Spalte verwendet.
War die Spalte bereits definiert, wird zuvor gesetzte Überschrift ersetzt.
Beispiele für den Aufruf
//Tabelle1 mit 3 Spalten und 5 ZeilenWx_HTMLTbl('Tabelle1': 3: 5); //TabelleWx_HTMLTblColHdg('Spalten-Überschrift1'); //Spalte 1Wx_HTMLTblColHdg('2.Spalte'); //Spalte 2Wx_HTMLTblColHdg('MSG0123'); //Spalte 3 – mit Message Id
//Definition der Ein/Ausgabe-Felder innerhalb der Tabelle
//Tabelle Auswahl mit 4 Spalten und 1 ZeileWx_HTMLTbl('Auswahl': 4: 1); Wx_HTMLTblColHdg('Spalten-Überschrift3': 3); //Spalte 3Wx_HTMLTblColHdg('Zweite Spalte': 2); //Spalte 2Wx_HTMLTblColHdg('Letzte Spalte'); //Spalte 4
//Definition der Ein/Ausgabe-Felder innerhalb der Tabelle
//Tabelle AdrTab mit 3 Spalten und 3 Zeilen
//Vorgabe von unterschiedlichen Spalten-BreitenWx_HTMLTbl('AdrTab' :3 :3); Wx_HTMLTblColHdg('Strasse': 1: 'width="450"'); Wx_HTMLTblColHdg('PLZ': 2: 'width="100"'); Wx_HTMLTblColHdg('Ort': 3: 'width="450"'); 
Auf der Seite Beispiel-Programme gibt es ein umfangreiches Beispiel für die Verwendung der Funktionen Wx_HtmlTbl und Wx_HtmlTblColhdg.
Daten von der Browser-Maske empfangen
Wx_GetChgInput() – Empfangen Eingabe-Daten
Über die Prozedur Wx_GetChgInput() werden die die eingegebenen Daten empfangen.
Der Aufruf muss nach der Definition der Ein-/Ausgabe-Felder über RPGWX-Prozeduren und vor der individuellen Eingabe-Prüfung bzw. vor dem Fortscheibend der erfassten Daten erfolgen.
Für den RPGWX-Programmierer kann die Prozedur Wx_GetChgInput() mit der Ausführung des OpCodes EXFMT in Green-Screen-Dialog-Programmen verglichen werden. Tatsächlich wird in der Prozedur das HTML-Dokument an den Browser geschickt und das Programm beendet. Beim nächsten Aufruf über den Browser werden die erfassten Daten empfangen und können wie nach einem EXFMT weiterverarbeitet werden.
Prototype
***************************************************************************
P* Procedure name: Wx_GetChgInput
P* Purpose: Get Input Values
P* --> Input values get retrieved for either mode SAVE or APPLY
P* Returns:
***************************************************************************
D Wx_GetChgInput...
D PR OPDesc
Source Code 290256: Prototype - Prozedur Wx_GetChgInput() - Empfangen Eingabe-Daten
Parameter
- Die Prozedur erfordert weder einen Rückgabewert noch Parameter. Die Ein-/Ausgabe-Daten werden direkt in die entsprechenden Datenstruktur-Unterfelder ausgegeben.
Beispiel für den Aufruf
//Ein-/Ausgabe-Felder definieren Wx_ChgFld('Land':%Addr(GblDS.Land): 'Land': 'Required CTL(Country)');Wx_ChgFld('PLZ': %Addr(GblDS.PLZ): 'FLD0012': 'NoNewLine'); Wx_ChgFld('Ort': %Addr(GblDS.Ort): '': 'Required SelectList');
//Eingabe-Daten empfangen Wx_GetChgInput();
//Individuelle Eingabe-Prüfung//Fortschreiben der erfassten Daten
Source Code 291257: Aufruf - Prozedur Wx_GetChgInput() - Empfangen Eingabe-Daten
Error-Handling
Viele Eingabe-Prüfungen können bereits durch die Angabe von entsprechenden Optionen (z.B. Range für einen Bereich oder vordefinierte Comboboxen) direkt in HTML bzw. über JavaScript-Funktionen erfolgen. Ähnlich den Schlüssel-Worten, die im DDS gesetzt werden können.
Der Programmierer kann zusätzliche individuelle Prüfungen im Programm hinterlegen.
Die (individuelle) Eingabe-Prüfung darf erst nach Aufruf der Prozedur Wx_GetChgInput() (Empfangen der Eingabe-Werte) erfolgen. Die erfassten Werte werden durch die Prozedur Wx_GetChgInput() in die Datenstruktur-Unterfelder übertragen, die bei der Definition der Ein-/Ausgabe-Felder angegeben wurden.
Für den Fehler-Fall bzw. zur Ausgabe und Prüfung von (individuellen) Fehlermeldungen werden die folgenden RPGWX-Funktionen zur Verfügung gestellt.
Wx_FldErr() - Fehlermeldung für ein einzelnes Ein-/Ausgabe-Feld
- Wx_MultFldErr() - Fehlermeldung für eine Gruppe von Ein-/Ausgabe-Feldern
- Wx_isChgFldErr( ) - Prüfung, ob mindestens eine individuelle Fehlermeldung ausgegeben wurde
Soll die Fehlermeldung unmittelbar nach der Prüfung ausgegeben werden, ist der Aufruf der Prozedur Wx_WrtChgTbl() – Change Table erforderlich.
Anstatt die Fehlermeldungen einzeln auszugeben können auch zunächst alle Prüfungen durchgeführt, die Fehler über Wx_FldErr() oder Wx_MultFldErr() ausgegeben werden.
Ob ein Fehler über die Funktionen Wx_FldErr() oder Wx_MultFldErr() ausgegeben wurde, kann mit der Funktion Wx_isChgFldErr() geprüft werden.
Sofern kein Fehler festgestellt wurde, kann der Programmierer die Daten fortschreiben.
Die Aufbereitung und Ausgabe des HTML-Dokuments erfolgt über die Prozedur Wx_WrtChgTbl(). In der Prozedur Wx_WrtChgTbl() wird ebenfalls geprüft, ob ein Fehler ausgegeben wurde. Im Fehler-Fall wird das aktuelle Dokument erneut (inklusive der Fehlermeldung) ausgegeben. Wurde kein Fehler festgestellt, wird auf das vorgelagerte Programm (z.B. Worktable) zurückverzweigt.
Die Fehlermeldungen werden immer unmittelbar nach dem fehlerhaften Ein-/Ausgabe-Feld in rot angezeigt, unabhängig davon, ob die Fehlermeldung durch eine Java-Script-Prüfung oder den Aufruf RPGWX-Prozeduren Wx_FldErr() oder Wx_MultFldErr() erzeugt wurde.
Abbildung 31: Beispiel Fehlerhafte Eingaben und Fehlermeldungen
Wx_FldErr() – Individuelle Fehlermeldung für Ein-/Ausgabe-Feld
Wurde bei der individuellen Eingabe-Prüfung für ein bestimmtes Ein-/Ausgabe-Feld ein Fehler festgestellt, so kann mit Hilfe der Prozedur Wx_FldErr() eine individuelle Fehlermeldung für dieses Ein-/Ausgabe-Feld ausgegeben werden.
An die Prozedur müssen sowohl die Fehlermeldung (oder eine entsprechende Message-Id) sowie das Feld (bzw. die eindeutige Kennung, die bei der Definition angegeben wurde) als Parameter übergeben werden.
Soll die Fehlermeldung unmittelbar nach der Prüfung ausgegeben werden, ist der Aufruf der Prozedur Wx_WrtChgTbl() – Change Table erforderlich.
Prototype
***************************************************************************
P* Procedure name: Wx_FldErr
P* Purpose: Set Field Error
P* Returns:
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParField => Field
P* Parameters: ParFile => File
P* Parameters: ParLib => Bibliothek
***************************************************************************
D Wx_FldErr...
D PR OPDesc
D ParMsg Like(FldRef.MsgData) Const
D ParField Like(FldRef.NameSQL) Const
D ParFile Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParLib Like(FldRef.Lib) Const
D Options(*NoPass)
Source Code 292258: Prototype - Prozedur Wx_FldErr() - Fehlermeldung für einzelnes Ein-/Ausgabe-Feld
Parameter
- ParMsgFehlermeldung
Die Fehlermeldung kann entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParFieldFeld/Spalten-Name des Ein-/Ausgabe-Feldes oder eindeutige Kennung bei Arbeits-Feldern.
Das Ein-/Ausgabe-Feld (Feld-Name oder eindeutige Kennung) muss über eine RPGWX-Prozedur definiert worden sein.
If GblDs.Land = 'D' and %Len(%Trim(GblDS.PLZ)) <> 5; //Prüfen PLZ Deutschland
Wx_FldErr('Ungültige Postleitzahl': 'PLZ');
EndIf;
Monitor;
If Wx_isModeAdd();
GblDS.KBGUELTAB = %Date(GblDS.KBGUELTNum); //Prüfen numerisches Datum
EndIf;
On-Error;
Wx_FldErr(PGMSDS.MsgTxt: 'KBGUELTAB');
EndMon;
If %Len(%Trim(GblDS.EMeMail)) = *Zeros //Ohne eMail-Adresse
and ( %Len(%Trim(GblDS.EMSend)) <> *Zeros //Mit Senden an
or %Len(%Trim(GblDS.EMSign)) <> *Zeros); //Mit Signatur
Wx_FldErr('KXE0031': 'ADDEMAIL');
ElseIf %Len(%Trim(GblDS.EMeMail)) <> *Zeros //Mit Mail-Adresse
and %Len(%Trim(GblDS.EMSign)) = *Zeros; //Ohne Signatur
Wx_FldErr('KXE0030': 'ADDSIGN');
EndIf;
If GblDS.KGSTRTIM < %Time(073000: *ISO) //Startzeit vor 7:30
and GblDS.KGSTRTIM <> *LoVal; //Startzeit <> 00:00:00
Wx_FldErr('KXE0005': 'STRTIM');
EndIf;
If GblDS.KGENDTIM <= GblDS.KGSTRTIM; //Endezeit vor Startzeit
Wx_FldErr('KXE0007': 'STRTIM');
Wx_FldErr('KXE0007': 'ENDTIM');
EndIf;
Abbildung 32 : Individuelle Eingabe-Prüfung - Ungültige Postleitzahl
Wx_MultFldErr() – Individuelle Fehlermeldung für mehrere Felder
Sofern bei einer individuellen Eingabe-Prüfung die gleiche Fehlermeldung für mehrere Ein-/Ausgabe-Felder angezeigt werden soll, kann entweder die Prozedur Wx_FldErr() mehrfach aufgerufen oder die Prozedur Wx_MultFldErr().
Bei der Funktion Wx_MultFldErr() können bis zu 10 Ein-/Ausgabe-Felder angegeben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_MultFldErr
P* Purpose: Set Error for Multiple Fields
P* Returns:
P* Parameters: ParMsg => Message-Id or Text
P* Parameters: ParField01 => Field 01
P* Parameters: ParField02 => Field 02
P* Parameters: ParField03 => Field 03
P* Parameters: ParField04 => Field 04
P* Parameters: ParField05 => Field 05
P* Parameters: ParField06 => Field 06
P* Parameters: ParField07 => Field 07
P* Parameters: ParField08 => Field 08
P* Parameters: ParField09 => Field 09
P* Parameters: ParField10 => Field 10
P* Parameters: ParFile => File
P* Parameters: ParLib => Bibliothek
***************************************************************************
D Wx_MultFldErr...
D PR OPDesc
D ParMsg Like(FldRef.MsgData) Const
D ParField01 Like(FldRef.NameSQL) Const
D ParField02 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParField03 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParField04 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParField05 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParField06 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParField07 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParField08 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParField09 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParField10 Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParFile Like(FldRef.NameSQL) Const
D Options(*NoPass)
D ParLib Like(FldRef.Lib) Const
D Options(*NoPass)
Source Code 294260: Prototype - Prozedur Wx_MultFldErr() - Fehlermeldung für mehrere Ein-/Ausgabe-Felder
Parameter
- ParMsgFehlermeldung
Die Fehlermeldung kann entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParField01Feld/Spalten-Name des Ein-/Ausgabe-Feldes oder eindeutige Kennung bei Arbeits-Feldern.
Das Ein-/Ausgabe-Feld (Feld-Name oder eindeutige Kennung) muss über eine RPGWX-Prozedur definiert worden sein.
- ParField02 – ParField10 Feld/Spalten-Name der weiteren Ein-/Ausgabe-Felder oder eindeutige Kennungen bei Arbeits-Feldern.
Das Ein-/Ausgabe-Feld (Feld-Name oder eindeutige Kennung) muss über eine RPGWX-Prozedur definiert worden sein.
Optionaler Parameter
Beispiele für den Aufruf
If GblDS.EKPreis > GblDS.VKPreis;
Wx_MultFldErr('Verkaufspreis muss über dem Einkaufspreis liegen':
'EKPreis': 'VKPreis');
EndIf;
If ( GblDS.Hoehe > *Zeros
or GblDS.Breite > *Zeros
or GblDS.Tiefe > *Zeros)
and ( GblDS.Hoehe = *Zeros
or GblDS.Breite = *Zeros
or GblDS.Tiefe = *Zeros);
Wx_MultFldErr('Höhe, Breite und Tiefe müssen angegeben werden':
'Hoehe': 'Breite': 'Tiefe');
EndIf;
If GblDS.KGSTRDAT > GblDS.KGENDDAT;
Wx_MultFldErr('KXE0004': 'STRDAT': 'ENDDAT');
ElseIf GblDS.KGSTRDAT = GblDS.KGENDDAT
and GblDS.KGSTRTIM > GblDS.KGENDTIM;
Wx_MultFldErr('KXE0004': 'STRTIM': 'ENDTIM');
EndIf;
Source Code 295261: Aufruf Prozedur Wx_MultFldErr() - Fehlermeldung für mehrere Ein-/Ausgabe-Felder
Abbildung 33: Beispiel - gleiche Fehlermeldung für mehrere Felder
Wx_isChgFldErr() – Prüfung mindestens eine individuelle Fehlermeldung
Über die Funktion Wx_isChgFldErr() kann geprüft werden, ob mindestens ein Fehler mit Hilfe der Funktionen Wx_FldErr() oder Wx_MultFldErr() registriert wurde.
Sofern kein Fehler aufgetreten ist, kann der Datensatz ordnungsgemäß fortgeschrieben werden.
Prototype
***************************************************************************
P* Procedure name: Wx_isChgFldErr
P* Purpose: Check if Field Errors occurred
P* Returns: True/*On = Field Errors Occurred
P* False/*Off = No Field Error
***************************************************************************
D Wx_isChgFldErr...
D PR N OpDesc
Source Code 296262: Prototype - Prozedur Wx_isChgFldErr() - Prüfung individueller Fehler aufgetreten
Parameter
- Rückgabe-Wert*ON = mindestens ein individueller Fehler aufgetreten
*OFF = kein Fehler aufgetreten
- Keine Parameter erforderlich
Beispiel für den Aufruf
If Not Wx_isChgFldErr();
If GblDS.Id = *Zeros;
Write MyFileF GblDS;
Else;
Update MyFileF GblDS;
EndIf;
EndIf;
Source Code 297263: Aufruf Prozedur Wx_isChgFldErr() - Prüfen individueller Fehler aufgetreten
Prozeduren zum Beenden von Change Tables
Change Tables können auf zwei Arten beendet werden:
- Wx_WrtChgTbl() Beenden Change Programm
Je nachdem, ob ein individueller Fehler registriert wurde oder nicht, wird das aktuelle HTML-Dokument erneut ausgegeben oder auf das vorgelagerte Programm zurückgesprungen.
- Wx_RtnPrv() Rücksprung auf vorgelagertes Programm
Sofern in Change-Programmen für die Aktion/Modus keine Dialog-Ausgabe erforderlich ist (z.B. Löschen von Datensätzen)
Wx_RtnPrv() – Rücksprung auf vorgelagertes Programm
Ist in einem Change Programm keine Dialog-Ausgabe erforderlich (z.B. zum Löschen von Datensätzen oder zur Aktivierung eines Buchungsprogramms), muss nach Ausführung der entsprechenden Aktion das Change Programm durch Aufruf der Funktion Wx_RtnPrv() auf das vorgelagerte Programm zurückgegangen werden.
Prototype
***************************************************************************
P* Procedure name: Wx_RtnPrv
P* Purpose: Return to previous display HTML
P* Returns:
P* Parameters: ParMsg => Message Text or Message-Id
P* --> If an error occurs
***************************************************************************
D Wx_RtnPrv...
D PR OPDesc
D ParMsg Like(FldRef.MsgData) Const
D Options(*NoPass)
Source Code 298264: Prototype - Prozedur Wx_RtnPrv() - Auf vorgelagertes Programm zurückspringen
Parameter
- ParMsgFehlermeldung, die im vorgelagerten Programm ausgegeben werden soll.
Optionaler Parameter
Sofern keine Fehlermeldung ausgegeben werden soll, wird der Parameter entweder nicht, leer oder mit *Blanks gefüllt übergeben.
Die Fehlermeldung kann entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParSvrErrorSignoff
Optionaler Parameter
Sofern der Parameter mit *ON übergeben wird, wird die Sitzung beendet. (Signoff)
Beispiele für den Aufruf
If Wx_isModeDelete(); //Löschen
ArrKeyVal = Wx_GetDBKeyArrInt(); //Ermitteln Schlüssel für Löschen
For Index = 1 To %Elem(ArrKeyVal); //Verarb. aller Schlüssel-Werte
If ArrKeyVal(Index) > *Zeros;
Delete(E) ArrKeyVal(Index) MyFileF; //Datensatz löschen
If %Error; //Fehler aufgetreten
ErrMsg = 'Fehler beim Löschen'; //Fehlermeldung sichern
EndIf;
EndIf;
EndFor;
Wx_RtnPrv(ErrMsg); //Rücksprung
EndIf;
Source Code 299265: Prozedur Wx_RtnPrv() - Rücksprung auf vorgelagertes Programm
Wx_WrtChgTbl() – Beenden Change Programm
Nachdem die Eingabe-Prüfungen erfolgt sind, die Datensätze, sofern keine Fehler aufgetreten sind, fortgeschrieben wurden, muss das Change Programm beendet werden.
Die Funktion Wx_WrtChgTbl() gibt im Fehler-Fall die Change Table erneut aus oder verzweigt auf das vorgelagerte Programm, sofern kein Fehler aufgetreten ist.
Prototype
***************************************************************************
P* Procedure name: Wx_WrtChgTbl
P* Purpose: Write Change Table
P* Returns:
P* Parameters: ParMsg => Message Text or Message-Id
P* --> If an error occurs
P* Parameters: ParParm01 => Parameter 01 for the next Call
P* Parameters: ParParm02 => Parameter 02 for the next Call
P* Parameters: ParParm03 => Parameter 03 for the next Call
P* Parameters: ParParm04 => Parameter 04 for the next Call
P* Parameters: ParParm05 => Parameter 05 for the next Call
***************************************************************************
D Wx_WrtChgTbl...
D PR OPDesc
D ParMsg Like(FldRef.MsgData) Const
D Options(*NoPass)
D ParParm01 Like(FldRef.TextVar) Const
D Options(*NoPass)
D ParParm02 Like(FldRef.TextVar) Const
D Options(*NoPass)
D ParParm03 Like(FldRef.TextVar) Const
D Options(*NoPass)
D ParParm04 Like(FldRef.TextVar) Const
D Options(*NoPass)
D ParParm05 Like(FldRef.TextVar) Const
D Options(*NoPass)
Source Code 300266: Prototype Prozedur Wx_WrtChgTbl() - Beenden Change Program
Parameter
- ParMsgGlobale Fehlermeldung, die im aktuellen HTML-Dokument ausgegeben werden soll.
Optionaler Parameter
Sofern keine Fehlermeldung ausgegeben werden soll, wird der Parameter entweder nicht, leer oder mit *Blanks gefüllt übergeben.
Die Fehlermeldung kann entweder direkt oder als Message-Id angegeben werden.
Bei Verwendung einer Message-Id muss die zugehörige Message-File in Directweb für die Anwendung hinterlegt sein.
- ParParm1 – ParParm5 Parameter-Wert
Optionale Parameter
Es können bis zu 5 alphanumerische Parameter-Werte übergeben werden. Diese Parameter-Werte können in dem Folge-Programm verwendet werden.
Anstatt die gewünschten Parameter-Werte über die Funktion Wx_WrtChgTbl() zu setzen, ist es auch möglich die Werte über durch Aufruf einer der Funktionen Wx_SetParmXXXX zu setzen (vergl. 3.13 Ermitteln und Setzen von Parameter-Werten).
Beispiele für den Aufruf
Monitor;
Clear ErrMsg; //Error Message initialisieren
If KeyVal > *Zeros; //Mit Schlüssel-Wert
GblDSSav = GblDS; //geänderten Datensatz sichern
Chain KeyVal MyFileF1 GblDS; //Aktuellen Datensatz in DS einlesen
GblDS = GblDSSav; //gesicherten Datensatz umladen
EndIf;
If KeyVal = *Zeros or Not %Found(MyFile); //Ohne Schlüssel / nicht gefunden
Write MyFileF GblDS; //Schreiben neuen Datensatz
Else;
Update MyFileF GblDS; //eingelesenen Datensatz aktualisieren
EndIf;
On-Error; //Fehler beim Update oder Write
ErrMsg = 'Fehler beim Schreiben des Datensatzes'; //Fehlermeldung angeben
EndMon;
Wx_WrtChgTbl(ErrMsg); //HTML-Dokument erneut anzeigen oder
//Rücksprung auf vorher. CGI-Programm
Return;
Source Code 301267: Aufruf Prozedur Wx_WrtChgTbl() - Beenden Change Programm
Bedingtes Anzeigen von Filter- und Ein-/Ausgabe-Feldern
Für Filter-Felder und Ein-/Ausgabe-Felder in Change Tables können Bedingungen vordefiniert werden, unter denen die Felder angezeigt oder ausgeblendet werden.
Dafür gibt es drei Möglichkeiten:
- Optionale Parameter in den RPGWX-Prozeduren
- Condition Group
- Bedingungen
Optionaler Parameter in RPGWX-Prozeduren
Alle Prozeduren, durch die Filter- oder Ein-/Ausgabe-Felder definiert werden können (z.B. Wx_ChgFldXXXX, Wx_ManChgFldXXXX), haben einen optionalen Parameter, in dem die Bedingung unter der das Feld angezeigt werden soll, hinterlegt werden kann.
Condition Group
Die Condition Group besteht aus 3 Prozeduren:
- Beginn der Bedingung
- Wx_ChgIf() - für Ein-/Ausgabefelder
- Wx_FltIf() - für Filterfelder
- Else-Fall
- Wx_ChgElse() - für Ein-/Ausgabefelder
- Wx_FltElse() - für Filterfelder
- Abschluss der Bedingung
- Wx_ChgEndIf() - für Ein-/Ausgabefelder
- Wx_FltEndIf() - für Filterfelder
Der Aufruf der Else-Prozeduren ist nicht zwingend erforderlich.
Werden diese Else-Prozeduren ohne Parameter/Bedingung aufgerufen, werden alle im Anschluss definierten Filter- oder Ein-/Ausgabe-Felder nur dann angezeigt, wenn die in der If-Anweisung definierten Bedingungen nicht zutreffen.
Bei diesen Else-Prozeduren kann ebenfalls eine Bedingung hinterlegt werden und somit eine ElseIF-Anweisung generiert werden.
- Wx_FltEndIf() für Filter-Felder und Wx_ChgEndIf() für Ein-/Ausgabe-Felder beenden die Condition Group.
Der Aufruf der EndIf-Prozeduren ist zwingend erforderlich, um die Condition-Group zu beenden.
Zu jedem Aufruf einer RPGWX-IF-Funktion muss eine entsprechende RPGWX-EndIf aufgerufen werden.
Stimmt die Anzahl der IF- und ENDIF-Aufrufe nicht überein, tritt zur Laufzeit ein Fehler auf.
Condition Groups können verschachtelt werden, d.h. eine If-Anweisung innerhalb einer If- oder Else-Anweisung ist zulässig. Die Verschachtelung, sowie die Anzahl der IF- und ENDIF-Anweisungen werden zur Laufzeit geprüft.
Die Prozeduren Wx_ChgIf() etc. werden weiter oben beschrieben im Absatz Condition Group
Bedingungen
- Die Bedingungen können wahlweise in RPG, CL oder JavaScript-Schreibweise angegeben werden. Der angegebene Code wird in JavaScript konvertiert und zur Laufzeit ausgeführt.
- Nur Datei-Felder, die bereits in zuvor als Filter-Felder definiert wurden dürfen in den Bedingungen verwendet werden.
- Vergleichsoperatoren, wie =, >, <> etc. (RPG-Schreibweise) können ebenso angegeben werden, wie *EQ, *GT, *NE etc. (CL-Schreibweise) oder ==, >, != (JavaScript-Schreibweise)
- Logische Operatoren wie AND, OR, NOT (RPG) bzw. *AND, *OR, *NOT (CL) bzw. &&, ||, ! (JavaScript) können verwendet werden.
- Klammersetzung ist erlaubt
Beispiele für bedingte Filter-Felder
Wx_FltFld('BestNr': 'FLD0025': 'LikeLeft': 'uppercase');
Wx_FltIf('Firma = 10'); //1. If
Wx_FltFld('LiefBed': 'FLD0029': '=': 'uppercase');
Wx_FltIf('LiefBed *EQ ''AW'''); //2. If
Wx_FltFld('KundeNr': 'KundeNr': '=': 'uppercase');
Wx_FltEndIf(); //2. EndIf
Wx_FltElse('Firma = 15'); //1. ElseIf
Wx_FltFld('AuftrArt': 'FLD0027': '=': 'uppercase');
Wx_FltIf('%Subst(AuftrArt: 1: 1) = ''I'''); //2. If
Wx_FltFld('Status': 'FLD0026': '=': 'ValuesList(''ERF'',''OPN'',''TEL'',''END'')': '');
Wx_FltElse('AuftrArt = ''EX'' *or AuftrArt = ''EA'' //2. ElseIf
Wx_FltFld('LiefTerm': 'LieferTermin');
Wx_FltEndIf(); //2. EndIf
Wx_FltEndIf(); //1. EndIf
Ergebnis Bedingte Filter-Felder für Firma 10
Ergebnis Bedingte Filter-Felder für Firma 15