OBS/Makros und Scripting/Anwendungsbereiche/Vorgangsbaum: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Böhrer (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „[http://Www.Deer-Digest.com/?s=Cecille%20Aumiller Cecille Aumiller] is exactly what my better half loves to phone me and I think it seems quite good when you s…“) |
Nimz (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
||
(5 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
[ | {{Makros und Scripting}} | ||
Per Macro können Sie die angezeigten Informationen des [[OBS/Widgets/Infobaum|Info-Baums]] für Vorgänge beeinflussen. | |||
=Macro= | |||
==Anlage== | |||
Öffnen Sie die [[OBS/Makros_und_Scripting/Allgemeines/Script_Library|Script-Bibliothek]]. Diese finden Sie über das Menü ''System'' unter ''J Sonderprogramme'' Punkt ''SB - Script-Biliothek''. Legen Sie hier ein Script mit dem Namen '''VorgangsBaum''' an. | |||
==Funktionen== | |||
===Funktion: AddTitle=== | |||
Mit dieser Funktion können Sie den angezeigten Titel eines Knotens im Baum beeinflussen. | |||
<syntaxhighlight lang="Delphi"> | |||
// Parameter: | |||
// APara.V01 = DMS-Typ des Vorgangs (z. B. "AU" für Auftrag) | |||
// APara.V02 = Nummer des Vorgangs | |||
// APara.V03 = Standardzusatzinformationen von OBS für Titel (z. B. "(DMS)") | |||
function AddTitle(oWDB: TxDB; APara: TOBSParameter): boolean; | |||
</syntaxhighlight> | |||
===Funktion: AddTreeInfo=== | |||
Zeigt für den Vorgang zusätzliche Informationen unter dem Baum an. | |||
<syntaxhighlight lang="Delphi"> | |||
// Parameter: | |||
// APara.V01 = DMS-Typ des Wurzel-Vorgangs (z. B. "AU" für Auftrag) | |||
// APara.V02 = Nummer des Wurzel-Vorgangs | |||
function AddTreeInfo(oWDB: TxDB; APara: TOBSParameter): boolean; | |||
</syntaxhighlight> | |||
=Beispiel= | |||
[[Datei:Vgbaum_custom.jpg|thumb|Info-Baum mit Zusatzinformationen]] | |||
Folgendes Macro sorgt dafür, dass im Titel die Kürzel für den Lieferstatus eines Auftrags mit angezeigt werden. Bei Auftrag 2010036 wird "Hallo Welt" als Info angezeigt. | |||
<syntaxhighlight lang="Delphi"> | |||
// Titel eines Knotenpunkts bearbeiten | |||
function AddTitle(oWDB: TxDB; APara: TOBSParameter): boolean; | |||
var cTitle : string; | |||
cStatus : string; | |||
begin | |||
cTitle := ''; | |||
if (APara.V1 = 'AU') then begin | |||
cStatus := DB_ReadSqlValue(oWDB,'AUFTRAG','a_statusl','a_nr='+DB_SqlVal(APara.V2)); | |||
if (cStatus = '1') then begin | |||
cStatus := 'TL'; | |||
end else if (cStatus = '2') then begin | |||
cStatus := 'KL'; | |||
end else begin | |||
cStatus := ''; | |||
end; | |||
if (not Empty(cStatus)) then begin | |||
cTitle := ' ('+cStatus+')'; | |||
end; | |||
end; | |||
//Wichtig: Daten aus V10 werden angezeigt! | |||
//V3 enthält die Standard-Informationen, werden diese nicht mit zurückgegeben, so werden diese verworfen. | |||
APara.V10 := APara.V3 + cTitle; | |||
//Wichtig, damit Rückgabe aus V10 auch angezeigt wird! | |||
Result := not Empty(cTitle); | |||
end; | |||
//------------------------------------------------------------------------------ | |||
// Textfeld für zusätzliche Informationen füllen | |||
function AddTreeInfo(oWDB: TxDB; APara: TOBSParameter): boolean; | |||
var cInfo : string; | |||
begin | |||
cInfo := ''; | |||
if (APara.V1 = 'AU') and (APara.V2 = '2010036') then begin | |||
cInfo := 'Hallo Welt'; | |||
end; | |||
//Wichtig: Daten aus V10 werden angezeigt! | |||
APara.V10 := cInfo; | |||
//Wichtig, damit Rückgabe aus V10 auch angezeigt wird! | |||
Result := not Empty(cInfo); | |||
end; | |||
</syntaxhighlight> |
Aktuelle Version vom 27. November 2020, 16:53 Uhr
Per Macro können Sie die angezeigten Informationen des Info-Baums für Vorgänge beeinflussen.
Macro
Anlage
Öffnen Sie die Script-Bibliothek. Diese finden Sie über das Menü System unter J Sonderprogramme Punkt SB - Script-Biliothek. Legen Sie hier ein Script mit dem Namen VorgangsBaum an.
Funktionen
Funktion: AddTitle
Mit dieser Funktion können Sie den angezeigten Titel eines Knotens im Baum beeinflussen.
// Parameter:
// APara.V01 = DMS-Typ des Vorgangs (z. B. "AU" für Auftrag)
// APara.V02 = Nummer des Vorgangs
// APara.V03 = Standardzusatzinformationen von OBS für Titel (z. B. "(DMS)")
function AddTitle(oWDB: TxDB; APara: TOBSParameter): boolean;
Funktion: AddTreeInfo
Zeigt für den Vorgang zusätzliche Informationen unter dem Baum an.
// Parameter:
// APara.V01 = DMS-Typ des Wurzel-Vorgangs (z. B. "AU" für Auftrag)
// APara.V02 = Nummer des Wurzel-Vorgangs
function AddTreeInfo(oWDB: TxDB; APara: TOBSParameter): boolean;
Beispiel
Folgendes Macro sorgt dafür, dass im Titel die Kürzel für den Lieferstatus eines Auftrags mit angezeigt werden. Bei Auftrag 2010036 wird "Hallo Welt" als Info angezeigt.
// Titel eines Knotenpunkts bearbeiten
function AddTitle(oWDB: TxDB; APara: TOBSParameter): boolean;
var cTitle : string;
cStatus : string;
begin
cTitle := '';
if (APara.V1 = 'AU') then begin
cStatus := DB_ReadSqlValue(oWDB,'AUFTRAG','a_statusl','a_nr='+DB_SqlVal(APara.V2));
if (cStatus = '1') then begin
cStatus := 'TL';
end else if (cStatus = '2') then begin
cStatus := 'KL';
end else begin
cStatus := '';
end;
if (not Empty(cStatus)) then begin
cTitle := ' ('+cStatus+')';
end;
end;
//Wichtig: Daten aus V10 werden angezeigt!
//V3 enthält die Standard-Informationen, werden diese nicht mit zurückgegeben, so werden diese verworfen.
APara.V10 := APara.V3 + cTitle;
//Wichtig, damit Rückgabe aus V10 auch angezeigt wird!
Result := not Empty(cTitle);
end;
//------------------------------------------------------------------------------
// Textfeld für zusätzliche Informationen füllen
function AddTreeInfo(oWDB: TxDB; APara: TOBSParameter): boolean;
var cInfo : string;
begin
cInfo := '';
if (APara.V1 = 'AU') and (APara.V2 = '2010036') then begin
cInfo := 'Hallo Welt';
end;
//Wichtig: Daten aus V10 werden angezeigt!
APara.V10 := cInfo;
//Wichtig, damit Rückgabe aus V10 auch angezeigt wird!
Result := not Empty(cInfo);
end;