On-line: гостей 2. Всего: 2 [подробнее..]
АвторСообщение



Пост N: 102
Зарегистрирован: 06.05.14
ссылка на сообщение  Отправлено: 29.01.17 06:11. Заголовок: Ошибка Rlock()/SKIP


Пожалуйста, попробуйте следующую программу:

REQUEST LETO 

PROC Main
LOCAL TB, Ch
LOCAL cPath

cPath := "//192.168.99.10:2807/xApp"

Leto_Connect (cPath)
RddSetDefault ("LETO")

USE (cPath + "/Artikli") SHARED NEW

CLS

TB := TBrowseDB (0,0,24,79)
TB:addColumn (TBColumnNew ("CODE", {|| a_sif }))

WHILE .T.
TB:ForceStable()
Ch := Inkey(0)

IF Ch == 27
EXIT

ELSEIF Ch == 13
IF RLock()
Artikli->a_sif := "003"
SKIP // <---- ERROR!
SKIP -1
DBUnlock()
TB:refreshAll()
END IF

END IF
END DO

CLOSE ALL

RETURN


Если нажать Enter в *два раза*, получим:

Error LETO/1020 Data type error
Called from DBSKIP(0)
Called from MAIN(29)

При использовании драйвера DBF, все работает без ошибок. Я не знаю, какова роль TBrowse, но без него все работает.

Ненад

Спасибо: 0 
ПрофильЦитата Ответить
Новых ответов нет


Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 428
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет