Re: Как добавить кнопку в стандартный интерфейс
Добавлено: 19 ноя 2018, 18:09
_loop Pick where ((cPickSpMnPlanInterf == Pick.wList))
Благодарю, Денис!Den писал(а):_loop Pick where ((cPickSpMnPlanInterf == Pick.wList))
Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
Благодарю, Денис!Den писал(а):_loop Pick where ((cPickSpMnPlanInterf == Pick.wList))
Код: Выделить всё
#component "M_MNPLAN"
#define ComponentVersion
#include C:\Work\Gal\FRM\SRC\Inc\CFG_ALL.INC
!#include C:\Work\Gal\FRM\SRC\Inc\CFG_ERR.inc
end;
#include C:\Work\Gal\FRM\SRC\Inc\ExtAttrClassInfo.vih
alter interface BOOKINGS
create view
var
Stroka: String;
attr : iExtAttrClassInfo;
;
window Win1
const
cmPanelInput = 99870;
end;
HandleEvent
cmInit :
{
inherited::handleevent(cmInit);
cfsSetCurrentContainer(cfsGetCurrentContainerSelf)
var l: longint;
set Stroka:=attr.sGetAttr(31011,Indent.nrec,'Обоснование');
cfsCreateObject('PanelInputLine', 'SCR01', 'Stroka', False, l);
cfsSetProp(l, cfpOrigin_X, 302);
cfsSetProp(l, cfpOrigin_Y, 135);
cfsSetProp(l, cfpSize_X, 240);
cfsSetProp(l, cfpSize_Y, 15);
cfsSetProp(l, 'pickButton', cmPick)
! cfsSetProp(l, cfpPickButton, {Urllink=Stroka}) // Так не работает
}
cmPick:
{
case curfield of
#Stroka:
{
set Stroka:=attr.sGetAttr(31011,Indent.nrec,'Обоснование');
}
end;
(inherited :: HandleEvent (cmPick)=heOk)
}
cmDefault:
{
case curfield of
#Stroka:
{
attr.sSetAttr(31011,Indent.nrec,'Обоснование',Stroka);
}
end;
(inherited :: HandleEvent (cmPick)=heOk)
}
end;
end;
end.