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

Wiki » Makros und Scripting

Makros und Scripting

Allgemeines

• Syntax
• Übersicht Funktionen
• Übersicht Prozeduren
• Übersicht Konstanten
• Übersicht Globale Variablen

Klassen

Vorgangsgenerierung

• Angebot
• Auftrag
• Reparaturauftrag
• Produktionsauftrag
• Lieferschein
• Rechnung
• Bestellung
• Einkaufslieferschein
• Einkauf

Import-Dateien

• TxImportFile
• TxImportFileCSV

PDF-Verarbeitung

• TOBS_PDF

• Script Bibliothek

Anwendungsbereiche

• Drucke
• Sonstige Makrodateien

Customizing

• Übersicht
• Rechte Verwaltung
• Listen
• Edits
• Select-Listen
• Übrige Fenster (xForm)

• Preislisten
• Bildverwaltung
• Artikelpflege
• Office Unterstützung
• Positionserfassung
• Data In/Out
• Wiederkehrende Aufgaben
• OFML-Kalkulation
• Zugriff auf externe Datenquellen (ODBC)
• Allgemeine Konvertierungen
• Vorgangsbaum
• Benutzerfelder
• Listen Stable
• ZUGFERD
• OpenTRANS

Beispiele

• Beispiele Sammlung

Benutzerdefinierte Datenbanktabellen

Developer

• User-Datenbank
• User-Listen
• User-Edits
• User-Widgets

Beispiele

• Positionen
• Vorgangs-Mail Betreff

Sonstiges

• DMS Abkürzungen

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;