Шаг 9.3 - Создание вызывающей справочник ОКП процедуры.

.....Вернемся в модуль PCFindDetails на форму fmPCFindDetails (см. Урок 8 - Шаг 8.1). Встаньте на компонент sbtOKP - TSpeedButton, в инспекторе свойств перейдите на закладку Events и дважды щелкните мышкой напротив события OnClick. Будет создана соответствующая процедура sbtOKPClick. Введите в раздел implementation и в тело созданной процедуры следующие строки:

implementation

uses VLDefinition, PCSelOKP, PCDetail;

...

procedure TfmPCFindDetails.sbtOKPClick(Sender: TObject);
begin
     inherited;
     CurBDDCOM:=Self.vlftv.BDDCOM;
     // поместить в глобальную переменную указатель на DCOM-соединение
     CurBDId:=CurBDDCOM.RegVarList.GetIntegerData('InLibOKP');
     // поместить в глобальную переменную содержимое системной переменной с наименованием inLibOKP
     // из списка системных переменных TVLRegVarList, указатель на который был помещен
     // в свойство CurBDDCOM.RegVarList компонента TVLDCOMConnection (см. Урок 3 - Шаг 3.2)
     fmSelOKP:=TfmSelOKP.Create(Application);
     // создать форму fmSelOKP - справочник ОКП
     try
          if fmSelOKP.ShowModal=mrOk then Self.edOKP.Text:=fmSelOKP.stSelect;
          // если модальный вызов формы закончился возвратом результата mrOK
          // поместить в поле edOKP содержимое свойства формы stSelect
     finally
          fmSelOKP.Free;
          // удалить форму из памяти
     end;
end;

     Скомпилируйте проект и проверьте, как работает автоматизированный поиск и выбор кода ОКП и помещение его в соответсвующее поле. На этом данный урок закончим.
     Далее...