пятница, 18 декабря 2015 г.

Как заполнить табличную часть документа в управляемой форме + передача параметров между управляемыми формами + обновление управляемой формы (1С 8.2 управляемые формы)

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

//в модуле подчиненной формы "ФормаЗагрузки"
 &НаКлиенте  
 Процедура Загрузить(Команда)  
      ЗагрузитьНаСервере();  
      ЭтаФорма.Закрыть();  
      Оповестить("ОбновлениейФормыМоегоДокумента", , ЭтаФорма);  //оповестить форму документа
 КонецПроцедуры  
 &НаСервере  
 Процедура ЗагрузитьНаСервере() Экспорт  
      ДокументОбъект = ДокументСсылка.ПолучитьОбъект();  
      ДокументОбъект.Состав.Очистить();  
      Для i = 1 По 5 Цикл   
           НоваяСтрока = ДокументОбъект.Состав.Добавить();   
           НоваяСтрока.ЦифровойНомер = i;   //заполнение табличной части
      КонецЦикла;  
      ДокументОбъект.Записать();  
 КонецПроцедуры  
 
 &НаСервере  
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)  
       ДокументСсылка = Параметры.ДокументСсылка;  //прием параметра
 КонецПроцедуры  

Комментариев нет:

Отправить комментарий