OBS Wiki - Benutzerbeiträge [de]

OBS/Branchenspezifische Module/Lebensmittelproduktion

2020-09-16T08:06:58Z

Heibutzki: Die Seite wurde neu angelegt: „{{Branchenspezifische Module}} ===Neuen Kunden pflegen=== # Personenstamm - Einfügen # Zusatzdaten pflegen (Anlieferzeit) ===Neue normale Artikel einfügen…“

{{Branchenspezifische Module}}

===Neuen Kunden pflegen===
# Personenstamm - Einfügen
# Zusatzdaten pflegen (Anlieferzeit)

===Neue normale Artikel einfügen===
# Artikelstamm - Einfügen
# Zusatzdaten pflegen (MHD, MHD-Rest-Vorgabe bei Auslieferung)
# Artikel als personenbezogenen Artikel bei den gewünschten Kunden hinterlegen

===Neue Spedition definieren===
# Stammdaten - Weitere Stammdaten - Absatzspediteure - Einfügen

===Neue Speditionslagerartikel definieren===
# Stammdaten - Weitere Stammdaten - Absatzspediteure - F6
# Einfügen: Artikel auswählen
# Kundennamen eingeben, Zusatzeinstellungen vornehmen

OBS/Branchenspezifische Module

2020-09-16T08:02:00Z

Heibutzki: /* Module */

{{Branchenspezifische Module}}
Auf dieser Seite finden Sie die Dokumentation diverser Funktionen, die speziell für bestimmte Kunden oder Branchen entwickelt wurden. Wenn Sie Interesse an einer dieser Funktionalitäten haben, wenden Sie sich an den OBS-Support.
==Module==
[[OBS/Branchenspezifische Module/Messeverwaltung]]<br/>
[[OBS/Branchenspezifische Module/Segel Modul/Segel Stammdaten]]<br/>
[[OBS/Branchenspezifische Module/Lebensmittelproduktion|Lebensmittelproduktion]]<br/>

OBS/Branchenspezifische Module

2020-09-16T08:01:44Z

Heibutzki:

{{Branchenspezifische Module}}
Auf dieser Seite finden Sie die Dokumentation diverser Funktionen, die speziell für bestimmte Kunden oder Branchen entwickelt wurden. Wenn Sie Interesse an einer dieser Funktionalitäten haben, wenden Sie sich an den OBS-Support.
==Module==
[[OBS/Branchenspezifische Module/Messeverwaltung]]<br/>
[[OBS/Branchenspezifische Module/Segel Modul/Segel Stammdaten]]
[[OBS/Branchenspezifische Module/Lebensmittelproduktion|Lebensmittelproduktion]]

Datei:Projectmagi.jpg

2020-09-04T07:43:06Z

Heibutzki:

OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms

2020-07-24T09:55:14Z

Heibutzki:

{{Makros und Scripting}}
==Allgemeine Funktionen==

<syntaxhighlight lang="Delphi">
OnXCreate
OnXVisible
OnXClose
</syntaxhighlight>

Die Form wird als '''Frm''' übergeben.

==Spezielle Zusatzaufrufe==
===Beispiel: Rechnung per Mail/Fax===

Zusatzfunktionen:

<syntaxhighlight lang="Delphi">
OnEdInit
OnEdSave
</syntaxhighlight>

Beispiel:
<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(Frm.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(Frm.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(Frm.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms

2020-07-24T09:55:06Z

Heibutzki:

{{Makros und Scripting}}

==Allgemeine Funktionen==

<syntaxhighlight lang="Delphi">
OnXCreate
OnXVisible
OnXClose
</syntaxhighlight>

Die Form wird als '''Frm''' übergeben.

==Spezielle Zusatzaufrufe==
===Beispiel: Rechnung per Mail/Fax===

Zusatzfunktionen:

<syntaxhighlight lang="Delphi">
OnEdInit
OnEdSave
</syntaxhighlight>

Beispiel:
<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(Frm.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(Frm.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(Frm.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms

2020-07-24T09:19:19Z

Heibutzki: /* Beispiel: Rechnung per Mail/Fax */

==Allgemeine Funktionen==

<syntaxhighlight lang="Delphi">
OnXCreate
OnXVisible
OnXClose
</syntaxhighlight>

Die Form wird als '''Frm''' übergeben.

==Spezielle Zusatzaufrufe==
===Beispiel: Rechnung per Mail/Fax===

Zusatzfunktionen:

<syntaxhighlight lang="Delphi">
OnEdInit
OnEdSave
</syntaxhighlight>

Beispiel:
<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(Frm.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(Frm.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(Frm.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms

2020-07-24T09:18:07Z

Heibutzki: /* Beispiel: Rechnung per Mail/Fax */

==Allgemeine Funktionen==

<syntaxhighlight lang="Delphi">
OnXCreate
OnXVisible
OnXClose
</syntaxhighlight>

Die Form wird als '''Frm''' übergeben.

==Spezielle Zusatzaufrufe==
===Beispiel: Rechnung per Mail/Fax===

Zusatzfunktionen:

<syntaxhighlight lang="Delphi">
OnEdInit
OnEdSave
</syntaxhighlight>

Beispiel:
<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(FrmEdit.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(FrmEdit.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(FrmEdit.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms

2020-07-24T09:17:40Z

Heibutzki: Die Seite wurde neu angelegt: „==Allgemeine Funktionen== <syntaxhighlight lang="Delphi"> OnXCreate OnXVisible OnXClose </syntaxhighlight> Die Form wird als '''Frm''' übergeben. ==Speziel…“

==Allgemeine Funktionen==

<syntaxhighlight lang="Delphi">
OnXCreate
OnXVisible
OnXClose
</syntaxhighlight>

Die Form wird als '''Frm''' übergeben.

==Spezielle Zusatzaufrufe==
===Beispiel: Rechnung per Mail/Fax===

<syntaxhighlight lang="Delphi">
OnEdInit
OnEdSave
</syntaxhighlight>
<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(FrmEdit.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(FrmEdit.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(FrmEdit.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

Vorlage:Makros und Scripting

2020-07-24T09:14:45Z

Heibutzki:

<div style="float:right; clear:both; margin-left:2px; padding:0px; background:#FFFFFF; width:19em">
<div style="border:none;margin-top:0pt;padding:0pt;" id="navigation">
<div style="position:relative;top:-20pt;color:#000000;background:#ffffff; border: 3pt double #cfcfcf; padding: 5pt; margin: 0pt;margin-bottom:-20pt; z-index:1;border-top-right-radius:7pt;-moz-border-radius-topright:7pt;-webkit-border-top-right-radius:7pt;border-bottom-left-radius:7pt;-moz-border-radius-bottomleft:7pt;-webkit-border-bottom-left-radius:7pt;box-shadow: 3px 3px 4px #c0c0c0;-webkit-box-shadow: 3px 3px 4px #c0c0c0;-moz-box-shadow: 3px 3px 4px #c0c0c0;">[[Hauptseite|Wiki]] » [[OBS/Makros und Scripting|Makros und Scripting]]</div>
</div>
{{Vorlage:Textbox-Blau|1=Makros und Scripting|2=
<small>
{{Vorlage:Klapptext|kopf=[[OBS/Makros_und_Scripting#Allgemeines|'''Allgemeines''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Syntax|Syntax]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Funktionen|Übersicht Funktionen]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Prozeduren|Übersicht Prozeduren]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Konstanten|Übersicht Konstanten]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Globale Variablen|Übersicht Globale Variablen]]
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen|'''Klassen''']]|inhalt=
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge|'''Vorgangsgenerierung''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Angebot|Angebot]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Auftrag|Auftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Reparaturauftrag|Reparaturauftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Produktionsauftrag|Produktionsauftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Lieferschein|Lieferschein]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Rechnung|Rechnung]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Bestellung|Bestellung]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Einkaufslieferschein|Einkaufslieferschein]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Einkauf|Einkauf]]
}}
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei|'''Import-Dateien''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei/TxImportFile|TxImportFile]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei/TxImportFileCSV|TxImportFileCSV]]
}}
}}
* [[OBS/Makros und Scripting/Allgemeines/Script Library|Script Bibliothek]]
}}
{{Vorlage:Klapptext|kopf=[[OBS/Makros_und_Scripting#Anwendungsbereiche|'''Anwendungsbereiche''']]|inhalt=
* [[OBS/Makros und Scripting/Anwendungsbereiche/Drucke|Drucke]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Makrodateien|Sonstige Makrodateien]]
{{Vorlage:Klapptext|kopf=Customizing|inhalt=
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize|Übersicht]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen|Listen]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits|Edits]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen|Select-Listen]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms|Übrige Fenster (xForm)]]
}}
* [[OBS/Makros und Scripting/Anwendungsbereiche/Preislisten|Preislisten]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Bildverwaltung|Bildverwaltung]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Artikelpflege|Artikelpflege]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Positionserfassung|Positionserfassung]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/DataInOut|Data In/Out]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Wiederkehrende Aufgaben|Wiederkehrende Aufgaben]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/OFML-Kalkulation|OFML-Kalkulation]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Zugriff auf externe Datenquellen|Zugriff auf externe Datenquellen (ODBC)]]
}}
[[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|Benutzerdefinierte Datenbanktabellen]]
</small>
}}
</div>
<noinclude>
----
</noinclude>
<noinclude>
Folgender Code muss in die jeweils gewünschte Seite hinzugefügt werden:
<nowiki>{{Makros und Scripting}}</nowiki>
[[Kategorie:Templates/Navigationen]]
</noinclude>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits

2020-07-23T07:45:15Z

Heibutzki: /* Beispielscript */

{{Makros und Scripting}}

==Methoden der Eingabemaske==
Für die Customize-Scripte stehen Ihnen diverse Funktionalitäten zur Verfügung. Nachfolgend eine Liste aller Customize-Funktionen der Maske:
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnEdFormInit || OnF1
|-
|OnEdInit || OnF2
|-
|OnEdVorb || OnF3
|-
|OnEdShow || OnF4
|-
|OnEdStable || OnF5
|-
|OnEdReadDirect || OnF6
|-
|OnEdRead || OnF7
|-
|OnEdStable || OnF8
|-
|OnEdCheck || OnF9
|-
|OnEdqSQL || OnF10
|-
|OnEdSaveDirect || OnF11
|-
|OnEdSave || OnF12
|-
|CheckIfChanged || OnPGDN
|-
|OnEdClose || OnPGUP
|-
| || OnReturn
|-
| || OnESC
|}
Die hier aufgeführten '''internen Funktionen''' sind in der Reihenfolge aufgelistet, wie sie vom OBS beim Öffnen (OnEdFormInit bis OnEdStable) und Schließen (OnEdCheck bis OnEdClose) von Eingabemasken auch abgearbeitet werden.
{{Hinweis|Bei der Verwendung der Funktionen in Customize-Scripten ist die Reihenfolge der Abarbeitung der Masken-Funktion und der Customize-Funktion von Bedeutung. Grundsätzlich gilt: Interne Funktionen werden vor dem Customize ausgeführt und Tastatur-Funktionen nach der Customize-Funktion. Um ein Customize vor der internen Funktion auszuführen, muss dem Funktionsnamen der Präfix '''Before_''' gegeben werden. Für Tastatur-Funktionen gilt dies nur für '''OnESC'''.}}
==Zugriff auf Komponenten==
Um auf Komponenten der Maske zuzugreifen, sollten Sie die Funktionen '''xGet''' (Daten lesen) und '''xSet''' (Daten schreiben) verwenden.
<syntaxhighlight lang="Delphi">
//Auslesen einer Komponente
cName := FrmEdit.xGet('a_name');
//Setzen einer Komponente
FrmEdit.xSet('a_name',"Meier");
</syntaxhighlight>

==Globale Variablen der Eingabemaske==
Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Property's stehen zu Verfügung:
{| class="wikitable"
|-
!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 = Insertmodus False = 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)
|}
==Beispiele Eingabemaske==
===Button F12 anzeigen und mit Funktionalität versehen===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>

===Aufruf von weiteren Macros innerhalb des Macros===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
var oParams: TStringlist; //Parameter für Aufruf
begin
//Aufruf ohne Parameter
RunMacroFile('data\MACRO\Spezial\Test123.pmac');

//Aufruf mit Parameter
oParams := TStringlist.Create;
oParams.Add('TEST456');
RunMacroFile('data\MACRO\Spezial\Test123.pmac', frmEdit, oParams);
MyFreeAndNil(oParams);
end;
</syntaxhighlight>

===Eingaben prüfen===
<syntaxhighlight lang="Delphi">
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;
</syntaxhighlight>

===Positionen in Vorgängen blockieren===
Mit dem folgendem Beispiel kann entschieden werden ob Positionen eines Vorgangs geöffnet werden sollen.

Name: AN_VORGANG_EDIT Function OpenClose
{{Hinweis| Der Prefix "AN" steht für den DMS-Typ Angebot. Eine Übersicht aller DMS-Typen finden Sie [[OBS/Makros und Scripting/Developer/Sonstiges/DMS Abkürzungen|hier]].}}

<syntaxhighlight lang="Delphi">
function OpenClose(cVgNr:String; lInsertMode:Boolean):Boolean;
begin
//DebugLine('cVgNr'+cVgNr);

//02 = Möbel
Result := oOBS.cBenutzergruppe <> '02';

if (Result) then begin
//Wenn Positionen vorhanden dann kein Positions-Edit
if (DB_LSeek(oDB,'ANGPOS','az_nr='+DB_SqlVal(cVGNr))) then begin
Result := False;
end;
end;

if (Result) then begin

//DebugLine(iif(lInsertMode,'True','False'));

//Bei nicht Insert immer False
if (lInsertMode = False) then begin
Result := False;
end;
end;

end;
</syntaxhighlight>

==User-Reiter==
In OBS ab Version 003191 können Edit-Masken per Customizing-Script um eigene Reiter erweitert werden. Diese darin verwalteten Felder können mit [[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|eigenen Datenbankfeldern]] definiert werden.

[[Datei:Usertab.jpg]]

===Beispiel-Userdatenbank===
<syntaxhighlight lang="Delphi">
#DBNAME TODO

#FELDNAME USER_BEMERK , C , 8 , 0 , "CCCCCCCC"
#FELDNAME USER_WGR , C , 3 , 0 , "*"
#FELDNAME USER_TOGGLE , C , 1 , 0 , "C"
#FELDNAME USER_BETRAG , N , 11 , 0 , "NNNNNNNN.NNNN"
#FELDNAME USER_DATUM , D , 4 , 0 , "TT.MM.JJ"
#FELDNAME USER_LANGTEXT , M , 2000 , 0 , "*"
</syntaxhighlight>
===Beispielscript===
<syntaxhighlight lang="Delphi">
//------------------------------------------------------------------------------------
// Reiter Demo
//------------------------------------------------------------------------------------

type dummy = class
class procedure CBLMail_Enter(Sender: TObject);
class procedure OnAngebotsNrChange(Sender: TObject);
end;

var oCBL : TCombiListe;

//------------------------------------------------------------------------------------

function OnEdInit(): String;
var oTab : TTabSheet;
oStr : TStringEdit;
oMed : TMaskEdit;
oLbl : TLabel;
oNEd : TNumericEdit;
oDVE : TDateValEdit;
oChB : TxCheckBox;
oTRE : TTextRichEdit;
oCBLAng : TCombiListe;
begin
oTab := frmEdit.AddUserTab(); // Erstellt neuen User-Tab auf dem Edit
if assigned(oTab) then begin

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Fahrstuhl vorhanden:';
oLbl.Top := 10;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oChB := TxCheckbox.Create(frmEdit);
oChB.Name := 'cb_db_user_a_fahrstuhl';
oChB.Caption := 'ja';
oChB.TOP := 10;
oChB.Left := 150;
oChB.Parent := oTab;

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Geschoss:';
oLbl.Top := 40;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oStr := TStringEdit.Create(frmEdit);
oStr.Name := 'stred_db_user_a_geschoss';
oStr.Top := 40;
oStr.Left := 150;
oStr.Width := 20;
oStr.Parent := oTab;

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'geplante Fahrzeit:';
oLbl.Top := 70;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oMed := TMaskEdit.Create(frmEdit);
oMed.Name := 'stred_db_user_a_fahrzeit';
oMed.Caption := 'Std.';
oMed.Top := 70;
oMed.Left := 150;
oMed.Width := 40;
oMed.EditMask:= '00:00';
oMed.Text := '00:00';
oMed.Parent := oTab;

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'geplante Montagezeit:';
oLbl.Top := 100;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oMed := TMaskEdit.Create(frmEdit);
oMed.Name := 'stred_db_user_a_montagezeit';
oMed.Caption := 'Std.';
oMed.Top := 100;
oMed.Left := 150;
oMed.Width := 40;
oMed.EditMask:= '00:00';
oMed.Text := '00:00';
oMed.Parent := oTab;

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Anzahl Monteure:';
oLbl.Top := 130;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oStr := TStringEdit.Create(frmEdit);
oStr.Name := 'stred_db_user_a_anzahl_monteure';
oStr.Top := 130;
oStr.Left := 150;
oStr.Width := 20;
oStr.Parent := oTab;

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Wiedervorlage:';
oLbl.Top := 160;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oChB := TxCheckbox.Create(frmEdit);
oChB.Name := 'cb_db_user_a_wiedervorlage';
oChB.Caption := 'ja';
oChB.TOP := 160;
oChB.Left := 150;
oChB.Parent := oTab;

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'EMail für AB:';
oLbl.Top := 190;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oCBL := FrmEdit.AddCombiliste();
oCBL.Name := 'cbl_db_user_a_email';
oCBL.Top := 190;
oCBL.Left := 130;
oCBL.Width := 200;
oCBL.Parent := oTab;
oCBL.TextModus := true;
InitCBLMail();
oCBL.OnEnter := dummy.CBLMail_Enter;

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Sonstige Bemerkungen:';
oLbl.Top := 220;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oTRE := TTextRichEdit.Create(frmEdit);
oTRE.Name := 'riced_db_user_a_memo';
oTRE.Top := 240;
oTRE.Left := 10;
oTRE.Height := 200;
oTRE.Width := 600;
oTRE.RulerH := false;
oTRE.Parent := oTab;

oCBLAng := TCombiListe(FrmEdit.Findcomponent('cbl_db_a_angnr'));
if (assigned(oCBLAng)) then begin
oCBLAng.OnExit := dummy.OnAngebotsNrChange;
end;

//------------------------------------------------------------------

end;
end;

//------------------------------------------------------------------------------------

procedure InitCBLMail();
begin
oCBL.GetSuLi.Tablename := 'ANSP';
oCBL.GetSuLi.CompareField := 'AP_EMAIL';
oCBL.GetSuLi.Caption := ML('EMail-Adresse');
oCBL.GetSuli.SQLOrder := 'ap_name';
oCBL.GetSuli.SQLWhere := 'ap_email>"" and ap_pnr='+DB_SQLVal(FrmEdit.xGet('a_knr'));
//oCBL.GetSuli.SQLWhere := 'ap_email>"" and ap_pnr='+DB_SQLVal('1200005');
oCBL.GetSuli.Width := 600;
oCBL.GetSuli.Height := 300;
oCBL.GetSuli.InitColumn('Vorname', 'ap_vorname', 15,nil,'',System.Classes.Talignment.taLeftJustify);
oCBL.GetSuli.AddColumn ('Name', 'ap_name', 20,nil,'',System.Classes.Talignment.taLeftJustify);
oCBL.GetSuli.AddColumn ('EMail', 'ap_email', 40,nil,'',System.Classes.Talignment.taLeftJustify);
end;

//------------------------------------------------------------------------------------

class procedure dummy.CBLMail_Enter(Sender: TObject);
begin
InitCBLMail();
end;

//------------------------------------------------------------------------------------

class procedure dummy.OnAngebotsNrChange(Sender: TObject);
var cAngebot : String;
cBuffer : String;
cWhere : String;
begin
cAngebot := FrmEdit.xGet('a_angnr');
cWhere := 'a_nr='+DB_SQLVal(cAngebot);
cBuffer := DB_ReadSQLValue(oDB,'auftrag','a_angnr',cWhere);

Debugline (cBuffer);
if (cAngebot <> cBuffer) and FrmEdit.lEditMode then begin
cBuffer := DB_ReadSQLValue(oDB,'angebot','user_a_fahrstuhl',cWhere);
FrmEdit.xSet('user_a_fahrstuhl',cBuffer);

cBuffer := DB_ReadSQLValue(oDB,'angebot','user_a_geschoss',cWhere);
FrmEdit.xSet('user_a_geschoss',cBuffer);

cBuffer := DB_ReadSQLValue(oDB,'angebot','user_a_fahrzeit',cWhere);
FrmEdit.xSet('user_a_fahrzeit',cBuffer);

cBuffer := DB_ReadSQLValue(oDB,'angebot','user_a_montagezeit',cWhere);
FrmEdit.xSet('user_a_montagezeit',cBuffer);

cBuffer := DB_ReadSQLValue(oDB,'angebot','user_a_anzahl_monteure',cWhere);
FrmEdit.xSet('user_a_anzahl_monteure',cBuffer);

cBuffer := DB_ReadSQLValue(oDB,'angebot','user_a_email',cWhere);
FrmEdit.xSet('user_a_email',cBuffer);

cBuffer := DB_ReadSQLValue(oDB,'angebot','user_a_wiedervorlage',cWhere);
FrmEdit.xSet('user_a_wiedervorlage',cBuffer);

cBuffer := DB_ReadSQLValue(oDB,'angebot','user_a_memo',cWhere);
FrmEdit.xSet('user_a_memo',cBuffer);

end;
end;

//----------------------------------------------------------------

{function OnEdRead():String
begin
if (FrmEdit.xGet('user_a_wiedervorlage')='1') then begin
Meldung(frmEdit.xGet('user_a_memo'));
end;
end;}
//----------------------------------------------------------------

</syntaxhighlight>

==Beispiel: Rechnung per Mail/Fax==

<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(FrmEdit.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(FrmEdit.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(FrmEdit.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

==Besonderheiten==
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits

2020-07-22T14:18:05Z

Heibutzki:

{{Makros und Scripting}}

==Methoden der Eingabemaske==
Für die Customize-Scripte stehen Ihnen diverse Funktionalitäten zur Verfügung. Nachfolgend eine Liste aller Customize-Funktionen der Maske:
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnEdFormInit || OnF1
|-
|OnEdInit || OnF2
|-
|OnEdVorb || OnF3
|-
|OnEdShow || OnF4
|-
|OnEdStable || OnF5
|-
|OnEdReadDirect || OnF6
|-
|OnEdRead || OnF7
|-
|OnEdStable || OnF8
|-
|OnEdCheck || OnF9
|-
|OnEdqSQL || OnF10
|-
|OnEdSaveDirect || OnF11
|-
|OnEdSave || OnF12
|-
|CheckIfChanged || OnPGDN
|-
|OnEdClose || OnPGUP
|-
| || OnReturn
|-
| || OnESC
|}
Die hier aufgeführten '''internen Funktionen''' sind in der Reihenfolge aufgelistet, wie sie vom OBS beim Öffnen (OnEdFormInit bis OnEdStable) und Schließen (OnEdCheck bis OnEdClose) von Eingabemasken auch abgearbeitet werden.
{{Hinweis|Bei der Verwendung der Funktionen in Customize-Scripten ist die Reihenfolge der Abarbeitung der Masken-Funktion und der Customize-Funktion von Bedeutung. Grundsätzlich gilt: Interne Funktionen werden vor dem Customize ausgeführt und Tastatur-Funktionen nach der Customize-Funktion. Um ein Customize vor der internen Funktion auszuführen, muss dem Funktionsnamen der Präfix '''Before_''' gegeben werden. Für Tastatur-Funktionen gilt dies nur für '''OnESC'''.}}
==Zugriff auf Komponenten==
Um auf Komponenten der Maske zuzugreifen, sollten Sie die Funktionen '''xGet''' (Daten lesen) und '''xSet''' (Daten schreiben) verwenden.
<syntaxhighlight lang="Delphi">
//Auslesen einer Komponente
cName := FrmEdit.xGet('a_name');
//Setzen einer Komponente
FrmEdit.xSet('a_name',"Meier");
</syntaxhighlight>

==Globale Variablen der Eingabemaske==
Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Property's stehen zu Verfügung:
{| class="wikitable"
|-
!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 = Insertmodus False = 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)
|}
==Beispiele Eingabemaske==
===Button F12 anzeigen und mit Funktionalität versehen===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>

===Aufruf von weiteren Macros innerhalb des Macros===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
var oParams: TStringlist; //Parameter für Aufruf
begin
//Aufruf ohne Parameter
RunMacroFile('data\MACRO\Spezial\Test123.pmac');

//Aufruf mit Parameter
oParams := TStringlist.Create;
oParams.Add('TEST456');
RunMacroFile('data\MACRO\Spezial\Test123.pmac', frmEdit, oParams);
MyFreeAndNil(oParams);
end;
</syntaxhighlight>

===Eingaben prüfen===
<syntaxhighlight lang="Delphi">
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;
</syntaxhighlight>

===Positionen in Vorgängen blockieren===
Mit dem folgendem Beispiel kann entschieden werden ob Positionen eines Vorgangs geöffnet werden sollen.

Name: AN_VORGANG_EDIT Function OpenClose
{{Hinweis| Der Prefix "AN" steht für den DMS-Typ Angebot. Eine Übersicht aller DMS-Typen finden Sie [[OBS/Makros und Scripting/Developer/Sonstiges/DMS Abkürzungen|hier]].}}

<syntaxhighlight lang="Delphi">
function OpenClose(cVgNr:String; lInsertMode:Boolean):Boolean;
begin
//DebugLine('cVgNr'+cVgNr);

//02 = Möbel
Result := oOBS.cBenutzergruppe <> '02';

if (Result) then begin
//Wenn Positionen vorhanden dann kein Positions-Edit
if (DB_LSeek(oDB,'ANGPOS','az_nr='+DB_SqlVal(cVGNr))) then begin
Result := False;
end;
end;

if (Result) then begin

//DebugLine(iif(lInsertMode,'True','False'));

//Bei nicht Insert immer False
if (lInsertMode = False) then begin
Result := False;
end;
end;

end;
</syntaxhighlight>

==User-Reiter==
In OBS ab Version 003191 können Edit-Masken per Customizing-Script um eigene Reiter erweitert werden. Diese darin verwalteten Felder können mit [[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|eigenen Datenbankfeldern]] definiert werden.

[[Datei:Usertab.jpg]]

===Beispiel-Userdatenbank===
<syntaxhighlight lang="Delphi">
#DBNAME TODO

#FELDNAME USER_BEMERK , C , 8 , 0 , "CCCCCCCC"
#FELDNAME USER_WGR , C , 3 , 0 , "*"
#FELDNAME USER_TOGGLE , C , 1 , 0 , "C"
#FELDNAME USER_BETRAG , N , 11 , 0 , "NNNNNNNN.NNNN"
#FELDNAME USER_DATUM , D , 4 , 0 , "TT.MM.JJ"
#FELDNAME USER_LANGTEXT , M , 2000 , 0 , "*"
</syntaxhighlight>
===Beispielscript===
<syntaxhighlight lang="Delphi">
function OnEdInit(): String;
var oTab : TTabSheet;
oStr : TStringEdit;
oLbl : TLabel;
oNEd : TNumericEdit;
oDVE : TDateValEdit;
oChB : TxCheckBox;
oCBL : TCombiListe;
oTRE : TTextRichEdit;
begin
oTab := frmEdit.AddUserTab(); // Erstellt neuen User-Tab auf dem Edit
if assigned(oTab) then begin

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Textzeile:';
oLbl.Top := 10;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oStr := TStringEdit.Create(frmEdit);
oStr.Name := 'stred_db_user_bemerk'; // Damit automatisches Speichern/Laden von Datenbankfeldern funktioniert, muss im Komponentennamen '_db_' und der Feldname stehen.
oStr.Top := 10;
oStr.Left := 130;
oStr.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Summe:';
oLbl.Top := 40;
oLbl.Left := 10;
oLbl.Parent := oTab;

oNEd := TNumericEdit.Create(frmEdit);
oNEd.Name := 'numed_db_user_betrag';
oNEd.Top := 40;
oNEd.Left := 130;
oNEd.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Datum:';
oLbl.Top := 70;
oLbl.Left := 10;
oLbl.Parent := oTab;

oDVE := TDateValEdit.Create(frmEdit);
oDVE.Name := 'datev_db_user_datum';
oDVE.Top := 70;
oDVE.Left := 130;
oDVE.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Schalter:';
oLbl.Top := 100;
oLbl.Left := 10;
oLbl.Parent := oTab;

oChB := TxCheckBox.Create(frmEdit);
oChB.Name := 'cb_db_user_toggle';
oChB.Caption := 'Schalter';
oChB.Top := 100;
oChB.Left := 130;
oChB.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Suchliste:';
oLbl.Top := 130;
oLbl.Left := 10;
oLbl.Parent := oTab;

oCBL := FrmEdit.AddCombiliste();
oCBL.Name := 'cbl_db_user_wgr';
oCBL.Top := 130;
oCBL.Left := 130;
oCBL.Parent := oTab;

oCBL.GetSuli.Tablename := 'WARENGR'; // Verknüpfte Tabelle
oCBL.GetSuli.CompareField := 'wg_nr'; // Feld mit eindeutiger ID zur Zuordnung
oCBL.GetSuli.ShowField := 'wg_name'; // Feld, das als Bezeichnung in der Kombiliste angezeigt wird
oCBL.GetSuli.Caption := ML('Warengruppe'); // Fenstertitel der Suchliste, die sich beim Klick auf # öffnet
oCBL.GetSuli.SQLOrder := 'wg_nr'; // Feld, nach dem die Suchliste sortiert werden soll
oCBL.GetSuli.SQlWhere := ''; // Filter für Daten in der Suchliste, z. bsp. 'az_nr like "5%"'

oCBL.GetSuli.Width := 500; // Weite des Suchlistenfensters
oCBL.GetSuli.Height := 400; // Höhe des Suchlistenfensters

oCBL.GetSuli.InitColumn('Nr', 'wg_nr', 30, nil, '', System.Classes.TAlignment.taLeftJustify);
oCBL.GetSuli.AddColumn('Name', 'wg_name', 30, nil, '', System.Classes.TAlignment.taLeftJustify);

// Die erste Spalte der Suchliste muss mit InitColumn erstellt werden, alle weiteren mit AddColumn.
// Parameter:

// Anzeigename : String,
// Feldname : String,
// relative_Breite : Integer,
// Anzeigefunktion : Function of String, vorerst immer nil,
// Anzeigenmaskierung : String = '', Beispiel: '##9,99': Es werden immer eine Vorkommastelle und immer zwei Nachkommastellen angezeigt, und optional zwei zusätzliche Vorkommastellen, wenn vorhanden.
// Ausrichtung : System.Classes.TAlignment.[taLeftJustify, taRightJustify, taCenter]

//------------------------------------------------------------------

oTRE := TTextRichEdit.Create(frmEdit);
oTRE.Name := 'riced_db_user_langtext';
oTRE.Top := 170;
oTRE.Left := 10;
oTRE.Height := 300;
oTRE.Width := 400;
oTRE.RulerH := false;
oTRE.Parent := oTab;

//------------------------------------------------------------------

end;
end;
</syntaxhighlight>
==Beispiel: Rechnung per Mail/Fax==

<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(FrmEdit.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(FrmEdit.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(FrmEdit.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

==Besonderheiten==
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits

2020-07-22T14:17:41Z

Heibutzki:

{{Makros und Scripting}}

==Methoden der Eingabemaske==
Für die Customize-Scripte stehen Ihnen diverse Funktionalitäten zur Verfügung. Nachfolgend eine Liste aller Customize-Funktionen der Maske:
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnEdFormInit || OnF1
|-
|OnEdInit || OnF2
|-
|OnEdVorb || OnF3
|-
|OnEdShow || OnF4
|-
|OnEdStable || OnF5
|-
|OnEdReadDirect || OnF6
|-
|OnEdRead || OnF7
|-
|OnEdStable || OnF8
|-
|OnEdCheck || OnF9
|-
|OnEdqSQL || OnF10
|-
|OnEdSaveDirect || OnF11
|-
|OnEdSave || OnF12
|-
|CheckIfChanged || OnPGDN
|-
|OnEdClose || OnPGUP
|-
| || OnReturn
|-
| || OnESC
|}
Die hier aufgeführten '''internen Funktionen''' sind in der Reihenfolge aufgelistet, wie sie vom OBS beim Öffnen (OnEdFormInit bis OnEdStable) und Schließen (OnEdCheck bis OnEdClose) von Eingabemasken auch abgearbeitet werden.
{{Hinweis|Bei der Verwendung der Funktionen in Customize-Scripten ist die Reihenfolge der Abarbeitung der Masken-Funktion und der Customize-Funktion von Bedeutung. Grundsätzlich gilt: Interne Funktionen werden vor dem Customize ausgeführt und Tastatur-Funktionen nach der Customize-Funktion. Um ein Customize vor der internen Funktion auszuführen, muss dem Funktionsnamen der Präfix '''Before_''' gegeben werden. Für Tastatur-Funktionen gilt dies nur für '''OnESC'''.}}
==Zugriff auf Komponenten==
Um auf Komponenten der Maske zuzugreifen, sollten Sie die Funktionen '''xGet''' (Daten lesen) und '''xSet''' (Daten schreiben) verwenden.
<syntaxhighlight lang="Delphi">
//Auslesen einer Komponente
cName := FrmEdit.xGet('a_name');
//Setzen einer Komponente
FrmEdit.xSet('a_name',"Meier");
</syntaxhighlight>

==Globale Variablen der Eingabemaske==
Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Property's stehen zu Verfügung:
{| class="wikitable"
|-
!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 = Insertmodus False = 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)
|}
==Beispiele Eingabemaske==
===Button F12 anzeigen und mit Funktionalität versehen===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>

===Aufruf von weiteren Macros innerhalb des Macros===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
var oParams: TStringlist; //Parameter für Aufruf
begin
//Aufruf ohne Parameter
RunMacroFile('data\MACRO\Spezial\Test123.pmac');

//Aufruf mit Parameter
oParams := TStringlist.Create;
oParams.Add('TEST456');
RunMacroFile('data\MACRO\Spezial\Test123.pmac', frmEdit, oParams);
MyFreeAndNil(oParams);
end;
</syntaxhighlight>

===Eingaben prüfen===
<syntaxhighlight lang="Delphi">
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;
</syntaxhighlight>

===Positionen in Vorgängen blockieren===
Mit dem folgendem Beispiel kann entschieden werden ob Positionen eines Vorgangs geöffnet werden sollen.

Name: AN_VORGANG_EDIT Function OpenClose
{{Hinweis| Der Prefix "AN" steht für den DMS-Typ Angebot. Eine Übersicht aller DMS-Typen finden Sie [[OBS/Makros und Scripting/Developer/Sonstiges/DMS Abkürzungen|hier]].}}

<syntaxhighlight lang="Delphi">
function OpenClose(cVgNr:String; lInsertMode:Boolean):Boolean;
begin
//DebugLine('cVgNr'+cVgNr);

//02 = Möbel
Result := oOBS.cBenutzergruppe <> '02';

if (Result) then begin
//Wenn Positionen vorhanden dann kein Positions-Edit
if (DB_LSeek(oDB,'ANGPOS','az_nr='+DB_SqlVal(cVGNr))) then begin
Result := False;
end;
end;

if (Result) then begin

//DebugLine(iif(lInsertMode,'True','False'));

//Bei nicht Insert immer False
if (lInsertMode = False) then begin
Result := False;
end;
end;

end;
</syntaxhighlight>

==User-Reiter==
In OBS ab Version 003191 können Edit-Masken per Customizing-Script um eigene Reiter erweitert werden. Diese darin verwalteten Felder können mit [[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|eigenen Datenbankfeldern]] definiert werden.

[[Datei:Usertab.jpg]]

===Beispiel-Userdatenbank===
<syntaxhighlight lang="Delphi">
#DBNAME TODO

#FELDNAME USER_BEMERK , C , 8 , 0 , "CCCCCCCC"
#FELDNAME USER_WGR , C , 3 , 0 , "*"
#FELDNAME USER_TOGGLE , C , 1 , 0 , "C"
#FELDNAME USER_BETRAG , N , 11 , 0 , "NNNNNNNN.NNNN"
#FELDNAME USER_DATUM , D , 4 , 0 , "TT.MM.JJ"
#FELDNAME USER_LANGTEXT , M , 2000 , 0 , "*"
</syntaxhighlight>
===Beispielscript===
<syntaxhighlight lang="Delphi">
function OnEdInit(): String;
var oTab : TTabSheet;
oStr : TStringEdit;
oLbl : TLabel;
oNEd : TNumericEdit;
oDVE : TDateValEdit;
oChB : TxCheckBox;
oCBL : TCombiListe;
oTRE : TTextRichEdit;
begin
oTab := frmEdit.AddUserTab(); // Erstellt neuen User-Tab auf dem Edit
if assigned(oTab) then begin

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Textzeile:';
oLbl.Top := 10;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oStr := TStringEdit.Create(frmEdit);
oStr.Name := 'stred_db_user_bemerk'; // Damit automatisches Speichern/Laden von Datenbankfeldern funktioniert, muss im Komponentennamen '_db_' und der Feldname stehen.
oStr.Top := 10;
oStr.Left := 130;
oStr.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Summe:';
oLbl.Top := 40;
oLbl.Left := 10;
oLbl.Parent := oTab;

oNEd := TNumericEdit.Create(frmEdit);
oNEd.Name := 'numed_db_user_betrag';
oNEd.Top := 40;
oNEd.Left := 130;
oNEd.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Datum:';
oLbl.Top := 70;
oLbl.Left := 10;
oLbl.Parent := oTab;

oDVE := TDateValEdit.Create(frmEdit);
oDVE.Name := 'datev_db_user_datum';
oDVE.Top := 70;
oDVE.Left := 130;
oDVE.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Schalter:';
oLbl.Top := 100;
oLbl.Left := 10;
oLbl.Parent := oTab;

oChB := TxCheckBox.Create(frmEdit);
oChB.Name := 'cb_db_user_toggle';
oChB.Caption := 'Schalter';
oChB.Top := 100;
oChB.Left := 130;
oChB.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Suchliste:';
oLbl.Top := 130;
oLbl.Left := 10;
oLbl.Parent := oTab;

oCBL := FrmEdit.AddCombiliste();
oCBL.Name := 'cbl_db_user_wgr';
oCBL.Top := 130;
oCBL.Left := 130;
oCBL.Parent := oTab;

oCBL.GetSuli.Tablename := 'WARENGR'; // Verknüpfte Tabelle
oCBL.GetSuli.CompareField := 'wg_nr'; // Feld mit eindeutiger ID zur Zuordnung
oCBL.GetSuli.ShowField := 'wg_name'; // Feld, das als Bezeichnung in der Kombiliste angezeigt wird
oCBL.GetSuli.Caption := ML('Warengruppe'); // Fenstertitel der Suchliste, die sich beim Klick auf # öffnet
oCBL.GetSuli.SQLOrder := 'wg_nr'; // Feld, nach dem die Suchliste sortiert werden soll
oCBL.GetSuli.SQlWhere := ''; // Filter für Daten in der Suchliste, z. bsp. 'az_nr like "5%"'

oCBL.GetSuli.Width := 500; // Weite des Suchlistenfensters
oCBL.GetSuli.Height := 400; // Höhe des Suchlistenfensters

oCBL.GetSuli.InitColumn('Nr', 'wg_nr', 30, nil, '', System.Classes.TAlignment.taLeftJustify);
oCBL.GetSuli.AddColumn('Name', 'wg_name', 30, nil, '', System.Classes.TAlignment.taLeftJustify);

// Die erste Spalte der Suchliste muss mit InitColumn erstellt werden, alle weiteren mit AddColumn.
// Parameter:

// Anzeigename : String,
// Feldname : String,
// relative_Breite : Integer,
// Anzeigefunktion : Function of String, vorerst immer nil,
// Anzeigenmaskierung : String = '', Beispiel: '##9,99': Es werden immer eine Vorkommastelle und immer zwei Nachkommastellen angezeigt, und optional zwei zusätzliche Vorkommastellen, wenn vorhanden.
// Ausrichtung : System.Classes.TAlignment.[taLeftJustify, taRightJustify, taCenter]

//------------------------------------------------------------------

oTRE := TTextRichEdit.Create(frmEdit);
oTRE.Name := 'riced_db_user_langtext';
oTRE.Top := 170;
oTRE.Left := 10;
oTRE.Height := 300;
oTRE.Width := 400;
oTRE.RulerH := false;
oTRE.Parent := oTab;

//------------------------------------------------------------------

end;
end;
</syntaxhighlight>
==Rechnung per Mail/Fax==

<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(FrmEdit.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(FrmEdit.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(FrmEdit.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

==Besonderheiten==
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits

2020-07-22T14:16:29Z

Heibutzki: /* Beispielscript */

{{Makros und Scripting}}

==Methoden der Eingabemaske==
Für die Customize-Scripte stehen Ihnen diverse Funktionalitäten zur Verfügung. Nachfolgend eine Liste aller Customize-Funktionen der Maske:
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnEdFormInit || OnF1
|-
|OnEdInit || OnF2
|-
|OnEdVorb || OnF3
|-
|OnEdShow || OnF4
|-
|OnEdStable || OnF5
|-
|OnEdReadDirect || OnF6
|-
|OnEdRead || OnF7
|-
|OnEdStable || OnF8
|-
|OnEdCheck || OnF9
|-
|OnEdqSQL || OnF10
|-
|OnEdSaveDirect || OnF11
|-
|OnEdSave || OnF12
|-
|CheckIfChanged || OnPGDN
|-
|OnEdClose || OnPGUP
|-
| || OnReturn
|-
| || OnESC
|}
Die hier aufgeführten '''internen Funktionen''' sind in der Reihenfolge aufgelistet, wie sie vom OBS beim Öffnen (OnEdFormInit bis OnEdStable) und Schließen (OnEdCheck bis OnEdClose) von Eingabemasken auch abgearbeitet werden.
{{Hinweis|Bei der Verwendung der Funktionen in Customize-Scripten ist die Reihenfolge der Abarbeitung der Masken-Funktion und der Customize-Funktion von Bedeutung. Grundsätzlich gilt: Interne Funktionen werden vor dem Customize ausgeführt und Tastatur-Funktionen nach der Customize-Funktion. Um ein Customize vor der internen Funktion auszuführen, muss dem Funktionsnamen der Präfix '''Before_''' gegeben werden. Für Tastatur-Funktionen gilt dies nur für '''OnESC'''.}}
==Zugriff auf Komponenten==
Um auf Komponenten der Maske zuzugreifen, sollten Sie die Funktionen '''xGet''' (Daten lesen) und '''xSet''' (Daten schreiben) verwenden.
<syntaxhighlight lang="Delphi">
//Auslesen einer Komponente
cName := FrmEdit.xGet('a_name');
//Setzen einer Komponente
FrmEdit.xSet('a_name',"Meier");
</syntaxhighlight>

==Globale Variablen der Eingabemaske==
Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Property's stehen zu Verfügung:
{| class="wikitable"
|-
!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 = Insertmodus False = 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)
|}
==Beispiele Eingabemaske==
===Button F12 anzeigen und mit Funktionalität versehen===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>

===Aufruf von weiteren Macros innerhalb des Macros===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
var oParams: TStringlist; //Parameter für Aufruf
begin
//Aufruf ohne Parameter
RunMacroFile('data\MACRO\Spezial\Test123.pmac');

//Aufruf mit Parameter
oParams := TStringlist.Create;
oParams.Add('TEST456');
RunMacroFile('data\MACRO\Spezial\Test123.pmac', frmEdit, oParams);
MyFreeAndNil(oParams);
end;
</syntaxhighlight>

===Eingaben prüfen===
<syntaxhighlight lang="Delphi">
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;
</syntaxhighlight>

===Positionen in Vorgängen blockieren===
Mit dem folgendem Beispiel kann entschieden werden ob Positionen eines Vorgangs geöffnet werden sollen.

Name: AN_VORGANG_EDIT Function OpenClose
{{Hinweis| Der Prefix "AN" steht für den DMS-Typ Angebot. Eine Übersicht aller DMS-Typen finden Sie [[OBS/Makros und Scripting/Developer/Sonstiges/DMS Abkürzungen|hier]].}}

<syntaxhighlight lang="Delphi">
function OpenClose(cVgNr:String; lInsertMode:Boolean):Boolean;
begin
//DebugLine('cVgNr'+cVgNr);

//02 = Möbel
Result := oOBS.cBenutzergruppe <> '02';

if (Result) then begin
//Wenn Positionen vorhanden dann kein Positions-Edit
if (DB_LSeek(oDB,'ANGPOS','az_nr='+DB_SqlVal(cVGNr))) then begin
Result := False;
end;
end;

if (Result) then begin

//DebugLine(iif(lInsertMode,'True','False'));

//Bei nicht Insert immer False
if (lInsertMode = False) then begin
Result := False;
end;
end;

end;
</syntaxhighlight>

==User-Reiter==
In OBS ab Version 003191 können Edit-Masken per Customizing-Script um eigene Reiter erweitert werden. Diese darin verwalteten Felder können mit [[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|eigenen Datenbankfeldern]] definiert werden.

[[Datei:Usertab.jpg]]

===Beispiel-Userdatenbank===
<syntaxhighlight lang="Delphi">
#DBNAME TODO

#FELDNAME USER_BEMERK , C , 8 , 0 , "CCCCCCCC"
#FELDNAME USER_WGR , C , 3 , 0 , "*"
#FELDNAME USER_TOGGLE , C , 1 , 0 , "C"
#FELDNAME USER_BETRAG , N , 11 , 0 , "NNNNNNNN.NNNN"
#FELDNAME USER_DATUM , D , 4 , 0 , "TT.MM.JJ"
#FELDNAME USER_LANGTEXT , M , 2000 , 0 , "*"
</syntaxhighlight>
===Beispielscript===
====Usertab====
<syntaxhighlight lang="Delphi">
function OnEdInit(): String;
var oTab : TTabSheet;
oStr : TStringEdit;
oLbl : TLabel;
oNEd : TNumericEdit;
oDVE : TDateValEdit;
oChB : TxCheckBox;
oCBL : TCombiListe;
oTRE : TTextRichEdit;
begin
oTab := frmEdit.AddUserTab(); // Erstellt neuen User-Tab auf dem Edit
if assigned(oTab) then begin

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Textzeile:';
oLbl.Top := 10;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oStr := TStringEdit.Create(frmEdit);
oStr.Name := 'stred_db_user_bemerk'; // Damit automatisches Speichern/Laden von Datenbankfeldern funktioniert, muss im Komponentennamen '_db_' und der Feldname stehen.
oStr.Top := 10;
oStr.Left := 130;
oStr.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Summe:';
oLbl.Top := 40;
oLbl.Left := 10;
oLbl.Parent := oTab;

oNEd := TNumericEdit.Create(frmEdit);
oNEd.Name := 'numed_db_user_betrag';
oNEd.Top := 40;
oNEd.Left := 130;
oNEd.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Datum:';
oLbl.Top := 70;
oLbl.Left := 10;
oLbl.Parent := oTab;

oDVE := TDateValEdit.Create(frmEdit);
oDVE.Name := 'datev_db_user_datum';
oDVE.Top := 70;
oDVE.Left := 130;
oDVE.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Schalter:';
oLbl.Top := 100;
oLbl.Left := 10;
oLbl.Parent := oTab;

oChB := TxCheckBox.Create(frmEdit);
oChB.Name := 'cb_db_user_toggle';
oChB.Caption := 'Schalter';
oChB.Top := 100;
oChB.Left := 130;
oChB.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Suchliste:';
oLbl.Top := 130;
oLbl.Left := 10;
oLbl.Parent := oTab;

oCBL := FrmEdit.AddCombiliste();
oCBL.Name := 'cbl_db_user_wgr';
oCBL.Top := 130;
oCBL.Left := 130;
oCBL.Parent := oTab;

oCBL.GetSuli.Tablename := 'WARENGR'; // Verknüpfte Tabelle
oCBL.GetSuli.CompareField := 'wg_nr'; // Feld mit eindeutiger ID zur Zuordnung
oCBL.GetSuli.ShowField := 'wg_name'; // Feld, das als Bezeichnung in der Kombiliste angezeigt wird
oCBL.GetSuli.Caption := ML('Warengruppe'); // Fenstertitel der Suchliste, die sich beim Klick auf # öffnet
oCBL.GetSuli.SQLOrder := 'wg_nr'; // Feld, nach dem die Suchliste sortiert werden soll
oCBL.GetSuli.SQlWhere := ''; // Filter für Daten in der Suchliste, z. bsp. 'az_nr like "5%"'

oCBL.GetSuli.Width := 500; // Weite des Suchlistenfensters
oCBL.GetSuli.Height := 400; // Höhe des Suchlistenfensters

oCBL.GetSuli.InitColumn('Nr', 'wg_nr', 30, nil, '', System.Classes.TAlignment.taLeftJustify);
oCBL.GetSuli.AddColumn('Name', 'wg_name', 30, nil, '', System.Classes.TAlignment.taLeftJustify);

// Die erste Spalte der Suchliste muss mit InitColumn erstellt werden, alle weiteren mit AddColumn.
// Parameter:

// Anzeigename : String,
// Feldname : String,
// relative_Breite : Integer,
// Anzeigefunktion : Function of String, vorerst immer nil,
// Anzeigenmaskierung : String = '', Beispiel: '##9,99': Es werden immer eine Vorkommastelle und immer zwei Nachkommastellen angezeigt, und optional zwei zusätzliche Vorkommastellen, wenn vorhanden.
// Ausrichtung : System.Classes.TAlignment.[taLeftJustify, taRightJustify, taCenter]

//------------------------------------------------------------------

oTRE := TTextRichEdit.Create(frmEdit);
oTRE.Name := 'riced_db_user_langtext';
oTRE.Top := 170;
oTRE.Left := 10;
oTRE.Height := 300;
oTRE.Width := 400;
oTRE.RulerH := false;
oTRE.Parent := oTab;

//------------------------------------------------------------------

end;
end;
</syntaxhighlight>
====Rechnung per Mail/Fax====

<syntaxhighlight lang="Delphi">
function OnEdSave():string;
begin
end;

function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;

if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(FrmEdit.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(FrmEdit.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(FrmEdit.FindComponent('cb_OldDate'));
end;

if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;

if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;

if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;

end;
</syntaxhighlight>

==Besonderheiten==
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

OBS/Kostenpflichtige Module/ZUGFeRD

2020-07-22T13:34:17Z

Heibutzki:

{{Kostenpflichtige Module}}

==Über ZUGFeRD==
ZUGFeRD ist ein Standard zur elektronischen Übermittlung von Rechnungsdaten. Dabei wird eine computerlesbare Textdatei im XRechnungs-Standard an eine gewöhnliche, auf langzeitarchivierung optimierte PDF-Rechnung angehängt.

Mit dem OBS-ZUGFeRD-Modul können Sie sowohl ZUGFeRD-PDF-Dateien, die Sie von Lieferanten oder Dienstleistern erhalten, in OBS-Einkäufe umwandeln, als auch ZUGFeRD-Rechnungen an Kunden schicken, die diese Dateien verarbeiten können. (Vorraussichtlich wird dies bei kommunalen Ausschreibungen ab einem gewissen Auftragswert in Zukunft verpflichtend.)

OBS unterstützt ab Version 003220 sowohl das Einlesen von empfangenen Einkaufsrechnungen als auch das Erstellen und Versenden von ZUGFeRD-PDFs für ausgehenden Rechnungen.

==Vorraussetzungen==
* Generell:
** Modul mieten und freischalten lassen
* Zum Einlesen:
** Stammdaten pflegen: Erlöskonto (Programme - Zugferd - F10 Stammdaten)
* Zum Erstellen:
** Konstanten pflegen (System - I Konstanten)
** Programmparameter 908 auf 3 setzen (PDF-Archivierung)
** Steuerschlüssel pflegen (Stammdaten - Weitere Stammdaten - Mehrwertsteuer): Den Schlüsseln 00-09 müssen korrekte TSE-Schlüssel zugeordnet werden.
** Stammdaten pflegen: Bankdaten (Programme - Zugferd - F10 Stammdaten)

==Anleitung==

===XRechnung===
Der Bund hat unter [https://xrechnung.bund.de xrechnung.bund.de] eine Zentrale Rechnungseingangsplattform geschaffen, auf der voraussichtlich ab dem 27.11.2020 alle Rechnungen für öffentliche Verwaltungsstellen im XRechnungs-Format eingereicht werden müssen.

Um die hierfür notwendien XRechnungs-Dateien zu erzeugen, müssen Sie in der Rechnungsliste auf der zu verschickenden Rechnung "F10 - Z Zugferdrechnung erzeugen" auswählen, und bei der Frage, ob eine PDF erstellt werden soll, '''Nein''' auswählen. Wählen Sie einen Speicherort für die erzeugte XRechnungs-XML-Datei. Laden Sie diese Datei anschließend auf dem Rechnungsportal hoch.

Üblicherweise bekommen Sie von der öffentliche Stelle, der Sie die Rechnung schicken möchten, eine elektronische Leitwegs-ID im Format "991-XXXXX-XX" mitgeteilt, sowie eine Kreditorennummer, unter der Sie im System des Amts hinterlegt sind. Tragen Sie beide Nummern, sowie die Daten Ihres eigenen Sachbearbeiters unter "Personenstamm - F10 - Z Zugferd-Stammdaten - Einfügen" ein.

{{Hinweis|Unter [https://ref.xrechnung.bund.de ref.xrechnung.bund.de] steht eine Testumgebung des Bundes zur Verfügung. Hier können Sie sich anmelden, um Rechnungen überprüfen zu lassen, ohne das Risiko einzugehen, sie versehentlich falsch oder mehrfach an Ihren Kunden zu übermitteln.}}
===Einlesen von Einkaufsrechnungen===

# Zug-Vorgangsliste öffnen (Programme - Zugferd)
# Import per F6 oder Drag&Drop
# Bei rot hinterlegten Einträgen:
## Fehler bearbeiten
## F10 - Daten neu verarbeiten
# Enter:
## Lieferanten prüfen
## Landeszuordnung prüfen
## Zahlungsbedingung zuordnen (kann in den allermeisten Fällen nicht automatisch zugeordnet werden)
## Skonto- und Fälligkeitsdatum prüfen und ggbf. manuell eintragen
# Positionen einzeln prüfen:
## Erlöskonto und Mehrwertsteuerschlüssel prüfen
## Artikelnummer zuordnen, falls gewünscht
# F10 - Einkaufsrechnung generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

===Erstellen von ZUGFeRD-Rechnungen===

# Stammdaten pflegen und PMode 908 einstellen, s. Vorraussetzungen
# Rechnung per Mail versenden oder in der Rechnungsliste mit "F10 - Z Zugferd-Rechnung erstellen" manuell generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

==ZUGFeRD-Daten==

===ZUGFeRD-Vorgänge===

====Kopfdatenliste====

[[Datei:Zug wiki kopf liste.jpg]]

In dieser Liste können Sie Zugferd-Einkaufsrechnungsdateien importieren, die Sie von Lieferanten oder Dienstleistern erhalten. Ziehen Sie dazu die entsprechende PDF, beispielsweise aus einer Mail, vom Desktop oder aus einem Ordner, auf das Feld "Drag&Drop", oder wählen Sie sie mit "{{F6}} Import" aus.

Mit dem Haken "Erweiterte Info" öffnet sich das Feld auf der rechten Seite, in dem Sie die Rohdaten des importierten Zugferd-Datensatzes einsehen können.

Mit {{Return}} öffnen Sie die Bearbeitungsmaske (s.u.) des Datensatzes. Hier können Sie die importierten Zugferd-Daten kontrollieren und korrigieren, bevor Sie aus einer empfangenen Rechnung einen OBS-Einkauf generieren.

Mit {{F10}} Weit. öffnen Sie die weiteren Infos (s.u.)

====Kopfdatenbearbeitungsmaske====

[[Datei:Zug wiki kopf edit.jpg]]

Hier können Sie die Daten der importierten Zugferddatei bearbeiten, bevor Sie einen OBS-Einkauf generieren.

Prüfen Sie dabei vor allem, dass
*der richtige Lieferant eingetragen ist (1),
*die Zahlungsbedingungen korrekt erfasst sind (3) und
*Fälligkeits- und Skontodatum erkannt wurden (4), sofern vorhanden.

====F10 Weitere Informationen====

[[Datei:Zug wiki f10.jpg]]

Hier können Sie weitere Zugferd-Funktionen aufrufen.

* PDF anzeigen: Zeigt die PDF des aktuellen Datensatzes an.
* XML anzeigen: Zeigt die an die PDF angehängten Zugferd-Daten in Rohform an.
* ILN-Verwaltung: derzeit nicht unterstützt
* Einkaufsrechnung generieren: Erstellt einen Einkauf aus dem gewählten Datensatz. (Wichtig: Anleitung (s.o.) beachten!!!)
* Zugferd Stammdaten: Öffnet die Stammdatenmaske und prüft, ob grundlegend Zugferdrechnungen verarbeitet werden können (s. Vorraussetzungen)
* Protokoll: Nach dem Einlesen oder Erstellen von Zugferddateien kann hier geprüft werden, ob Fehler oder Warnungen vorliegen.

===ZUGFeRD-Stammdaten===

[[Datei:Zug wiki stamm.jpg]]

Beim Öffnen der Stammdatenmaske werden die Vorraussetzungen (s.o.) geprüft. Probleme werden als Meldungen ausgegeben und müssen bearbeitet werden, bevor Zugferd-Daten korrekt verarbeitet werden können!

====Erlöskonto====
Wenn der Haken "Automatisches Setzen des Erlöskontos" gesetzt ist, wird beim Import jeder Position das im Feld "Erlöskonto" eingetragene Erlöskonto zugeordnet.

Wenn der Haken nicht gesetzt ist, muss nach dem Import der Zugferd-Einkaufsrechnung für jede Position ein Erlöskonto händisch gewählt werden!

====Bankdaten====
In den Feldern Bank 1 bis Bank 5 und den zugehörigen IBAN-Feldern können verschiedene Bankkonten eingetragen werden, die beim Erstellen von ausgehenden Zugferd-Rechnungen als akzeptierte Zahlungsmethoden hinterlegt werden.

Wichtig: Der europäische Standard setzt hier mindestens eine eingetragene IBAN vorraus!

===ZUGFeRD-Positionen===
====Positionsliste====

[[Datei:Zug wiki pos liste.jpg]]

Hier werden alle Positionen aufgelistet, die in den importierten Zugferd-Daten gefunden wurden.

Da der ZUGFeRD-Standard den Entwicklern von Warenwirtschaftssystemen viele Freiheiten bei der Umsetzung lässt, wie verschiedene Daten wie Langtexte, Zahlungsbedingungen und weitere Daten erfasst werden, werden von OBS alle Daten, die nicht automatisch OBS-Datenfeldern zugeordnet werden können, als Langtextpositionen erfasst.

Mit {{Return}} können die aktuellen Positionsdaten geöffnet werden.

====Positionsbearbeitungsmaske====

[[Datei:Zug wiki pos edit.jpg]]

Hier können Positionsdaten des importierten Zugferd-Datensatzes geprüft werden. Vor dem Generieren von OBS-Einkäufen aus importierten Zugferd-Rechnungen muss für jede Position geprüft werden, ob Erlöskonto und MwSt-Schlüssel gesetzt sind!

OBS/Makros und Scripting/Developer/Beispiele/UC Positionen

2020-07-15T10:47:53Z

Heibutzki:

Durch den Prefix "AU" werden diese Scripte nur von Auftragsvorgängen genutzt.<br/>
"AU" ist der DMS-Typ von Auftrag. Eine Liste mit dem DMS-Typen finden Sie [[OBS/Makros und Scripting/Developer/Sonstiges/DMS Abkürzungen|hier]]. <br/>
Generell können die Vorgänge "Angebot", "Aufträge", Rechnungen", "Einkauf", "Einkauflieferschein", "Bestellung" und "Reparaturauftrag" diese Methoden nutzen, brauchen aber dementsprechend ihren DMS-Typ als Prefix.

==AU_VORGANG==
Die Methode "VORGANG_ZUSATZINFO_START" gibt einen Headertext für die Positionserfassung zurück.
Die Methode "StartProc" ist für Nachträgliche Datenänderungen nach Abschluss eines Vorganges.

{{Hinweis|Die Methoden "VORGANG_ZUSATZINFO_START" und "StartProc" müssen vorhanden sein.}}

<source lang="delphi">
function VORGANG_ZUSATZINFO_START(cVorgang:String):String;
begin
Result := ''; //'Result:='+cVorgang;
end;

function StartProc(cVorgang:String):String;
begin
Result := ''; //'Result:='+cVorgang;
end;
</source>

==AU_VORGANG_STDOK==
Die Methoden "BeforeSave" und "AfterSave" werden jeweils vor und nach dem Aufruf der Standard Speicherroutine aufgerufen.

Beispiel:
Diese Methode kann verwendet werden, um Materialien nach dem Speichern der Positionen zu verändern.<br/>

Mit "BeforeSave" können Werte direkt in UC_Position vor dem Speichern verändert werden.<br/>

Mit "AfterSave" können Werte nach dem Speichern geändert werden.<br/>
Bei zeitnaher Artikelpflege (PMode 526) ist das Material schon angelegt. Hiermit kann z.B. das Material nachträglich verändert werden.<br/>

{{Hinweis|Die Methoden "BeforeSave" und "AfterSave" müssen vorhanden sein.}}

<source lang="delphi">
function _Boolean(lVal:Boolean):String;
begin
Result := iif(lVal,'True','False');
end;

function _SaveMode(Val:TSaveMode):String;
begin
if (Val = DB_INSERT) then begin
Result := 'INSERT';
end else if (Val = DB_UPDATE) then begin
Result := 'UPDATE';
end else begin
Result := 'NOCHANGE';
end;
end;

procedure _ShowValues(cVorgang:String; oPos:TPosValue);
begin
DebugLine('Vorgang :' + cVorgang );
DebugLine('Artikel-Nr:' + oPos.POS_ARTNR );
DebugLine('SHOW :' + _Boolean(oPos.POS_SHOW) );

//TSaveMode = (DB_INSERT, DB_UPDATE, DB_NOCHANGE);

DebugLine('UPDATE :' + _SaveMode(oPos.POS_UPDATE) );
DebugLine('SYS_UID :' + oPos.POS_SYS_UID );
DebugLine('TSORT :' + oPos.POS_TSORT );
DebugLine('NR :' + oPos.POS_NR );
DebugLine('KNR :' + oPos.POS_KNR );
DebugLine('POSNR :' + oPos.POS_POSNR );
DebugLine('POSNR2 :' + oPos.POS_POSNR2 );
DebugLine('POSKAS :' + oPos.POS_POSKAS );
DebugLine('POSLFD :' + oPos.POS_POSLFD );

(*
TPosType = (ShowStd,
ShowMemo,
ShowEmpty,
ShowZwSum,
ShowTitSum,
ShowEndSum,
ShowTitel,
ShowAngTitel,
ShowGewerk,
ShowHeader,
ShowFooter,
ShowFootAbschl,
ShowFF,
EditStd,
EditMemo,
EditAngTitel,
EditGewerk,
ShowNewPage,
EditTitSum,
ShowBmp,
EditBmp,
EditZWSum,
ShowScriptResult,
Undefined)
*)

DebugLine('TYP :' + IntToStr(oPos.POS_TYP) );
DebugLine('ARTNR :' + oPos.POS_ARTNR );
DebugLine('ARTNR_SHOW:' + oPos.POS_ARTNR_SHOW );
DebugLine('LNR :' + oPos.POS_LNR );
DebugLine('MEMORTF :' + oPos.POS_MEMO );
DebugLine('MEMOANSI :' + oPos.POS_MEMOANSI );
DebugLine('MEMODRUCK :' + oPos.POS_MEMODRUCK );
DebugLine('BEZ1 :' + oPos.POS_BEZ1 );
DebugLine('BEZ2 :' + oPos.POS_BEZ2 );
DebugLine('MENGE :' + axStr(oPos.POS_MENGE) );
DebugLine('URMENGE :' + axStr(oPos.POS_URMENGE) );
DebugLine('EINHEIT :' + oPos.POS_EINHEIT );
DebugLine('EINHNAME :' + oPos.POS_EINHNAME );
DebugLine('MENGEIN :' + axStr(oPos.POS_MENGEIN) );
DebugLine('MENGEINFAK:' + axStr(oPos.POS_MENGEINFAK) );
DebugLine('_EPREIS :' + axStr(oPos.fPOS_EPREIS) );
DebugLine('_BEPREIS :' + axStr(oPos.fPOS_BEPREIS) );
DebugLine('_BGPREIS :' + axStr(oPos.fPOS_BGPREIS) );
DebugLine('_EKPREIS :' + axStr(oPos.fPOS_EKPREIS) );
DebugLine('URPREIS :' + axStr(oPos.POS_URPREIS) );
DebugLine('URPREISEK :' + axStr(oPos.POS_URPREISEK) );
DebugLine('MANPREIS :' + oPos.POS_MANPREIS );

DebugLine('_GPREIS :' + axStr(oPos.fPOS_GPREIS) );
DebugLine('GRABATT :' + axStr(oPos.POS_GRABATT) );
DebugLine('RABATT :' + axStr(oPos.POS_RABATT) );
DebugLine('RABART1 :' + oPos.POS_RABART1 );
DebugLine('RABATT1 :' + axStr(oPos.POS_RABATT1) );
DebugLine('RABART2 :' + oPos.POS_RABART2 );
DebugLine('RABATT2 :' + axStr(oPos.POS_RABATT2) );
DebugLine('RABART3 :' + oPos.POS_RABART3 );
DebugLine('RABATT3 :' + axStr(oPos.POS_RABATT3) );
DebugLine('RABART4 :' + oPos.POS_RABART4 );
DebugLine('RABATT4 :' + axStr(oPos.POS_RABATT4) );
DebugLine('RABART5 :' + oPos.POS_RABART5 );
DebugLine('RABATT5 :' + axStr(oPos.POS_RABATT5) );
DebugLine('ADDSUB :' + axStr(oPos.POS_ADDSUB) );

DebugLine('_MWSTSCH :' + oPos.fPOS_MWSTSCH );
DebugLine('_MWSTSATZ :' + axStr(oPos.fPOS_MWSTSATZ) );
DebugLine('KONTO :' + oPos.POS_KONTO );
DebugLine('LAGNR :' + oPos.POS_LAGNR );
DebugLine('LAGONR :' + oPos.POS_LAGONR );
DebugLine('SKFJN :' + oPos.POS_SKFJN );
DebugLine('BILDUID :' + oPos.POS_BILDUID );

DebugLine('AUSDRUCKJN:' + oPos.POS_AUSDRUCKJN );
DebugLine('VERK :' + oPos.POS_VERK );
DebugLine('STATUS :' + oPos.POS_STATUS );
DebugLine('ANGNR :' + oPos.POS_ANGNR );
DebugLine('COLNR :' + IntToStr(oPos.POS_COLNR) );
DebugLine('UID :' + oPos.POS_UID );
DebugLine('MUID :' + oPos.POS_MUID );
DebugLine('MENGEG :' + axStr(oPos.POS_MENGEG) );
DebugLine('VERPACK :' + oPos.POS_VERPACK );
DebugLine('KOLLI :' + axStr(oPos.POS_KOLLI) );
DebugLine('INHALT :' + axStr(oPos.POS_INHALT) );
DebugLine('EKSPREIS :' + axStr(oPos.POS_EKSPREIS) );
DebugLine('OBPREIS :' + axStr(oPos.POS_OBPREIS) );

DebugLine('AUFNR :' + oPos.POS_AUFNR );
DebugLine('LIENR :' + oPos.POS_LIENR );
DebugLine('XUID1 :' + oPos.POS_XUID1 );
DebugLine('XUID2 :' + oPos.POS_XUID2 );
DebugLine('XUID3 :' + oPos.POS_XUID3 );
DebugLine('XUID4 :' + oPos.POS_XUID4 );
DebugLine('PROV :' + axStr(oPos.POS_PROV) );
DebugLine('LIEFKZ :' + IntToStr(oPos.POS_LIEFKZ) );
DebugLine('KOSTST :' + oPos.POS_KOSTST );
DebugLine('PRODGR :' + oPos.POS_PRODGR );
DebugLine('FRACHTV :' + axStr(oPos.POS_FRACHTV) );
DebugLine('MATEUID :' + oPos.POS_MATEUID );
DebugLine('EILIUID :' + oPos.POS_EILIUID );

DebugLine('BESTUID :' + oPos.POS_BESTUID );
DebugLine('BESTNR :' + oPos.POS_BESTNR );
DebugLine('POSTEXT :' + oPos.POS_POSTEXT );
DebugLine('POSZUSATZ :' + oPos.POS_POSZUSATZ );
DebugLine('DIFFPREIS :' + axStr(oPos.POS_DIFFPREIS) );
DebugLine('LPROJNR :' + oPos.POS_LPROJNR );
DebugLine('LSNR :' + oPos.POS_LSNR );
DebugLine('LSDAT :' + DToC(oPos.POS_LSDAT) );
DebugLine('EKHERKUNFT:' + oPos.POS_EKHERKUNFT );
DebugLine('POSART :' + IntToStr(oPos.POS_POSART) );
DebugLine('URLAND :' + oPos.POS_URLAND );
DebugLine('AUFSCHLAG :' + IntToStr(oPos.POS_AUFSCHLAG) );
DebugLine('AUFSCHUID :' + oPos.POS_AUFSCHUID );
DebugLine('LIEFNR :' + oPos.POS_LIEFNR );
DebugLine('LAGSTRECK :' + oPos.POS_LAGSTRECK );
DebugLine('MBANZAHL :' + axStr(oPos.POS_MBANZAHL) );
DebugLine('MBEZMENGE :' + axStr(oPos.POS_MBEZMENGE) );
DebugLine('MBGEWICHT :' + axStr(oPos.POS_MBGEWICHT) );
DebugLine('MBGGEWICHT:' + axStr(oPos.POS_MBGGEWICHT) );
DebugLine('MBILAENGE :' + axStr(oPos.POS_MBILAENGE) );
DebugLine('MBSLAENGE :' + axStr(oPos.POS_MBSLAENGE) );
DebugLine('MBIBREITE :' + axStr(oPos.POS_MBIBREITE) );
DebugLine('MBSBREITE :' + axStr(oPos.POS_MBSBREITE) );
DebugLine('MBIHOEHE :' + axStr(oPos.POS_MBIHOEHE) );
DebugLine('MBSHOEHE :' + axStr(oPos.POS_MBSHOEHE) );
DebugLine('MBKZMENGE :' + oPos.POS_MBKZMENGE );
DebugLine('MBUID :' + oPos.POS_MBUID );
DebugLine('RVUID :' + oPos.POS_RVUID );
DebugLine('MBSYS_UID :' + oPos.POS_MBSYS_UID );

DebugLine('VPCALCMENG:' + axStr(oPos.POS_VPCALCMENGE) );
DebugLine('VPANZAHL1 :' + axStr(oPos.POS_VPANZAHL1) );
DebugLine('VPANZAHL2 :' + axStr(oPos.POS_VPANZAHL2) );
DebugLine('VPANZAHL3 :' + axStr(oPos.POS_VPANZAHL3) );
DebugLine('VPANZAHL4 :' + axStr(oPos.POS_VPANZAHL4) );
DebugLine('VPLFD1 :' + oPos.POS_VPLFD1 );
DebugLine('VPLFD2 :' + oPos.POS_VPLFD2 );
DebugLine('VPLFD3 :' + oPos.POS_VPLFD3 );
DebugLine('VPLFD4 :' + oPos.POS_VPLFD4 );
DebugLine('VPUID :' + oPos.POS_VPUID );
DebugLine('VPSYS_UID :' + oPos.POS_VPSYS_UID );
DebugLine('IsInfo :' + IntToStr(oPos.POS_IsInfo) );

DebugLine('KOMMENT :' + oPos.POS_KOMMENT );
DebugLine('ERWARTIKEL:' + oPos.POS_ERWARTIKEL );
DebugLine('ERWARTIKEL:' + oPos.POS_ERWARTIKEL );

DebugLine('MWSTSATZ :' + axStr(oPos.POS_MWSTSATZ) );
DebugLine('MWSTSCH :' + oPos.POS_MWSTSCH );

DebugLine('EPREIS :' + axStr(oPos.POS_EPREIS) );
DebugLine('EKPREIS :' + axStr(oPos.POS_EKPREIS) );
DebugLine('BEPREIS :' + axStr(oPos.POS_BEPREIS) );
DebugLine('BGPREIS :' + axStr(oPos.POS_BGPREIS) );
DebugLine('GPREIS :' + axStr(oPos.POS_GPREIS) );

DebugLine('--------------------------------------');
end;

procedure BeforeSave(cVorgang:String; oPos:TPosValue);
begin
//DebugLine('BeforSave');
//_ShowValues(cVorgang, oPos);
end;

procedure AfterSave(cVorgang:String; oPos:TPosValue);
begin
//DebugLine('BeforSave');
//_ShowValues(cVorgang, oPos);
end;
</source>

==Ändern der Positionsframe-Komponenten==
Aufruf im Scripter:

procedure InitEdit(cVorgang:String; oFrame:TFrame);

Hier können Komponenten aus der geöffneten Position verändert werden. Dazu müssen die Komponenten mit oFrame.FindComponent ermittelt werden.

Beispiel:

<source lang="delphi">
procedure InitEdit(cVorgang:String; oFrame:TFrame);
var oEditPreis : TNumericEdit; // Komponente mit Typ deklarieren
begin
DebugLine('InitEdit');
// Komponente finden
oEditPreis := TNumericEdit(oFrame.FindComponent('numed_epreis'));

// Wenn Komponente vorhanden ist, Änderungen ausführen
if (Assigned(oEditPreis)) then begin
oEditPreis.Enabled := False;
end;
end;
</source>

Alle verfügbaren Komponenten mit Typ (Je nach Einstellungen können einige deaktiviert sein):

stred_bez2: TStringEdit;
stred_bez1: TStringEdit;
numed_menge: TNumericEdit;
numed_rabatt: TNumericEdit;
numed_epreis: TNumericEdit;
cbl_db_artnr: TCombiListe;
cbl_db_lnr: TCombiListe;
cbl_db_konto: TCombiListe;
cbl_db_lagnr: TCombiListe;
cbl_db_mwst: TCombiListe;
cbl_db_posken: TCombiListe;
cbl_db_einheit: TCombiListe;
numed_prov: TNumericEdit;
numed_ekpreis: TNumericEdit;
stred_posnr: TMaskEdit;
Btn_weiter: TButton;
stred_lsnr: TStringEdit;
Datev_lsdat: TDateValEdit;
comed_db_posart: xTComboedit;
numed_anzahl: TNumericEdit;
numed_inhalt: TNumericEdit;
cbl_db_verp: TCombiListe;
lab_inhalt: TLabel;
stred_bestnr: TStringEdit;
comed_db_aufschlag: xTComboedit;
cbx_db_skfjn: TxCheckbox;
numed_db_ggewicht: TNumericEdit;
numed_db_gewicht: TNumericEdit;
numed_db_ezmenge: TNumericEdit;
numed_db_slaenge: TNumericEdit;
numed_db_ilaenge: TNumericEdit;
numed_db_sbreite: TNumericEdit;
numed_db_ibreite: TNumericEdit;
numed_db_ihoehe: TNumericEdit;
numed_db_shoehe: TNumericEdit;
stred_db_kzmenge: TStringEdit;
numed_db_anzahl: TNumericEdit;
cbl_db_prodgr: TCombiListe;
numed_db_calcmenge: TNumericEdit;
numed_db_anzahl1: TNumericEdit;
numed_db_anzahl2: TNumericEdit;
numed_db_anzahl3: TNumericEdit;
numed_db_anzahl4: TNumericEdit;
numed_db_inhalt1: TNumericEdit;
numed_db_inhalt2: TNumericEdit;
numed_db_inhalt3: TNumericEdit;
numed_db_inhalt4: TNumericEdit;
numed_gesamt1: TNumericEdit;
numed_gesamt2: TNumericEdit;
numed_gesamt3: TNumericEdit;
numed_gesamt4: TNumericEdit;
stred_einheit1: TStringEdit;
stred_einheit2: TStringEdit;
stred_einheit3: TStringEdit;
stred_einheit4: TStringEdit;
comed_db_liefkz: xTComboedit;
cbl_db_kostst: TCombiListe;
stred_posnr2: TMaskEdit;
cbx_db_ausdruckjn: TxCheckbox;
cbx_db_aufstrecke: TxCheckBox;
cbx_db_manpreis: TxCheckBox;
numed_obpreis: TNumericEdit;
cbl_db_lagonr: TCombiListe;
numed_addsub: TNumericEdit;
riced_postext: TTextRichEdit;
comed_db_druckposmemo: xTComboEdit;

OBS/Widgets/Zeiterfassung Positionen

2020-07-13T08:15:47Z

Heibutzki:

{{Widgets}}[[Kategorie:OBS/Widgets]]
<font size=3>

=Positionen für Sammelreparaturaufträge aus der Zeiterfassung=

Aufruf: Rechtsklick auf das Widget "Zeiterfassungsübersicht" -> "Liste Sammel-Reparaturaufträge".

In dieser Liste sehen Sie alle über die Zeiterfassung erfassten Zeiten. Sie können diese über die beiden Filter unten links nach '''Berechenbar''','''Aktuelle Periode''' und den Status '''01/21''' filtern. Über {{F2}} können die Einträge noch genauer ausgewertet werden. Mit der Taste {{Key|F9 Status}} kann ein Eintrag manuell auf erledigt (Status 21) gesetzt werden, wenn der Eintrag nicht weiter relevant ist.<br/>

Über diese Liste ist es auch Möglich aus den erfassten Zeiten Reparaturaufträge zu generieren.

{{Hinweis|Es muss in den Widgeteinstellungen ([[OBS/Widgets/Zeiterfassung Übersicht|062 Zeiterfassung Übersicht]]) '''03 Reparaturpositionen anlegen''', '''05 Faktor Umrechnung Sekunden in AE''' und '''06 Standard Leistung für Reparaturauftrag''' eingestellt sein, um Reparaturaufträge generieren zu können.}}
{{Hinweis|In den Einstellung des Widgets '''Zeiterfassung''' kann in den Postionen '''09''' und '''10''' eingestellt werden, ob die Checkbox zur Anlage eines Reparaturauftrags und zur Berechnung vorbelegt werden soll.}}

==Zeiten aus Zeiterfassung importieren==
Damit die Zeiten aus der Zeiterfassung in dieser Liste erscheinen müssen diese zunächst über den Punkt '''Importieren aus Zeiterfassung''' importiert werden.

==Reparaturauftrag generieren==

Mit {{F6}} können Sie die Zeiten zwischen "berechenbar" und "nicht berechenbar" umstellen. Nur aus berechnbaren Zeiten werden Reparaturaufträge generiert.

Um einen Reparaturauftrag aus den erfassten Zeiten zu generieren müssen Sie zunächst mit {{F5}} die gewünschten Zeiten markieren und anschließend unter '''Weitere Funktionen''' den Punkt '''Repa. generieren''' auswählen. Zunächst wird gefragt, ob aus den markierten Zeiten Reparaturaufträge generiert werden sollen. Hierbei werden aus dem markierten Zeiten Sammelreparaturaufträge erstellt. Alternativ erscheint eine Auswertungsmaske (die Selbe, die auch mit {{F2}} aufgerufen werden kann), über welche die Reparaturaufträge generiert werden können.

</font>

OBS/Stammdaten/Artikel/Weitere Funktionen/Suchen

2020-07-07T11:06:13Z

Heibutzki:

{{Vorlage:Stammdaten}}

=Die '''Suchen'''-Funktion=
[[Image:Suchen.PNG]]<br/>
Nachdem Sie in der Artikelliste '''Suchen''' unter "Weitere Funktionen" angeklickt haben, öffnet sich die Artikelsuche:

Die genauen Funktionen der auswählbaren Felder werden im Hinweistext eingeblendet, der erscheint, wenn Sie mit dem Mauszeiger auf ein Steuerelement zeigen.

Alternativ können Sie die Funktionen auf dem zweiten Reiter "Hilfe" nachschlagen.

Beispiele für Exaktsuche mit Steuerzeichen (Nur verfügbar, wenn Schnellsuche aktiv ist):

'''+Text''' (Wort muss enthalten sein) <br/>
'''-Text''' (Wort darf nicht enthalten sein ) <br/>
'''Text*''' (findet Wörter wie Text,Textbaustein,Text...) <br/>
'''"Text Zeile"''' (Satz "Text Zeile" muss enthalten sein)

OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen

2020-04-09T08:49:38Z

Heibutzki: /* == */

{{Makros und Scripting}}

==Methoden der Liste==
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnListNew || OnF1
|-
|OnResize || OnF2
|-
|OnRefresh || OnF3
|-
|Before_OnClose || OnF4
|-
| || OnF5
|-
| || OnF6
|-
| || OnF7
|-
| || OnF8
|-
| || OnF9
|-
| || OnF10
|-
| || OnF11
|-
| || OnF12
|-
| || OnReturn
|-
| || OnInsert
|-
| || OnDelete
|-
| || OnESC
|}

==Beispiele Liste==
{{Vorlage:KlapptextFAQ
|liste_F12
|Button F12 anzeigen und mit Funktionalität versehen
|<syntaxhighlight lang="Delphi">
function OnListNew():string;
begin
frmListe.cmdF12.Enabled := True;
frmListe.cmdF12.Caption := 'F12 Test';
frmListe.InitButtons(frmListe);
frmListe.PaintButtons(frmListe);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>
}}

{{Vorlage:KlapptextFAQ
|liste_buttons
|Andere Buttons Mit Funktion versehen
|<syntaxhighlight lang="Delphi">
Var cMyF8 : String;

function OnListNew():String;
begin
cMyF8 := 'Init';
Result := '';
end;

function OnF8():string;
begin
Meldung('Hallo '+cMyF8);
Result := 'OK';
end;

function Before_OnF8():String;
begin
Meldung('Before Hallo '+cMyF8);

//Dann wird Standard F8 nicht ausgeführt
Result := 'READY';
cMyF8 := Result;
end;
</syntaxhighlight>
}}

{{Vorlage:KlapptextFAQ
|liste_F12_Auswahl
|Button F12 mit Auswahlfunktion
|<syntaxhighlight lang="Delphi">

function OnListNew():string;
begin
frmListe.cmdF12.Enabled := True;
frmListe.cmdF12.Caption := 'F12 Test';
frmListe.InitButtons(frmListe);
frmListe.PaintButtons(frmListe);
end;

procedure OnF12();
var oLines : TStringList;
oResult : TStringList;
lEsc : Boolean;
cSelect : String;
begin
oLines := TStringList.Create();
oLines.Add('A - Test 1');
oLines.Add('B - Test 2');
oLines.Add('C - Test 3');

oResult := GetSelectionExt(oLines, //Auswahl
'Test', //Caption
lEsc, //Abruch? (var)
Nil, //uInit : DefGetSelection;
Nil, //uOnChange : DefGetSelection;
False, //Sort
-1, //Width
False, //MultiSel
False //AllLines
);

cSelect := LeftStr(oResult.Text, 1);

if (cSelect = 'A') then begin
Meldung('A');
end else if (cSelect = 'B') then begin
Meldung('B');
end else if (cSelect = 'C') then begin
Meldung('C');
end;

MyFreeAndNil(oLines);
MyFreeAndNil(oResult);
end;
</syntaxhighlight>
}}

==Besonderheiten==
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen

2020-04-09T08:49:20Z

Heibutzki:

{{Makros und Scripting}}

==Methoden der Liste==
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnListNew || OnF1
|-
|OnResize || OnF2
|-
|OnRefresh || OnF3
|-
|Before_OnClose || OnF4
|-
| || OnF5
|-
| || OnF6
|-
| || OnF7
|-
| || OnF8
|-
| || OnF9
|-
| || OnF10
|-
| || OnF11
|-
| || OnF12
|-
| || OnReturn
|-
| || OnInsert
|-
| || OnDelete
|-
| || OnESC
|}

==Beispiele Liste==
{{Vorlage:KlapptextFAQ
|liste_F12
|Button F12 anzeigen und mit Funktionalität versehen
|<syntaxhighlight lang="Delphi">
function OnListNew():string;
begin
frmListe.cmdF12.Enabled := True;
frmListe.cmdF12.Caption := 'F12 Test';
frmListe.InitButtons(frmListe);
frmListe.PaintButtons(frmListe);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>
}}

{{Vorlage:KlapptextFAQ
|liste_buttons
|Andere Buttons Mit Funktion versehen
|<syntaxhighlight lang="Delphi">
Var cMyF8 : String;

function OnListNew():String;
begin
cMyF8 := 'Init';
Result := '';
end;

function OnF8():string;
begin
Meldung('Hallo '+cMyF8);
Result := 'OK';
end;

function Before_OnF8():String;
begin
Meldung('Before Hallo '+cMyF8);

//Dann wird Standard F8 nicht ausgeführt
Result := 'READY';
cMyF8 := Result;
end;
</syntaxhighlight>
}}

======
{{Vorlage:KlapptextFAQ
|liste_F12_Auswahl
|Button F12 mit Auswahlfunktion
|<syntaxhighlight lang="Delphi">

function OnListNew():string;
begin
frmListe.cmdF12.Enabled := True;
frmListe.cmdF12.Caption := 'F12 Test';
frmListe.InitButtons(frmListe);
frmListe.PaintButtons(frmListe);
end;

procedure OnF12();
var oLines : TStringList;
oResult : TStringList;
lEsc : Boolean;
cSelect : String;
begin
oLines := TStringList.Create();
oLines.Add('A - Test 1');
oLines.Add('B - Test 2');
oLines.Add('C - Test 3');

oResult := GetSelectionExt(oLines, //Auswahl
'Test', //Caption
lEsc, //Abruch? (var)
Nil, //uInit : DefGetSelection;
Nil, //uOnChange : DefGetSelection;
False, //Sort
-1, //Width
False, //MultiSel
False //AllLines
);

cSelect := LeftStr(oResult.Text, 1);

if (cSelect = 'A') then begin
Meldung('A');
end else if (cSelect = 'B') then begin
Meldung('B');
end else if (cSelect = 'C') then begin
Meldung('C');
end;

MyFreeAndNil(oLines);
MyFreeAndNil(oResult);
end;
</syntaxhighlight>
}}

==Besonderheiten==
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-31T14:08:58Z

Heibutzki: /* Beispiel zusätzliche Sortierung F4 */

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

Zu finden ist das Customizing über "Strg+F12 - C1" in der entsprechenden Select-Liste.

[[Datei:Wiki custom 1.jpg]]

[[Datei:Wiki custom 2.jpg]]
==Beispiel zusätzliche Sortierung F4==
<syntaxhighlight lang="Delphi">
var oMyFrmListe : TFrmListe;
oSelect : TfrmSelect;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
oSelect := ofrmSelect;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oMyFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('Bemerkung' , 'ttg_text' , 80, Show_RichText ,ListAlign('taLeftJustify')); // Wandelt Richtextfelder zur Anzeige in einfachen Klartext um
AddColumn ('M' , 'ttg_user' , 5, Show_Mark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

oSelect.LockScripter(); // Damit der Scripter im Speicher gehalten wird.

end;
end;
</syntaxhighlight>

==Beispiel zusätzliche Funktionen F10==
<syntaxhighlight lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-31T14:04:11Z

Heibutzki:

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

Zu finden ist das Customizing über "Strg+F12 - C1" in der entsprechenden Select-Liste.

[[Datei:Wiki custom 1.jpg]]

[[Datei:Wiki custom 2.jpg]]
==Beispiel zusätzliche Sortierung F4==
<syntaxhighlight lang="Delphi">
var oMyFrmListe : TFrmListe;
oSelect : TfrmSelect;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
oSelect := ofrmSelect;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oMyFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('Bemerkung' , 'ttg_text' , 80, Show_RichText ,ListAlign('taLeftJustify')); // Wandelt Richtextfelder zur Anzeige in einfachen Klartext um
AddColumn ('M' , 'ttg_user' , 5, Show_Mark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

oSelect.LockScripter();

end;
end;
</syntaxhighlight>

==Beispiel zusätzliche Funktionen F10==
<syntaxhighlight lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize

2020-03-25T10:59:12Z

Heibutzki:

OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits

2020-03-25T10:58:51Z

Heibutzki:

{{Makros und Scripting}}

==Methoden der Eingabemaske==
Für die Customize-Scripte stehen Ihnen diverse Funktionalitäten zur Verfügung. Nachfolgend eine Liste aller Customize-Funktionen der Maske:
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnEdFormInit || OnF1
|-
|OnEdInit || OnF2
|-
|OnEdVorb || OnF3
|-
|OnEdShow || OnF4
|-
|OnEdStable || OnF5
|-
|OnEdReadDirect || OnF6
|-
|OnEdRead || OnF7
|-
|OnEdStable || OnF8
|-
|OnEdCheck || OnF9
|-
|OnEdqSQL || OnF10
|-
|OnEdSaveDirect || OnF11
|-
|OnEdSave || OnF12
|-
|CheckIfChanged || OnPGDN
|-
|OnEdClose || OnPGUP
|-
| || OnReturn
|-
| || OnESC
|}
Die hier aufgeführten '''internen Funktionen''' sind in der Reihenfolge aufgelistet, wie sie vom OBS beim Öffnen (OnEdFormInit bis OnEdStable) und Schließen (OnEdCheck bis OnEdClose) von Eingabemasken auch abgearbeitet werden.
{{Hinweis|Bei der Verwendung der Funktionen in Customize-Scripten ist die Reihenfolge der Abarbeitung der Masken-Funktion und der Customize-Funktion von Bedeutung. Grundsätzlich gilt: Interne Funktionen werden vor dem Customize ausgeführt und Tastatur-Funktionen nach der Customize-Funktion. Um ein Customize vor der internen Funktion auszuführen, muss dem Funktionsnamen der Präfix '''Before_''' gegeben werden. Für Tastatur-Funktionen gilt dies nur für '''OnESC'''.}}
==Zugriff auf Komponenten==
Um auf Komponenten der Maske zuzugreifen, sollten Sie die Funktionen '''xGet''' (Daten lesen) und '''xSet''' (Daten schreiben) verwenden.
<syntaxhighlight lang="Delphi">
//Auslesen einer Komponente
cName := FrmEdit.xGet('a_name');
//Setzen einer Komponente
FrmEdit.xSet('a_name',"Meier");
</syntaxhighlight>

==Globale Variablen der Eingabemaske==
Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Property's stehen zu Verfügung:
{| class="wikitable"
|-
!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 = Insertmodus False = 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)
|}
==Beispiele Eingabemaske==
===Button F12 anzeigen und mit Funktionalität versehen===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>

===Aufruf von weiteren Macros innerhalb des Macros===
<syntaxhighlight lang="Delphi">
function OnEdInit():string;
begin
frmEdit.cmdF12.Enabled := True;
frmEdit.cmdF12.Caption := 'F12 Test';
frmEdit.InitButtons(frmEdit);
frmEdit.PaintButtons(frmEdit);
end;

procedure OnF12();
var oParams: TStringlist; //Parameter für Aufruf
begin
//Aufruf ohne Parameter
RunMacroFile('data\MACRO\Spezial\Test123.pmac');

//Aufruf mit Parameter
oParams := TStringlist.Create;
oParams.Add('TEST456');
RunMacroFile('data\MACRO\Spezial\Test123.pmac', frmEdit, oParams);
MyFreeAndNil(oParams);
end;
</syntaxhighlight>

===Eingaben prüfen===
<syntaxhighlight lang="Delphi">
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;
</syntaxhighlight>

===Positionen in Vorgängen blockieren===
Mit dem folgendem Beispiel kann entschieden werden ob Positionen eines Vorgangs geöffnet werden sollen.

Name: AN_VORGANG_EDIT Function OpenClose
{{Hinweis| Der Prefix "AN" steht für den DMS-Typ Angebot. Eine Übersicht aller DMS-Typen finden Sie [[OBS/Makros und Scripting/Developer/Sonstiges/DMS Abkürzungen|hier]].}}

<syntaxhighlight lang="Delphi">
function OpenClose(cVgNr:String; lInsertMode:Boolean):Boolean;
begin
//DebugLine('cVgNr'+cVgNr);

//02 = Möbel
Result := oOBS.cBenutzergruppe <> '02';

if (Result) then begin
//Wenn Positionen vorhanden dann kein Positions-Edit
if (DB_LSeek(oDB,'ANGPOS','az_nr='+DB_SqlVal(cVGNr))) then begin
Result := False;
end;
end;

if (Result) then begin

//DebugLine(iif(lInsertMode,'True','False'));

//Bei nicht Insert immer False
if (lInsertMode = False) then begin
Result := False;
end;
end;

end;
</syntaxhighlight>

==User-Reiter==
In OBS ab Version 003191 können Edit-Masken per Customizing-Script um eigene Reiter erweitert werden. Diese darin verwalteten Felder können mit [[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|eigenen Datenbankfeldern]] definiert werden.

[[Datei:Usertab.jpg]]

===Beispiel-Userdatenbank===
<syntaxhighlight lang="Delphi">
#DBNAME TODO

#FELDNAME USER_BEMERK , C , 8 , 0 , "CCCCCCCC"
#FELDNAME USER_WGR , C , 3 , 0 , "*"
#FELDNAME USER_TOGGLE , C , 1 , 0 , "C"
#FELDNAME USER_BETRAG , N , 11 , 0 , "NNNNNNNN.NNNN"
#FELDNAME USER_DATUM , D , 4 , 0 , "TT.MM.JJ"
#FELDNAME USER_LANGTEXT , M , 2000 , 0 , "*"
</syntaxhighlight>
===Beispielscript===
<syntaxhighlight lang="Delphi">
function OnEdInit(): String;
var oTab : TTabSheet;
oStr : TStringEdit;
oLbl : TLabel;
oNEd : TNumericEdit;
oDVE : TDateValEdit;
oChB : TxCheckBox;
oCBL : TCombiListe;
oTRE : TTextRichEdit;
begin
oTab := frmEdit.AddUserTab(); // Erstellt neuen User-Tab auf dem Edit
if assigned(oTab) then begin

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Textzeile:';
oLbl.Top := 10;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oStr := TStringEdit.Create(frmEdit);
oStr.Name := 'stred_db_user_bemerk'; // Damit automatisches Speichern/Laden von Datenbankfeldern funktioniert, muss im Komponentennamen '_db_' und der Feldname stehen.
oStr.Top := 10;
oStr.Left := 130;
oStr.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Summe:';
oLbl.Top := 40;
oLbl.Left := 10;
oLbl.Parent := oTab;

oNEd := TNumericEdit.Create(frmEdit);
oNEd.Name := 'numed_db_user_betrag';
oNEd.Top := 40;
oNEd.Left := 130;
oNEd.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Datum:';
oLbl.Top := 70;
oLbl.Left := 10;
oLbl.Parent := oTab;

oDVE := TDateValEdit.Create(frmEdit);
oDVE.Name := 'datev_db_user_datum';
oDVE.Top := 70;
oDVE.Left := 130;
oDVE.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Schalter:';
oLbl.Top := 100;
oLbl.Left := 10;
oLbl.Parent := oTab;

oChB := TxCheckBox.Create(frmEdit);
oChB.Name := 'cb_db_user_toggle';
oChB.Caption := 'Schalter';
oChB.Top := 100;
oChB.Left := 130;
oChB.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Suchliste:';
oLbl.Top := 130;
oLbl.Left := 10;
oLbl.Parent := oTab;

oCBL := FrmEdit.AddCombiliste();
oCBL.Name := 'cbl_db_user_wgr';
oCBL.Top := 130;
oCBL.Left := 130;
oCBL.Parent := oTab;

oCBL.GetSuli.Tablename := 'WARENGR'; // Verknüpfte Tabelle
oCBL.GetSuli.CompareField := 'wg_nr'; // Feld mit eindeutiger ID zur Zuordnung
oCBL.GetSuli.ShowField := 'wg_name'; // Feld, das als Bezeichnung in der Kombiliste angezeigt wird
oCBL.GetSuli.Caption := ML('Warengruppe'); // Fenstertitel der Suchliste, die sich beim Klick auf # öffnet
oCBL.GetSuli.SQLOrder := 'wg_nr'; // Feld, nach dem die Suchliste sortiert werden soll
oCBL.GetSuli.SQlWhere := ''; // Filter für Daten in der Suchliste, z. bsp. 'az_nr like "5%"'

oCBL.GetSuli.Width := 500; // Weite des Suchlistenfensters
oCBL.GetSuli.Height := 400; // Höhe des Suchlistenfensters

oCBL.GetSuli.InitColumn('Nr', 'wg_nr', 30, nil, '', System.Classes.TAlignment.taLeftJustify);
oCBL.GetSuli.AddColumn('Name', 'wg_name', 30, nil, '', System.Classes.TAlignment.taLeftJustify);

// Die erste Spalte der Suchliste muss mit InitColumn erstellt werden, alle weiteren mit AddColumn.
// Parameter:

// Anzeigename : String,
// Feldname : String,
// relative_Breite : Integer,
// Anzeigefunktion : Function of String, vorerst immer nil,
// Anzeigenmaskierung : String = '', Beispiel: '##9,99': Es werden immer eine Vorkommastelle und immer zwei Nachkommastellen angezeigt, und optional zwei zusätzliche Vorkommastellen, wenn vorhanden.
// Ausrichtung : System.Classes.TAlignment.[taLeftJustify, taRightJustify, taCenter]

//------------------------------------------------------------------

oTRE := TTextRichEdit.Create(frmEdit);
oTRE.Name := 'riced_db_user_langtext';
oTRE.Top := 170;
oTRE.Left := 10;
oTRE.Height := 300;
oTRE.Width := 400;
oTRE.RulerH := false;
oTRE.Parent := oTab;

//------------------------------------------------------------------

end;
end;
</syntaxhighlight>

==Besonderheiten==
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen

2020-03-25T10:58:33Z

Heibutzki:

{{Makros und Scripting}}

==Methoden der Liste==
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnListNew || OnF1
|-
|OnResize || OnF2
|-
|OnRefresh || OnF3
|-
|Before_OnClose || OnF4
|-
| || OnF5
|-
| || OnF6
|-
| || OnF7
|-
| || OnF8
|-
| || OnF9
|-
| || OnF10
|-
| || OnF11
|-
| || OnF12
|-
| || OnReturn
|-
| || OnInsert
|-
| || OnDelete
|-
| || OnESC
|}

==Beispiele Liste==
===Button F12 anzeigen und mit Funktionalität versehen===
<syntaxhighlight lang="Delphi">
function OnListNew():string;
begin
frmListe.cmdF12.Enabled := True;
frmListe.cmdF12.Caption := 'F12 Test';
frmListe.InitButtons(frmListe);
frmListe.PaintButtons(frmListe);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>

===Andere Buttons Mit Funktion versehen===
<syntaxhighlight lang="Delphi">
Var cMyF8 : String;

function OnListNew():String;
begin
cMyF8 := 'Init';
Result := '';
end;

function OnF8():string;
begin
Meldung('Hallo '+cMyF8);
Result := 'OK';
end;

function Before_OnF8():String;
begin
Meldung('Before Hallo '+cMyF8);

//Dann wird Standard F8 nicht ausgeführt
Result := 'READY';
cMyF8 := Result;
end;
</syntaxhighlight>

===Button F12 mit Auswahlfunktion===
<syntaxhighlight lang="Delphi">

function OnListNew():string;
begin
frmListe.cmdF12.Enabled := True;
frmListe.cmdF12.Caption := 'F12 Test';
frmListe.InitButtons(frmListe);
frmListe.PaintButtons(frmListe);
end;

procedure OnF12();
var oLines : TStringList;
oResult : TStringList;
lEsc : Boolean;
cSelect : String;
begin
oLines := TStringList.Create();
oLines.Add('A - Test 1');
oLines.Add('B - Test 2');
oLines.Add('C - Test 3');

oResult := GetSelectionExt(oLines, //Auswahl
'Test', //Caption
lEsc, //Abruch? (var)
Nil, //uInit : DefGetSelection;
Nil, //uOnChange : DefGetSelection;
False, //Sort
-1, //Width
False, //MultiSel
False //AllLines
);

cSelect := LeftStr(oResult.Text, 1);

if (cSelect = 'A') then begin
Meldung('A');
end else if (cSelect = 'B') then begin
Meldung('B');
end else if (cSelect = 'C') then begin
Meldung('C');
end;

MyFreeAndNil(oLines);
MyFreeAndNil(oResult);
end;
</syntaxhighlight>

==Besonderheiten==
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

OBS/Makros und Scripting/Anwendungsbereiche/Customize

2020-03-25T10:57:58Z

Heibutzki:

OBS/Makros und Scripting/Anwendungsbereiche/Customize

2020-03-25T10:57:47Z

Heibutzki:

OBS/Makros und Scripting/Anwendungsbereiche/Customize

2020-03-25T10:57:04Z

Heibutzki: /* Zugriff auf die Einstellungen */

{{Makros und Scripting}}
Das '''kostenpflichtige''' Modul Customize erlaubt die Individualisierug vom OBS und kann die Funktionalität der Software entscheidend erweitern, um z. B. Arbeitsabläufe zu verbessern oder die Einhaltung bestimmter Vorgaben einzuhalten. So lassen sich u. a. Zugriffe auf Felder steuern oder Daten in Eingabemasken vorbelegen oder prüfen. Jedes [https://de.wikipedia.org/wiki/Makro Makro] kann systemweit oder pro Benutzer hinterlegt werden.
=Allgemeines=
==Aktivierung Modul Customize==
Der Aktivitätsstatus des Moduls wird über einen [[OBS/Stammdaten/Programmparameter|Programmparameter]] gesteuert, welcher nur Administratoren zugänglich ist. Die Freischaltung erfolgt durch den Support auf Anfrage.
==Zugriff auf die Einstellungen==
Der Zugriff auf die Customize-Einstellungen erfolgt über die [[OBS/System/Rechte_Verwaltung|'''Rechte Verwaltung''']] {{Key|strg}} + {{F12}}. Für Customize-Scripte wählen Sie den entsprechenden Punkt in der sich öffnenden Auswahlbox:
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen|Listen: '''A Customize Listen''']]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits|Eingabemasken: '''A Customize Edit''']]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen|Select-Listen: '''C1 Funktionen Auswahlbox''']]

=Customizing Erweiterung=
==Benutzergruppen==
Den Wiki-Seite zu den Benutzergruppe finden Sie [[OBS/Stammdaten/Weitere Stammdaten/Benutzer Gruppen|hier]].

=Besonderheiten=
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

=User-Reiter=
In OBS ab Version 003191 können Edit-Masken per Customizing-Script um eigene Reiter erweitert werden. Diese darin verwalteten Felder können mit [[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|eigenen Datenbankfeldern]] definiert werden.

[[Datei:Usertab.jpg]]

===Beispiel-Userdatenbank===
<syntaxhighlight lang="Delphi">
#DBNAME TODO

#FELDNAME USER_BEMERK , C , 8 , 0 , "CCCCCCCC"
#FELDNAME USER_WGR , C , 3 , 0 , "*"
#FELDNAME USER_TOGGLE , C , 1 , 0 , "C"
#FELDNAME USER_BETRAG , N , 11 , 0 , "NNNNNNNN.NNNN"
#FELDNAME USER_DATUM , D , 4 , 0 , "TT.MM.JJ"
#FELDNAME USER_LANGTEXT , M , 2000 , 0 , "*"
</syntaxhighlight>
===Beispielscript===
<syntaxhighlight lang="Delphi">
function OnEdInit(): String;
var oTab : TTabSheet;
oStr : TStringEdit;
oLbl : TLabel;
oNEd : TNumericEdit;
oDVE : TDateValEdit;
oChB : TxCheckBox;
oCBL : TCombiListe;
oTRE : TTextRichEdit;
begin
oTab := frmEdit.AddUserTab(); // Erstellt neuen User-Tab auf dem Edit
if assigned(oTab) then begin

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Textzeile:';
oLbl.Top := 10;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oStr := TStringEdit.Create(frmEdit);
oStr.Name := 'stred_db_user_bemerk'; // Damit automatisches Speichern/Laden von Datenbankfeldern funktioniert, muss im Komponentennamen '_db_' und der Feldname stehen.
oStr.Top := 10;
oStr.Left := 130;
oStr.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Summe:';
oLbl.Top := 40;
oLbl.Left := 10;
oLbl.Parent := oTab;

oNEd := TNumericEdit.Create(frmEdit);
oNEd.Name := 'numed_db_user_betrag';
oNEd.Top := 40;
oNEd.Left := 130;
oNEd.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Datum:';
oLbl.Top := 70;
oLbl.Left := 10;
oLbl.Parent := oTab;

oDVE := TDateValEdit.Create(frmEdit);
oDVE.Name := 'datev_db_user_datum';
oDVE.Top := 70;
oDVE.Left := 130;
oDVE.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Schalter:';
oLbl.Top := 100;
oLbl.Left := 10;
oLbl.Parent := oTab;

oChB := TxCheckBox.Create(frmEdit);
oChB.Name := 'cb_db_user_toggle';
oChB.Caption := 'Schalter';
oChB.Top := 100;
oChB.Left := 130;
oChB.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Suchliste:';
oLbl.Top := 130;
oLbl.Left := 10;
oLbl.Parent := oTab;

oCBL := FrmEdit.AddCombiliste();
oCBL.Name := 'cbl_db_user_wgr';
oCBL.Top := 130;
oCBL.Left := 130;
oCBL.Parent := oTab;

oCBL.GetSuli.Tablename := 'WARENGR'; // Verknüpfte Tabelle
oCBL.GetSuli.CompareField := 'wg_nr'; // Feld mit eindeutiger ID zur Zuordnung
oCBL.GetSuli.ShowField := 'wg_name'; // Feld, das als Bezeichnung in der Kombiliste angezeigt wird
oCBL.GetSuli.Caption := ML('Warengruppe'); // Fenstertitel der Suchliste, die sich beim Klick auf # öffnet
oCBL.GetSuli.SQLOrder := 'wg_nr'; // Feld, nach dem die Suchliste sortiert werden soll
oCBL.GetSuli.SQlWhere := ''; // Filter für Daten in der Suchliste, z. bsp. 'az_nr like "5%"'

oCBL.GetSuli.Width := 500; // Weite des Suchlistenfensters
oCBL.GetSuli.Height := 400; // Höhe des Suchlistenfensters

oCBL.GetSuli.InitColumn('Nr', 'wg_nr', 30, nil, '', System.Classes.TAlignment.taLeftJustify);
oCBL.GetSuli.AddColumn('Name', 'wg_name', 30, nil, '', System.Classes.TAlignment.taLeftJustify);

// Die erste Spalte der Suchliste muss mit InitColumn erstellt werden, alle weiteren mit AddColumn.
// Parameter:

// Anzeigename : String,
// Feldname : String,
// relative_Breite : Integer,
// Anzeigefunktion : Function of String, vorerst immer nil,
// Anzeigenmaskierung : String = '', Beispiel: '##9,99': Es werden immer eine Vorkommastelle und immer zwei Nachkommastellen angezeigt, und optional zwei zusätzliche Vorkommastellen, wenn vorhanden.
// Ausrichtung : System.Classes.TAlignment.[taLeftJustify, taRightJustify, taCenter]

//------------------------------------------------------------------

oTRE := TTextRichEdit.Create(frmEdit);
oTRE.Name := 'riced_db_user_langtext';
oTRE.Top := 170;
oTRE.Left := 10;
oTRE.Height := 300;
oTRE.Width := 400;
oTRE.RulerH := false;
oTRE.Parent := oTab;

//------------------------------------------------------------------

end;
end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize

2020-03-25T10:56:56Z

Heibutzki:

{{Makros und Scripting}}
Das '''kostenpflichtige''' Modul Customize erlaubt die Individualisierug vom OBS und kann die Funktionalität der Software entscheidend erweitern, um z. B. Arbeitsabläufe zu verbessern oder die Einhaltung bestimmter Vorgaben einzuhalten. So lassen sich u. a. Zugriffe auf Felder steuern oder Daten in Eingabemasken vorbelegen oder prüfen. Jedes [https://de.wikipedia.org/wiki/Makro Makro] kann systemweit oder pro Benutzer hinterlegt werden.
=Allgemeines=
==Aktivierung Modul Customize==
Der Aktivitätsstatus des Moduls wird über einen [[OBS/Stammdaten/Programmparameter|Programmparameter]] gesteuert, welcher nur Administratoren zugänglich ist. Die Freischaltung erfolgt durch den Support auf Anfrage.
==Zugriff auf die Einstellungen==
Der Zugriff auf die Customize-Einstellungen erfolgt über die [[OBS/System/Rechte_Verwaltung|'''Rechte Verwaltung''']] {{Key|strg}} + {{F12}}. Für Customize-Scripte wählen Sie den entsprechenden Punkt in der sich öffnenden Auswahlbox:
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen|Listen: '''A Customize Listen''']]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits|Eingabemasken: '''A Customize Edit'']]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen|Select-Listen: '''C1 Funktionen Auswahlbox''']]
=Customizing Erweiterung=
==Benutzergruppen==
Den Wiki-Seite zu den Benutzergruppe finden Sie [[OBS/Stammdaten/Weitere Stammdaten/Benutzer Gruppen|hier]].

=Besonderheiten=
{{Hinweis|Sämtliche Tastatur-Funktionen haben noch eine Variante mit dem Präfix '''Before_'''.}}
{{Achtung|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ändert werden. Dies kann schwere Programmfehler verursachen!}}
{{Achtung|Das Überschreiben von nicht zugewiesenen Funktionstasten (F1 - F11) sollte vermieden werden, da diese von uns jederzeit mit Funktionen belegt werden können. F12 steht immer zur Verfügung.}}

=User-Reiter=
In OBS ab Version 003191 können Edit-Masken per Customizing-Script um eigene Reiter erweitert werden. Diese darin verwalteten Felder können mit [[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|eigenen Datenbankfeldern]] definiert werden.

[[Datei:Usertab.jpg]]

===Beispiel-Userdatenbank===
<syntaxhighlight lang="Delphi">
#DBNAME TODO

#FELDNAME USER_BEMERK , C , 8 , 0 , "CCCCCCCC"
#FELDNAME USER_WGR , C , 3 , 0 , "*"
#FELDNAME USER_TOGGLE , C , 1 , 0 , "C"
#FELDNAME USER_BETRAG , N , 11 , 0 , "NNNNNNNN.NNNN"
#FELDNAME USER_DATUM , D , 4 , 0 , "TT.MM.JJ"
#FELDNAME USER_LANGTEXT , M , 2000 , 0 , "*"
</syntaxhighlight>
===Beispielscript===
<syntaxhighlight lang="Delphi">
function OnEdInit(): String;
var oTab : TTabSheet;
oStr : TStringEdit;
oLbl : TLabel;
oNEd : TNumericEdit;
oDVE : TDateValEdit;
oChB : TxCheckBox;
oCBL : TCombiListe;
oTRE : TTextRichEdit;
begin
oTab := frmEdit.AddUserTab(); // Erstellt neuen User-Tab auf dem Edit
if assigned(oTab) then begin

oLbl := TLabel.Create(frmEdit); // Damit die Ressourcenverwaltung funktioniert
oLbl.Caption := 'Textzeile:';
oLbl.Top := 10;
oLbl.Left := 10;
oLbl.Parent := oTab; // Damit die Anzeige korrekt funktioniert

oStr := TStringEdit.Create(frmEdit);
oStr.Name := 'stred_db_user_bemerk'; // Damit automatisches Speichern/Laden von Datenbankfeldern funktioniert, muss im Komponentennamen '_db_' und der Feldname stehen.
oStr.Top := 10;
oStr.Left := 130;
oStr.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Summe:';
oLbl.Top := 40;
oLbl.Left := 10;
oLbl.Parent := oTab;

oNEd := TNumericEdit.Create(frmEdit);
oNEd.Name := 'numed_db_user_betrag';
oNEd.Top := 40;
oNEd.Left := 130;
oNEd.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Datum:';
oLbl.Top := 70;
oLbl.Left := 10;
oLbl.Parent := oTab;

oDVE := TDateValEdit.Create(frmEdit);
oDVE.Name := 'datev_db_user_datum';
oDVE.Top := 70;
oDVE.Left := 130;
oDVE.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Schalter:';
oLbl.Top := 100;
oLbl.Left := 10;
oLbl.Parent := oTab;

oChB := TxCheckBox.Create(frmEdit);
oChB.Name := 'cb_db_user_toggle';
oChB.Caption := 'Schalter';
oChB.Top := 100;
oChB.Left := 130;
oChB.Parent := oTab;

//------------------------------------------------------------------

oLbl := TLabel.Create(frmEdit);
oLbl.Caption := 'Suchliste:';
oLbl.Top := 130;
oLbl.Left := 10;
oLbl.Parent := oTab;

oCBL := FrmEdit.AddCombiliste();
oCBL.Name := 'cbl_db_user_wgr';
oCBL.Top := 130;
oCBL.Left := 130;
oCBL.Parent := oTab;

oCBL.GetSuli.Tablename := 'WARENGR'; // Verknüpfte Tabelle
oCBL.GetSuli.CompareField := 'wg_nr'; // Feld mit eindeutiger ID zur Zuordnung
oCBL.GetSuli.ShowField := 'wg_name'; // Feld, das als Bezeichnung in der Kombiliste angezeigt wird
oCBL.GetSuli.Caption := ML('Warengruppe'); // Fenstertitel der Suchliste, die sich beim Klick auf # öffnet
oCBL.GetSuli.SQLOrder := 'wg_nr'; // Feld, nach dem die Suchliste sortiert werden soll
oCBL.GetSuli.SQlWhere := ''; // Filter für Daten in der Suchliste, z. bsp. 'az_nr like "5%"'

oCBL.GetSuli.Width := 500; // Weite des Suchlistenfensters
oCBL.GetSuli.Height := 400; // Höhe des Suchlistenfensters

oCBL.GetSuli.InitColumn('Nr', 'wg_nr', 30, nil, '', System.Classes.TAlignment.taLeftJustify);
oCBL.GetSuli.AddColumn('Name', 'wg_name', 30, nil, '', System.Classes.TAlignment.taLeftJustify);

// Die erste Spalte der Suchliste muss mit InitColumn erstellt werden, alle weiteren mit AddColumn.
// Parameter:

// Anzeigename : String,
// Feldname : String,
// relative_Breite : Integer,
// Anzeigefunktion : Function of String, vorerst immer nil,
// Anzeigenmaskierung : String = '', Beispiel: '##9,99': Es werden immer eine Vorkommastelle und immer zwei Nachkommastellen angezeigt, und optional zwei zusätzliche Vorkommastellen, wenn vorhanden.
// Ausrichtung : System.Classes.TAlignment.[taLeftJustify, taRightJustify, taCenter]

//------------------------------------------------------------------

oTRE := TTextRichEdit.Create(frmEdit);
oTRE.Name := 'riced_db_user_langtext';
oTRE.Top := 170;
oTRE.Left := 10;
oTRE.Height := 300;
oTRE.Width := 400;
oTRE.RulerH := false;
oTRE.Parent := oTab;

//------------------------------------------------------------------

end;
end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-25T10:54:15Z

Heibutzki:

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

Zu finden ist das Customizing über "Strg+F12 - C1" in der entsprechenden Select-Liste.

[[Datei:Wiki custom 1.jpg]]

[[Datei:Wiki custom 2.jpg]]
==Beispiel zusätzliche Sortierung F4==
<syntaxhighlight lang="Delphi">
var oMyFrmListe : TFrmListe;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oMyFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('Bemerkung' , 'ttg_text' , 80, Show_RichText ,ListAlign('taLeftJustify')); // Wandelt Richtextfelder zur Anzeige in einfachen Klartext um
AddColumn ('M' , 'ttg_user' , 5, Show_Mark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

end;
end;
</syntaxhighlight>

==Beispiel zusätzliche Funktionen F10==
<syntaxhighlight lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-25T10:53:04Z

Heibutzki:

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

[[Datei:Wiki custom 1.jpg]]

[[Datei:Wiki custom 2.jpg]]
==Beispiel zusätzliche Sortierung F4==
<syntaxhighlight lang="Delphi">
var oMyFrmListe : TFrmListe;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oMyFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('Bemerkung' , 'ttg_text' , 80, Show_RichText ,ListAlign('taLeftJustify')); // Wandelt Richtextfelder zur Anzeige in einfachen Klartext um
AddColumn ('M' , 'ttg_user' , 5, Show_Mark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

end;
end;
</syntaxhighlight>

==Beispiel zusätzliche Funktionen F10==
<syntaxhighlight lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlight>

Datei:Wiki custom 2.jpg

2020-03-25T10:52:51Z

Heibutzki:

Datei:Wiki custom 1.jpg

2020-03-25T10:52:18Z

Heibutzki:

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-25T10:44:28Z

Heibutzki: /* Beispiel zusätzliche Sortierung F4 */

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

==Beispiel zusätzliche Sortierung F4==
<syntaxhighlight lang="Delphi">
var oMyFrmListe : TFrmListe;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oMyFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('Bemerkung' , 'ttg_text' , 80, Show_RichText ,ListAlign('taLeftJustify')); // Wandelt Richtextfelder zur Anzeige in einfachen Klartext um
AddColumn ('M' , 'ttg_user' , 5, Show_Mark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

end;
end;
</syntaxhighlight>

==Beispiel zusätzliche Funktionen F10==
<syntaxhighlight lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-25T10:43:53Z

Heibutzki: /* Beispiel zusätzliche Sortierung F4 */

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

==Beispiel zusätzliche Sortierung F4==
<syntaxhighlight lang="Delphi">
var oMyFrmListe : TFrmListe;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oMyFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify'));
AddColumn ('M' , 'ttg_user' , 5, ShowMark ,ListAlign('taLeftJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('Bemerkung' , 'ttg_text' , 80, Show_RichText ,ListAlign('taLeftJustify')); // Wandelt Richtextfelder in einfachen Klartext um, damit Texte in der Liste angezeigt werden können
AddColumn ('M' , 'ttg_user' , 5, Show_Mark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

end;
end;
</syntaxhighlight>

==Beispiel zusätzliche Funktionen F10==
<syntaxhighlight lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-25T10:40:49Z

Heibutzki: /* Beispiel zusätzliche Sortierung F4 */

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

==Beispiel zusätzliche Sortierung F4==
<syntaxhighlight lang="Delphi">
var oMyFrmListe : TFrmListe;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oMyFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('M' , 'ttg_user' , 5, ShowMark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

end;
end;
</syntaxhighlight>

==Beispiel zusätzliche Funktionen F10==
<syntaxhighlight lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-25T10:30:15Z

Heibutzki:

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

==Beispiel zusätzliche Sortierung F4==
<syntaxhighlight lang="Delphi">
var oMyFrmListe : TFrmListe;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('M' , 'ttg_user' , 5, ShowMark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

end;
end;
</syntaxhighlight>
==Beispiel zusätzliche Funktionen F10==
<syntaxhighlight lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen

2020-03-25T10:29:16Z

Heibutzki: Die Seite wurde neu angelegt: „{{Makros und Scripting}} Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funk…“

{{Makros und Scripting}}
Mit dem Customizing können verschiedene Select-Listen erweitert werden, beispielsweise die Auswahl von Sortierungen und weiteren Funktionen.

==Beispiel zusätzliche Sortierung F4==
<syntaxhighlighting Lang="Delphi">
var oMyFrmListe : TFrmListe;

procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
begin
oMyFrmListe := TFrmListe(FrmSelect.aSelect.Frm);
if (not Assigned(oFrmListe)) then begin
oMyFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin
MyIdx();
//Fängt internen Aufruf ab
Result := 'overload';
end;
end;

procedure MyIdx();
begin
With oMyFrmListe do begin

ListNew();

SqlDirect := 'SELECT * FROM TOUR_TOUREN'+
' LEFT JOIN TOUR_GEBIET ON tvm_nr = ttg_gebiet'+
' LEFT JOIN LKW ON l_nr = ttg_lkw';
ListOrder := 'ttg_status, ttg_nr DESC';
aTabel[0] := 'TOUR_TOUREN';

AddColumn ('LKW' , 'ttg_lkw' , 10);
AddColumn ('Gebiet' , 'tvm_name' , 10);
AddColumn ('Mit-Nr' , 'ttg_mitnr' , 10);
AddColumn ('Gewicht' , 'ttg_gewicht' , 10, '#####9' ,ListAlign('taRightJustify'));
AddColumn ('KM' , 'ttg_km' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('L-Datum' , 'ttg_ldatum' , 12);
AddColumn ('F-Zeit' , 'ttg_zeitfahr' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('B-Zeit' , 'ttg_zeitbearb' , 10, '###9,99' ,ListAlign('taRightJustify'));
AddColumn ('Umkehr' , 'ttg_auslieferfolge' , 10, Show_Field_Ja ,ListAlign('taLeftJustify')); // Show_Field_Ja wandelt Checkbox-Einträge aus der Datenbank in J/N um
AddColumn ('M' , 'ttg_user' , 5, ShowMark ,ListAlign('taLeftJustify')); // ShowMark ist das bekannte Markierverhalten von Listen

ListShow('TOUTMYA481', oMyFrmListe.Query, oMyFrmListe.DBGrid);

end;
end;
</syntaxhighlighting>
==Beispiel zusätzliche Funktionen F10==
<syntaxhighlighting Lang="Delphi">
procedure InitScripter(oFrmSelect:TFrmSelect);
begin
oFrmSelect.aSelect.lSorted := False;
oFrmSelect.aSelect.cHTMLTitel := 'Html Titel';
oFrmSelect.aSelect.nStart := 3;
end;

procedure Add_Select();
begin
FrmSelect.aSelect.AddSelect('A','XXX 1');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('B','XXX 2');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.AddSelect('C','XXX 3');
FrmSelect.aSelect.AddInfo('Hier HTML Hint');
FrmSelect.aSelect.lSorted := True;
end;

function Run_Select():String;
var oFrmListe : TFrmListe;
begin
oFrmListe := TFrmListe(FrmSelect.aSelect.Frm);

if (not Assigned(oFrmListe)) then begin
oFrmListe := TFrmListe(FrmSelect);
end;

//Scripter Einträge haben immer ein Z damit sie hinten stehen
if (FrmSelect.aSelect.GetAusWahl() = 'ZA') then begin

Meldung('F10 Klassenname = '+oFrmListe.ClassName);

if (lower(oFrmListe.ClassName) = 'tfrmauftrag') then begin
Meldung('Auftrags-Nr. = '+oFrmListe.Query.A2C('a_nr'));
end;

//Fängt internen Aufruf ab
Result := 'overload';
end;

end;
</syntaxhighlighting>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits

2020-03-25T09:18:00Z

Heibutzki:

OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen

2020-03-25T09:17:01Z

Heibutzki:

{{Makros und Scripting}}

==Methoden der Liste==
{| class="wikitable"
|-
!Interne Funktionen !! Tastatur-Funktionen
|-
|OnListNew || OnF1
|-
|OnResize || OnF2
|-
|OnRefresh || OnF3
|-
|Before_OnClose || OnF4
|-
| || OnF5
|-
| || OnF6
|-
| || OnF7
|-
| || OnF8
|-
| || OnF9
|-
| || OnF10
|-
| || OnF11
|-
| || OnF12
|-
| || OnReturn
|-
| || OnInsert
|-
| || OnDelete
|-
| || OnESC
|}

==Beispiele Liste==
===Button F12 anzeigen und mit Funktionalität versehen===
<syntaxhighlight lang="Delphi">
function OnListNew():string;
begin
frmListe.cmdF12.Enabled := True;
frmListe.cmdF12.Caption := 'F12 Test';
frmListe.InitButtons(frmListe);
frmListe.PaintButtons(frmListe);
end;

procedure OnF12();
begin
Meldung('Test');
end;
</syntaxhighlight>

===Andere Buttons Mit Funktion versehen===
<syntaxhighlight lang="Delphi">
Var cMyF8 : String;

function OnListNew():String;
begin
cMyF8 := 'Init';
Result := '';
end;

function OnF8():string;
begin
Meldung('Hallo '+cMyF8);
Result := 'OK';
end;

function Before_OnF8():String;
begin
Meldung('Before Hallo '+cMyF8);

//Dann wird Standard F8 nicht ausgeführt
Result := 'READY';
cMyF8 := Result;
end;
</syntaxhighlight>

===Button F12 mit Auswahlfunktion===
<syntaxhighlight lang="Delphi">

function OnListNew():string;
begin
frmListe.cmdF12.Enabled := True;
frmListe.cmdF12.Caption := 'F12 Test';
frmListe.InitButtons(frmListe);
frmListe.PaintButtons(frmListe);
end;

procedure OnF12();
var oLines : TStringList;
oResult : TStringList;
lEsc : Boolean;
cSelect : String;
begin
oLines := TStringList.Create();
oLines.Add('A - Test 1');
oLines.Add('B - Test 2');
oLines.Add('C - Test 3');

oResult := GetSelectionExt(oLines, //Auswahl
'Test', //Caption
lEsc, //Abruch? (var)
Nil, //uInit : DefGetSelection;
Nil, //uOnChange : DefGetSelection;
False, //Sort
-1, //Width
False, //MultiSel
False //AllLines
);

cSelect := LeftStr(oResult.Text, 1);

if (cSelect = 'A') then begin
Meldung('A');
end else if (cSelect = 'B') then begin
Meldung('B');
end else if (cSelect = 'C') then begin
Meldung('C');
end;

MyFreeAndNil(oLines);
MyFreeAndNil(oResult);
end;
</syntaxhighlight>

OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits

2020-03-25T08:55:32Z

Heibutzki: Die Seite wurde neu angelegt: „{{Makros und Scripting}} ==Methoden der Eingabemaske== Für die Customize-Scripte stehen Ihnen diverse Funktionalitäten zur Verfügung. Nachfolgend eine List…“

OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen

2020-03-25T08:55:05Z

Vorlage:Makros und Scripting

2020-03-25T08:52:49Z

Heibutzki:

<div style="float:right; clear:both; margin-left:2px; padding:0px; background:#FFFFFF; width:19em">
<div style="border:none;margin-top:0pt;padding:0pt;" id="navigation">
<div style="position:relative;top:-20pt;color:#000000;background:#ffffff; border: 3pt double #cfcfcf; padding: 5pt; margin: 0pt;margin-bottom:-20pt; z-index:1;border-top-right-radius:7pt;-moz-border-radius-topright:7pt;-webkit-border-top-right-radius:7pt;border-bottom-left-radius:7pt;-moz-border-radius-bottomleft:7pt;-webkit-border-bottom-left-radius:7pt;box-shadow: 3px 3px 4px #c0c0c0;-webkit-box-shadow: 3px 3px 4px #c0c0c0;-moz-box-shadow: 3px 3px 4px #c0c0c0;">[[Hauptseite|Wiki]] » [[OBS/Makros und Scripting|Makros und Scripting]]</div>
</div>
{{Vorlage:Textbox-Blau|1=Makros und Scripting|2=
<small>
{{Vorlage:Klapptext|kopf=[[OBS/Makros_und_Scripting#Allgemeines|'''Allgemeines''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Syntax|Syntax]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Funktionen|Übersicht Funktionen]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Prozeduren|Übersicht Prozeduren]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Konstanten|Übersicht Konstanten]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Globale Variablen|Übersicht Globale Variablen]]
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen|'''Klassen''']]|inhalt=
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge|'''Vorgangsgenerierung''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Angebot|Angebot]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Auftrag|Auftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Reparaturauftrag|Reparaturauftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Produktionsauftrag|Produktionsauftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Lieferschein|Lieferschein]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Rechnung|Rechnung]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Bestellung|Bestellung]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Einkaufslieferschein|Einkaufslieferschein]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Einkauf|Einkauf]]
}}
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei|'''Import-Dateien''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei/TxImportFile|TxImportFile]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei/TxImportFileCSV|TxImportFileCSV]]
}}
}}
* [[OBS/Makros und Scripting/Allgemeines/Script Library|Script Bibliothek]]
}}
{{Vorlage:Klapptext|kopf=[[OBS/Makros_und_Scripting#Anwendungsbereiche|'''Anwendungsbereiche''']]|inhalt=
* [[OBS/Makros und Scripting/Anwendungsbereiche/Drucke|Drucke]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Makrodateien|Sonstige Makrodateien]]
{{Vorlage:Klapptext|kopf=Customizing|inhalt=
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize|Übersicht]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen|Listen]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits|Edits]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen|Select-Listen]]
}}
* [[OBS/Makros und Scripting/Anwendungsbereiche/Preislisten|Preislisten]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Bildverwaltung|Bildverwaltung]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Artikelpflege|Artikelpflege]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Positionserfassung|Positionserfassung]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/DataInOut|Data In/Out]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Wiederkehrende Aufgaben|Wiederkehrende Aufgaben]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/OFML-Kalkulation|OFML-Kalkulation]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Zugriff auf externe Datenquellen|Zugriff auf externe Datenquellen (ODBC)]]
}}
[[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|Benutzerdefinierte Datenbanktabellen]]
</small>
}}
</div>
<noinclude>
----
</noinclude>
<noinclude>
Folgender Code muss in die jeweils gewünschte Seite hinzugefügt werden:
<nowiki>{{Makros und Scripting}}</nowiki>
[[Kategorie:Templates/Navigationen]]
</noinclude>

Vorlage:Makros und Scripting

2020-03-25T08:49:13Z

Heibutzki:

<div style="float:right; clear:both; margin-left:2px; padding:0px; background:#FFFFFF; width:19em">
<div style="border:none;margin-top:0pt;padding:0pt;" id="navigation">
<div style="position:relative;top:-20pt;color:#000000;background:#ffffff; border: 3pt double #cfcfcf; padding: 5pt; margin: 0pt;margin-bottom:-20pt; z-index:1;border-top-right-radius:7pt;-moz-border-radius-topright:7pt;-webkit-border-top-right-radius:7pt;border-bottom-left-radius:7pt;-moz-border-radius-bottomleft:7pt;-webkit-border-bottom-left-radius:7pt;box-shadow: 3px 3px 4px #c0c0c0;-webkit-box-shadow: 3px 3px 4px #c0c0c0;-moz-box-shadow: 3px 3px 4px #c0c0c0;">[[Hauptseite|Wiki]] » [[OBS/Makros und Scripting|Makros und Scripting]]</div>
</div>
{{Vorlage:Textbox-Blau|1=Makros und Scripting|2=
<small>
{{Vorlage:Klapptext|kopf=[[OBS/Makros_und_Scripting#Allgemeines|'''Allgemeines''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Syntax|Syntax]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Funktionen|Übersicht Funktionen]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Prozeduren|Übersicht Prozeduren]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Konstanten|Übersicht Konstanten]]
* [[OBS/Makros und Scripting/Allgemeines/Übersicht Globale Variablen|Übersicht Globale Variablen]]
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen|'''Klassen''']]|inhalt=
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge|'''Vorgangsgenerierung''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Angebot|Angebot]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Auftrag|Auftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Reparaturauftrag|Reparaturauftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Produktionsauftrag|Produktionsauftrag]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Lieferschein|Lieferschein]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Rechnung|Rechnung]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Bestellung|Bestellung]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Einkaufslieferschein|Einkaufslieferschein]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Einkauf|Einkauf]]
}}
{{Vorlage:Klapptext|kopf=[[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei|'''Import-Dateien''']]|inhalt=
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei/TxImportFile|TxImportFile]]
* [[OBS/Makros und Scripting/Allgemeines/Klassen/Importdatei/TxImportFileCSV|TxImportFileCSV]]
}}
}}
* [[OBS/Makros und Scripting/Allgemeines/Script Library|Script Bibliothek]]
}}
{{Vorlage:Klapptext|kopf=[[OBS/Makros_und_Scripting#Anwendungsbereiche|'''Anwendungsbereiche''']]|inhalt=
* [[OBS/Makros und Scripting/Anwendungsbereiche/Drucke|Drucke]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Makrodateien|Sonstige Makrodateien]]
{{Vorlage:Klapptext|kopf=[[OBS/Makros_und_Scripting#Anwendungsbereiche|'''Anwendungsbereiche''']]|inhalt=
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Listen|Customize Listen]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Edits|Customize Edits]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Customize Select-Listen|Customize Select-Listen]]
}}
* [[OBS/Makros und Scripting/Anwendungsbereiche/Preislisten|Preislisten]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Bildverwaltung|Bildverwaltung]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Artikelpflege|Artikelpflege]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Positionserfassung|Positionserfassung]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/DataInOut|Data In/Out]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Wiederkehrende Aufgaben|Wiederkehrende Aufgaben]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/OFML-Kalkulation|OFML-Kalkulation]]
* [[OBS/Makros und Scripting/Anwendungsbereiche/Zugriff auf externe Datenquellen|Zugriff auf externe Datenquellen (ODBC)]]
}}
[[OBS/Makros und Scripting/Benutzerdefinierte Datenbanktabellen|Benutzerdefinierte Datenbanktabellen]]
</small>
}}
</div>
<noinclude>
----
</noinclude>
<noinclude>
Folgender Code muss in die jeweils gewünschte Seite hinzugefügt werden:
<nowiki>{{Makros und Scripting}}</nowiki>
[[Kategorie:Templates/Navigationen]]
</noinclude>

FRMCUSTOMIZE

2020-03-25T08:47:45Z

Heibutzki: Weiterleitung nach OBS/Makros und Scripting/Anwendungsbereiche/Customize erstellt

#WEITERLEITUNG [[OBS/Makros und Scripting/Anwendungsbereiche/Customize]]

OBS/Kostenpflichtige Module/ZUGFeRD

2020-01-23T09:06:14Z

Heibutzki: /* Positionsliste */

{{Kostenpflichtige Module}}

==Über ZUGFeRD==
ZUGFeRD ist ein Standard zur elektronischen Übermittlung von Rechnungsdaten. Dabei wird eine computerlesbare Textdatei im XRechnungs-Standard an eine gewöhnliche, auf langzeitarchivierung optimierte PDF-Rechnung angehängt.

Mit dem OBS-ZUGFeRD-Modul können Sie sowohl ZUGFeRD-PDF-Dateien, die Sie von Lieferanten oder Dienstleistern erhalten, in OBS-Einkäufe umwandeln, als auch ZUGFeRD-Rechnungen an Kunden schicken, die diese Dateien verarbeiten können. (Vorraussichtlich wird dies bei kommunalen Ausschreibungen ab einem gewissen Auftragswert in Zukunft verpflichtend.)

OBS unterstützt ab Version 003220 sowohl das Einlesen von empfangenen Einkaufsrechnungen als auch das Erstellen und Versenden von ZUGFeRD-PDFs für ausgehenden Rechnungen.

==Vorraussetzungen==
* Generell:
** Modul mieten und freischalten lassen
* Zum Einlesen:
** Stammdaten pflegen: Erlöskonto (Programme - Zugferd - F10 Stammdaten)
* Zum Erstellen:
** Konstanten pflegen (System - I Konstanten)
** Programmparameter 908 auf 3 setzen (PDF-Archivierung)
** Steuerschlüssel pflegen (Stammdaten - Weitere Stammdaten - Mehrwertsteuer): Den Schlüsseln 00-09 müssen korrekte TSE-Schlüssel zugeordnet werden.
** Stammdaten pflegen: Bankdaten (Programme - Zugferd - F10 Stammdaten)

==Anleitung==

===Einlesen von Einkaufsrechnungen===

# Zug-Vorgangsliste öffnen (Programme - Zugferd)
# Import per F6 oder Drag&Drop
# Bei rot hinterlegten Einträgen:
## Fehler bearbeiten
## F10 - Daten neu verarbeiten
# Enter:
## Lieferanten prüfen
## Landeszuordnung prüfen
## Zahlungsbedingung zuordnen (kann in den allermeisten Fällen nicht automatisch zugeordnet werden)
## Skonto- und Fälligkeitsdatum prüfen und ggbf. manuell eintragen
# Positionen einzeln prüfen:
## Erlöskonto und Mehrwertsteuerschlüssel prüfen
## Artikelnummer zuordnen, falls gewünscht
# F10 - Einkaufsrechnung generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

===Erstellen von ZUGFeRD-Rechnungen===

# Stammdaten pflegen und PMode 908 einstellen, s. Vorraussetzungen
# Rechnung per Mail versenden oder in der Rechnungsliste mit "F10 - Z Zugferd-Rechnung erstellen" manuell generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

==ZUGFeRD-Daten==

===ZUGFeRD-Vorgänge===

====Kopfdatenliste====

[[Datei:Zug wiki kopf liste.jpg]]

In dieser Liste können Sie Zugferd-Einkaufsrechnungsdateien importieren, die Sie von Lieferanten oder Dienstleistern erhalten. Ziehen Sie dazu die entsprechende PDF, beispielsweise aus einer Mail, vom Desktop oder aus einem Ordner, auf das Feld "Drag&Drop", oder wählen Sie sie mit "{{F6}} Import" aus.

Mit dem Haken "Erweiterte Info" öffnet sich das Feld auf der rechten Seite, in dem Sie die Rohdaten des importierten Zugferd-Datensatzes einsehen können.

Mit {{Return}} öffnen Sie die Bearbeitungsmaske (s.u.) des Datensatzes. Hier können Sie die importierten Zugferd-Daten kontrollieren und korrigieren, bevor Sie aus einer empfangenen Rechnung einen OBS-Einkauf generieren.

Mit {{F10}} Weit. öffnen Sie die weiteren Infos (s.u.)

====Kopfdatenbearbeitungsmaske====

[[Datei:Zug wiki kopf edit.jpg]]

Hier können Sie die Daten der importierten Zugferddatei bearbeiten, bevor Sie einen OBS-Einkauf generieren.

Prüfen Sie dabei vor allem, dass
*der richtige Lieferant eingetragen ist (1),
*die Zahlungsbedingungen korrekt erfasst sind (3) und
*Fälligkeits- und Skontodatum erkannt wurden (4), sofern vorhanden.

====F10 Weitere Informationen====

[[Datei:Zug wiki f10.jpg]]

Hier können Sie weitere Zugferd-Funktionen aufrufen.

* PDF anzeigen: Zeigt die PDF des aktuellen Datensatzes an.
* XML anzeigen: Zeigt die an die PDF angehängten Zugferd-Daten in Rohform an.
* ILN-Verwaltung: derzeit nicht unterstützt
* Einkaufsrechnung generieren: Erstellt einen Einkauf aus dem gewählten Datensatz. (Wichtig: Anleitung (s.o.) beachten!!!)
* Zugferd Stammdaten: Öffnet die Stammdatenmaske und prüft, ob grundlegend Zugferdrechnungen verarbeitet werden können (s. Vorraussetzungen)
* Protokoll: Nach dem Einlesen oder Erstellen von Zugferddateien kann hier geprüft werden, ob Fehler oder Warnungen vorliegen.

===ZUGFeRD-Stammdaten===

[[Datei:Zug wiki stamm.jpg]]

Beim Öffnen der Stammdatenmaske werden die Vorraussetzungen (s.o.) geprüft. Probleme werden als Meldungen ausgegeben und müssen bearbeitet werden, bevor Zugferd-Daten korrekt verarbeitet werden können!

====Erlöskonto====
Wenn der Haken "Automatisches Setzen des Erlöskontos" gesetzt ist, wird beim Import jeder Position das im Feld "Erlöskonto" eingetragene Erlöskonto zugeordnet.

Wenn der Haken nicht gesetzt ist, muss nach dem Import der Zugferd-Einkaufsrechnung für jede Position ein Erlöskonto händisch gewählt werden!

====Bankdaten====
In den Feldern Bank 1 bis Bank 5 und den zugehörigen IBAN-Feldern können verschiedene Bankkonten eingetragen werden, die beim Erstellen von ausgehenden Zugferd-Rechnungen als akzeptierte Zahlungsmethoden hinterlegt werden.

Wichtig: Der europäische Standard setzt hier mindestens eine eingetragene IBAN vorraus!

===ZUGFeRD-Positionen===
====Positionsliste====

[[Datei:Zug wiki pos liste.jpg]]

Hier werden alle Positionen aufgelistet, die in den importierten Zugferd-Daten gefunden wurden.

Da der ZUGFeRD-Standard den Entwicklern von Warenwirtschaftssystemen viele Freiheiten bei der Umsetzung lässt, wie verschiedene Daten wie Langtexte, Zahlungsbedingungen und weitere Daten erfasst werden, werden von OBS alle Daten, die nicht automatisch OBS-Datenfeldern zugeordnet werden können, als Langtextpositionen erfasst.

Mit {{Return}} können die aktuellen Positionsdaten geöffnet werden.

====Positionsbearbeitungsmaske====

[[Datei:Zug wiki pos edit.jpg]]

Hier können Positionsdaten des importierten Zugferd-Datensatzes geprüft werden. Vor dem Generieren von OBS-Einkäufen aus importierten Zugferd-Rechnungen muss für jede Position geprüft werden, ob Erlöskonto und MwSt-Schlüssel gesetzt sind!

OBS/Kostenpflichtige Module/ZUGFeRD

2020-01-22T12:27:52Z

Heibutzki: /* Vorraussetzungen */

{{Kostenpflichtige Module}}

==Über ZUGFeRD==
ZUGFeRD ist ein Standard zur elektronischen Übermittlung von Rechnungsdaten. Dabei wird eine computerlesbare Textdatei im XRechnungs-Standard an eine gewöhnliche, auf langzeitarchivierung optimierte PDF-Rechnung angehängt.

Mit dem OBS-ZUGFeRD-Modul können Sie sowohl ZUGFeRD-PDF-Dateien, die Sie von Lieferanten oder Dienstleistern erhalten, in OBS-Einkäufe umwandeln, als auch ZUGFeRD-Rechnungen an Kunden schicken, die diese Dateien verarbeiten können. (Vorraussichtlich wird dies bei kommunalen Ausschreibungen ab einem gewissen Auftragswert in Zukunft verpflichtend.)

OBS unterstützt ab Version 003220 sowohl das Einlesen von empfangenen Einkaufsrechnungen als auch das Erstellen und Versenden von ZUGFeRD-PDFs für ausgehenden Rechnungen.

==Vorraussetzungen==
* Generell:
** Modul mieten und freischalten lassen
* Zum Einlesen:
** Stammdaten pflegen: Erlöskonto (Programme - Zugferd - F10 Stammdaten)
* Zum Erstellen:
** Konstanten pflegen (System - I Konstanten)
** Programmparameter 908 auf 3 setzen (PDF-Archivierung)
** Steuerschlüssel pflegen (Stammdaten - Weitere Stammdaten - Mehrwertsteuer): Den Schlüsseln 00-09 müssen korrekte TSE-Schlüssel zugeordnet werden.
** Stammdaten pflegen: Bankdaten (Programme - Zugferd - F10 Stammdaten)

==Anleitung==

===Einlesen von Einkaufsrechnungen===

# Zug-Vorgangsliste öffnen (Programme - Zugferd)
# Import per F6 oder Drag&Drop
# Bei rot hinterlegten Einträgen:
## Fehler bearbeiten
## F10 - Daten neu verarbeiten
# Enter:
## Lieferanten prüfen
## Landeszuordnung prüfen
## Zahlungsbedingung zuordnen (kann in den allermeisten Fällen nicht automatisch zugeordnet werden)
## Skonto- und Fälligkeitsdatum prüfen und ggbf. manuell eintragen
# Positionen einzeln prüfen:
## Erlöskonto und Mehrwertsteuerschlüssel prüfen
## Artikelnummer zuordnen, falls gewünscht
# F10 - Einkaufsrechnung generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

===Erstellen von ZUGFeRD-Rechnungen===

# Stammdaten pflegen und PMode 908 einstellen, s. Vorraussetzungen
# Rechnung per Mail versenden oder in der Rechnungsliste mit "F10 - Z Zugferd-Rechnung erstellen" manuell generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

==ZUGFeRD-Daten==

===ZUGFeRD-Vorgänge===

====Kopfdatenliste====

[[Datei:Zug wiki kopf liste.jpg]]

In dieser Liste können Sie Zugferd-Einkaufsrechnungsdateien importieren, die Sie von Lieferanten oder Dienstleistern erhalten. Ziehen Sie dazu die entsprechende PDF, beispielsweise aus einer Mail, vom Desktop oder aus einem Ordner, auf das Feld "Drag&Drop", oder wählen Sie sie mit "{{F6}} Import" aus.

Mit dem Haken "Erweiterte Info" öffnet sich das Feld auf der rechten Seite, in dem Sie die Rohdaten des importierten Zugferd-Datensatzes einsehen können.

Mit {{Return}} öffnen Sie die Bearbeitungsmaske (s.u.) des Datensatzes. Hier können Sie die importierten Zugferd-Daten kontrollieren und korrigieren, bevor Sie aus einer empfangenen Rechnung einen OBS-Einkauf generieren.

Mit {{F10}} Weit. öffnen Sie die weiteren Infos (s.u.)

====Kopfdatenbearbeitungsmaske====

[[Datei:Zug wiki kopf edit.jpg]]

Hier können Sie die Daten der importierten Zugferddatei bearbeiten, bevor Sie einen OBS-Einkauf generieren.

Prüfen Sie dabei vor allem, dass
*der richtige Lieferant eingetragen ist (1),
*die Zahlungsbedingungen korrekt erfasst sind (3) und
*Fälligkeits- und Skontodatum erkannt wurden (4), sofern vorhanden.

====F10 Weitere Informationen====

[[Datei:Zug wiki f10.jpg]]

Hier können Sie weitere Zugferd-Funktionen aufrufen.

* PDF anzeigen: Zeigt die PDF des aktuellen Datensatzes an.
* XML anzeigen: Zeigt die an die PDF angehängten Zugferd-Daten in Rohform an.
* ILN-Verwaltung: derzeit nicht unterstützt
* Einkaufsrechnung generieren: Erstellt einen Einkauf aus dem gewählten Datensatz. (Wichtig: Anleitung (s.o.) beachten!!!)
* Zugferd Stammdaten: Öffnet die Stammdatenmaske und prüft, ob grundlegend Zugferdrechnungen verarbeitet werden können (s. Vorraussetzungen)
* Protokoll: Nach dem Einlesen oder Erstellen von Zugferddateien kann hier geprüft werden, ob Fehler oder Warnungen vorliegen.

===ZUGFeRD-Stammdaten===

[[Datei:Zug wiki stamm.jpg]]

Beim Öffnen der Stammdatenmaske werden die Vorraussetzungen (s.o.) geprüft. Probleme werden als Meldungen ausgegeben und müssen bearbeitet werden, bevor Zugferd-Daten korrekt verarbeitet werden können!

====Erlöskonto====
Wenn der Haken "Automatisches Setzen des Erlöskontos" gesetzt ist, wird beim Import jeder Position das im Feld "Erlöskonto" eingetragene Erlöskonto zugeordnet.

Wenn der Haken nicht gesetzt ist, muss nach dem Import der Zugferd-Einkaufsrechnung für jede Position ein Erlöskonto händisch gewählt werden!

====Bankdaten====
In den Feldern Bank 1 bis Bank 5 und den zugehörigen IBAN-Feldern können verschiedene Bankkonten eingetragen werden, die beim Erstellen von ausgehenden Zugferd-Rechnungen als akzeptierte Zahlungsmethoden hinterlegt werden.

Wichtig: Der europäische Standard setzt hier mindestens eine eingetragene IBAN vorraus!

===ZUGFeRD-Positionen===
====Positionsliste====

[[Datei:Zug wiki pos liste.jpg]]

Hier werden alle Positionen aufgelistet, die in den importierten Zugferd-Daten gefunden wurden.

Da der ZUGFeRD-Standard den Warenwirtschaften viele Freiheiten bei der Umsetzung lässt, wie verschiedene Daten wie Langtexte, Zahlungsbedingungen und weitere Daten erfasst werden, werden von OBS alle Daten, die nicht automatisch OBS-Datenfeldern zugeordnet werden können, als Langtextpositionen erfasst.

Mit {{Return}} können die aktuellen Positionsdaten geöffnet werden.

====Positionsbearbeitungsmaske====

[[Datei:Zug wiki pos edit.jpg]]

Hier können Positionsdaten des importierten Zugferd-Datensatzes geprüft werden. Vor dem Generieren von OBS-Einkäufen aus importierten Zugferd-Rechnungen muss für jede Position geprüft werden, ob Erlöskonto und MwSt-Schlüssel gesetzt sind!

OBS/Kostenpflichtige Module/ZUGFeRD

2020-01-22T11:57:35Z

Heibutzki: /* Über ZUGFeRD */

{{Kostenpflichtige Module}}

==Über ZUGFeRD==
ZUGFeRD ist ein Standard zur elektronischen Übermittlung von Rechnungsdaten. Dabei wird eine computerlesbare Textdatei im XRechnungs-Standard an eine gewöhnliche, auf langzeitarchivierung optimierte PDF-Rechnung angehängt.

Mit dem OBS-ZUGFeRD-Modul können Sie sowohl ZUGFeRD-PDF-Dateien, die Sie von Lieferanten oder Dienstleistern erhalten, in OBS-Einkäufe umwandeln, als auch ZUGFeRD-Rechnungen an Kunden schicken, die diese Dateien verarbeiten können. (Vorraussichtlich wird dies bei kommunalen Ausschreibungen ab einem gewissen Auftragswert in Zukunft verpflichtend.)

OBS unterstützt ab Version 003220 sowohl das Einlesen von empfangenen Einkaufsrechnungen als auch das Erstellen und Versenden von ZUGFeRD-PDFs für ausgehenden Rechnungen.

==Vorraussetzungen==
* Generell:
** Modul mieten und freischalten lassen
* Zum Einlesen:
** Stammdaten pflegen: Erlöskonto (Programme - Zugferd - F10 Stammdaten)
* Zum Erstellen: Konstanten pflegen (System - I Konstanten)
** Programmparameter 908 auf 3 setzen (PDF-Archivierung)
** Steuerschlüssel pflegen (Stammdaten - Weitere Stammdaten - Mehrwertsteuer): Den Schlüsseln 00-09 müssen korrekte TSE-Schlüssel zugeordnet werden.
** Stammdaten pflegen: Bankdaten (Programme - Zugferd - F10 Stammdaten)

==Anleitung==

===Einlesen von Einkaufsrechnungen===

# Zug-Vorgangsliste öffnen (Programme - Zugferd)
# Import per F6 oder Drag&Drop
# Bei rot hinterlegten Einträgen:
## Fehler bearbeiten
## F10 - Daten neu verarbeiten
# Enter:
## Lieferanten prüfen
## Landeszuordnung prüfen
## Zahlungsbedingung zuordnen (kann in den allermeisten Fällen nicht automatisch zugeordnet werden)
## Skonto- und Fälligkeitsdatum prüfen und ggbf. manuell eintragen
# Positionen einzeln prüfen:
## Erlöskonto und Mehrwertsteuerschlüssel prüfen
## Artikelnummer zuordnen, falls gewünscht
# F10 - Einkaufsrechnung generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

===Erstellen von ZUGFeRD-Rechnungen===

# Stammdaten pflegen und PMode 908 einstellen, s. Vorraussetzungen
# Rechnung per Mail versenden oder in der Rechnungsliste mit "F10 - Z Zugferd-Rechnung erstellen" manuell generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

==ZUGFeRD-Daten==

===ZUGFeRD-Vorgänge===

====Kopfdatenliste====

[[Datei:Zug wiki kopf liste.jpg]]

In dieser Liste können Sie Zugferd-Einkaufsrechnungsdateien importieren, die Sie von Lieferanten oder Dienstleistern erhalten. Ziehen Sie dazu die entsprechende PDF, beispielsweise aus einer Mail, vom Desktop oder aus einem Ordner, auf das Feld "Drag&Drop", oder wählen Sie sie mit "{{F6}} Import" aus.

Mit dem Haken "Erweiterte Info" öffnet sich das Feld auf der rechten Seite, in dem Sie die Rohdaten des importierten Zugferd-Datensatzes einsehen können.

Mit {{Return}} öffnen Sie die Bearbeitungsmaske (s.u.) des Datensatzes. Hier können Sie die importierten Zugferd-Daten kontrollieren und korrigieren, bevor Sie aus einer empfangenen Rechnung einen OBS-Einkauf generieren.

Mit {{F10}} Weit. öffnen Sie die weiteren Infos (s.u.)

====Kopfdatenbearbeitungsmaske====

[[Datei:Zug wiki kopf edit.jpg]]

Hier können Sie die Daten der importierten Zugferddatei bearbeiten, bevor Sie einen OBS-Einkauf generieren.

Prüfen Sie dabei vor allem, dass
*der richtige Lieferant eingetragen ist (1),
*die Zahlungsbedingungen korrekt erfasst sind (3) und
*Fälligkeits- und Skontodatum erkannt wurden (4), sofern vorhanden.

====F10 Weitere Informationen====

[[Datei:Zug wiki f10.jpg]]

Hier können Sie weitere Zugferd-Funktionen aufrufen.

* PDF anzeigen: Zeigt die PDF des aktuellen Datensatzes an.
* XML anzeigen: Zeigt die an die PDF angehängten Zugferd-Daten in Rohform an.
* ILN-Verwaltung: derzeit nicht unterstützt
* Einkaufsrechnung generieren: Erstellt einen Einkauf aus dem gewählten Datensatz. (Wichtig: Anleitung (s.o.) beachten!!!)
* Zugferd Stammdaten: Öffnet die Stammdatenmaske und prüft, ob grundlegend Zugferdrechnungen verarbeitet werden können (s. Vorraussetzungen)
* Protokoll: Nach dem Einlesen oder Erstellen von Zugferddateien kann hier geprüft werden, ob Fehler oder Warnungen vorliegen.

===ZUGFeRD-Stammdaten===

[[Datei:Zug wiki stamm.jpg]]

Beim Öffnen der Stammdatenmaske werden die Vorraussetzungen (s.o.) geprüft. Probleme werden als Meldungen ausgegeben und müssen bearbeitet werden, bevor Zugferd-Daten korrekt verarbeitet werden können!

====Erlöskonto====
Wenn der Haken "Automatisches Setzen des Erlöskontos" gesetzt ist, wird beim Import jeder Position das im Feld "Erlöskonto" eingetragene Erlöskonto zugeordnet.

Wenn der Haken nicht gesetzt ist, muss nach dem Import der Zugferd-Einkaufsrechnung für jede Position ein Erlöskonto händisch gewählt werden!

====Bankdaten====
In den Feldern Bank 1 bis Bank 5 und den zugehörigen IBAN-Feldern können verschiedene Bankkonten eingetragen werden, die beim Erstellen von ausgehenden Zugferd-Rechnungen als akzeptierte Zahlungsmethoden hinterlegt werden.

Wichtig: Der europäische Standard setzt hier mindestens eine eingetragene IBAN vorraus!

===ZUGFeRD-Positionen===
====Positionsliste====

[[Datei:Zug wiki pos liste.jpg]]

Hier werden alle Positionen aufgelistet, die in den importierten Zugferd-Daten gefunden wurden.

Da der ZUGFeRD-Standard den Warenwirtschaften viele Freiheiten bei der Umsetzung lässt, wie verschiedene Daten wie Langtexte, Zahlungsbedingungen und weitere Daten erfasst werden, werden von OBS alle Daten, die nicht automatisch OBS-Datenfeldern zugeordnet werden können, als Langtextpositionen erfasst.

Mit {{Return}} können die aktuellen Positionsdaten geöffnet werden.

====Positionsbearbeitungsmaske====

[[Datei:Zug wiki pos edit.jpg]]

Hier können Positionsdaten des importierten Zugferd-Datensatzes geprüft werden. Vor dem Generieren von OBS-Einkäufen aus importierten Zugferd-Rechnungen muss für jede Position geprüft werden, ob Erlöskonto und MwSt-Schlüssel gesetzt sind!

OBS/Kostenpflichtige Module/ZUGFeRD

2020-01-22T11:52:59Z

Heibutzki: /* Vorraussetzungen */

{{Kostenpflichtige Module}}

==Über ZUGFeRD==
ZUGFeRD ist ein Standard zur elektronischen Übermittlung von Rechnungsdaten. Dabei wird eine computerlesbare Textdatei im XRechnungs-Standard an eine gewöhnliche, auf langzeitarchivierung optimierte PDF-Rechnung angehängt.

OBS unterstützt ab Version 003220 sowohl das Einlesen von empfangenen Einkaufsrechnungen als auch das Erstellen und Versenden von ZUGFeRD-PDFs für ausgehenden Rechnungen.

==Vorraussetzungen==
* Generell:
** Modul mieten und freischalten lassen
* Zum Einlesen:
** Stammdaten pflegen: Erlöskonto (Programme - Zugferd - F10 Stammdaten)
* Zum Erstellen: Konstanten pflegen (System - I Konstanten)
** Programmparameter 908 auf 3 setzen (PDF-Archivierung)
** Steuerschlüssel pflegen (Stammdaten - Weitere Stammdaten - Mehrwertsteuer): Den Schlüsseln 00-09 müssen korrekte TSE-Schlüssel zugeordnet werden.
** Stammdaten pflegen: Bankdaten (Programme - Zugferd - F10 Stammdaten)

==Anleitung==

===Einlesen von Einkaufsrechnungen===

# Zug-Vorgangsliste öffnen (Programme - Zugferd)
# Import per F6 oder Drag&Drop
# Bei rot hinterlegten Einträgen:
## Fehler bearbeiten
## F10 - Daten neu verarbeiten
# Enter:
## Lieferanten prüfen
## Landeszuordnung prüfen
## Zahlungsbedingung zuordnen (kann in den allermeisten Fällen nicht automatisch zugeordnet werden)
## Skonto- und Fälligkeitsdatum prüfen und ggbf. manuell eintragen
# Positionen einzeln prüfen:
## Erlöskonto und Mehrwertsteuerschlüssel prüfen
## Artikelnummer zuordnen, falls gewünscht
# F10 - Einkaufsrechnung generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

===Erstellen von ZUGFeRD-Rechnungen===

# Stammdaten pflegen und PMode 908 einstellen, s. Vorraussetzungen
# Rechnung per Mail versenden oder in der Rechnungsliste mit "F10 - Z Zugferd-Rechnung erstellen" manuell generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

==ZUGFeRD-Daten==

===ZUGFeRD-Vorgänge===

====Kopfdatenliste====

[[Datei:Zug wiki kopf liste.jpg]]

In dieser Liste können Sie Zugferd-Einkaufsrechnungsdateien importieren, die Sie von Lieferanten oder Dienstleistern erhalten. Ziehen Sie dazu die entsprechende PDF, beispielsweise aus einer Mail, vom Desktop oder aus einem Ordner, auf das Feld "Drag&Drop", oder wählen Sie sie mit "{{F6}} Import" aus.

Mit dem Haken "Erweiterte Info" öffnet sich das Feld auf der rechten Seite, in dem Sie die Rohdaten des importierten Zugferd-Datensatzes einsehen können.

Mit {{Return}} öffnen Sie die Bearbeitungsmaske (s.u.) des Datensatzes. Hier können Sie die importierten Zugferd-Daten kontrollieren und korrigieren, bevor Sie aus einer empfangenen Rechnung einen OBS-Einkauf generieren.

Mit {{F10}} Weit. öffnen Sie die weiteren Infos (s.u.)

====Kopfdatenbearbeitungsmaske====

[[Datei:Zug wiki kopf edit.jpg]]

Hier können Sie die Daten der importierten Zugferddatei bearbeiten, bevor Sie einen OBS-Einkauf generieren.

Prüfen Sie dabei vor allem, dass
*der richtige Lieferant eingetragen ist (1),
*die Zahlungsbedingungen korrekt erfasst sind (3) und
*Fälligkeits- und Skontodatum erkannt wurden (4), sofern vorhanden.

====F10 Weitere Informationen====

[[Datei:Zug wiki f10.jpg]]

Hier können Sie weitere Zugferd-Funktionen aufrufen.

* PDF anzeigen: Zeigt die PDF des aktuellen Datensatzes an.
* XML anzeigen: Zeigt die an die PDF angehängten Zugferd-Daten in Rohform an.
* ILN-Verwaltung: derzeit nicht unterstützt
* Einkaufsrechnung generieren: Erstellt einen Einkauf aus dem gewählten Datensatz. (Wichtig: Anleitung (s.o.) beachten!!!)
* Zugferd Stammdaten: Öffnet die Stammdatenmaske und prüft, ob grundlegend Zugferdrechnungen verarbeitet werden können (s. Vorraussetzungen)
* Protokoll: Nach dem Einlesen oder Erstellen von Zugferddateien kann hier geprüft werden, ob Fehler oder Warnungen vorliegen.

===ZUGFeRD-Stammdaten===

[[Datei:Zug wiki stamm.jpg]]

Beim Öffnen der Stammdatenmaske werden die Vorraussetzungen (s.o.) geprüft. Probleme werden als Meldungen ausgegeben und müssen bearbeitet werden, bevor Zugferd-Daten korrekt verarbeitet werden können!

====Erlöskonto====
Wenn der Haken "Automatisches Setzen des Erlöskontos" gesetzt ist, wird beim Import jeder Position das im Feld "Erlöskonto" eingetragene Erlöskonto zugeordnet.

Wenn der Haken nicht gesetzt ist, muss nach dem Import der Zugferd-Einkaufsrechnung für jede Position ein Erlöskonto händisch gewählt werden!

====Bankdaten====
In den Feldern Bank 1 bis Bank 5 und den zugehörigen IBAN-Feldern können verschiedene Bankkonten eingetragen werden, die beim Erstellen von ausgehenden Zugferd-Rechnungen als akzeptierte Zahlungsmethoden hinterlegt werden.

Wichtig: Der europäische Standard setzt hier mindestens eine eingetragene IBAN vorraus!

===ZUGFeRD-Positionen===
====Positionsliste====

[[Datei:Zug wiki pos liste.jpg]]

Hier werden alle Positionen aufgelistet, die in den importierten Zugferd-Daten gefunden wurden.

Da der ZUGFeRD-Standard den Warenwirtschaften viele Freiheiten bei der Umsetzung lässt, wie verschiedene Daten wie Langtexte, Zahlungsbedingungen und weitere Daten erfasst werden, werden von OBS alle Daten, die nicht automatisch OBS-Datenfeldern zugeordnet werden können, als Langtextpositionen erfasst.

Mit {{Return}} können die aktuellen Positionsdaten geöffnet werden.

====Positionsbearbeitungsmaske====

[[Datei:Zug wiki pos edit.jpg]]

Hier können Positionsdaten des importierten Zugferd-Datensatzes geprüft werden. Vor dem Generieren von OBS-Einkäufen aus importierten Zugferd-Rechnungen muss für jede Position geprüft werden, ob Erlöskonto und MwSt-Schlüssel gesetzt sind!

OBS/Kostenpflichtige Module/ZUGFeRD

2020-01-22T11:52:27Z

Heibutzki: /* Vorraussetzungen */

{{Kostenpflichtige Module}}

==Über ZUGFeRD==
ZUGFeRD ist ein Standard zur elektronischen Übermittlung von Rechnungsdaten. Dabei wird eine computerlesbare Textdatei im XRechnungs-Standard an eine gewöhnliche, auf langzeitarchivierung optimierte PDF-Rechnung angehängt.

OBS unterstützt ab Version 003220 sowohl das Einlesen von empfangenen Einkaufsrechnungen als auch das Erstellen und Versenden von ZUGFeRD-PDFs für ausgehenden Rechnungen.

==Vorraussetzungen==
# Generell:
## Modul mieten und freischalten lassen
# Zum Einlesen:
## Stammdaten pflegen: Erlöskonto (Programme - Zugferd - F10 Stammdaten)
# Zum Erstellen: Konstanten pflegen (System - I Konstanten)
## Programmparameter 908 auf 3 setzen (PDF-Archivierung)
## Steuerschlüssel pflegen (Stammdaten - Weitere Stammdaten - Mehrwertsteuer): Den Schlüsseln 00-09 müssen korrekte TSE-Schlüssel zugeordnet werden.
## Stammdaten pflegen: Bankdaten (Programme - Zugferd - F10 Stammdaten)

==Anleitung==

===Einlesen von Einkaufsrechnungen===

# Zug-Vorgangsliste öffnen (Programme - Zugferd)
# Import per F6 oder Drag&Drop
# Bei rot hinterlegten Einträgen:
## Fehler bearbeiten
## F10 - Daten neu verarbeiten
# Enter:
## Lieferanten prüfen
## Landeszuordnung prüfen
## Zahlungsbedingung zuordnen (kann in den allermeisten Fällen nicht automatisch zugeordnet werden)
## Skonto- und Fälligkeitsdatum prüfen und ggbf. manuell eintragen
# Positionen einzeln prüfen:
## Erlöskonto und Mehrwertsteuerschlüssel prüfen
## Artikelnummer zuordnen, falls gewünscht
# F10 - Einkaufsrechnung generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

===Erstellen von ZUGFeRD-Rechnungen===

# Stammdaten pflegen und PMode 908 einstellen, s. Vorraussetzungen
# Rechnung per Mail versenden oder in der Rechnungsliste mit "F10 - Z Zugferd-Rechnung erstellen" manuell generieren

Auffälligkeiten werden im Zugferdprotokoll (Zugferd-Kopfdaten - F10 - Zugferdprotokoll) erfasst!

==ZUGFeRD-Daten==

===ZUGFeRD-Vorgänge===

====Kopfdatenliste====

[[Datei:Zug wiki kopf liste.jpg]]

In dieser Liste können Sie Zugferd-Einkaufsrechnungsdateien importieren, die Sie von Lieferanten oder Dienstleistern erhalten. Ziehen Sie dazu die entsprechende PDF, beispielsweise aus einer Mail, vom Desktop oder aus einem Ordner, auf das Feld "Drag&Drop", oder wählen Sie sie mit "{{F6}} Import" aus.

Mit dem Haken "Erweiterte Info" öffnet sich das Feld auf der rechten Seite, in dem Sie die Rohdaten des importierten Zugferd-Datensatzes einsehen können.

Mit {{Return}} öffnen Sie die Bearbeitungsmaske (s.u.) des Datensatzes. Hier können Sie die importierten Zugferd-Daten kontrollieren und korrigieren, bevor Sie aus einer empfangenen Rechnung einen OBS-Einkauf generieren.

Mit {{F10}} Weit. öffnen Sie die weiteren Infos (s.u.)

====Kopfdatenbearbeitungsmaske====

[[Datei:Zug wiki kopf edit.jpg]]

Hier können Sie die Daten der importierten Zugferddatei bearbeiten, bevor Sie einen OBS-Einkauf generieren.

Prüfen Sie dabei vor allem, dass
*der richtige Lieferant eingetragen ist (1),
*die Zahlungsbedingungen korrekt erfasst sind (3) und
*Fälligkeits- und Skontodatum erkannt wurden (4), sofern vorhanden.

====F10 Weitere Informationen====

[[Datei:Zug wiki f10.jpg]]

Hier können Sie weitere Zugferd-Funktionen aufrufen.

* PDF anzeigen: Zeigt die PDF des aktuellen Datensatzes an.
* XML anzeigen: Zeigt die an die PDF angehängten Zugferd-Daten in Rohform an.
* ILN-Verwaltung: derzeit nicht unterstützt
* Einkaufsrechnung generieren: Erstellt einen Einkauf aus dem gewählten Datensatz. (Wichtig: Anleitung (s.o.) beachten!!!)
* Zugferd Stammdaten: Öffnet die Stammdatenmaske und prüft, ob grundlegend Zugferdrechnungen verarbeitet werden können (s. Vorraussetzungen)
* Protokoll: Nach dem Einlesen oder Erstellen von Zugferddateien kann hier geprüft werden, ob Fehler oder Warnungen vorliegen.

===ZUGFeRD-Stammdaten===

[[Datei:Zug wiki stamm.jpg]]

Beim Öffnen der Stammdatenmaske werden die Vorraussetzungen (s.o.) geprüft. Probleme werden als Meldungen ausgegeben und müssen bearbeitet werden, bevor Zugferd-Daten korrekt verarbeitet werden können!

====Erlöskonto====
Wenn der Haken "Automatisches Setzen des Erlöskontos" gesetzt ist, wird beim Import jeder Position das im Feld "Erlöskonto" eingetragene Erlöskonto zugeordnet.

Wenn der Haken nicht gesetzt ist, muss nach dem Import der Zugferd-Einkaufsrechnung für jede Position ein Erlöskonto händisch gewählt werden!

====Bankdaten====
In den Feldern Bank 1 bis Bank 5 und den zugehörigen IBAN-Feldern können verschiedene Bankkonten eingetragen werden, die beim Erstellen von ausgehenden Zugferd-Rechnungen als akzeptierte Zahlungsmethoden hinterlegt werden.

Wichtig: Der europäische Standard setzt hier mindestens eine eingetragene IBAN vorraus!

===ZUGFeRD-Positionen===
====Positionsliste====

[[Datei:Zug wiki pos liste.jpg]]

Hier werden alle Positionen aufgelistet, die in den importierten Zugferd-Daten gefunden wurden.

Da der ZUGFeRD-Standard den Warenwirtschaften viele Freiheiten bei der Umsetzung lässt, wie verschiedene Daten wie Langtexte, Zahlungsbedingungen und weitere Daten erfasst werden, werden von OBS alle Daten, die nicht automatisch OBS-Datenfeldern zugeordnet werden können, als Langtextpositionen erfasst.

Mit {{Return}} können die aktuellen Positionsdaten geöffnet werden.

====Positionsbearbeitungsmaske====

[[Datei:Zug wiki pos edit.jpg]]

Hier können Positionsdaten des importierten Zugferd-Datensatzes geprüft werden. Vor dem Generieren von OBS-Einkäufen aus importierten Zugferd-Rechnungen muss für jede Position geprüft werden, ob Erlöskonto und MwSt-Schlüssel gesetzt sind!