ArchiveHistoryAppend()
ArchiveHistoryAppend()
Belegarchiv-Funktion, um die Historie eines Belegs zu erweitern (Dab700:HISTORY
).
Parameter | Beschreibung |
---|---|
oDab700:O | Eine Tabelle Dab700, die schon auf dem gewünschten Beleg positioniert ist |
nHistType:N | Art von Eintrag:
|
dDate:D | Datum |
nUserNo:N | Benutzer |
cOutName:C | Nachricht die wird in Ansicht auf der Historie sichtbar |
nCopyCount:N | Wievielmal wurde Druck/Versand/Buchung durchgeführt. Wert 0 hat gleiche Bedeutung wie Wert 1. Default: 0 |
Rückgabewert
Logisch - Eintrag wurde erfolgreich gespeichert
Beispiel:
//##############################################################################
//##############################################################################
// Beschreibung: Neusten Beleg als gelöscht markieren
//##############################################################################
//##############################################################################
| oDab700, nID, nDocType, cDocNo, cRes |
oDab700 := CreateObject('TBeStandardTable'),
oDab700.WorkArea := waDab700,
oDab700.IndexName := 'ID',
startseq,
oDab700.Active := True,
oDab700.CbLast(),
ArchiveHistoryAppend(oDab700, histDeleted, Now(), mbeuser.no, 'Beleg wurde gelöscht'),
always,
DestroyObject(oDab700),
stopseq,