Как добавить кнопку в стандартный интерфейс

[Den]

_loop Pick where ((cPickSpMnPlanInterf == Pick.wList))

[zna]

_loop Pick where ((cPickSpMnPlanInterf == Pick.wList))

Благодарю, Денис!

[VarankDA]

Подскажите как назначить для поля атрибут "<поле-как-URL-ссылка>".
Нужно добавить в стандартный интерфейс поле со ссылкой на страничку в интернете.

Код: Выделить всё

#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.

[edward_K]

поле в скрине объявляется так
NameMCUsl ('Наименование. Выбирается из классификатора',, sci13478Esc): Protect, NoDel, QuickChoice, {hyperlink = true}, {font = {bold = TRUE}};
обработка идет в событие
cmHyperLink
поскольку это по смыслу тоже самое что и cmEdit лучше обработать в одной функции.
Как в штанное поле добавить - не смотрел. Можете опробовать свойства объекта в конфигураторе посмотреть, но вам все равно еще обратка нужна. Посмотрите в vipprogr.chm