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:

MailTo:C
MailCc:C
MailBcc:C

keine Rückgabewert = starte den Email Versand
Bemerkung: überschreibe die Email-Egenschaften MailTo, MailCc, MailBcc

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

CODE

|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,