TBeDelivData, TBeCumDelivData
TBeDelivData, TBeCumDelivData
Belegdruck-Klassen zum Druck von Einzel- bzw. Sammellieferscheinen.
Eigenschaften TBeDelivData
| Eigenschaft | Beschreibung |
|---|---|
PrintPersNo:N | Immer 0 ! |
PrintDocNo:C | Aufragsnummer, numerisch |
Eigenschaften TBeCumDelivData
| Eigenschaft | Beschreibung |
|---|---|
PrintPersNo:N | Kunden-Nr., numerisch |
PrintDocNo:C | LPRUEFSUM, alpha |
Hierarchie
TBePrintData -> TBeOfferData -> TBe\[Cum\]DelivData
Beispiel
CODE
function PrintLieferschein( oDab050 )
|oPrint|
oPrint := CreateObject("TBeDelivData"),
startseq
oPrint.QuietMode := True,
oPrint.PrintDocNo := Val(oDab050:ANUMMER), // Zu druckender Auftrag
oPrint.ExecPrint, // Einzeln drucken
always
DestroyObject(oPrint),
stopseq,
end,
function PrintSammelLieferschein( oDab050 )
|oPrint|
oPrint := CreateObject("TBeCumDelivData"),
startseq
oPrint.QuietMode := True,
oPrint.PrintPersNo := oDab050:KDNR, // Zu druckende Kundennr.
oPrint.PrintDocNo := oDab050:LPRUEFSUM, // Zu druckende Lieferanschrift
oPrint.ExecPrint, // Einzeln drucken
always
DestroyObject(oPrint),
stopseq,
end,