Имя: Пароль:
1C
1С v8
Обновление отображение данных формы.
0 galimovmaks
 
16.03.15
07:13
Делаю внешнюю обработку по заполнению дополнительных ТЧ на УФ. таб.части добавлены пользователем (Администрирование-доп. ТЧ документов). сама конфигурация на поддержке. Проблема в том, что не обновляются данные на форме. Даже при повторном открытии не видно. но в отладке они есть.

вот код заполнения

&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, МассивОбъектов) Экспорт

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

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


&НаКлиенте
Процедура ЗаполнитьТЧ(ФормаДокумента, ИмяТЧ)

    Для каждого Строка Из ФормаДокумента.Объект.Ассигнования Цикл
        
        НоваяСтрока                   = ФормаДокумента[ИмяТЧ].Добавить();
        НоваяСтрока.КБК               = Строка.КПС;
        НоваяСтрока.КОСГУ             = Строка.КОСГУ;
        НоваяСтрока.КодМероприятия    = Строка.КодМероприятия;
        НоваяСтрока.Примечание        = Строка.Примечание;
        НоваяСтрока.СуммаНаТекущийГод = Строка.СуммаНаТекущийГод;
        
    КонецЦикла;
    
    ФормаДокумента.ОбновитьОтображениеДанных(); // не работает
    ФормаДокумента.Прочитать();// тоже не работает
    
КонецПроцедуры // ЗаполнитьТЧ()
1 asady
 
16.03.15
10:01
(0)нужно получить открытую форму - у тебя я не нашел этого
Ошибка? Это не ошибка, это системная функция.