> > Hallo ! Wer kann Helfen !
> > Ich möchte bestimmte Felder in allen Datensätzen einer
> > Datei mittels Schleife (While) auf Null setzen. Habe
> > schon viele Möglichkeiten ausprobiert. Komme aber nicht
> > zum Ziel.
> > Danke im Voraus!
> Besser hier fragen:
> http://foren.tdb.de/a.prg?akt=66435778&for=3&btr=0&nap=0&
> dow=3&dom=0&rnd=6978
Hallo, das ist meine Schleife!
PROCEDURE alle_Artikel_auf_Null_setzen;
PrimFile(ARTIKELLISTE);
AlleMarkierungenEntfernen(1);
SetSortOrder('Artikelliste.ID') DatenSätzeÄndern .. Datensätze ändern EIN
Vardef RNo : Real;
RNo := FirstRec(Artikelliste);
ReadRec(Artikelliste,RNo)
While RNo > 0
Message(Str(RNo));
.. ReadRec(Artikelliste,RNo)
Bestand := 0
Gekauft := 0
Verbrauch := 0
Attach
GetRec(Artikelliste,RNo)
RNo := NextRec(Artikelliste)
.. Attach
End
Attach
hidewait
DatenSätzeÄndern .. Datensätze ändern AUS
SetSortOrder('Artikelliste.ID')
endproc;
Was ist falsch?
Danke!
| 
