может кто подскажет что не так.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.