Отладчик ругается!

Привожу модуль полностью

Перем мТекущаяДатаДокумента; // Хранит последнюю установленную дату документа - для проверки перехода документа в другой период

Перем мКолонкиПродукция, мКолонкиМатериалы;
Перем мФормаВводПараметровВыпуска, мТекущаяСтрокаПродукцияПараметры;

Перем мЧас;
Перем мМинута;

// Хранит дерево кнопок подменю заполнение ТЧ
Перем мКнопкиЗаполненияТЧ;

Перем мИспользоватьТолькоСборочныеСпецификации Экспорт;

Перем мПодразделение;

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ

// Процедура устанавливает подменю "Заполнить" в командных панелях ТЧ документа при необходимости
//
Процедура УстановитьКнопкиПодменюЗаполненияТЧ();

мКнопкиЗаполненияТЧ = УниверсальныеМеханизмы.ПолучитьДеревоКнопокЗаполненияТабличныхЧастей(Ссылка,Новый Действие("НажатиеНаДополнительнуюКнопкуЗаполненияТЧ"));

СоответствиеТЧ = Новый Соответствие;
СоответствиеТЧ.Вставить(ЭлементыФормы.Продукция,ЭлементыФормы.КоманднаяПанельПродукция.Кнопки.ПодменюЗаполнить);
СоответствиеТЧ.Вставить(ЭлементыФормы.Материалы,ЭлементыФормы.КоманднаяПанельМатериалы.Кнопки.ПодменюЗаполнить);

УниверсальныеМеханизмы.СформироватьПодменюЗаполненияТЧПоДеревуКнопок(мКнопкиЗаполненияТЧ,СоответствиеТЧ);

КонецПроцедуры // УстановитьКнопкиПодменюЗаполненияТЧ()

// Процедура изменяет доступность элемента формы .ВремяНапоминания
//
Процедура ДоступностьНапоминаний()

ЭлементыФормы.ВремяНапоминания.Доступность = НапомнитьОСобытии;

КонецПроцедуры // ДоступностьНапоминаний()

// Функция формирует список запросов для передачи в форму подбора.
//
// Параметры:
// ТабличнаяЧасть - табличная часть, для подбора в которую формируется список запросов.
//
// Возвращаемое значение:
// Список значений - список запросов.
//
Функция СформироватьСписокЗапросовДляПодбора(ТабличнаяЧасть)

СписокЗапросов = Новый СписокЗначений();
СписокЗапросов.Добавить(,"По справочнику");
Если ТабличнаяЧасть = Материалы Тогда
СписокЗапросов.Добавить("ОстаткиНоменклатуры", "По остаткам номенклатуры");
СписокЗапросов.Добавить("Спецификации", "По спецификациям");
КонецЕсли;

Возврат СписокЗапросов;

КонецФункции // СформироватьСписокЗапросовДляПодбора()

// Процедура обновляет параметры в форме подбора, если она открыта.
//
// Параметры:
// Реквизит - измененный реквизит.
//
Процедура ОбновитьФормуПодбора(Реквизит)

РаботаСДиалогами.ОбновитьПараметрыИФормуПодбора(ЭтотОбъект, ЭтаФорма, Реквизит);

КонецПроцедуры // ОбновитьФормуПодбора()

// Процедура вызывает сервисный механизм для подбора номеклатуры в табличную часть.
//
// Параметры:
// ТабличнаяЧасть - табличная часть, в которую осуществляется подбор.
//
Процедура ДействиеПодбор(ТабличнаяЧасть)

Перем Команда, Валюта;

ЕстьСерия = Ложь;
ОтборУслугПоСправочнику = Ложь;
ПодбиратьУслуги = Истина;

Если ТабличнаяЧасть = Продукция Тогда
Команда = "ПодборВТабличнуюЧастьПродукция";
ИмяТабличнойЧасти = "Продукция";
ИначеЕсли ТабличнаяЧасть = Материалы Тогда
Команда = "ПодборВТабличнуюЧастьМатериалы";
ИмяТабличнойЧасти = "Материалы";
КонецЕсли;

СписокВидовПодбора = СформироватьСписокЗапросовДляПодбора(ТабличнаяЧасть);
ПредставлениеДок = Метаданные().Представление();

СтруктураПараметровПодбора = Новый Структура();
СтруктураПараметровПодбора.Вставить("Команда" , Команда);
СтруктураПараметровПодбора.Вставить("СписокВидовПодбора" , СписокВидовПодбора);

// Параметры запросов.
ВременнаяДатаРасчетов = ?(НачалоДня(Дата) = НачалоДня(ТекущаяДата()), Неопределено, Дата);
СтруктураПараметровПодбора.Вставить("ДатаРасчетов" , ВременнаяДатаРасчетов);
СтруктураПараметровПодбора.Вставить("Склад" , Неопределено);
СтруктураПараметровПодбора.Вставить("Организация" , Организация);

СтруктураПараметровПодбора.Вставить("ЕстьЦена" , Ложь);
СтруктураПараметровПодбора.Вставить("ЕстьСерия" , ЕстьСерия);
СтруктураПараметровПодбора.Вставить("ВалютаДокумента" , мВалютаРегламентированногоУчета);
СтруктураПараметровПодбора.Вставить("ПодбиратьУслуги" , ПодбиратьУслуги);
СтруктураПараметровПодбора.Вставить("ОтборУслугПоСправочнику", ОтборУслугПоСправочнику);
СтруктураПараметровПодбора.Вставить("Заголовок", "Подбор номенклатуры в документ " +
ПредставлениеДок + " № " + Номер + " (" + ИмяТабличнойЧасти + ")");

РаботаСДиалогами.ОткрытьПодборНоменклатуры(ЭтаФорма, СтруктураПараметровПодбора, Метаданные());

КонецПроцедуры // ДействиеПодбор()

// Производит заполнение документа переданными из формы подбора данными.
//
// Параметры:
// ТабличнаяЧасть - табличная часть, в которую надо добавлять подобранную позицию номенклатуры;
// ЗначениеВыбора - структура, содержащая параметры подбора.
//
Процедура ОбработкаПодбора(ТабличнаяЧасть, ЗначениеВыбора) Экспорт

Перем СпособЗаполненияЦен, ВалютаЦены;
Перем Номенклатура, ЕдиницаИзмерения, Количество, КоличествоМест, Цена, Характеристика, Серия;
Перем Спецификация, текПродукция, ХарактеристикаПродукции, КоличествоПродукции, ВидВоспроизводства;

// Получим параметры подбора из структуры подбора.
ЗначениеВыбора.Свойство("СпособЗаполненияЦен", СпособЗаполненияЦен);
ЗначениеВыбора.Свойство("ВалютаЦены" , ВалютаЦены);

ЗначениеВыбора.Свойство("Номенклатура" , Номенклатура);
ЗначениеВыбора.Свойство("ЕдиницаИзмерения", ЕдиницаИзмерения);
ЗначениеВыбора.Свойство("Количество" , Количество);
ЗначениеВыбора.Свойство("Цена" , Цена);
ЗначениеВыбора.Свойство("Характеристика" , Характеристика);
ЗначениеВыбора.Свойство("Спецификация" , Спецификация);
ЗначениеВыбора.Свойство("Продукция" , текПродукция);
ЗначениеВыбора.Свойство("ХарактеристикаПродукции" , ХарактеристикаПродукции);
ЗначениеВыбора.Свойство("КоличествоПродукции" , КоличествоПродукции);
ЗначениеВыбора.Свойство("ВидВоспроизводства" , ВидВоспроизводства);

// Ищем выбранную позицию в таблице подобранной номенклатуры.
// Если найдем - увеличим количество; не найдем - добавим новую строку.
СтруктураОтбора = Новый Структура();
СтруктураОтбора.Вставить("ЕдиницаИзмерения", ЕдиницаИзмерения);
СтруктураОтбора.Вставить("ХарактеристикаНоменклатуры", Характеристика);
Если ТабличнаяЧасть = Материалы и ЗначениеЗаполнено(Спецификация) Тогда
СтруктураОтбора.Вставить("ХарактеристикаПродукции", ХарактеристикаПродукции);
СтруктураОтбора.Вставить("Продукция", Продукция);
СтруктураОтбора.Вставить("Спецификация", Спецификация);
СтруктураОтбора.Вставить("ВидВоспроизводства", ВидВоспроизводства);
КонецЕсли;

СтрокаТабличнойЧасти = ОбработкаТабличныхЧастей.НайтиСтрокуТабЧасти(ТабличнаяЧасть, СтруктураОтбора);
Если СтрокаТабличнойЧасти <> Неопределено Тогда

// Нашли, увеличиваем количество в первой найденной строке.
СтрокаТабличнойЧасти.Количество = СтрокаТабличнойЧасти.Количество + Количество;

// Рассчитать реквизиты табличной части.
ОбработкаТабличныхЧастей.РассчитатьКоличествоМестТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект);

Иначе

// Не нашли - добавляем новую строку.
СтрокаТабличнойЧасти = ТабличнаяЧасть.Добавить();
СтрокаТабличнойЧасти.Номенклатура = Номенклатура;
СтрокаТабличнойЧасти.Количество = Количество;
СтрокаТабличнойЧасти.ЕдиницаИзмерения = ЕдиницаИзмерения;
СтрокаТабличнойЧасти.Коэффициент = СтрокаТабличнойЧасти.ЕдиницаИзмерения.Коэффициент;
СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры = Характеристика;

// Рассчитываем реквизиты табличной части.
ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуМестТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект, Ложь);

Если ТабличнаяЧасть = Продукция Тогда
СтрокаТабличнойЧасти.Спецификация = УправлениеПроизводством.ОпределитьСпецификациюПоУмолчанию(СтрокаТабличнойЧасти.Номенклатура, СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры, Дата, Подразделение);
КонецЕсли;
Если ТабличнаяЧасть = Материалы и ЗначениеЗаполнено(Спецификация) Тогда
СтрокаТабличнойЧасти.Спецификация = Спецификация;
СтрокаТабличнойЧасти.Продукция = текПродукция;
СтрокаТабличнойЧасти.ХарактеристикаПродукции = ХарактеристикаПродукции;
СтрокаТабличнойЧасти.ВидВоспроизводства = ВидВоспроизводства;
//Если такой продукции нет в ТЧ Продукция - добавим
СтруктураОтбораПродукция = новый Структура("Номенклатура, ХарактеристикаНоменклатуры, Спецификация",текПродукция,ХарактеристикаПродукции,Спецификация);
Если Продукция.НайтиСтроки(СтруктураОтбораПродукция).Количество()=0 и ЗначениеЗаполнено(текПродукция) Тогда
СтрокаТабЧастиПродукция = Продукция.Добавить();
СтрокаТабЧастиПродукция.Номенклатура = текПродукция;
СтрокаТабЧастиПродукция.ХарактеристикаНоменклатуры = ХарактеристикаПродукции;
СтрокаТабЧастиПродукция.Спецификация = Спецификация;
СтрокаТабЧастиПродукция.Коэффициент = 1;
СтрокаТабЧастиПродукция.ЕдиницаИзмерения = текПродукция.ЕдиницаХраненияОстатков;
СтрокаТабЧастиПродукция.Количество = КоличествоПродукции;
УстановитьВидВоспроизводстваПоУмолчанию(СтрокаТабЧастиПродукция, Продукция);
КонецЕсли;

КонецЕсли;

Если не ЗначениеЗаполнено(СтрокаТабличнойЧасти.ВидВоспроизводства) Тогда
УстановитьВидВоспроизводстваПоУмолчанию(СтрокаТабличнойЧасти, ТабличнаяЧасть);
КонецЕсли;
КонецЕсли;

Если ТабличнаяЧасть = Продукция Тогда
ИмяТабличнойЧасти = "Продукция";
ИначеЕсли ТабличнаяЧасть = Материалы Тогда
ИмяТабличнойЧасти = "Материалы";
УстановитьДоступностьКнопкиЗаполнитьИПровести();
КонецЕсли;

ЭлементыФормы[ИмяТабличнойЧасти].ТекущаяСтрока = СтрокаТабличнойЧасти;
ЭлементыФормы[ИмяТабличнойЧасти].ТекущаяКолонка = ЭлементыФормы[ИмяТабличнойЧасти].Колонки["Количество"];

КонецПроцедуры // ОбработкаПодбора()

// Производит заполнение и установку необходимых полей при изменении характеристики товара в табличной части.
//
Процедура ПриИзмененииХарактеристикиНоменклатурыТоваров(СтрокаТабличнойЧасти)

// Заполняем реквизиты табличной части.
ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект);

КонецПроцедуры // ПриИзмененииХарактеристикиНоменклатурыТоваров()

// Процедура - обработчик события "ОбработкаВыбора" поля Исполнитель
//
// Параметры:
// Элемент - элемент формы, который отображает физическое лицо
//
Процедура ИсполнительОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

Если ТипЗнч(ВыбранноеЗначение) = Тип("СправочникСсылка.СотрудникиОрганизаций") Тогда
Элемент.Значение = ВыбранноеЗначение.Физлицо;
Иначе
Элемент.Значение = ВыбранноеЗначение;
КонецЕсли;

КонецПроцедуры

// Процедура - обработчик события "ПриИзменении" поля ввода Исполнитель
//
// Параметры:
// Элемент - элемент формы, который отображает физическое лицо
//
Процедура ИсполнительНачалоВыбора(Элемент, СтандартнаяОбработка)
// переопеределим выбор физлица на выбор из списка сотрудников
ПроцедурыУправленияПерсоналомПереопределяемый.ОткрытьФормуВыбораСотрудника(Элемент, Ссылка, Истина, Дата, СтандартнаяОбработка, Элемент.Значение);
КонецПроцедуры

// Процедура - обработчик события "АвтоПодборТекста" поля ввода Исполнитель
// переопеределим выбор физлица на выбор из списка регистра сведений
//
Процедура ИсполнительАвтоПодборТекста(Элемент, Текст, ТекстАвтоПодбора, СтандартнаяОбработка)
ТекстАвтоПодбора = ПроцедурыУправленияПерсоналомДополнительный.ПодобратьФИОСотрудника(СтандартнаяОбработка, "Работники", Текст);
КонецПроцедуры

// Процедура - обработчик события "ОкончаниеВводаТекста" поля ввода Исполнитель
// переопеределим выбор физлица на выбор из списка регистра сведений
//
Процедура ИсполнительОкончаниеВводаТекста(Элемент, Текст, Значение, СтандартнаяОбработка)

Значение = ПроцедурыУправленияПерсоналомДополнительный.ПодобратьСписокСотрудников(СтандартнаяОбработка, "Работники", Текст, Элемент.Значение, , Истина);

КонецПроцедуры

// Заполняет переданную табличную часть по остаткам
//
// Параметры:
// ТабличнаяЧасть - табличная часть документа.
// ЗаказПокупателя - заказ по которому производится заполнение
// Очистить - очистить предварительно ТЧ или добавить в конец
//
Процедура ЗаполнитьТабличнуюЧастьПоЗаказуПокупателю(ТабличнаяЧасть, ЗаказПокупателя = Неопределено, Очистить = Истина, ТипДокумента = Неопределено)

Если НЕ ЗначениеЗаполнено(ЗаказПокупателя) Тогда

ФормаЗаказы = Документы[ТипДокумента].ПолучитьФормуВыбора();
ФормаЗаказы.Заголовок = "Выберите заказ покупателя для заполнения заказа на производство";
ФормаЗаказы.РежимВыбора = Истина;

ЗаказПокупателя = ФормаЗаказы.ОткрытьМодально();

КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЗаказПокупателя) Тогда
Возврат;
КонецЕсли;

Если Очистить И ТабличнаяЧасть.Количество() > 0 Тогда

ТекстВопроса = "Табличная часть ""Продукция"" уже содержит строки."
+ Символы.ПС + "При заполнении они будут удалены! Продолжить?";
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да,);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;

ТабличнаяЧасть.Очистить();
КонецЕсли;

ЗаполнитьПродукциюПоЗаказуПокупателю(ЗаказПокупателя);

КонецПроцедуры // ЗаполнитьТабличнуюЧастьПоЗаказуПокупателю()

// Заполняет переданную табличную часть по остаткам
//
// Параметры:
// ТабличнаяЧасть - табличная часть документа.
// ЗаказПокупателя - заказ по которому производится заполнение
// Очистить - очистить предварительно ТЧ или добавить в конец
//
Процедура ЗаполнитьТабличнуюЧастьПоВнутреннемуЗаказу(ТабличнаяЧасть, ВнутреннийЗаказ = Неопределено, Очистить = Истина, ТипДокумента = Неопределено)

Если НЕ ЗначениеЗаполнено(ВнутреннийЗаказ) Тогда
ФормаЗаказы = Документы[ТипДокумента].ПолучитьФормуВыбора();
ФормаЗаказы.Заголовок = "Выберите внутренний заказ для заполнения заказа на производство";
ФормаЗаказы.РежимВыбора = Истина;
ВнутреннийЗаказ = ФормаЗаказы.ОткрытьМодально();
КонецЕсли;

Если НЕ ЗначениеЗаполнено(ВнутреннийЗаказ) Тогда
Возврат;
КонецЕсли;

Если Очистить И ТабличнаяЧасть.Количество() > 0 Тогда

ТекстВопроса = "Табличная часть ""Продукция"" уже содержит строки."
+ Символы.ПС + "При заполнении они будут удалены! Продолжить?";
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да,);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;

ТабличнаяЧасть.Очистить();
КонецЕсли;

ЗаполнитьТабличнуюЧастьПоОстаткамВнутреннийЗаказ(ТабличнаяЧасть, ВнутреннийЗаказ);

КонецПроцедуры // ЗаполнитьТабличнуюЧастьПоЗаказуПокупателю()

// Заполняет переданную табличную часть по остаткам
//
// Параметры:
// ТабличнаяЧасть - табличная часть документа.
// ЗаказНаПроизводство - заказ по которому производится заполнение
// Очистить - очистить предварительно ТЧ или добавить в конец
//
Процедура ЗаполнитьТабличнуюЧастьПоЗаказуНаПроизводство(ТабличнаяЧасть, ЗаказНаПроизводство = Неопределено, Очистить = Истина, ТипДокумента = Неопределено)

Если НЕ ЗначениеЗаполнено(ЗаказНаПроизводство) Тогда
ФормаЗаказы = Документы[ТипДокумента].ПолучитьФормуВыбора();
ФормаЗаказы.Заголовок = "Выберите заказ на производство для заполнения заказа на производство";
ФормаЗаказы.РежимВыбора = Истина;
ЗаказНаПроизводство = ФормаЗаказы.ОткрытьМодально();
КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЗаказНаПроизводство) Тогда
Возврат;
КонецЕсли;

Если Очистить И ТабличнаяЧасть.Количество() > 0 Тогда

ТекстВопроса = "Табличная часть ""Продукция"" уже содержит строки."
+ Символы.ПС + "При заполнении они будут удалены! Продолжить?";
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да,);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;

ТабличнаяЧасть.Очистить();
КонецЕсли;

ЗаполнитьПродукциюПоЗаказуНаПроизводство(ЗаказНаПроизводство);

КонецПроцедуры // ЗаполнитьТабличнуюЧастьПоЗаказуПокупателю()

Процедура УстановитьВидВоспроизводстваПоУмолчанию(СтрокаТабличнойЧасти, ТабличнаяЧасть)

Если ТабличнаяЧасть = Продукция Тогда
СтрокаТабличнойЧасти.ВидВоспроизводства = Перечисления.ВидыВоспроизводстваНоменклатуры.Производство;
Иначе
СтрокаТабличнойЧасти.ВидВоспроизводства = СтрокаТабличнойЧасти.Номенклатура.ВидВоспроизводства;
КонецЕсли;
КонецПроцедуры

// Производит заполнение документа переданными из формы подбора данными.
//
// Параметры:
// ТабличнаяЧасть - табличная часть, в которую надо добавлять подобранную позицию номенклатуры;
// ЗначениеВыбора - структура, содержащая параметры подбора.
//
Процедура ОбработкаПодбораПоСпецификации(ТабличнаяЧасть, ЗначениеВыбора)

Перем Спецификация, Количество;

ЗначениеВыбора.Свойство("Спецификация", Спецификация);
ЗначениеВыбора.Свойство("Количество", Количество);

Если ТипЗнч(Спецификация) <> Тип("СправочникСсылка.СпецификацииНоменклатуры") Тогда
Возврат;
КонецЕсли;

Отбор = Новый Структура();

ИсходныеКомплектующие = УправлениеПроизводством.ПолучитьМатериалыПоСпецификации(Спецификация, Количество, Отбор, Дата, мИспользоватьТолькоСборочныеСпецификации);

Если ИсходныеКомплектующие = Неопределено Тогда
Возврат;
КонецЕсли;

Для Каждого Строка Из ИсходныеКомплектующие Цикл

СтруктураПодбора = Новый Структура();
СтруктураПодбора.Вставить("Номенклатура", Строка.Номенклатура);
СтруктураПодбора.Вставить("ЕдиницаИзмерения", Строка.ЕдиницаИзмерения);
СтруктураПодбора.Вставить("Характеристика", Строка.ХарактеристикаНоменклатуры);
СтруктураПодбора.Вставить("Серия", Справочники.СерииНоменклатуры.ПустаяСсылка());
СтруктураПодбора.Вставить("Количество", Строка.Количество);
СтруктураПодбора.Вставить("СтатьяЗатрат", Строка.СтатьяЗатрат);
СтруктураПодбора.Вставить("ВидВоспроизводства", Строка.ВидВоспроизводства);

СтруктураПодбора.Вставить("Спецификация", Спецификация);
СтруктураПодбора.Вставить("КоличествоПродукции", Количество);

Если ЗначениеЗаполнено(Спецификация)
И Спецификация.ВидСпецификации = Перечисления.ВидыСпецификаций.Сборочная Тогда
СтруктураПодбора.Вставить("Продукция", Спецификация.ВыходныеИзделия[0].Номенклатура);
СтруктураПодбора.Вставить("ХарактеристикаПродукции", Спецификация.ВыходныеИзделия[0].ХарактеристикаНоменклатуры);
КонецЕсли;

ОбработкаПодбора(ТабличнаяЧасть, СтруктураПодбора);

КонецЦикла;

КонецПроцедуры // ОбработкаПодбораПоСпецификации()

// Процедура очищает колонку "Размещение" табличной части.
//
Процедура ОчиститьРазмещениеВТабличнойЧасти()

Материалы.Свернуть(
// Поля (исключаем Размещение)
"ВидВоспроизводства,
|ЕдиницаИзмерения,
|ЕдиницаИзмеренияМест,
|Заказ,
|Коэффициент,
|Номенклатура,
|НомерПередела,
|Подразделение,
|Продукция,
|Спецификация,
|ХарактеристикаНоменклатуры,
|ХарактеристикаПродукции",
// Количество
"Количество,
|КоличествоМест");

КонецПроцедуры

Процедура ДействияФормыРедактироватьНомер(Кнопка)
МеханизмНумерацииОбъектов.ИзменениеВозможностиРедактированияНомера(ЭтотОбъект.Метаданные(), ЭтаФорма, ЭлементыФормы.ДействияФормы.Кнопки.Подменю, ЭлементыФормы.Номер);
КонецПроцедуры
// Процедура - обработчик события "Файлы".
//
Процедура ДействияФормыФайлы(Кнопка)

Если Ссылка.Пустая() Тогда
Предупреждение("Сначала запишите документ.");
Возврат;
КонецЕсли;

ФормаФайлов = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФорму("ФормаСпискаФайловИИзображений", ЭтаФорма);

ФормаФайлов.Изображения.Отбор.Объект.Использование = Истина;
ФормаФайлов.Изображения.Отбор.Объект.Значение = Ссылка;
ФормаФайлов.ЭлементыФормы.Изображения.НастройкаОтбора.Объект.Доступность = Ложь;
ФормаФайлов.ЭлементыФормы.Изображения.Колонки.Объект.Видимость = Ложь;

ФормаФайлов.ДополнительныеФайлы.Отбор.Объект.Использование = Истина;
ФормаФайлов.ДополнительныеФайлы.Отбор.Объект.Значение = Ссылка;
ФормаФайлов.ЭлементыФормы.ДополнительныеФайлы.НастройкаОтбора.Объект.Доступность = Ложь;
ФормаФайлов.ЭлементыФормы.ДополнительныеФайлы.Колонки.Объект.Видимость = Ложь;

ОбязательныеОтборы = Новый Структура;
ОбязательныеОтборы.Вставить("Объект",Ссылка);

ФормаФайлов.ОбязательныеОтборы = ОбязательныеОтборы;

ФормаФайлов.Открыть();

КонецПроцедуры

Процедура ПодразделениеНачалоВыбора(Элемент, СтандартнаяОбработка)
НастроитьОтборПодразделений(Элемент, СтандартнаяОбработка)
КонецПроцедуры

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ УПРАВЛЕНИЯ ВНЕШНИМ ВИДОМ ФОРМЫ

// Процедура устанавливает видимость для тех колонок в табличной части
// "Товары", видимость которых определяется реквизитами документа.
//
// Параметры:
// Нет.
//
Процедура УстановитьВидимость()

Колонки = ЭлементыФормы.Продукция.Колонки;
КолонкиМатериалы = ЭлементыФормы.Материалы.Колонки;

УстановитьДоступностьКнопкиЗаполнитьИПровести();

// Управление доступностью элементов формы в зависимости от вида операции
КнопкиКоманднойПанели = ЭлементыФормы.ДействияФормы.Кнопки;

КнопкиКоманднойПанели.ДействиеАнализ.Доступность = Истина;
КолонкиМатериалы.Размещение.ИзменятьВидимость = Истина;

ЭлементыФормы.Материалы.Колонки.Продукция .Видимость = мИспользоватьПотребностиЗаказовНаПроизводство;
ЭлементыФормы.Материалы.Колонки.ХарактеристикаПродукции.Видимость = мИспользоватьПотребностиЗаказовНаПроизводство;

КонецПроцедуры // УстановитьВидимость()

// Процедура устанавливает доступность кнопки "Заполнить и провести". Кнопка доступна,
// если документ - внешний заказ, его дата совпадает с текущей.
//
Процедура УстановитьДоступностьКнопкиЗаполнитьИПровести()

ЭлементыФормы.ДействияФормы.Кнопки.ДействиеЗаполнитьИПровести.Доступность =
НачалоДня(Дата) = НачалоДня(ТекущаяДата())
И Материалы.Количество() > 0;

КонецПроцедуры // УстановитьДоступностьКнопкиЗаполнитьИПровести

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ

// Процедура - обработчик события "ПередОткрытием" формы
//
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

// Установка кнопок заполнение ТЧ
УстановитьКнопкиПодменюЗаполненияТЧ();

Отказ = Не УправлениеЗаказами.ИспользоватьЗаказыНаПроизводство(Истина);

КонецПроцедуры // ПередОткрытием()

// Процедура - обработчик события "ПриОткрытии" формы
//
Процедура ПриОткрытии()

Если НЕ ЭтоНовый() Тогда
НастройкаПравДоступа.ОпределитьДоступностьВозможностьИзмененияДокументаПоДатеЗапрета(ДокументОбъект, ЭтаФорма);
КонецЕсли;

ДоступностьНапоминаний();

Если ЭтоНовый() Тогда // проверить объект на то, что он еще не внесен в ИБ

// Заполнить реквизиты значениями по умолчанию.
ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ЭтотОбъект, , ПараметрОбъектКопирования);
Если ПараметрОбъектКопирования<>неопределено Тогда
ДатаЗапуска = РабочаяДата;
ДатаИсполнения = РабочаяДата;
Иначе
Если НЕ ЗначениеЗаполнено(ДатаИсполнения) Тогда
ДатаИсполнения = РабочаяДата;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(ДатаЗапуска) Тогда
ДатаЗапуска = РабочаяДата;
КонецЕсли;
КонецЕсли;
КонецЕсли;

СтруктураКолонок = Новый Структура();

// Установить колонки, видимостью которых пользователь управлять не может.
СтруктураКолонок.Вставить("ЕдиницаХранения");

ОбработкаТабличныхЧастей.УстановитьИзменятьВидимостьКолонокТабЧасти(ЭлементыФормы.Продукция.Колонки, СтруктураКолонок);
ОбработкаТабличныхЧастей.УстановитьИзменятьВидимостьКолонокТабЧасти(ЭлементыФормы.Материалы.Колонки, СтруктураКолонок);

// Вывести в заголовке формы вид операции.
РаботаСДиалогами.УстановитьЗаголовокФормыДокумента("", ЭтотОбъект, ЭтаФорма);

// Запомнить текущие значения реквизитов формы.
мТекущаяДатаДокумента = Дата;

// Установить видимость колонок "ХарактеристикаНоменклатуры"
РаботаСДиалогами.УстановитьВидимостьХарактеристикиНоменклатуры(мКолонкиПродукция);
РаботаСДиалогами.УстановитьВидимостьХарактеристикиНоменклатуры(мКолонкиМатериалы);

// Установить видимость реквизитов и заголовков колонок.
УстановитьВидимость();

УстановитьДоступностьКнопкиЗаполнитьИПровести();

// Установить активный реквизит.
РаботаСДиалогами.АктивизироватьРеквизитВФорме(ЭтотОбъект, ЭтаФорма,новый Структура("Дата,Организация,Подразделение,ДатаЗапуска,ДатаИсполнения"));

МеханизмНумерацииОбъектов.ДобавитьВМенюДействияКнопкуРедактированияНомера(ЭлементыФормы.ДействияФормы.Кнопки.Подменю);
МеханизмНумерацииОбъектов.УстановитьДоступностьПоляВводаНомера(Метаданные(), ЭтаФорма, ЭлементыФормы.ДействияФормы.Кнопки.Подменю,ЭлементыФормы.Номер);

// Создать кнопки печати
ФормированиеПечатныхФорм.СоздатьКнопкиПечати(ЭтотОбъект, ЭтаФорма);

КонецПроцедуры // ПриОткрытии()

// Процедура - обработчик события "ОбновлениеОтображения" формы.
//
Процедура ОбновлениеОтображения()

// Подсчитаем количество строк в табличных частях.
СтраницыПанели = ЭлементыФормы.ОсновнаяПанель.Страницы;

СтраницыПанели.Продукция.Заголовок = "Продукция и услуги (" + ДокументОбъект.Продукция .Количество() + " поз.)";
СтраницыПанели.Материалы.Заголовок = "Материалы (" + ДокументОбъект.Материалы.Количество() + " поз.)";

КонецПроцедуры // ОбновлениеОтображения()

// Процедура - обработчик события "ОбработкаВыбора" формы.
//
Процедура ОбработкаВыбора(ЗначениеВыбора, Источник)

Перем Команда, Спецификация;

Если ТипЗнч(ЗначениеВыбора) = Тип("Структура") Тогда

ЗначениеВыбора.Свойство("Команда", Команда);

Если Команда = "ПодборВТабличнуюЧастьПродукция" Тогда
ОбработкаПодбора(Продукция, ЗначениеВыбора);
ИначеЕсли Команда = "ПодборВТабличнуюЧастьМатериалы" Тогда

ЗначениеВыбора.Свойство("Спецификация", Спецификация);
Если Спецификация <> Неопределено Тогда
ОбработкаПодбораПоСпецификации(Материалы, ЗначениеВыбора);
Иначе
ОбработкаПодбора(Материалы, ЗначениеВыбора);
КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецПроцедуры // ОбработкаВыбора()
Процедура ПриЗаписи(Отказ)
//....Ваша обработка......
//....Ваша обработка...

   // В ДеревоЗаказов вставляем № документа, если это 1-й док-т дерева,
   //т.е. ОсновнойЗаказНаПроизводство - не заполнено.
   Если НЕ ЗначениеЗаполнено(Номер) Тогда
       УстановитьНовыйНомер(ОсновнойЗаказНаПроизводство.Организация.Префикс);
   КонецЕсли;
   Если НЕ ЗначениеЗаполнено(ДеревоЗаказов) Тогда
       цц = "0123456789";
       ном = "";
       длинаНомера = СтрДлина(Номер);
       ии = длинаНомера;
       Пока ии > 0 Цикл
           Если Найти(цц,Сред(Номер,ии,1)) > 0 Тогда
               ном = Сред(Номер,ии,1) + ном;
           Иначе
               Прервать;
           КонецЕсли;
           ии = ии - 1;
       КонецЦикла;
       ном = Строка(Формат(Число(ном),"ЧГ=0"));

       Если НЕ ЗначениеЗаполнено(ОсновнойЗаказНаПроизводство) Тогда
           //Вытаскиваем №
           ДеревоЗаказов = ном;
       Иначе
           Если ЗначениеЗаполнено(ОсновнойЗаказНаПроизводство.ДеревоЗаказов) Тогда
               ДеревоЗаказов = СокрЛП(ОсновнойЗаказНаПроизводство.ДеревоЗаказов) + "_" + ном;
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
КонецПроцедуры

// Процедура - обработчик события "ПослеЗаписи" формы.
//
Процедура ПослеЗаписи()

// Вывести в заголовке формы вид операции.
РаботаСДиалогами.УстановитьЗаголовокФормыДокумента("", ЭтотОбъект, ЭтаФорма);
МеханизмНумерацииОбъектов.ОбновитьПодсказкуКодНомерОбъекта(ЭтотОбъект.Метаданные(), ЭлементыФормы.ДействияФормы.Кнопки.Подменю, ЭлементыФормы.Номер);
Если мПодразделение<>Подразделение Тогда //изменилось значение подразделения - надо поменять подразделение в корректировках
ИзменитьПодразделениеВКорректировкахЗаказаНаПроизводство();
КонецЕсли;

КонецПроцедуры // ПослеЗаписи()

Процедура ИзменитьПодразделениеВКорректировкахЗаказаНаПроизводство()
Запрос = новый Запрос;
Запрос.Текст = "ВЫБРАТЬ Ссылка,
|Проведен
|ИЗ Документ.КорректировкаЗаказаНаПроизводство
|ГДЕ ЗаказНаПроизводство=&Заказ И Подразделение<>&Подразделение";
Запрос.УстановитьПараметр("Заказ", Ссылка);
Запрос.УстановитьПараметр("Подразделение", Подразделение);
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат;
КонецЕсли;

Выборка = Результат.Выбрать();
Пока Выборка.Следующий() цикл
ДокОбъект = Выборка.ссылка.ПолучитьОбъект();
Попытка
ДокОбъект.Заблокировать();
ДокОбъект.Подразделение = Подразделение;
ДокОбъект.Записать(?(Выборка.Проведен,РежимЗаписиДокумента.Проведение,РежимЗаписиДокумента.Запись));
Исключение
ОбщегоНазначения.Сообщение("Не удалось автоматически изменить подразделение в документе "+Выборка.Ссылка,