v8.3: Обработка заполнения ТЧ

 &НаСервере

Процедура ПеренестиНаСервере(ОбъектДок)

//ОбъектДок = Объект.СсылкаНаОбъект.ПолучитьОбъект();

ОбъектДок.Зарплата.Очистить();

ОбъектДок.Состав.Очистить();

для Каждого Строка из Объект.ИсходныеДанные Цикл

ИдентификаторСтроки = Новый УникальныйИдентификатор;

НовСтр = ОбъектДок.Зарплата.Добавить();

НовСтр.ИдентификаторСтроки = ИдентификаторСтроки;

НовСтр.Сотрудник = Строка.Сотрудник;

НовСтр.КВыплате = Строка.Сумма;

НовСтр.ФизическоеЛицо = НовСтр.Сотрудник.ФизическоеЛицо;

НовСтр.ПериодВзаиморасчетов = ОбъектДок.ПериодРегистрации;

НовСтр.НомерЛицевогоСчета = Строка.НомерЛицевогоСчета;

НовСтрСостав = ОбъектДок.Состав.Добавить();

НовСтрСостав.ИдентификаторСтроки = ИдентификаторСтроки;

НовСтрСостав.ФизическоеЛицо = НовСтр.ФизическоеЛицо;

НовСтрСостав.НомерЛицевогоСчета = Строка.НомерЛицевогоСчета;

КонецЦикла;

ОбъектДок.СуммаПоДокументу = ОбъектДок.Зарплата.Итог("КВыплате");

//ОбъектДок.Записать();

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

&НаКлиенте

Процедура Перенести(Команда)

Оповещение = Новый ОписаниеОповещения("ПеренестиТЧВопросЗавершение", ЭтотОбъект);

ТекстВопроса = "Табличная часть будет очищена. Продолжить?";

ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);

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



&НаКлиенте

Процедура ПеренестиТЧВопросЗавершение(Результат, ДополнительныеПараметры) Экспорт

Если Результат = КодВозвратаДиалога.Да Тогда

Элемент = Объект.СсылкаНаОбъект;

КлючПоиска = Новый Структура("Ключ", Элемент);

Окна = ПолучитьОкна();

Для каждого Окно1 из Окна Цикл

   Если НЕ Окно1.Основное И Найти(Окно1.Заголовок, Элемент) Тогда

	Форма = ОткрытьФорму("Документ.ВедомостьНаВыплатуЗарплатыВБанк.Форма.ФормаДокумента",КлючПоиска,,,Окно1);

	НовыйОбъект = Форма.Объект;

	ПеренестиНаСервере(НовыйОбъект);

	КопироватьДанныеФормы(НовыйОбъект, Форма.Объект);

	Форма.СоставПриИзмененииНаСервере();



	Форма.Модифицированность = Истина;

	//ОбновитьОтображениеДанных();

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

   КонецЕсли;

КонецЦикла;

КонецЕсли;

//ЭтаФорма.ВладелецФормы.Прочитать();

ЭтаФорма.Закрыть();

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