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

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)

Weitere Verknüpfungen

TBePrintData