0
lapinio
03.08.12
✎
12:18
|
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
СтандартнаяОбработка=Ложь;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Сформировать();
КонецПроцедуры
&НаКлиенте
Процедура РезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
Перем ВыполненноеДействие;
Перем ПараметрВыполненногоДействия;
СтандартнаяОбработка=Ложь;
ИсточникДоступныхНастроек=Новый ИсточникДоступныхНастроекКомпоновкиДанных(СКД());
ОбработкаРасшифровки=Новый ОбработкаРасшифровкиКомпоновкиДанных(АдресДанныхРасшифровки,ИсточникДоступныхНастроек);
ДоступныеДействия=Новый Массив();
ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.ОткрытьЗначение);
ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.Упорядочить);
ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.Расшифровать);
ОбработкаРасшифровки.ВыбратьДействие(Расшифровка, ВыполненноеДействие,ПараметрВыполненногоДействия,ДоступныеДействия);
Если ВыполненноеДействие=ДействиеОбработкиРасшифровкиКомпоновкиДанных.ОткрытьЗначение Тогда
ОткрытьЗначение(ПараметрВыполненногоДействия);
ИначеЕсли ВыполненноеДействие=ДействиеОбработкиРасшифровкиКомпоновкиДанных.Упорядочить Тогда
// ????
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура Сформировать()
СхемаМакета=Отчеты.ОстаткиТоваров.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
Настройки=СхемаМакета.НастройкиПоУмолчанию;
КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных;
ДанныеРасшифровки=Новый ДанныеРасшифровкиКомпоновкиДанных;
Макет=КомпоновщикМакета.Выполнить(СхемаМакета,Настройки,ДанныеРасшифровки);
ПроцессорКомпанвки=Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпанвки.Инициализировать(Макет, ,ДанныеРасшифровки);
АдресДанныхРасшифровки=ПоместитьВоВременноеХранилище(ДанныеРасшифровки,УникальныйИдентификатор);
Результат.Очистить();
ПроцессорВывода=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(Результат);
ПроцессорВывода.Вывести(ПроцессорКомпанвки,Истина);
КонецПроцедуры
Функция СКД()
Макет=Отчеты.ОстаткиТоваров.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
Пом=ПоместитьВоВременноеХранилище(Макет,УникальныйИдентификатор);
Возврат Пом;
КонецФункции
|
|