TurboPL Referenz

SetRecord

Top  Previous  Next

Syntax

SetRecord(Ausgangstabelle, Zieltabelle: Integer): Integer

Kategorie

Datenbank-Befehl

Erklärung

Diese Funktion überträgt den aktuellen Datensatz der Ausgangstabelle in den aktuellen Satz der Zieltabelle. Dabei findet kein reiner Kopiervorgang statt, sondern die Felder werden den Feldbezeichnern entsprechend zugeordnet wie z.B. auch beim Import. Auch die laufende Nummer der Ausgangstabelle wird direkt übernommen, wenn die entsprechenden Felder den selben Namen haben.

Nach dem Aufruf von SetRecord muss der Satz der Zieltabelle noch per WriteRec geschrieben werden. Falls der Datensatz an die Zieltabelle nicht angehängt wird, muss eine sinnvolle laufende Nummer eingetragen werden.

Beispiel

vardef Rec: Integer;
PrimFile(RECHNUNG);
Link(RECHNUNG.Tag < 1.1.1997, SetMark(RECHNUNG, RecNo(RECHNUNG)));
Access(RECHNUNG, "Markierung");
Rec := FirstRec(RECHNUNG)
while ReadRec(RECHNUNG, Rec)
       ReadRec(RECHBAK, 0);
       SetRecord(RECHNUNG, RECHBAK);
       WriteRec(RECHBAK, FileSize(RECHBAK)+1);
       Rec := NextRec(RECHNUNG);
end