СКД параметры при добавлении параметра в шапку отчета не могу получить значение.

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. Romyl01 39 22.03.23 05:51 Сейчас в теме

Вот код при стандартном варианте работает все ок

КонецПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("КонецПериода").Значение;

Стоит добавить параметр в шапку с помощью звездочки, не могу получить значение из шапки.

Не особо есть время копать потому обращаюсь за помощью!

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

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
Romyl01 (1.00 $m)

Получили:

glek (1 $m)

Показать полностью

Найденные решения

10. glek 119 22.03.23 11:59 Сейчас в теме +1 $m

(9) Должно работать.
Есть пару замечаний: после получения Настройки = КомповновщикНастроеке.получитьНастройки()
использование

КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок").Использование = Истина;,

а так же

Настройки = КомпоновщикНастроек.Настройки;

может привести к интересным последствиям. после получения настроек работать НАДО только с ними. Про компоновщикнастроек надо забыть.

Остальные ответы

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

Свернуть все

2. glek 119 22.03.23 07:54 Сейчас в теме

) Настройки = КомпоновщикНастроек.ПолучитьНастройки()
КонецПериод = КомпоновщикНастроек.ПараметрыДанных......

3. Romyl01 39 22.03.23 11:42 Сейчас в теме

(2)

Настройки = КомпоновщикНастроек.ПолучитьНастройки()

у меня изначально было также как у вас, но это не работает, вернее не берет данные из шапки.
ПараметрыВывода это я пытался победить.

КомпоновщикНастроек.ПолучитьНастройки();
	
	НачалоПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода").Значение;

4. glek 119 22.03.23 11:43 Сейчас в теме

(3) Сорян. Должно быть

КонецПериода = Настройки.ПараметрыДанных....

Опечатался.

5. Romyl01 39 22.03.23 11:47 Сейчас в теме

(4) не работает тоже пробовал давно уже, вернее не берет данные из шапки.

6. glek 119 22.03.23 11:52 Сейчас в теме

(5) Это не данные шапки. Это пользовательские настройки. Покажите отчет.

8. Romyl01 39 22.03.23 11:55 Сейчас в теме

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

	Если НачалоПериода = Дата(1,1,1) Тогда
			НачалоПериода = НачалоДня(ТекущаяДата());
	Иначе
		НачалоПериода = НачалоДня(НачалоПериода);	
	КонецЕсли;
	
	
	Если КонецПериода = Дата(1,1,1) Тогда
			КонецПериода = КонецДня(ТекущаяДата());
		Иначе
			КонецПериода = КонецДня(КонецПериода);	

	КонецЕсли;

				ТЗ = ПолТЗ(НачалоПериода, КонецПериода);

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

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

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

Показать

7. glek 119 22.03.23 11:55 Сейчас в теме

(5) А вообще где вы это пытаетесь получить? Я исхожу из того, что при компоновке данных.

9. Romyl01 39 22.03.23 11:56 Сейчас в теме

(7) ответил выше

10. glek 119 22.03.23 11:59 Сейчас в теме +1 $m

КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок").Использование = Истина;,

а так же

Настройки = КомпоновщикНастроек.Настройки;

11. Romyl01 39 22.03.23 12:09 Сейчас в теме

спасибо помогло.

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

E-mail: