Как сделать Расшифровку в СКД програмно
☑
0
Grekos2
22.05.14
✎
13:47
Отчет.
Примерно такой код
СХемаКомпоновкиДанных = ПолучитьМакет("СКД");
Настройки1 = СХемаКомпоновкиДанных.НастройкиПоУмолчанию;
КомпоновщикНастроек1 = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек1.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
КомпоновщикНастроек1.ЗагрузитьНастройки(Настройки1);
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки1,ДанныеРасшифровки);
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки);
ДокументРезультат = Новый ТабличныйДокумент;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ТабДок = Новый ТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
Процессорвывода.Вывести(ПроцессорКомпоновкиДанных);
ТабДок.ТолькоПросмотр=Истина;
ТабДок.ОтображатьСетку=Ложь;
ТабДок.Показать();
При клике по заполненной ячейке показывает какое то число.
Хотелось бы , чтобы открывались элементы справочника и т.д.
1
Cube
22.05.14
✎
13:48
(0) Читай хрусталеву или мисту, лентяй.
2
Grekos2
22.05.14
✎
13:49
(1) Мисту перечитал по вхождению ДанныеРасшифровки и ответа не нашел.
3
Cube
22.05.14
✎
13:50
4
Grekos2
23.05.14
✎
14:42
Отвечаю на свой вопрос.
Перенес ТабличныДокумент на форму.
//ТабДок = Новый ТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
В табличном документе прописал процедуру ОбработкиРасшифровки
Процедура ТабДокОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
Перем ВыполненноеДействие;
СтандартнаяОбработка=Ложь;
ОбработкаРасшифровки=Новый ОбработкаРасшифровкиКомпоновкиДанных(ДанныеРасшифровки,Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
ДоступныеДействия=Новый Массив;
ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.ОткрытьЗначение);
Настройки=ОбработкаРасшифровки.Выполнить(Расшифровка,ВыполненноеДействие,ДоступныеДействия);
КонецПроцедуры
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.