TBeCumBillData
TBeCumBillData
Belegdruck-Klasse zum Druck von Sammelrechnungen.
Eigenschaften
| Eigenschaft | Beschreibung |
|---|---|
| PrintPersNo:N | Kunden-Nummer für den die Sammelrechnung gedruckt werden soll |
| PrintDocNo:C | immer leer |
| MinTotalSum:N | Mindestwert je Rechnung; Default = 0 |
Hierarchie
TBePrintData -> TBeOfferData -> TBeDelivData -> TBeBillData -> TBeCumBillData
Hinweis
für weitere Eigenschaften siehe Vorfahr-Klassen
Beispiel
CODE
function PrintSammelRechnung(nKdnr, lShowDoc)
|oCumBill|
oCumBill := CreateObject("TBeCumBillData"),
startseq
oCumBill.UsePrintDlg := False,
oCumBill.QuietMode := True,
oCumBill.PrintPersNo := nKdnr, // Kundennummer
oCumBill.MinTotalSum := -9999999, // kein Mindestwert je Rechnung
oCumBill.ExecPrint, // Einzeldruck starten
// wurde Beleg gedruckt? (DocNo <> 999999) -> dann Belegarchiv anzeigen
if lShowDoc and (oCumBill.DocNo <> 999999) then
ShowDocument(160, nKdnr, Str(oCumBill.DocNo)),
endif,
always
DestroyObject(oCumBill),
stopseq,
end,
// Sammelrechnung für KDNR=1 drucken und anzeigen
PrintSammelRechnung(1, True)