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