Делаю выборку некоторых актов и спецификаций по стройкам.
делаю таблицу MyTableMC, куда хочу сгружать данные. НО,
КАК ТОЛЬКО Я К ЭТОЙ ТАБЛИЦЕ ОБРАЩАЮСЬ, КОРНЕВАЯ ВЬЮХА ОТКАЗЫВАЕТСЯ РАБОТАТЬ!!!!!
Причем, делал такой пример: создал ф-цию, которая нигде не вызывается, внутри инсерт одной записи в MyTableMC:
Код: Выделить всё
insert
into MyTableMC
set mcname = '',
mckind = 1,
mcdsopr = 1,
mcamount = 1;
Пример(закомментаренный дефайн - без инсерта, раскоментарите дефайн - с ним):
Код: Выделить всё
//#define t1
Interface test 'test' Cyan;
table struct MyTableMC(
mcname : string,
mckind : word,
mcdsopr : date,
mcamount: double
)with index(Ind = mckind);
create view ViewKatStroy
var
x : integer;
as select
katstroy.Name,
katstroy.nrec,
katorg.name,
katmc.name,
katmc.kind,
spsopr.kolfact,
spsopr.price
from
katstroy,
katsopr,
katorg
where ((
katstroy.nrec /== spsopr.cuks
and spsopr.csopr /== katsopr.nrec
and katsopr.corg == katorg.nrec
and 110 == spsopr.vidsopr
and spsopr.cmcusl == katmc.nrec and (spsopr.prmc=1)
));
SCREEN screen1;
fields
buttons
cmClearFilter;
<<
<.Проверить.>
>>
end;
handleEvent
cmClearFilter:{
x := viewkatstroy.getfirst;
if(x=0)
#ifdef t1
insert
into MyTableMC
set mcname = ViewKatStroy.katmc.name,
mckind = ViewKatStroy.katmc.kind,
mcdsopr = ViewKatStroy.katsopr.dsopr,
mcamount = (ViewKatStroy.spsopr.kolfact * ViewKatStroy.spsopr.price);
#else
x;
#end
message(ViewKatStroy.getfirst);
}
end;
end.