Имя: Пароль:
1C
1С v8
Управляемая форма . Вызов по кнопке отчета м передачей в него параметров.
0 LamerSuper
 
20.03.13
15:01
В управляемой форме документа есть команда, запускающая отчет. В него нужно передать спецификацию как параметр. Почему то не передается параметрю Вот код :
&НаКлиенте
Процедура АнализСпецификацииРазузлованный(Команда)
   ОтчетАнализ=Отчеты.АнализСпецификацииРазузлованойНТ.Создать();
   Попытка
   Если Элементы.ГруппаСтраницыЗаявки.ТекущаяСтраница.Имя="ГруппаАртикулы" ТОгда
       Спецификация=Элементы.ТаблицаАртикулы.ТекущиеДанные.Спецификация;
       КоличествоПродукции=Элементы.ТаблицаАртикулы.ТекущиеДанные.Количество;
   ИначеЕсли Элементы.ГруппаСтраницыЗаявки.ТекущаяСтраница.Имя="ГруппаНоменклатуры" ТОгда    
       Спецификация=Элементы.ТаблицаНоменклатура.ТекущиеДанные.Спецификация;
       КоличествоПродукции=Элементы.ТаблицаНоменклатура.ТекущиеДанные.Количество;
   ИначеЕсли Элементы.ГруппаСтраницыЗаявки.ТекущаяСтраница.Имя="ГруппаСпецификации" ТОгда    
       Спецификация=Элементы.ТаблицаСпецификацииНоменклатуры.ТекущиеДанные.Спецификация;
       КоличествоПродукции=Элементы.ТаблицаСпецификацииНоменклатуры.ТекущиеДанные.Количество;
   КонецЕсли;
   Исключение
   КонецПопытки;
   ФормаОтчета=ПолучитьФорму("Отчет.АнализСпецификацииРазузлованойНТ.Форма.ФормаОтчетаУправляемая");
   Настройки = ФормаОтчета.Отчет.КомпоновщикНастроек.Настройки;
   Коллекция = ФормаОтчета.Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы;    ОтчетАнализ.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Спецификация")).Значение=Спецификация;
   ОтчетАнализ.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("КоличествоПоНоменклатуре")).Значение=КоличествоПродукции;
 
   
   
   СтруктураВозврата = ОбработатьРасшифровкуНаСервере(ФормаОтчета.Отчет, ФормаОтчета.Результат, ФормаОтчета.ДанныеРасшифровки, ФормаОтчета.УникальныйИдентификатор,Спецификация,КоличествоПродукции);
   ФормаОтчета.Результат = СтруктураВозврата.Результат;
   ФормаОтчета.ДанныеРасшифровки = СтруктураВозврата.ДанныеРасшифровки;
     ФормаОтчета.Элементы.Результат.ОтображениеСостояния.Видимость = Ложь;  
   ФормаОтчета.Элементы.Результат.ОтображениеСостояния.ДополнительныйРежимОтображения = ДополнительныйРежимОтображения.НеИспользовать;
     ФормаОтчета.Открыть();


КонецПроцедуры
&НаСервере

Функция ОбработатьРасшифровкуНаСервере(Знач ОтчетХ, Знач РезультатХ, Знач ДанныеРасшифровкиХ, Знач ИДФормы,Спецификация,КоличествоПродукции)
 ОтчетОбъект = ДанныеФормыВЗначение(ОтчетХ, Тип("ОтчетОбъект.АнализСпецификацииРазузлованойНТ"));
РезультатХ.Очистить();
ОтчетОбъект.СкомпоноватьРезультат(РезультатХ, ДанныеРасшифровкиХ);    
АдресДанныеРасшифровки = ПоместитьВоВременноеХранилище(ДанныеРасшифровкиХ, ИДФормы);            
Возврат Новый Структура("Результат,ДанныеРасшифровки", РезультатХ, АдресДанныеРасшифровки);        

КонецФункции

Параметр не передается почему то. Что не так ????
1 LamerSuper
 
20.03.13
15:02
И форма документа и отчет в управляемом интерфейсе.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший