1С 8. СКД: смена типа «набор данных – запрос» на «набор данных – объект» с сохранением полей

06.10.15

Разработка - СКД

Возникла у меня необходимость в существующем отчете на СКД, имеющем набор данных - запрос, изменить тип набора данных с запроса на объект - таблицу значений. Но при смене типа набора данных слетели все поля, роли, ресурсы, оформление – в общем, все слетело. Погуглил и нашел способ – редактирование xml- файла схемы компоновки данных в текстовом редакторе. А почему бы не написать обработку для 1С, которая все сделает сама? Предлагаю вместе создать такую обработку. На примере обработки рассмотрим, как в 1С реализовать: Чтение и запись XML, использование СериализаторXDTO; Программное изменение схемы компоновки данных; Рекурсивное построение дерева значений; Изменение вида элемента управления (флажок вместо поля ввода); Работа с файлами диалог открытия, сохранения; Управление видимостью строк/колонок и отдельных ячеек дерева значений.

Скачать файлы

Наименование Файл Версия Размер
Обработка для смены типа набора данных СКД с сохранением полей
.epf 8,27Kb
7
.epf 8,27Kb 7 Скачать

Возникла у меня необходимость в существующем отчете на СКД, имеющем набор данных - запрос, изменить тип набора данных с запроса на объект - таблицу значений. Но при смене типа набора данных слетели все поля, роли, ресурсы, оформление – в общем, все слетело.

Нашел способ - //infostart.ru/public/285576/ (хочу выразить свое уважение 1cKiller Alexey - респект) - редактирование xml- файла схемы компоновки данных в текстовом редакторе. А почему бы не написать обработку для 1С, которая все сделает сама?

Предлагаю вместе создать такую обработку.

Итак, у нас xml – файл СКД,  в котором присутствует набор данных – запрос (учтем, что в данном файле наборы данных могут быть не только на основании запросов, но и объектов, а также объединения). Файл получен, нажатием в конфигураторе кнопки «Сохранить схему в файл»:

Предлагаю на форме разместить два поля: первое для отображения наборов данных (тип ДеревоЗначений, т.к. объединение тоже может содержать различные наборы данных, то использование таблицы значений нам не подойдет), второе для отображения текста запроса набора данных-запрос(строка неограниченной длины, на форме многострочная):

 

Теперь организуем выбор и обработку файла исходной схемы компоновки данных. Для этого создадим кнопку «Заполнить из файла», назначим ей событие при нажатии:

Процедура КоманднаяПанель1ЗаполнитьИзФайла(Кнопка)

    //Открытие диалога выбора файла
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.ПолноеИмяФайла = "";
    Диалог.Фильтр = "файлы СКД *.xml|*.xml";
    Диалог.МножественныйВыбор = Ложь;
    Диалог.Заголовок = "Выберите файл СКД - ресурс";
    Если Диалог.Выбрать() Тогда
        МассивФайлов = Диалог.ВыбранныеФайлы;
        Для Каждого ИмяФайла Из МассивФайлов Цикл
            ИсходныйФайл = ИмяФайла;
        КонецЦикла;

        Файл = Новый Файл(ИсходныйФайл);
        Если Файл.Существует() Тогда
            ЗаполнитьТЧ(ИсходныйФайл); //Чтение XML-файла и заполнение дерева наборов
        Иначе
            Сообщить("Не найден файл " + ИсходныйФайл);
        КонецЕсли;
        
    КонецЕсли;
    
КонецПроцедуры

Процедура ЗаполнитьТЧ() рекурсивно формирует дерево наборов данных и создает колонки соответствующего элемента формы:

Процедура ЗаполнитьДерево(Позиция, НаборыДанных)
    Сч = 0;
    Для Каждого НаборДанных Из НаборыДанных Цикл
        Сч = Сч + 1;
        НовСтр = Позиция.Строки.Добавить();
        ЗаполнитьЗначенияСвойств(НовСтр, НаборДанных);
        НовСтр.Номер = Сч;
        Если ЗначениеЗаполнено(НовСтр.Запрос) Тогда
            НовСтр.ТипНабора = "Запрос";
        ИначеЕсли ЗначениеЗаполнено(НовСтр.ИсточникДанных) Тогда
            НовСтр.ТипНабора = "Объект";
        Иначе
            НовСтр.ТипНабора = "Объединение";
            //Т.к. объединение может содержать различные наборы,
            //то разберем набор-объединение по наборам данных
            ЗаполнитьДерево(НовСтр, НаборДанных.Элементы);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Для того, чтобы в нижней части обработки в поле РасшифровкаСтроки отображался текст запроса текущего набора данных (если, конечно, этот набор даных-запрос) используем событие ПриАктивацииСтроки нашего дерева:

Процедура ДеревоНаборовПриАктивизацииСтроки(Элемент)
    ТекДанные = Элемент.ТекущиеДанные;
    Если ТекДанные.ТипНабора = "Запрос" Тогда
        РасшифровкаСтроки = ТекДанные.Запрос;
    ИначеЕсли ТекДанные.ТипНабора = "Объект" Тогда
        РасшифровкаСтроки = ТекДанные.ИмяОбъекта;
    Иначе
        РасшифровкаСтроки = "";
    КонецЕсли;
КонецПроцедуры

 

Теперь можно в дереве указать, какие наборы заменять (установка флажка в колонке «Пометка» и имя объекта, содержащего данные в колонке «Имя объекта»), например, так:

Создадим кнопку «Сохранить СКД в файл как…», процедура, вызываемая по нажатию этой кнопки:

Процедура КоманднаяПанель1СохранитьВФайл(Кнопка)
    
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
    Диалог.ПолноеИмяФайла = "";
    Диалог.Фильтр = "файлы СКД *.xml|*.xml";
    Диалог.МножественныйВыбор = Ложь;
    Диалог.Заголовок = "Файл СКД исправленный";
    Если Диалог.Выбрать() Тогда
        
        МассивФайлов = Диалог.ВыбранныеФайлы;
        Для Каждого ИмяФайла Из МассивФайлов Цикл
            КоррФайл = ИмяФайла;
        КонецЦикла;
        
        НовСКД = Новый СхемаКомпоновкиДанных;
        НовСКД = СКД;
        
        ВыполнитьЗамену(ДеревоНаборов.Строки, НовСКД.НаборыДанных);
        
        ЗаписьXML = Новый ЗаписьXML;
        ЗаписьXML.ОткрытьФайл(КоррФайл);
        СериализаторXDTO.ЗаписатьXML(ЗаписьXML, НовСКД);
        
    КонецЕсли;
    
КонецПроцедуры

А вот и сама, так сказать, процедура-гвоздь программы ВыполнитьЗамену(), рекурсивно:

Процедура ВыполнитьЗамену(ДеревоНаборовСтроки, НовСКДНаборыДанных)
     
    Для Каждого Стр Из ДеревоНаборовСтроки Цикл    
        Если Стр.Отметка Тогда
            
            НовыйНабор = НовСКДНаборыДанных.Вставить(Стр.Номер - 1, Тип("НаборДанныхОбъектСхемыКомпоновкиДанных"));
            
            СтарыйНабор = НовСКДНаборыДанных[Стр.Номер];
            
            ЗаполнитьЗначенияСвойств(НовыйНабор, СтарыйНабор);
            НовыйНабор.ИмяОбъекта = Стр.ИмяОбъекта;
            Для Каждого СтарыйНаборПоле ИЗ СтарыйНабор.Поля Цикл
                НовПоле = НовыйНабор.Поля.Добавить(ТипЗнч(СтарыйНаборПоле));
                ЗаполнитьЗначенияСвойств(НовПоле, СтарыйНаборПоле);
            КонецЦикла;
            НовСКДНаборыДанных.Удалить(СтарыйНабор);
            
        Иначе
            Если Стр.ТипНабора = "Объединение" Тогда   
                ВыполнитьЗамену(Стр.Строки, НовСКДНаборыДанных[Стр.Номер - 1].Элементы);
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры

Все очень просто, обработка (неуправляемые формы) прилагается – используйте.

При необходимости, не против добавить и на управляемых формах. Удачи…

СКД система компоновки данных служебные разработчику

См. также

SALE! 20%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 10400 руб.

02.09.2020    121625    670    389    

711

Генератор схемы компоновки данных (СКД), написание кода схемы программно

Инструментарий разработчика СКД Платформа 1С v8.3 Конфигурации 1cv8 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

По выбранной схеме компоновки данных генерирует программный код, который генерирует СКД, аналогичную исходной схеме. Есть дополнительные инструменты для просмотра дерева схемы, сравнение исходной схемы и полученной по коду, а также сравнение изменений в сгенерированном коде для исходной схемы и для измененной.

3 стартмани

05.02.2024    4033    25    obmailok    17    

63

Набор-объект для СКД по тексту или запросу

Запросы СКД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024    2000    2    Yashazz    0    

29

СКД на JavaScript в 1С

СКД WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Долгое время поддерживаю web-портал, в котором появилась необходимость создавать отчеты. Просмотрев различные фреймворки на js, я решил сделать свое решение, которое позволяло бы быстро разрабатывать и добавлять новые отчеты на web-портал.

2 стартмани

11.12.2023    8155    20    John_d    25    

123

Использование менеджера временных таблиц в СКД

СКД Платформа 1С v8.3 Система компоновки данных Конфигурации 1cv8 Бесплатно (free)

Рассмотрим еще не получивший широкого распространения способ работы с внешними данным в СКД. В процессе обсуждения работы с СКД выяснилось, что многие не знакомы со способом помещения туда временной таблицы, полученной предварительно. Статья будет полезна разработчикам, знакомым с программным созданием СКД.

05.12.2023    4651    PROSTO-1C    13    

61

Модель СКД

Инструментарий разработчика СКД Платформа 1С v8.3 Система компоновки данных Абонемент ($m)

DSL для работы с СКД.

1 стартмани

15.11.2023    5804    15    kalyaka    5    

86

Пользовательские настройки отчетов 1С. Часть 1. Простые и расширенные настройки

СКД Инструкции пользователю Платформа 1С v8.3 Конфигурации 1cv8 1С:Бухгалтерия 3.0 Россия Бесплатно (free)

Простые приемы работы с отчетами на СКД. Что нужно знать пользователю про настройку отчетов, чтобы использовать их на полную катушку.

18.09.2023    6693    accounting_cons    5    

29

Разрыв страницы в СКД. Легко!

СКД Платформа 1С v8.3 Система компоновки данных Бесплатно (free)

Когда отчет надо разделить по страницам, это всегда проблема для разработчика. Поскольку в СКД нет стандартных вариантов, как это сделать. Нашел (на свой взгляд) самое простое и оптимальное решение.

01.09.2023    4518    KVIKS    15    

80
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. nixel 1403 07.10.15 11:18 Сейчас в теме
Я боюсь, что открою Америку, но смена типа набора данных проводится в блокноте за... пару секунд =/
Сохраняем схему в xml, открываем блокнотом, находим тег dataSet, меняем атрибут xsi:type="DataSetQuery" на xsi:type="DataSetObject", удаляем вложенный тег query целиком
....
PROFIT!

Update:
Пардон, читал статью по диагонали, вы указали способ через текстовый редактор. На мой взгляд в блокноте все же проще и быстрее, но спасибо вам за обработку :)
maxchaos; mi1man; slax; zqzq; Luchik; +5 Ответить
2. Luchik 673 07.10.15 11:43 Сейчас в теме
(1) nixel, (1) nixel, да, я же об этом написал
(хочу выразить свое уважение 1cKiller Alexey - респект) - редактирование xml- файла схемы компоновки данных в текстовом редакторе
. Эта публикация - возможность поделиться своими навыками, что и как можно реализовать в 1С.
Более того, оказывается, аналогичная обработка есть (infostart.ru)
dimaster; +1 Ответить
3. Luchik 673 08.10.15 10:05 Сейчас в теме
Добавил для управляемой формы http://infostart.ru/public/406318/
dimaster; +1 Ответить
4. isn 15 30.06.17 13:44 Сейчас в теме
(3) Ставлю лайк (скачали на работе). Просто и действенно. Как пожелание - добавить выбор имен объекта (из списка загруженных) для подмены / замены и оставить ручной ввод.
5. VID1234 108 06.12.21 14:57 Сейчас в теме
А наоборот можно с объекта на запрос?
Оставьте свое сообщение