Skip to main content
Skip table of contents

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:

  1. MailTo:C

  2. MailCc:C

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


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.