Quelltext der Seite OBS/Makros und Scripting/Developer/Beispiele/Vorgangs-Mail Betreff

{{Makros und Scripting}}
=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=
<source lang="delphi">
//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;
</source>

[[Datei:EmailScriptBetreff.png]]