Не работает cmInit
Добавлено: 10 апр 2006, 10:22
Добрый день. Помогите разобраться с заданием начальных значений. Пишу интерфейс:
#include UserReport.vih
VipInterface UserReport_Test Implements IUserReport;
Interface UserReport_Test show at (1,1,47,6);
create view
var
dateFrom:date;
dateTo : date;;
!-------------------------------------------------------------------------------
procedure Run;
begin
runInterface(UserReport_Test);
end;
panel pnSelect
screen scrOborot;
fields
dateFrom('Дата начала периода.' ,,sci178Esc ): pickButton;
dateTo('Дата конца периода.' ,,sci178Esc ): pickButton;
buttons
cmOk,,,'Получение отчета',,sci178Esc;
cmCancel,,,'Отмена',,sci178Esc;
<<'Тест'
Дата с: .@@@@@@@@@@@@ по: .@@@@@@@@@@@@
<.Получение отчета.> <. Отмена .>
>>
end; // screen
handleEvent
cmInit :
{
dateFrom:=Cur_Date;
dateTo:=Cur_Date;
}
end; // handleevent
end; //panel
...
Не отрабатывает cmInit. Что я делаю не правильно?
#include UserReport.vih
VipInterface UserReport_Test Implements IUserReport;
Interface UserReport_Test show at (1,1,47,6);
create view
var
dateFrom:date;
dateTo : date;;
!-------------------------------------------------------------------------------
procedure Run;
begin
runInterface(UserReport_Test);
end;
panel pnSelect
screen scrOborot;
fields
dateFrom('Дата начала периода.' ,,sci178Esc ): pickButton;
dateTo('Дата конца периода.' ,,sci178Esc ): pickButton;
buttons
cmOk,,,'Получение отчета',,sci178Esc;
cmCancel,,,'Отмена',,sci178Esc;
<<'Тест'
Дата с: .@@@@@@@@@@@@ по: .@@@@@@@@@@@@
<.Получение отчета.> <. Отмена .>
>>
end; // screen
handleEvent
cmInit :
{
dateFrom:=Cur_Date;
dateTo:=Cur_Date;
}
end; // handleevent
end; //panel
...
Не отрабатывает cmInit. Что я делаю не правильно?