Имя: Пароль:
1C
1С v8
Не работает расшифровка
0 bUbA
 
29.04.13
17:28
Подскажите, вот есть код, но почему то не выполняется процедура, в чём может быть причина?



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

Процедура СформироватьДвиженияПоДокументам(СуммаПриход, СуммаРасход, Договор, Контрагент)    
   Запрос = Новый Запрос;
   
   Запрос.Текст = "ВЫБРАТЬ
                  |    АКС_ЗадолженностьКонтрагентовОстаткиИОбороты.Регистратор,
                  |    АКС_ЗадолженностьКонтрагентовОстаткиИОбороты.Договор,
                  |    АКС_ЗадолженностьКонтрагентовОстаткиИОбороты.СуммаПриход,
                  |    АКС_ЗадолженностьКонтрагентовОстаткиИОбороты.СуммаРасход,
                  |    АКС_ЗадолженностьКонтрагентовОстаткиИОбороты.Контрагент
                  |ИЗ
                  |    РегистрНакопления.АКС_ЗадолженностьКонтрагентов.ОстаткиИОбороты(, , Регистратор, , ) КАК АКС_ЗадолженностьКонтрагентовОстаткиИОбороты";
                 
                 
   Запрос.УстановитьПараметр("СуммаПриход", СуммаПриход);
   Запрос.УстановитьПараметр("СуммаРасход", СуммаРасход);
   Запрос.УстановитьПараметр("Договор", Договор);
   Запрос.УстановитьПараметр("Контрагент", Контрагент);
   
   ТЗ = Запрос.Выполнить().Выгрузить();
   
   ВнешнийНабор = Новый Структура;
   ВнешнийНабор.Вставить("ДетальнаяРасшифровка", ТЗ);
   
   СКД = ПолучитьМакет("РасшифровкаДокументов");
   Настройки = СКД.НастройкиПоУмолчанию;
   
   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
   МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Настройки);
                     
   ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
   ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, ВнешнийНабор);
                                                   
   ДокументРезультат = Новый ТабличныйДокумент;
   ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
   ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
   ПроцессорВывода.Вывести(ПроцессорКомпоновки);
   
   ДокументРезультат.ОтображатьСетку      = Ложь;
   ДокументРезультат.ОтображатьЗаголовки = Ложь;
   ДокументРезультат.АвтоМасштаб          = Истина;
   ДокументРезультат.Показать("Детальная расшифровка");
   
КонецПроцедуры
1 Wobland
 
29.04.13
17:33
в непривязанности процедуры, в отсутствии процедуры, в пятнах на солнце, в происках марсиан, в невыставленной защите
2 bUbA
 
29.04.13
17:34
процедура привязана и присутствует, но при нажатии даже пустой таблицы не появляется
3 Wobland
 
29.04.13
17:37
в честности автора, в ДНК автора, в нежелании показать ТабДок