TBeCbArchive
Klasse zur Steuerung des Belegarchivs in Bezug auf Druck, eMailversand und Export von Belegen wahlweise mit oder ohne Dialog
Hinweis
-
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.
Eigenschaften
|
Eigenschaft |
Beschreibung |
|---|---|
|
AccessChecker:O |
|
|
Action:O |
|
|
ActiveControl:O |
|
|
ActiveMDIChild:O |
|
|
Align:N |
|
|
AlignWithMargins:L |
|
|
AlphaBlend:L |
|
|
AlphaBlendValue:N |
|
|
Anchors:N |
|
|
AutoScroll:L |
|
|
AutoSize:L |
|
|
BiDiMode:N |
|
|
Body:C |
default = leer = E-Mail-Text (RTF erlaubt) |
|
BorderIcons:N |
|
|
BorderStyle:N |
|
|
BorderWidth:N |
|
|
Caption:C |
|
|
CbDataSetHelper:O |
|
|
CBEditorMenu:O |
|
|
CbHelper:O |
|
|
ClassID:C |
|
|
ClientHeight:N |
|
|
ClientWidth:N |
|
|
Color:N |
|
|
Constraints:O |
|
|
Ctl3D:L |
|
|
CurrNo:N |
Default = -1 (neuester) = Lfd.Nr. |
|
Cursor:N |
|
|
CustomHint:O |
|
|
CustomTitleBar:O |
|
|
DefaultMonitor:N |
|
|
DesktopFont:L |
|
|
DockSite:L |
|
|
DocNo:U |
Belegnr. (numerisch oder alpha-numerisch) |
|
DocType:N |
Belegtyp |
|
DoubleBuffered:L |
|
|
DoubleBufferedMode:N |
|
|
DragKind:N |
|
|
DragMode:N |
|
|
Enabled:L |
|
|
ExecEmail:L |
keine Parameter, keine Rückgabewert = starte den Email Versand |
|
ExecExport:L |
keine Parameter, keine Rückgabewert = starte den Export |
|
ExecPrint:L |
keine Parameter, keine Rückgabewert = starte den Druck |
|
FileName:C |
default = leer = Ausgabe Dateiname für Email und Export |
|
Font:O |
|
|
FormStyle:N |
|
|
GlassFrame:O |
|
|
Height:N |
|
|
HelpAssistant:O |
|
|
HelpContext:N |
|
|
HelpFile:C |
|
|
HelpKeyword:C |
|
|
HelpType:N |
|
|
Hint:C |
|
|
HorzScrollBar:O |
|
|
Icon:O |
|
|
ImageIndex:N |
|
|
Images:O |
|
|
IsChildWindow:L |
|
|
KeyPreview:L |
|
|
LayoutSaverID:C |
|
|
Left:N |
|
|
LoggingMenu:O |
|
|
MailAttach:O |
default = leer = E-Mail-Dateianhänge-Liste |
|
MailBcc:O |
default = leer = E-Mail-Blindkopie-Liste |
|
MailCc:O |
default = leer = E-Mail-Kopie-Liste |
|
MailForceExport:L |
default = false = Den Beleg immer als Anhang mitschicken |
|
MailListTo:C |
|
|
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 |
|
MailTo:O |
default = leer = E-Mail-An-Liste |
|
Margins:O |
|
|
Menu:O |
|
|
Name:C |
|
|
ObjectMenuItem:O |
|
|
OrigCapt:C |
|
|
Original:L |
default = false = / = Originaldruck |
|
OutBinName:C |
default = leer = Papierschachtname |
|
OutCopies:N |
default = 1 = Anzahl Druckkopien |
|
OutDocName:C |
default = leer = Dokumentname im Spooler |
|
OutPrinterName:C |
default = leer = Druckername |
|
OverlayBkPage:N |
default = -1 = Original Hintergundformular des ursprünglichen Druckes |
|
Padding:O |
|
|
Page:O |
|
|
PageNo:N |
|
|
ParentBiDiMode:L |
|
|
ParentCustomHint:L |
|
|
ParentFont:L |
|
|
PersNo:N |
Pers.Nr. |
|
PopupMenu:O |
|
|
PopupMode:N |
|
|
PopupParent:O |
|
|
Position:N |
|
|
PositionSaveID:C |
|
|
PrintBkPages:L |
default = False = Hintergundformular drucken |
|
PrintScale:N |
|
|
RoundedCorners:N |
|
|
Scaled:L |
|
|
ScreenSnap:L |
|
|
ShowDialog:L |
default = False = Druck-, Email-, Exportdialog anzeigen |
|
ShowException:L |
default = true = Fehler als Meldung (Dialog) anzeigen |
|
ShowHint:L |
|
|
ShowInTaskBar:L |
|
|
ShowProgress:L |
default = true = Vorschritt (Dialog) beim E-Mail Versand anzeigen |
|
SnapBuffer:N |
|
|
StyleElements:N |
|
|
StyleName:C |
|
|
Subject:C |
default = leer = E-Mail-Betreff |
|
Tag:N |
|
|
TipMode:N |
|
|
Top:N |
|
|
Touch:O |
|
|
Translator:O |
|
|
TransparentColor:L |
|
|
TransparentColorValue:N |
|
|
UseDockManager:L |
|
|
VertScrollBar:O |
|
|
Visible:L |
|
|
VisualManager:N |
|
|
Width:N |
|
|
WindowMenu:O |
|
|
WindowState:N |
|
Methoden
|
Methode |
Beschreibung |
|---|---|
|
SendEmail(aToList:C, aCcList:C, aBccList:C) |
E-Mail-Versand starten |
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,