OBS/Makros und Scripting/Anwendungsbereiche/Vorgangsbaum: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(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…“)
 
Keine Bearbeitungszusammenfassung
 
(5 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
[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 state it. Credit authorising is really what i actually do plus the salary has been actually fulfilling. Bungee bouncing is something i am going to never ever throw in the towel. His family life in Delaware. Check from latest news on their website: http://www.arkiwater.com/index.php/component/k2/itemlist/user/384528<br><br>Also visit my blog :: youtube cesar millan puppy training ([http://www.arkiwater.com/index.php/component/k2/itemlist/user/384528 website link])
{{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

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.

// 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;