Код: Выделить всё
Handleevent
cmInit: {
......
}
cmPick: {
.......
}
cmCheckField:
case curField of
#rejim:
if rejim=0 then {
set c:='На'; set po:='';
ClearFieldOption(#data2,ofSelectable);
SetFieldOption(#data2,ofProtected);
ClearFieldState(#po, sfVisible);
ClearFieldState(#data2, sfVisible);
if day(data1)<>1 then set data1:=date(01, month(data1), year(data1));
}
else {
set c:='С'; set po:='По';
SetFieldOption(#data2,ofSelectable);
ClearFieldOption(#data2,ofProtected);
SetFieldState(#po, sfVisible);
SetFieldState(#data2, sfVisible);
}
#data1:
if rejim=0 then {
if day(data1)<>1 then set data1:=date(01, month(data1), year(data1));
}
end;
cmOK: {
.....
}
cmCancel:
CloseInterface(cmOK);
end;