Имя: Пароль:
1C
1С v8
Как упорядочить макет в РезультатОбработкаРасшифровки
0 lapinio
 
03.08.12
12:18
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
   СтандартнаяОбработка=Ложь;
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
Сформировать();    
КонецПроцедуры

&НаКлиенте
Процедура РезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
   
Перем ВыполненноеДействие;
Перем ПараметрВыполненногоДействия;

СтандартнаяОбработка=Ложь;    
ИсточникДоступныхНастроек=Новый ИсточникДоступныхНастроекКомпоновкиДанных(СКД());

ОбработкаРасшифровки=Новый ОбработкаРасшифровкиКомпоновкиДанных(АдресДанныхРасшифровки,ИсточникДоступныхНастроек);

ДоступныеДействия=Новый Массив();
ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.ОткрытьЗначение);
ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.Упорядочить);
ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.Расшифровать);


ОбработкаРасшифровки.ВыбратьДействие(Расшифровка, ВыполненноеДействие,ПараметрВыполненногоДействия,ДоступныеДействия);

Если ВыполненноеДействие=ДействиеОбработкиРасшифровкиКомпоновкиДанных.ОткрытьЗначение Тогда
ОткрытьЗначение(ПараметрВыполненногоДействия);
ИначеЕсли  ВыполненноеДействие=ДействиеОбработкиРасшифровкиКомпоновкиДанных.Упорядочить Тогда
// ????
КонецЕсли;

КонецПроцедуры


&НаСервере
Процедура Сформировать()
   
СхемаМакета=Отчеты.ОстаткиТоваров.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");    
Настройки=СхемаМакета.НастройкиПоУмолчанию;

КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных;
ДанныеРасшифровки=Новый ДанныеРасшифровкиКомпоновкиДанных;

Макет=КомпоновщикМакета.Выполнить(СхемаМакета,Настройки,ДанныеРасшифровки);

ПроцессорКомпанвки=Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпанвки.Инициализировать(Макет, ,ДанныеРасшифровки);

АдресДанныхРасшифровки=ПоместитьВоВременноеХранилище(ДанныеРасшифровки,УникальныйИдентификатор);

Результат.Очистить();

ПроцессорВывода=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(Результат);

ПроцессорВывода.Вывести(ПроцессорКомпанвки,Истина);
 
КонецПроцедуры

Функция СКД()
Макет=Отчеты.ОстаткиТоваров.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
Пом=ПоместитьВоВременноеХранилище(Макет,УникальныйИдентификатор);
Возврат Пом;
КонецФункции
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс