БланкСШаблоном "СПРАВОЧНИКИ";

Button1 :Object;
Button2 :Object;
Button3 :Object;
Button4 :Object;
Button5 :Object;
Button6 :Object;
Button7 :Object;
Button8 :Object;
Button9 :Object;
Button10:Object;
Button11:Object;

Proc ПриОткрытии(Откр:Logical);
  if Not BlankExist('ИНФО.ОИ'):Button1.Enabled=false;fi;
end;

Proc Выбор_ПриНажатии(Кнопка:String);
  if Кнопка='Button1':
      OpenBlank('ИНФО.ОИ',false);
    |Кнопка='Button2':
      OpenCardFile('Контрагент','Наше');
    |Кнопка='Button3':
      OpenCardFile('Контрагент','РПО_ПБС');
    |Кнопка='Button7':
      OpenCardFile('Контрагент');
    |Кнопка='Button4':
      OpenCardFile('Сотрудники');
    |Кнопка='Button5':
      OpenCardFile('ТМЦ');
    |Кнопка='Button6':
      OpenCardFile('ПОДРАЗДЕЛЕНИЯ');
    |Кнопка='Button8':
      OpenCardFile('РПО_Договор');
    |Кнопка='Button9':
      OpenCardFile('РПО_ФАИП');
    |Кнопка='Button10':
      OpenCardFile('РПО_ИСПДОК');
    |Кнопка='Button11':
      OpenCardFile('РПО_ОБЕСП_ИСПОЛ_ОБЯЗ');
  fi;
end;

Proc кнЗакрыть_ПриНажатии(Кнопка:String);
  close;
end;

Конец
