0
galimovmaks
16.03.15
✎
07:13
|
Делаю внешнюю обработку по заполнению дополнительных ТЧ на УФ. таб.части добавлены пользователем (Администрирование-доп. ТЧ документов). сама конфигурация на поддержке. Проблема в том, что не обновляются данные на форме. Даже при повторном открытии не видно. но в отладке они есть.
вот код заполнения
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, МассивОбъектов) Экспорт
Для каждого ДокументСсылка Из МассивОбъектов Цикл
Структура = Новый Структура("Ключ", ДокументСсылка);
ФормаДокумента = ПолучитьФорму("Документ.БюджетныеДанные.Форма.ФормаДокумента", Структура);
Если ИдентификаторКоманды = "Эко_Ассигнования_" Тогда
ИмяТЧ = "Эко_Ассигнования_";
ИначеЕсли ИдентификаторКоманды = "Эко_Лимиты_" Тогда
ИмяТЧ = "Эко_Лимиты_";
ИначеЕсли ИдентификаторКоманды = "Эко_Финансирование_" Тогда
ИмяТЧ = "Эко_Финансирование_";
КонецЕсли;
Если ФормаДокумента[ИмяТЧ].Количество() > 0 Тогда
ДополнительныеПараметры = Новый Структура;
ДополнительныеПараметры.Вставить("ИмяТЧ", ИмяТЧ);
ДополнительныеПараметры.Вставить("ФормаДокумента", ФормаДокумента);
ОписаниеОповещения = Новый ОписаниеОповещения("ОбработкаРезультата", ЭтотОбъект, ДополнительныеПараметры);
ПоказатьВопрос(ОписаниеОповещения, "Табличная часть будет очищена. Продолжить?", РежимДиалогаВопрос.ДаНет, 60);
Иначе
ЗаполнитьТЧ(ФормаДокумента, ИмяТЧ);
КонецЕсли;
КонецЦикла;
КонецПроцедуры // ВыполнитьКоманду()
&НаКлиенте
Процедура ОбработкаРезультата(РезультатВопроса, ДополнительныеПараметры) Экспорт
Если РезультатВопроса = КодВозвратаДиалога.Да Тогда
ДополнительныеПараметры.ФормаДокумента[ДополнительныеПараметры.ИмяТЧ].Очистить();
ЗаполнитьТЧ(ДополнительныеПараметры.ФормаДокумента, ДополнительныеПараметры.ИмяТЧ);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьТЧ(ФормаДокумента, ИмяТЧ)
Для каждого Строка Из ФормаДокумента.Объект.Ассигнования Цикл
НоваяСтрока = ФормаДокумента[ИмяТЧ].Добавить();
НоваяСтрока.КБК = Строка.КПС;
НоваяСтрока.КОСГУ = Строка.КОСГУ;
НоваяСтрока.КодМероприятия = Строка.КодМероприятия;
НоваяСтрока.Примечание = Строка.Примечание;
НоваяСтрока.СуммаНаТекущийГод = Строка.СуммаНаТекущийГод;
КонецЦикла;
ФормаДокумента.ОбновитьОтображениеДанных(); // не работает
ФормаДокумента.Прочитать();// тоже не работает
КонецПроцедуры // ЗаполнитьТЧ()
|
|