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
DocType:N | Belegtyp |
DocNo:U | Belegnr. (numerisch oder alpha-numerisch) |
CurrNo:N | Default = -1 (neuester) = Lfd.Nr. |
PersNo:N | Pers.Nr. |
Allg. Export-Eigenschaften
FileName:C | default = leer = Ausgabe Dateiname für Email und Export |
ShowDialog:L | default = False = Druck-, Email-, Exportdialog anzeigen |
Druck-Eigenschaften
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 |
Druck-Methoden
ExecPrint | keine Parameter, keine Rückgabewert = starte den Druck |
E-Mail-Eigenschaften
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 | default = true = Fehler als Meldung (Dialog) anzeigen |
ShowProgress | default = true = Vorschritt (Dialog) beim E-Mail Versand anzeigen |
Email-Methoden
ExecEmail | keine Parameter, keine Rückgabewert = starte den Email Versand |
SendEmail | Parameter:
keine Rückgabewert = starte den Email Versand |
Export-Methoden
ExecExport | keine Parameter, keine Rückgabewert = starte den Export |
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,