OBS/Makros und Scripting/Developer/Beispiele/Vorgangs-Mail Betreff: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Böhrer (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „Motor-driven scooters, like Go-Peds and Razor scooters, have turned out to be very renowned in late years and are an excellent means to close the gap between k…“) |
Thiel (Diskussion | Beiträge) |
||
(2 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
{{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]] |
Aktuelle Version vom 22. Juli 2022, 09:05 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;