OBS/Makros und Scripting/Developer/Beispiele/Vorgangs-Mail Betreff: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(Result)
Zeile 7: Zeile 7:
=Beispiel=
=Beispiel=
<source lang="delphi">
<source lang="delphi">
//Betreff für Anfragen
function GetBetreff_AF(cNr:String): String;
function GetBetreff_AF(cNr:String): String;
var cSQL    : String;               
var cSQL    : String;               

Version vom 22. Juli 2022, 08:10 Uhr


Script Library

Wenn in der Script Bibliothek ein Script mit dem Namen EMailBetreff vorhanden ist, wird dieses bei der Erzeugung von E-Mails aus Vorgängen gestartet und erzeugt einen individuellen Betreff.

Für jeden Vorgangstypen (Angebot, Rechnung, etc.) kann innerhalb dieses Scripts eine Funktion geschrieben werden. Die Funktion GetBetreff_AU erstellt zum Beispiel einen Betreff, wenn ein Auftrag erstellt wird.

Beispiel

//Betreff für Anfragen
function GetBetreff_AF(cNr:String): String;
var cSQL    : String;               
    qQuery  : TxFQuery; 
begin  
    Result := '';
    cSQL   := 'SELECT * FROM ANFRAGE' + 
              ' LEFT JOIN PROJEKTE ON p_nr = a_projnr' + 
              ' LEFT JOIN MESSEN  ON p_messenid = m_nr' +
              ' LEFT JOIN messen_termine ON p_messenid = mt_mnr AND p_messenterminid = mt_nr' +
              ' WHERE a_nr = ' + DB_SQLVal(cNr);

    if (DB_SOpen(oDB,cSQL,qQuery)) then begin
        //Result := "Anfrage" + Projektnummer und Messename, Jahr und Ort automatisch erscheint.
        Result := 'Anfrage ' + qQuery.A2C('a_projnr') + ' ' + qQuery.A2C('m_name') + ', ' + qQuery.A2C('mt_jahr') + ' ' + qQuery.A2C('mt_ort'); 
    end;
    DB_Close(qQuery);    
end;
Abgerufen von „http:///index.php?title=OBS/Makros_und_Scripting/Developer/Beispiele/Vorgangs-Mail_Betreff&oldid=61201“