Witam.
chcialbym wyeksportowac niezrealizowane zamowienia. Robie to w nastepujacy sposob:

Int basBD=open KatalogFirmy()+"51bd.dat" for base "bd"
baseError (basBD, 4)
SetKey(basBD,"rozliczone")
SetKeySeg(basBD, "oki", 1)

Int errBD=GetREc(basBD,LT)
while !errBD


currentRow = "zamowienie"
currentRow += ";" + ToString(GetField(basBD, "id"))
Print # Numer_pliku; currentRow + LF



errBD=GetREc(basBD,NX)

Wend
close basBD

Niestety, jako wynik otrzymuje rowniez dokumenty z oki=1.

Pozdrawiam,
Jacek

daj PR zamiast NX bo idziesz w dół po rekordach a nie do góry :)

Dlaczego w takim razie otrzymuje rowniez dokumenty z oki=1? Jesli szedlbym w dol, to nie powinienem dostac zadnych rekordow.

To po co zakladac indeks, skoro i tak przechodze przez wszystkie rekordy i 'recznie sprawdzam' rekordy?

Nie przechodzisz przez wszystkie rekordy, tylko ustawiasz się na nie rozliczonych (oki = 0) i biegasz po tych rekordach, do czasu aż nie trafisz na wartość oki != 0 - wtedy pętla While się kończy bo warunek w tej pętli jest nie spełniony. Warunek to oki = 0 nie będzie spełniony, jeżeli trafisz na zamówienia rozliczone i wtedy wypadasz z pętli.

Kod Rafała jest tutaj jak najbardziej poprawny - minimum operacji do uzyskania oczekiwanego przez Ciebie efektu

Dzieki za pomoc.
Pomylilem indeksy z filtrowaniem.