> Автор: GavRYshA

> case v1=-8
> new_def = klient_i.nomer &&номер с каким меняем
> old_def = 1 &&номер на какой меняем
>
> seek v_plat
> do while v_plat=k_k .and. .not.eof()
Зачем здесь eof() ???

>
> if old_def = new_def &&если одинаковый то выход
> EXIT
> endif
А эту проверку надо делать вообще до начала каких бы то ни было
манипуляций!!!!

> if klient_i.nomer = old_def &&замена старого дефолта на обычную запись
> repl klient_i.nomer with new_def
> endif

> if klient_i.nomer = new_def &&замена записи на дефолт
> repl klient_i.nomer with old_def
> endif

Ну допустим. Теперь что происходит: Находим сначала запись с klient_i.nomer
= old_def, меняем на new_def.
Потом ЭТУ ЖЕ запись (мы еще стоим на ней и следующий if выполнится, т.к. мы
только что сами поменяли klient_i.nomer на new_def) - > меняем его обратно.


Короче логика совсем не продумана!!!


Подозреваю, что индекс стоит по полю k_k и может еще по nomer (составной
индекс). Если это так - получишь очередные грабли!!!



> skip
> enddo
> exit

> в архиве полный код программы и кусочек таблицы klient_i


И толку от вашего кода программы, если там есть вызовы других программ???? А
где к базе индексы??? По каким критериям сейчас стоит сортировка???


Posted via ActualForum NNTP Server 1.4