OBS/Makros und Scripting/Developer/Beispiele/Vorgangs-Mail Betreff

Aus OBS Wiki
Zur Navigation springen Zur Suche springen


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

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;