Выгрузка и загрузка данных XML адаптивная с гибкими отборами 2024

// =====================================
// Служебные процедуры (оставлены без изменений)
// =====================================

&НаКлиенте
Процедура ЗаполнитьОтборИзЗапроса(Команда)

    ТекущаяСтрока = Элементы.ДеревоМетаданных.ТекущиеДанные;

    Если ТекущаяСтрока = Неопределено Тогда
        СообщитьПользователю("Выберите узел метаданных");
        Возврат;
    КонецЕсли;

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

    ОткрытьФорму(
        "Обработка.ВыгрузкаЗагрузкаДанныхXMLАдаптивная.Форма.ВыборИзЗапроса",
        ПараметрыФормы,
        ЭтаФорма,
        , , ,
        Новый ОписаниеОповещения(
            "ПослеВыбораОтбора",
            ЭтаФорма,
            Новый Структура("ИмяУзла", ТекущаяСтрока.ПолноеИмяМетаданных)
        )
    );

КонецПроцедуры

&НаКлиенте
Процедура ПослеВыбораОтбора(Результат, ДополнительныеПараметры) Экспорт

    Если Результат = Неопределено Тогда
        Сообщить("ПослеВыбораОтбора: результат не получен");
        Возврат;
    КонецЕсли;

    ИмяУзла = ДополнительныеПараметры.ИмяУзла;

    Сообщить("=== ДИАГНОСТИКА ПослеВыбораОтбора ===");
    Сообщить("Тип результата: " + ТипЗнч(Результат));
    Сообщить("Имя узла: " + ИмяУзла);

    УстановитьОтборНаСервере(Результат, ИмяУзла);

    Элементы.ДеревоМетаданных.Обновить();

КонецПроцедуры

&НаСервере
Процедура УстановитьОтборНаСервере(АдресТаблицы, ИмяУзла)

    Сообщить("=== УстановитьОтборНаСервере ===");
    Сообщить("Тип входящих данных: " + ТипЗнч(АдресТаблицы));
    
    // 1. Получаем таблицу значений
    Данные = АдресТаблицы;
    Если ТипЗнч(Данные) = Тип("Строка") Тогда
        Данные = ПолучитьИзВременногоХранилища(Данные);
    КонецЕсли;
    
    Если ТипЗнч(Данные) = Тип("ДанныеФормыКоллекция") Тогда
        Таблица = ДанныеФормыВЗначение(Данные, Тип("ТаблицаЗначений"));
    Иначе
        Таблица = Данные;
    КонецЕсли;
    
    Если Таблица = Неопределено Или ТипЗнч(Таблица) <> Тип("ТаблицаЗначений") Тогда
        Сообщить("Не удалось получить таблицу значений");
        Возврат;
    КонецЕсли;
    
    Если Таблица.Колонки.Найти("Ссылка") = Неопределено Тогда
        Сообщить("В таблице отсутствует колонка 'Ссылка'");
        Возврат;
    КонецЕсли;
    
    // 2. Формируем список значений
    СписокЗначений = Новый СписокЗначений;
    Для Каждого СтрокаТЗ Из Таблица Цикл
        Если ЗначениеЗаполнено(СтрокаТЗ.Ссылка) Тогда
            СписокЗначений.Добавить(СтрокаТЗ.Ссылка);
        КонецЕсли;
    КонецЦикла;
    
    Если СписокЗначений.Количество() = 0 Тогда
        Сообщить("Нет значений для заполнения отбора");
        Возврат;
    КонецЕсли;
    
    Сообщить("Сформирован список значений из " + СписокЗначений.Количество() + " элементов");
    
    // 3. Находим узел в дереве
    Дерево = Объект.ДеревоМетаданных;
    Если Дерево = Неопределено Тогда
        Сообщить("Дерево не инициализировано");
        Возврат;
    КонецЕсли;
    
    Узел = НайтиУзелВЭлементах(Дерево.ПолучитьЭлементы(), ИмяУзла);
    
    Если Узел = Неопределено Тогда
        Сообщить("Узел не найден: " + ИмяУзла);
        Возврат;
    КонецЕсли;
    
    Сообщить("Узел найден: " + ИмяУзла);
    
    // 4. Заполняем отбор узла
    Если Узел.Отбор = Неопределено Тогда
        Узел.Отбор = Новый ОтборКомпоновкиДанных;
    КонецЕсли;
    
    Узел.Отбор.Элементы.Очистить();
    
    ЭлементОтбора = Узел.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
    ЭлементОтбора.Использование = Истина;
    
    // ИСПРАВЛЕНО: возвращаем правильное имя поля
    ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ШтрихкодУпаковки");
    
    ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
    ЭлементОтбора.ПравоеЗначение = СписокЗначений;
    
    Сообщить("Отбор узла '" + ИмяУзла + "' заполнен " + СписокЗначений.Количество() + " значениями по полю 'ШтрихкодУпаковки'");

КонецПроцедуры

&НаСервере
Функция НайтиУзелПоИмени(Дерево, ИмяУзла)
    
    // Для ДанныеФормыДерево используем метод ПолучитьЭлементы()
    Возврат НайтиУзелВЭлементах(Дерево.ПолучитьЭлементы(), ИмяУзла);
    
КонецФункции

&НаСервере
Функция НайтиУзелВЭлементах(Элементы, ИмяУзла)
    
    Для Каждого Элемент Из Элементы Цикл
        // Проверяем текущий элемент
        Если Элемент.ПолноеИмяМетаданных = ИмяУзла Тогда
            Возврат Элемент;
        КонецЕсли;
        
        // Рекурсивно обходим подчинённые элементы
        Если Элемент.ПолучитьЭлементы().Количество() > 0 Тогда
            Найденный = НайтиУзелВЭлементах(Элемент.ПолучитьЭлементы(), ИмяУзла);
            Если Найденный <> Неопределено Тогда
                Возврат Найденный;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    
    Возврат Неопределено;
    
КонецФункции

&НаСервере
Процедура ОбновитьОтборУзлаПоСтрокам(Дерево, ИмяУзла, ФильтрЗначений)
    
    Попытка
        // Для ДанныеФормыДерево корневые строки доступны через свойство Строки
        ОбходСтрокДерева(Дерево.Строки, ИмяУзла, ФильтрЗначений);
    Исключение
        Сообщить("Ошибка доступа к строкам дерева: " + ОписаниеОшибки());
    КонецПопытки;
    
КонецПроцедуры

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

&НаСервере
Процедура ОбработкаВыбораНаСервере(ВыбранныеЗначения)

    Сообщить("=== ОбработкаВыбораНаСервере ===");
    Сообщить("Тип входящих данных: " + ТипЗнч(ВыбранныеЗначения));

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

    Если ТипЗнч(ВыбранныеЗначения) = Тип("ДанныеФормыКоллекция") Тогда
        Сообщить("Получена ДанныеФормыКоллекция без имени узла — пропускаем");
        Возврат;
    КонецЕсли;

КонецПроцедуры

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

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

Адапт_ЗаполнитьОтборXDTO

xsi:nil="true"

Ложь

Если ПравоеЗначение.Атрибуты.Получить("nil") <> Неопределено Тогда

Если ПравоеЗначение.ПолучитьАтрибут("xsi:nil") = "true" Тогда Продолжить

Если Тип = Неопределено Тогда ... Возврат Ложь

Если Тип = Неопределено Тогда Продолжить

// ОШИБКА 1 ИСПРАВЛЕНА: проверка на пустое значение (xsi:nil="true")
Если ПравоеЗначение.ПолучитьАтрибут("xsi:nil") = "true" Тогда
    Продолжить;  // Пропускаем пустые значения
КонецЕсли;
Тип = Адапт_ОпределитьТипПоАтрибуту(ПравоеЗначение);
// ОШИБКА 2 ИСПРАВЛЕНА: если тип не определён — пропускаем, а не прерываем загрузку
Если Тип = Неопределено Тогда
    Продолжить;
КонецЕсли;

ПулКодовМаркировкиСУЗ

ДокументОснование

ЗаказНаЭмиссию

Загружено объектов: 1 из 1