27. Dezember 2011 16:14
CopyItemToItem(VAR FromItem : Record Item;VAR ToItem : Record Item)
WITH ToItem DO BEGIN
RESET;
DELETEALL;
IF FromItem.FIND('-') THEN
REPEAT
ToItem := FromItem;
INSERT;
UNTIL FromItem.NEXT = 0;
END;
27. Dezember 2011 16:26
Torsten K. hat geschrieben: Alle Filter der Tabelle Item werden aufgelöst und alle Artikel werden gelöscht um Sie dann aus der Tabelle FromItem wieder zu kopieren.
27. Dezember 2011 16:37
27. Dezember 2011 16:43
Torsten K. hat geschrieben:Ich habe nur nirgendwo gesehen, das der Record ToItem temporär deklariert ist :(.
RESET;
DELETEALL;
Falls du Lust hast, kannst du mir noch verraten, warum der Record ToItem temporär ist?
27. Dezember 2011 16:49
Natalie hat geschrieben:Und da bin ich mir sehr, sehr sicher. Denn ansonsten wäre ergäbe das hier
- Code:
RESET;
DELETEALL;
einen Super-GAU.
27. Dezember 2011 18:20
Falls du Lust hast, kannst du mir noch verraten, warum der Record ToItem temporär ist?
TempTable.Reset;
if TempTable.Findset then
repeat
TuWas(TempTable);
until (TempTable.next=0);
28. Dezember 2011 10:55
28. Dezember 2011 11:12