Страница 1 из 5
Alter interface
Добавлено: 27 янв 2012, 20:43
Руслан
Делаю alter interface на карточку сотрудника в модуле Управление персоналом=>Картотека сотрудников. Хочу добавить кнопку, которая будет вызывать интерфейс с определенными полями (этот интерфейс свой). Вот интерфейс, который хочу поменять - 'Z_STAFF::RECEPTIONMAIN.WINCOMMONDATA.WINDOW01.Z_STAFF::RECWIN01.SCRPERS1.PERSONS.DISDATE', он вложенный.
Вот код:
Код: Выделить всё
#component "Z_STAFF"
alter interface RECWIN01;
var butMy_var, labelMy_var, butMy_varSee : longint;
!window WINCOMMONDATA;
handleEvent
cmInit :
{
inherited::handleEvent(cmInit);
var i : integer;
for (i := 0; i < 2; i++)
{
cfsSetCurrentContainer('RECWIN01&1.SCRBUTTONS');
cfsCreateObject('button', 'SCRBUTTONS', 'ButDistributionValue', FALSE, butMy_var);
cfsCreateObject('label', 'SCRBUTTONS', 'LableDistributionValue', FALSE, labelMy_var);
cfsCreateObject('button', 'SCRBUTTONS', 'ButDistributionSeeValue', FALSE, butMy_varSee);
cfsSetProp('ButDistributionValue','Visible',TRUE);
cfsSetProp('LableDistributionValue','Visible',false);
cfsSetProp('ButDistributionSeeValue','Visible',true);
cfsSetProp('ButDistributionValue','Size_X',91);
cfsSetProp('ButDistributionValue','Size_Y',25);
cfsSetProp('ButDistributionValue','Origin_X', 10);
cfsSetProp('ButDistributionValue','Origin_Y', 323);
cfsSetProp('LableDistributionValue','Size_X',91);
cfsSetProp('LableDistributionValue','Size_Y',25);
cfsSetProp('LableDistributionValue','Origin_X', 10);
cfsSetProp('LableDistributionValue','Origin_Y', 323);
cfsSetProp('ButDistributionSeeValue','Size_X',91);
cfsSetProp('ButDistributionSeeValue','Size_Y',25);
cfsSetProp('ButDistributionSeeValue','Origin_X', 10);
cfsSetProp('ButDistributionSeeValue','Origin_Y', 323);
! cfsSetProp('ButDistributionValue','Command', cmButDistributionValue);
! cfsSetProp('ButDistributionSeeValue','Command', cmButDistributionSeeValue);
cfsSetProp('ButDistributionSeeValue','Title','Размеры');
}
}
end;
end.
Кнопка не прорисовывается, когда просматриваю этот интерфейс через запуск внешних интерфейсов, то все вижу. Нужно как-то передавать события через главный интерфейс или как?
Re: Alter interface
Добавлено: 28 янв 2012, 10:26
edward_K
ну он вызывается не через запуск, а как объект. В этом случае надо перехватывать cmOnVipLoad (который вроде не срабатывает при обычном вызове - вот и проверьте заодно).
Re: Alter interface
Добавлено: 28 янв 2012, 13:34
Руслан
Первая проблема в том, что кнопку эту не вижу в интерфейсе....
Re: Alter interface
Добавлено: 28 янв 2012, 13:52
edward_K
ну дык я ж вам написал - замените cmInit на cmOnVipLoad
Re: Alter interface
Добавлено: 28 янв 2012, 14:00
Руслан
Ага, спасибо, в понедельник попробую
Re: Alter interface
Добавлено: 30 янв 2012, 12:12
Руслан
Все равно кнопка не появилась
Re: Alter interface
Добавлено: 30 янв 2012, 13:21
m0p3e
Обязана появится.
Смотрите что возвращают функции конфигуратора.
Код: Выделить всё
#component "Z_Staff"
Alter Interface RecWin06 ( Fix '');
HandleEvent
cmOnVipLoad :
{
If Pr_CurUserAdmin //Добавим столбец с nrec-ом
{
inherited::HandleEvent(cmOnVipLoad);
var iObj : LongInt;
cfsCreateObject ( 'COLUMN', 'BRWAPPOINTMENTS1', 'APPOINTMENTS.NREC', false, iObj );
cfsSetProp ( iObj, cfpTitle, 'Appointments.Nrec' );
cfsSetProp ( iObj, cfpProtect, true );
};
}; //cmOnVipLoad
END.
Re: Alter interface
Добавлено: 30 янв 2012, 13:56
edward_K
наверное дело в cfsSetCurrentContainer('RECWIN01&1.SCRBUTTONS'); - уберите его совсем
да и зачем for непонятно - чтобы наверняка добить? Его тоже в топку. Внимательно проверьте имя экрана.
Re: Alter interface
Добавлено: 30 янв 2012, 14:29
n0where
Код: Выделить всё
if (cfsSetCurrentContainer('M_QUALITY::KATQP')<>0) {
message('cfsSetCurrentContainer');
exit;
}
if (cfsCreateObject ('button','SCEDITQPHEAD','butSP',FALSE,Button1)<>0) {
message('cfsCreateObject');
exit;
}
cfsSetProp('butSP','Origin_X',420);
cfsSetProp('butSP','Origin_Y',22);
cfsSetProp('butSP','Size_X',91);
cfsSetProp('butSP','Size_Y',25);
cfsSetProp('butSP','Title','ÅÑτáΓ∞');
cfsSetProp('butSP',cfpCommand,cmButSP);
Re: Alter interface
Добавлено: 30 янв 2012, 17:50
Den
cfsSetCurrentContainer('RECWIN01&1.SCRBUTTONS');
насколько я помню контейнером в Атлантисе не может выступать окно,скрин и другой визуальный формат....они тоже все в контейнере inteface_name. Т.к. что в Вашем случае там нужно RECWIN01
Re: Alter interface
Добавлено: 15 мар 2012, 17:31
savov
Я хочу сделать аналогичное: добавить кнопку в интерфейс L_PRNSOPR::PRNVARIATMCUSL.SCRPRNVARIATMCUSL.WNASTR, чтобы нажав на нее можно было выбрать и заполнить сразу вариант наименования у всех МЦ.
Код
Код: Выделить всё
#component 'L_PRNSOPR'
const cmChangeState = 990099; End;
alter interface PRNVARIATMCUSL;
overload end;
var ButMyCom:longint;
! window SCRPRNVARIATMCUSL;
HandleEvent
cmOnVipLoad:
{
inherited::handleEvent(cmOnVipLoad);
cfsSetCurrentContainer('PRNVARIATMCUSL.SCRPRNVARIATMCUSL.WNASTR');
cfsCreateObject('button', 'SCRBUTTONS', 'ButDistributionValue', FALSE, butMyCom);
cfsSetProp('ButDistributionValue','Visible',TRUE);
cfsSetProp('ButDistributionValue','Size_X',91);
cfsSetProp('ButDistributionValue','Size_Y',25);
cfsSetProp('ButDistributionValue','Origin_X', 100);
cfsSetProp('ButDistributionValue','Origin_Y', 23);
}
end;
end.
Но кнопка не появляется!!
Прочитал и этот пост и другие, вроде все делаю аналогично. В чем проблема? Ранее не доводилось докомпилировтаь фейсы
Re: Alter interface
Добавлено: 15 мар 2012, 18:08
m0p3e
Работающий пример добавления кнопки:
Код: Выделить всё
cmOnVipLoad :
{
inherited::handleEvent ( cmOnVipLoad );
cfsSetCurrentContainer ( 'RECWIN07_01.SCRVACBUTTONS1' );
var iObj : LongInt;
cfsCreateObject ( 'BUTTON', 'SCRVACBUTTONS1', 'MakeReport', false, iObj );
cfsSetProp ( iObj, cfpOrigin_X, 10 );
cfsSetProp ( iObj, cfpOrigin_Y, 85 );
cfsSetProp ( iObj, cfpSize_X, 95 );
cfsSetProp ( iObj, cfpSize_Y, 24 );
cfsSetProp ( iObj, cfpCommand, cmValue61 );
cfsSetProp ( iObj, cfpTitle, 'Отчет' );
}; //cmOnVipLoad
Re: Alter interface
Добавлено: 15 мар 2012, 18:26
savov
Я думаю, ошибаюсь с наименованием контейнера, как его определить? Поясните плиз
Re: Alter interface
Добавлено: 15 мар 2012, 18:53
savov
Попробовал приведенный код
На "cfp..." орет, что нет такой функции
Re: Alter interface
Добавлено: 15 мар 2012, 18:57
savov
Если префикс cfp убрать и взять в кавычки ( как было в моем коде), то компиляция проходит, но кнопки нет.