Добавление команд БСП на форму. Управление видимостью
Разработка - Работа с интерфейсом
При разработке новых решений, а также при добавлении своих документов в типовую базу возникает вопрос как привязать к типовой системе БСП свои документы, чтобы отображались кнопки "Печать", "Отчеты", "Создать на основании".
Принцип внедрения не очень сложный. Покажу на примере журнала документов (аналогичные действия в списке документов).
До этого необходимо добавить типовыми средствами и связать (указать) документы на основании которых создаются другие документы.
Имеется форма журнала документов "Счета". Здесь выводится список документов СчетНаОплату.
В процедуру "ПриСозданииНаСервере" вставляем код ниже
// СтандартныеПодсистемы.ПодключаемыеКоманды
ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
// отображаем заголовок у кнопки "Создать на основании"
ПодменюСоздатьНаОсновании = Элементы.Найти("ПодменюСоздатьНаОсновании");
ПодменюСоздатьНаОсновании.Отображение = ОтображениеКнопки.КартинкаИТекст;
// скрываем кнопку "Отчеты"
ПодменюСоздатьНаОсновании = Элементы.Найти("ПодменюОтчеты");
ПодменюСоздатьНаОсновании.Видимость = Ложь;
Ниже в модуле формы вставляем список процедур, необходимых для подключения команд
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
ПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
В обработчик списка "СписокПриАктивизацииСтроки" вставляем следующий код
// СтандартныеПодсистемы.ПодключаемыеКоманды
ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
ИТОГО мы имеем на форме типовые кнопки БСП
Вступайте в нашу телеграмм-группу Инфостарт
Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
