IP Driver и FILE:Record
Добавлено: 07 Апрель 2011, 21:31
Помогите разобраться в проблеме:
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
Как же так?
И что делать?
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
Как же так?
И что делать?