Отправлено: 14.03.13 12:16. Заголовок: Index on EVAL

Index on ndok to tmp eval test()

Фунция Test (бегунок) отлично пахал в Clipper SIX
А в Harbour не пашет.
При первом вызове TEST , bof() и eof() равны .F. , в то время как в SIX
bof() равнялся .T. и можно было запомнить состояние экрана и нарисовать
картинку для бегунка , так как срабатывало 1 раз
Что то я потерялся ;) Занимаюсь переводом своей проги с Clipper на Harbour

 Отправлено: 14.03.13 12:49. Заголовок: Разобрался ;)..

Разобрался ;)

Dima пишет:

цитата:

При первом вызове TEST , bof() и eof() равны .F. , в то время как в SIX bof() равнялся .T. и можно было запомнить состояние экрана

Было
if bof()
что то рисуем и запоминаем
endif

Стало
IF !bof() .and. !eof() .and. nrecs==0
что то рисуем и запоминаем
где nrecs:=DbOrderInfo(DBOI_KEYSINCLUDED)
ENDIF

 Отправлено: 14.03.13 13:05. Заголовок: Пытаюсь в функции te..

Пытаюсь в функции test предложения eval получить имя индексного файла.
Делал по разному
DborderInfo(DBOI_FULLPATH)
DborderInfo(DBOI_INDEXNAME)
DborderInfo(DBOI_BAGPATH)

везде возврат пустая строка
что не так делаю ?

 Отправлено: 14.03.13 13:14. Заголовок: Dima пишет: Пытаюсь..

Dima пишет:

цитата:

Пытаюсь в функции test предложения eval получить имя индексного файла.

dborderInfo(DBOI_I_BAGNAME)

 Отправлено: 14.03.13 13:17. Заголовок: AlexMyr пишет: dbor..

AlexMyr пишет:

цитата:

dborderInfo(DBOI_I_BAGNAME)

Да так работает. Спасибо !