Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
Код: Выделить всё
cmExprFieldChanged:{
message(3 + ':'+ExprFieldValue);
}
Что не так?
Код: Выделить всё
var
mnfoper_name, katpodr_name: string;
aCheckBoxButton, kod: byte;
...
screen datarasp;
fields
aCheckBoxButton : noprotect;
katpodr_name ('Подразделения',,sci13enesc) : protect, pickButton;
mnfoper_name ('Техоперация',,sci13enesc) : protect, pickButton;
...
cmCheckField:
{
if aCheckBoxButton = 0 then
{
aCheckBoxButton := kod;
ReReadRecord;
}
if aCheckBoxButton = 1 then
{
cfsSetProp('katpodr_name', 'skip', false);
cfsSetProp('mnfoper_name', 'skip', true);
}
if aCheckBoxButton = 2 then
{
cfsSetProp('mnfoper_name', 'skip', false);
cfsSetProp('katpodr_name', 'skip', true);
}
message(aCheckBoxButton);
kod:=aCheckBoxButton;
}
...
Не помогает.edward_K писал(а):#katpodr_name
Выдал 'VEDNVRIOZ.DATARASP.mnfoper_name' или 'VEDNVRIOZ.DATARASP.katpodr_name'edward_K писал(а):по ctrl+F4
? Поясните...edward_K писал(а):Поля должны быть в логической таблице, если var вне нее, то иногда бывают проблемы
Код: Выделить всё
...
var
mnfoper_name, katpodr_name: string;
aCheckBoxButton, kod: byte;
podrnrec, opernrec: comp;
create view podr as
select name
from katpodr
where
((
podrnrec /== nrec
));
create view oper as
select name
from mnfoper
where
((
opernrec /== nrec
));
...