IP Driver и FILE:Record

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
samo_let
Посетитель
Сообщения: 42
Зарегистрирован: 26 Январь 2009, 16:24

IP Driver и FILE:Record

Сообщение samo_let »

Помогите разобраться в проблеме:
C6.3, ABC, IP Driver

Есть процедура Window1, в которой открывается таблица DISCHAR. Из нее вызывается другая процедура Window2 (типа Validate), в которой делается выбор записи из таблицы DISCHAR
Когда драйвер был TPS, все работало нормально, однако теперь при IP Driver поведение непонятное, в методе KILL процедуры Window2 :
If Loc:OK = 1
DIS:KOD = Vq:Fcod
GET(Dischar, DIS:K) ! при Select выбирается запись из файла
If ErrorCode() then clear(dis:record).
end
STOP('kill1:<13> DIS:KOD='& DIS:KOD &' Vq:Fcod='& Vq:Fcod) ! здесь показывает правильное значение DIS:KOD = 1

! далее идет шаблонный код
! Call Close file methods
Relate:DISCHAR.Close
! [Priority 6500]

! после "закрытия" таблицы структура Record не та! Таблица не закрывается - она открыта в Window1
STOP('kill2:<13> DIS:KOD='& DIS:KOD &' Vq:Fcod='& Vq:Fcod) ! здесь структура Record вообще непонятная, DIS:KOD = 9

Как же так?
И что делать?
Igor
Бывалый
Сообщения: 75
Зарегистрирован: 08 Июль 2005, 11:03
Откуда: Королев

Re: IP Driver и FILE:Record

Сообщение Igor »

Для меня это ж-па. (Novell , WIN, ORACLE - в одном флаконе)
Стараюсь всегда делатьследующее
sav:record GROUP;BYTE;DIM(SIZE(DISCHAR:RECORD).
CODE
! ......набор байтов
!далее идет шаблонный код
! Call Close file methods
SAV:RECORD = DISCHAR:RECORD
Relate:DISCHAR.Close
DISCHAR:RECORD = SAV:RECORD
!Как же так?
!И что делать?
Присоединяюсь к вопросу :(
Аватара пользователя
samo_let
Посетитель
Сообщения: 42
Зарегистрирован: 26 Январь 2009, 16:24

Re: IP Driver и FILE:Record

Сообщение samo_let »

Жаль
Я-то надеялся, что это я где-то чего-то "не докурутил" (Думал, как-нибудь PROP:IPRequestCount надо регулировать)...

Получается, что заявленный переход на IP драйвер за 10 минут - обычная пропаганда!
Интересно - что еще перестанет работать, если перейти с TPS на IP Driver?
Ответить