TBeCbArchive
TBeCbArchive - Belegarchiv - Druck, eMail-Versand, Export
Klasse zur Steuerung des Belegarchivs in Bezug auf Druck, eMailversand und Export von Belegen wahlweise mit oder ohne Dialog
Eigenschaften
Belegauswahl-Eigenschaften | Bezeichnung |
|---|---|
DocType:N | Belegtyp |
DocNo:U | Belegnr. (numerisch oder alpha-numerisch) |
CurrNo:N | Default = -1 (neuester) = Lfd.Nr. |
PersNo:N | Pers.Nr. |
Allg. Export-Eigenschaften | Bezeichnung |
|---|---|
FileName:C | default = leer = Ausgabe Dateiname für Email und Export |
ShowDialog:L | default = False = Druck-, Email-, Exportdialog anzeigen |
Druck-Eigenschaften | Bezeichnung |
|---|---|
OutPrinterName:C | default = leer = Druckername |
OutBinName:C | default = leer = Papierschachtname |
OutDocName:C | default = leer = Dokumentname im Spooler |
OutCopies:N | default = 1 = Anzahl Druckkopien |
PrintBkPages:L | default = False = Hintergundformular drucken |
OverlayBkPage:N | default = -1 = Original Hintergundformular des ursprünglichen Druckes |
E-Mail-Eigenschaften | Bezeichnung |
|---|---|
Subject:C | default = leer = E-Mail-Betreff |
Body:C | default = leer = E-Mail-Text (RTF erlaubt) |
MailTo:C | default = leer = E-Mail-An-Liste |
MailCc:C | default = leer = E-Mail-Kopie-Liste |
MailBcc:C | default = leer = E-Mail-Blindkopie-Liste |
MailAttach:C | default = leer = E-Mail-Dateianhänge-Liste |
ShowException:L | default = true = Fehler als Meldung (Dialog) anzeigen |
ShowProgress:L | default = true = Vorschritt (Dialog) beim E-Mail Versand anzeigen |
MailLoadAttachmentsFromArchive:U | Anhänge (inkl. E-Rechnungen) aus dem Belegarchiv laden boolean: true = Alle laden, false = keine Laden array: array von Indices der zu ladenden Anhängen default = null |
MailForceExport:L | default = false = Den Beleg immer als Anhang mitschicken |
Methoden-Eigenschaften | Bezeichnung |
|---|---|
ExecPrint | keine Parameter, keine Rückgabewert = starte den Druck |
ExecEmail | keine Parameter, keine Rückgabewert = starte den Email Versand |
ExecExport | keine Parameter, keine Rückgabewert = starte den Export |
Email-Methoden
Funktionen | Beschreibung | |
|---|---|---|
SendEmail:- | E-Mail-Versand starten | |
Parameter | Beschreibung | |
aToList:C | Liste der Empfänger durch CRLF getrennt. überschreibt die Email-Eigenschaft MailTo, auch wenn nicht gesetzt | |
aCcList:C | Liste der CC-Empfänger durch CRLF getrennt. überschreibt die Email-Eigenschaft MailCc, auch wenn nicht gesetzt | |
aBccList:C | Liste der BCC-Empfänger durch CRLF getrennt. überschreibt die Email-Eigenschaft MailBcc, auch wenn nicht gesetzt | |
Hinweise
Per Default wird als Datei eine PDF-Datei erzeugt, es kann jedoch ein beliebiges, verfügbares Export-Format als Dateiendung angegeben werden.
Beim Druck mit Druck-Dialog werden u.U. nicht alle Vorgaben aus den Eigenschaften übernommen.
Beim Email mit Email-Dialog werden u.U. nicht alle Vorgaben aus den Eigenschaften übernommen.
Nach dem Versand eines Emails werden die Eigenschaften (nämlich die MailCc und MailBcc) nicht geleert und die Eigenschaften beibehalten ihre Werte auch für nächsten Versand.
Beispiel
|oArch, nAction, nShowDlg|
oArch := CreateObject("TBeCbArchive"),
oArch.DocType := 20, // z.B. Auftragsbestätigung
oArch.DocNo := 1545, // z.B. AB-Nummer
oArch.PersNo := 120882, // z.B. Kd.Nr.
//nAction := 1, // Drucken
//nAction := 2, // Email
nAction := 3, // Export
nShowDlg := False, // Dialog anzeigen ?
case nAction
of 1 :: // direkt drucken
oArch.OutPrinterName := 'HP LaserJet 6P', // Druckername
oArch.OutBinName := 'Schacht 2', // PapiersachtName
oArch.OutDocName := 'Mein Druck !', // Dokumentname (für Spooler)
oArch.OutCopies := 2, // Anzahl Druckkopien
oArch.PrintBkPages := true, // Hintergrundformular drucken
oArch.OverlayBkPage := 1, // Htgrd.form. Nr. 1
oArch.ShowDialog := nShowDlg,
oArch.ExecPrint,
of 2 :: // direkt per Email versenden
oArch.Subject := 'Anbei Angenbot Nr. ' + FloatToStr(oArch.DocNo),
oArch.Body := 'Anliegend erhalten Sie unser Angebot.', // darf auch RTF sein
oArch.MailAttach := 'C:\test.txt',
//oArch.Filename := 'Angebot Nr ' + FloatToStr(oArch.DocNo) + '.RTF', // z.B. anderes Format (MS-Word)
oArch.Filename := 'Angebot Nr ' + FloatToStr(oArch.DocNo) + '.PDF',
oArch.ShowDialog := nShowDlg,
oArch.SendEmail('"Dontenwill GmbH" <info@dontenwil.de>', '', ''), // Email an genau diese Adrressen versenden
//oArch.MailTo := '"Dontenwill GmbH" <info@dontenwil.de>',
//oArch.MailCC := '"Dontenwill GmbH" <info@dontenwil.de>',
//oArch.MailBCC := '"Dontenwill GmbH" <info@dontenwil.de>',
//oArch.ExecEmail, // Email mit Eigenschaften(MailTo, MailCC und MailBCC) versenden,
of 3 :: // direkt exportieren
//oArch.Filename := 'C:\Temp\Angebot Nr ' + FloatToStr(oArch.DocNo) + '.RTF', // z.B. anderes Format (MS-Word)
oArch.Filename := 'c:\temp\Angebot Nr ' + FloatToStr(oArch.DocNo) + '.PDF',
oArch.ShowDialog := nShowDlg,
oArch.ExecExport,
endcase,