OBS/System/OBS Anleitung Customize Edit
Zur Navigation springen
Zur Suche springen
Beim Benutzer kann man über F9 Layout mit Level 5 den Schalter Customize aktivieren.
Der Firmenbeauftragte kann dann für den Benutzer Anpassungen für den Benutzer durchführen.Nach der Anpassung muss Customize deaktiviert werden.
Aufruf über STRG-F12 kann
in der Listeim Edit-Dialogin den Auswahlboxenin den Auswertungen (F3 Formulare/Exports)in der Positionserfassung
Mit Rechter Maus Taste und gedrückt CTRL können auch die Weitere Funktionen (in den Listen) bearbeitet werden.
die Benutzeraktivitäten eingeschränkt werden:
Name des Edits ist der KlassennameMakro Gilt Standardmäßig für alle User (XXX) es kann aber auch ein spezifischer Benutzer angegeben werden.
Folgende Aufrufe sind möglich:
Edit Formulare
InitScripter wird nach dem Create des Fensters aufgerufen
Jede Makro Funktion hat 2 Aufrufe
1 Bevor die interne Delphi Funktion aufgerufen wird, gibt es einen Makro-Aufruf mit der Erweiterung Before_. Hat die Funktion den Rückgabewert Ready, so wird die interne Delphi-Funktion nicht mehr aufgerufen. Diese Funktion wird unabhängig von der Delphi Funktion aufgerufen.
2 Standard Aufruf nach der internen Delphi Funktion. Diese wird nur ausgeführt wenn es in Delphi eine On... Funktion bestückt wird.
Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Propertys stehen zu Verfügung
Auslesen von komponenten FrmEdit.xGet('a_vorname');Setzen von Komponenten FrmEdit.xSet('a_vorname',Meier);
InitScripter wird nach dem Create des Fensters aufgerufen
| Edit Kontroll Funktionen | Tastatur Funktionen |
| InitScripter | |
| CheckIfChanged | OnF1 |
| OnESC | OnF2 |
| OnEdInit | OnF3 |
| OnEdFormInit | OnF4 |
| OnEdClose | OnF5 |
| OnEdRead | OnF6 |
| OnEdShow | OnF7 |
| OnEdVorb | OnF8 |
| OnEdCheck | OnF9 |
| OnEdSave | OnF10 |
| OnEdSaveDirect | OnPGDN |
| OnEdReadDirect | OnPGUP |
| OnRETURN |
Jede Makro Funktion hat 2 Aufrufe
1 Bevor die interne Delphi Funktion aufgerufen wird, gibt es einen Makro-Aufruf mit der Erweiterung Before_. Hat die Funktion den Rückgabewert Ready, so wird die interne Delphi-Funktion nicht mehr aufgerufen. Diese Funktion wird unabhängig von der Delphi Funktion aufgerufen.
2 Standard Aufruf nach der internen Delphi Funktion. Diese wird nur ausgeführt wenn es in Delphi eine On... Funktion bestückt wird.
Globale Variable FrmEdit
Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Propertys stehen zu Verfügung
| Property | Erläuterung |
| 'lCheckOK' | Kann bei der Überprüfung von F2 benutzt werden ob die Eingabewerte korrekt eingegeben wurden sind.Bei False wird nicht abgespeichert. |
| 'lEditMode' | True = InsertmodusFalse = Editmodus |
| 'lDataUpdate' | True = Daten des Edits wurden verändert |
| 'lDataChecked' | False=Daten werden auf gültigkeit überprüft (lCheckok) |
| 'lCloseInsert' | Edit-Fenster wird (lEditMode = True) nach F2 geschlossen |
| 'lCloseEdit' | Edit-Fenster wird (lEditMode = False) nach F2 geschlossen |
| 'lDataESC' | Soll bei einer Änderung im Edit eine Abfrage beim Verlassen der Maske erscheinen |
| 'lCanLock' | Ob bei der Eingabe nur eine Person den Datensat editieren darf |
| 'lInsert' | Edit Felder im Insert/Überschreibemodus (zur zeit keine Funktion) |
Auslesen von komponenten FrmEdit.xGet('a_vorname');Setzen von Komponenten FrmEdit.xSet('a_vorname',Meier);
Mögliche Zugriffe auf Komponenten und Werte des Edits
procedure InitScripter(ofrm:Tobject);
var oSte : TEdit;
begin
oSte := FrmEdit.FindComponent('stred_db_a_vzusatz');
Meldung(FrmEdit.stred_db_a_vzusatz.Text);
end;
function OnEdCheck():string;
var oSte : TEdit;
cEdit : String;
cVorname : String;
begin
if (FrmEdit.lEditMode) then begin
Meldung('Edit Mode True');
end else begin
Meldung('Edit Mode False');
end;
Meldung(FrmEdit.stred_db_a_name.Text);
oSte := FrmEdit.FindComponent('stred_db_a_name');
Meldung(oSte.Text);
cVorname:= FrmEdit.xGet('a_vorname');
Meldung(cVorname);
if (Empty(cVorname)) then begin
FrmEdit.lCheckOk := False;
Meldung('Bitte Vorname eingtragen');
end;
end;
Wenn möglich immer mit xGet und xSet auf Komponenten Werte zugreifen.
Listen Formulare
folgende Funktionen stehen zur Verfügung:
InitScripterOnListNewOnResizeOnRefresh
Before_Close
Before_OnF1Before_OnF2Before_OnF3Before_OnF4Before_OnF5Before_OnF6Before_OnF7Before_OnF8Before_OnF9Before_OnF10Before_OnReturnBefore_OnInsertBefore_OnDeleteBefore_OnESC
OnF1OnF2OnF3OnF4OnF5OnF6OnF7OnF8OnF9OnF10OnReturnOnInsertOnDeleteOnESC
Beispiel:
folgende Funktionen stehen zur Verfügung:
InitScripterOnListNewOnResizeOnRefresh
Before_Close
Before_OnF1Before_OnF2Before_OnF3Before_OnF4Before_OnF5Before_OnF6Before_OnF7Before_OnF8Before_OnF9Before_OnF10Before_OnReturnBefore_OnInsertBefore_OnDeleteBefore_OnESC
OnF1OnF2OnF3OnF4OnF5OnF6OnF7OnF8OnF9OnF10OnReturnOnInsertOnDeleteOnESC
Beispiel:
var oListe : TxFrmListe;
procedure InitScripter(oFrm:Tobject);
var cTable : String;
begin
oListe := oFrm;
cTable := oListe.Name;
Meldung(cTable);
Meldung(oListe.Query.sql.text);
Meldung(oListe.Query.A2C('sys_uid'));
Meldung(oListe.cTable);
end;
wird bei den Before Funktionen "READY" zurückgegeben, so werden die internen Funktionen nicht mehr ausgeführt.Damit kann der natürliche Ablauf des Programmes veränder werden.Dies kann schwere Prgrammfehler verursachen!
wird bei den Before Funktionen "READY" zurückgegeben, so werden die internen Funktionen nicht mehr ausgeführt.Damit kann der natürliche Ablauf des Programmes veränder werden.Dies kann schwere Prgrammfehler verursachen!