Расшифровка СКД

Форум Учет и отчетность Производственный учет (MRP)

1С:Управление производственным предприятием Платформа 1С v8.3

1. lenskysergey 6 16.04.15 18:05 Сейчас в теме

В отчете строки "проект" колонки недели, нужно по нажатию на значении в колонке вывести отчет на основе данных расшифровки.
Конкретно мне нужны документы которые сформировали значение ячейки колонки, по которой кликаем мышкой. УПП обычное приложение.

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. lenskysergey 6 16.04.15 18:20 Сейчас в теме

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

                      Значение = ЗначениеПоляРасшифровки.Значение;
                      //......

                  КонецЦикла;                    
              КонецЕсли;
              
          КонецЕсли;
          
      КонецЕсли;
КонецПроцедуры

Показать

Значение = null и все на этом

3. пользователь 21.05.15 13:10

Сообщение было скрыто модератором.

...

Оставьте свое сообщение

E-mail: