Кусочки полезного кода 1С
Найти:
Menu
Меню выбора вида кода 1C
JSON
Регистры накопления
Регистры сведений
СКД
Файл
Диалоги выбора файлов
Обход группировок СКД
//Вместо: ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);<br /> ПроцессорВывода.НачатьВывод();<br /> Пока Истина Цикл<br /> ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();</p> <p>Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда<br /> Прервать;<br /> КонецЕсли;</p> <p>ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);<br /> Если ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров.Количество() > 0 Тогда<br /> Если ТипЗнч(ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров.П1.Значение) = Тип(«СправочникСсылка.НоменклатурныеГруппы») Тогда<br /> // группировка по номенклатурным группам<br /> ИначеЕсли ТипЗнч(ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров.П1.Значение) = Тип(«СправочникСсылка.ФизическиеЛица») Тогда<br /> // группировка по физическим лицам<br /> КонецЕсли;<br /> КонецЕсли;<br /> КонецЦикла;<br /> ПроцессорВывода.ЗакончитьВывод();
Смотрим классический код запуска СКД
//Получаем схему из макета<br /> СхемаКомпоновкиДанных = ПолучитьМакет(«ОтчетКомпановка»);</p> <p>//Из схемы возьмем настройки по умолчанию<br /> Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;</p> <p>//Помещаем в переменную данные о расшифровке данных<br /> ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;</p> <p>//Формируем макет, с помощью компоновщика макета<br /> КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;</p> <p>//Передаем в макет компоновки схему, настройки и данные расшифровки<br /> МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);</p> <p>//Выполним компоновку с помощью процессора компоновки<br /> ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;<br /> ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеНаборыДанных, ДанныеРасшифровки);</p> <p>//Очищаем поле табличного документа<br /> Результат = ЭлементыФормы.ТабОтчет;<br /> Результат.Очистить();</p> <p>//Выводим результат в табличный документ<br /> ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;<br /> ПроцессорВывода.УстановитьДокумент(Результат);</p> <p>ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);