Внешняя обработка табличной части документа (управляемые)

Функция СведенияОВнешнейОбработке() Экспорт
  ПараметрыРегистрации = Новый Структура;
    МассивНазначений = Новый Массив;
    МассивНазначений.Добавить("Документ.НачислениеОценочныхОбязательствПоОтпускам");
    ПараметрыРегистрации.Вставить("Вид","ЗаполнениеОбъекта");
    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
    ПараметрыРегистрации.Вставить("Версия", "1.0");
    ПараметрыРегистрации.Вставить("Наименование", "Заполнить Оценочные ");
    ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
    ПараметрыРегистрации.Вставить("Информация", "Дополнительная обработка табличной части к документу Оценочные");
    ТаблицаКоманд = ПолучитьТаблицуКоманд();
    ДобавитьКоманду(ТаблицаКоманд,
    "Заполнить Оценочные "+ПараметрыРегистрации.Версия,
    "Заполнить Оценочные "+ПараметрыРегистрации.Версия,
    "ОткрытиеФормы", Истина);
    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
    Возврат ПараметрыРегистрации;
КонецФункции

Функция ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
 НоваяКоманда = ТаблицаКоманд.Добавить();
 НоваяКоманда. Представление = Представление;
 НоваяКоманда. Идентификатор= Идентификатор;
 НоваяКоманда. Использование= Использование;
 НоваяКоманда. ПоказыватьОповещение= ПоказыватьОповещение;
 НоваяКоманда. Модификатор= Модификатор;
КонецФункции

//процедура, которая подготавливает структуру таблицы команд

Функция ПолучитьТаблицуКоманд()

   // Создадим пустую таблицу команд и колонки в ней
   Команды = Новый ТаблицаЗначений;

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

   // Имя нашего макета, что бы могли отличить вызванную команду в обработке печати
   Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));

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

   // Следующий параметр указывает, необходимо ли показывать оповещение при начале и завершению работы обработки. Не имеет смысла при открытии формы
   Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));

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

//в модуле формы


&НаСервере
Процедура ИзменитьПроводкиНаСервере()
	// Вставить содержимое обработчика.
КонецПроцедуры

&НаКлиенте
Процедура ИзменитьПроводки(Команда)
	ИзменитьПроводкиНаСервере();
	
	Для каждого  ТекущаяСтрока из ВладелецФормы.Объект.ОценочныеОбязательстваПоСотрудникам Цикл
		//стрДок = ВладелецФормы.Объект.НачисленнаяЗарплатаИВзносы.Изменить() ;
		Проводка =  Строка(ТекущаяСтрока.СпособОтраженияЗарплатыВБухучете) ;
		Если Лев(Проводка, 4) = "Дт20" Тогда
			ТекущаяСтрока.СпособОтраженияЗарплатыВБухучете = НайтиПроводку(ТекущаяСтрока.Сотрудник,Проводка) ;//Справочники.СпособыОтраженияЗарплатыВБухУчете.НайтиПоНаименованию("Дт 91 Единоврем. выплаты неработающим пенсионерам  Кт70") ;
		КонецЕсли ;	
		//Сообщить(ТекущаяСтрока.Количество) ;
	КонецЦикла ;
	ЭтаФорма.Закрыть();
	ВладелецФормы.Модифицированность = Истина
	
КонецПроцедуры


&НаСервере
Функция НайтиПроводку(Сотрудник,Проводка)
	Запрос = Новый Запрос();
	Запрос.Текст =  "ВЫБРАТЬ
	                |	СотрудникиДополнительныеРеквизиты.Ссылка КАК Ссылка,
	                |	СотрудникиДополнительныеРеквизиты.Значение КАК Значение
	                |ИЗ
	                |	Справочник.Сотрудники.ДополнительныеРеквизиты КАК СотрудникиДополнительныеРеквизиты
	                |ГДЕ
	                |	СотрудникиДополнительныеРеквизиты.Ссылка = &Ссылка
	                |	И СотрудникиДополнительныеРеквизиты.Свойство = &Свойство" ;
	Запрос.УстановитьПараметр("Ссылка", Справочники.Сотрудники.НайтиПоНаименованию(Сотрудник).Ссылка);
	Запрос.УстановитьПараметр("Свойство",ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("ШПЗ (Сотрудники)")) ;
	рез = Запрос.Выполнить();
	выб = рез.Выбрать();
	//Сообщить(Строка(Сотрудник)) ;
	//Сообщить(Строка(ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("ШПЗ (Сотрудники)"))) ;
	Пока выб.Следующий() Цикл
		//Сообщить(Строка(выб.Ссылка)) ;
		//Сообщить(Строка(выб.Значение)) ;
		ПроводкаНовая = Справочники.СпособыОтраженияЗарплатыВБухУчете.НайтиПоНаименованию("Дт"+Строка(выб.Значение)+Сред(Проводка, 5))  ;
	КонецЦикла ;
	
	Возврат ПроводкаНовая ;
КонецФункции