Дерево:(

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
lingreen
Новичок
Сообщения: 20
Зарегистрирован: 06 сен 2006, 08:06
Контактная информация:

Дерево:(

Сообщение lingreen »

Вопрос в следующем написала фейс, в нём помечаю записи, они помечаются, но в Pick заносятся тока после того, как я закрываю базу
:-? может кто подскажет что не так.
interface ForTree 'Выбор подразделений' cyan, doaccept;

create view
var
gnrec,groups: comp;
gkod, gname: string;
as select KatPodr.name, KatPodr.code
from
katPodr,
synonym KatPodr KatP
where ((
KatPodr.Nrec==pick.crec and
1==pick.wlist and
groups== Katpodr.cpodr and
KatPodr.nrec == KatP.cpodr
))
order by KatPodr.Kod;

create view ap
as select *
from pick
where (( 1==pick.wList));
parameters
gnrec;
tree Tr (,,sci14EnIns);
Table KatPodr;
fields
katpodr.name 'наименование': [50];
KatPodr.kod 'Код подразделения': [15];
end;

handleevent
cmInit:
{ groups:=gnrec;
}
cmDefault:
{ gnrec := katPodr.nrec;
gkod := KatPodr.kod;
gname := KatPodr.name;

}
cmTreeNodeType:
{ if isvalidall(tnKatP)
then TreeSetNodeType(Tr, if(TreeNodeIsOpen(Tr), ntfopen, ntfclose))
else TreeSetNodeType(Tr, ntftext);
}
cmTreeTop: groups :=gnrec;
cmTreeDown: groups:=KatPodr.nrec;
cmTreeUp: groups:=KatPodr.cpodr;

cmMarkUnMark:
{
delete from pick where pick.crec=KatPodr.nrec
insert pick set pick.crec:=KatPodr.nrec,
pick.wlist:=1;
reDrawPanel(#KatPodr);
}
end;

end.
Последний раз редактировалось lingreen 16 янв 2007, 14:29, всего редактировалось 2 раза.
s2176
Местный житель
Сообщения: 473
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск

Сообщение s2176 »

А вы смотрите через Support? На самом деле записи заносятся сразу, но через суппорт их становится видно только после выхода.
Вы сделайте запросик по Pick прямо в фейсе и убедитесь, что записи туда занеслись.
Кто сказал, что бесполезно биться головой об стену?!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

DataBase.UserTableInMem=off в cfg (в галке и в сапорте)
поставте - будут обновляться как обновляться как обычные таблы.
правда сие отразиться на быстродействии.
Ответить