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

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

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.