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: histPrint - Beleg wurde gedruckt histFax - Beleg wurde per FAX versandt histMail - Beleg wurde per Post versandt histDeleted - Beleg wurde gelöscht histBe16Import - n/v histCreated - Beleg wurde erstellt histCopy - Beleg wurde kopiert histSendTo - Beleg wurde durch Windows an andere stelle (außerhalb von Dab700) geschickt histEmail - Beleg wurde als Anhang eines E-Mails versandt histManuell - Beleg wurde manuell gedruckt histAttach - Neue Anhänge histAttachDoc - Name von neues Anhang histComment - Kommentar geändert histAttachDelete - Anhang gelöscht histCancellation - Storno des Beles, z.B. Rechnung oder Lieferscheins histChanged - Differenz-Buchung histAdmon - Mahnung
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:

CODE

//##############################################################################
//##############################################################################
// 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,