Как добавить вторую кнопку для формирования отчета по другой СКД в 1С?

[Odineski]

Как в своем внешнем отчете я создал форму и 2 кнопку на второе схему компановки данных

[Odin — Одинэсник]

Если в своём внешнем отчёте создали форму и хотите добавить вторую кнопку для запуска формирования отчёта по второй схеме компоновки данных (СКД), то делайте так:

1. В модуле формы добавьте обработчик для новой кнопки, например, Процедуру ОбработкаКнопки2:

1С (Код)

&НаКлиенте Процедура Кнопка2Нажатие(Команда) СформироватьПоВторойСКД(); КонецПроцедуры

1 2 3 4

&НаКлиенте Процедура Кнопка2Нажатие(Команда)     СформироватьПоВторойСКД(); КонецПроцедуры

2. Создайте процедуру формирования отчёта по второй СКД, например:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

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

3. В обработчике кнопки вызывайте эту процедуру.

4. В модуле формы при инициализации (например, ПриСозданииНаКлиенте) можно загрузить обе схемы компоновки данных в объект отчёта, если они не загружаются автоматически.

5. В конфигураторе в объекте внешнего отчёта в разделе «Схемы компоновки данных» добавьте обе схемы, чтобы они были доступны.

6. Не забудьте, что в форме должен быть элемент для вывода результата (например, ТабличныйДокумент с именем «Результат»).

Если хотите, чтобы кнопки переключали между схемами, то можно сделать общий метод, который принимает имя схемы и формирует по ней.

Пример универсальной процедуры:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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

И в обработчике кнопки:

1С (Код)

&НаКлиенте Процедура Кнопка2Нажатие(Команда) ВыполнитьНаСервере("СформироватьПоСхеме", "ВтораяСхема"); КонецПроцедуры

1 2 3 4

&НаКлиенте Процедура Кнопка2Нажатие(Команда)     ВыполнитьНаСервере("СформироватьПоСхеме", "ВтораяСхема"); КонецПроцедуры

Где «ВтораяСхема» — имя вашей второй схемы компоновки данных.

Так вы сможете управлять формированием отчёта по разным схемам с разных кнопок.

Если нужна помощь с конкретным кодом — приложите ваш модуль формы и описание схем.

[Автор]

Сообщения