uniloadXLS - универсальная загрузка XLS(X) с приведением ссылочных типов по структуре-описанию колонок. Приводятся ссылки документов, справочников и перечислений (по метаданным). COM объекты не используются
Исходный код можно забрать в репозитории на GitHub:
https://github.com/Bayselonarrend/uniloadXLS
Установка:
В решении присутствует код для двух общих модулей с разными видами вызовов:
| КлиентСерверный | Серверный | |
|---|---|---|
| Клиент | + | |
| Сервер | + | + |
| Внешнее соединение | + | + |
| Вызов сервера | + |
Этот код необходимо поместить в подходящие модули или создать новые, провести рефакторинг имен ОМ в методах. Функция для вызова - КлиентСерверный.ЗагрузитьИзXLS(). Вызов - НаКлиенте, возвращаемое значение - адрес во временном хранилище, где находится сформированная таблица значений.
Принцип работы:
!!! Пример вызова на форме !!!
&НаКлиенте
Процедура ЗагрузитьXLS(Команда)
СтруктураКолонок = Новый Структура;
СтруктураКолонок.Вставить("Спр2" , "СправочникСсылка.Справочник2");
СтруктураКолонок.Вставить("Перечисление1" , "ПеречислениеСсылка.Перечисление1");
СтруктураКолонок.Вставить("ЛюбоеИмя" , "");
СтруктураКолонок.Вставить("Док1" , "ДокументСсылка.Документ1");
СтруктураКолонок.Вставить("Спр1" , "СправочникСсылка.Справочник1");
ИД = КлиентСерверный.ЗагрузитьИзXLS(СтруктураКолонок,,2);
Если ЗначениеЗаполнено(ИД) Тогда
ЗагрузкаНаСервере(ИД);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗагрузкаНаСервере(ИД)
ТЗ = ПолучитьИзВременногоХранилища(ИД);
КонецПроцедуры
-
В первую очередь необходимо сформировать структуру-описание колонок:
Ключ - название колонки, которое необходимо получить в финальной таблице значений,
Значение - тип данных строкой (как он выглядит в поле "Тип" реквизита в конфигураторе или реквизитах формы).
Колонки должны идти в том порядке и количестве (до той колонки, которая вам нужна последней), в котором они идут внутри XLS файла. Названия колонок в структуре-описании не влияют на сам документ Excel: чтение всегда идет слева направо, записывая их по порядку в колонки таблицы значений. Порядок и имена колонок уже самой таблицы значений в 1С формируются на основе структуры-описания. Если вам необходимо пропустить колонку (например, первую), то достаточно просто вставить в структуру колонок запись с любым ключом и пустым типом. Такие записи обрабатываются как пропуск колонки.Поле1 Поле2 Поле3 - Значение - Значение Значение Значение Значение Значение Значение Значение Значение
СтруктураКолонок = Новый Структура;
СтруктураКолонок.Вставить("Любое" , "");
СтруктураКолонок.Вставить("Поле1" , "ПеречислениеСсылка.Поле1");
СтруктураКолонок.Вставить("ДругоеЛюбое" , "");
СтруктураКолонок.Вставить("Поле2" , "ДокументСсылка.Поле2");
СтруктураКолонок.Вставить("Поле3" , "СправочникСсылка.Поле3");
- Вызваемая функция - КлиентСерверный.ЗагрузитьИзXLS
Параметры- Структура колонок - из предыдущего пункта
- Название листа - чтение идет из первого, если не указан или не был найден в файле
- Номер первой строки - для пропуска шапки и других лишних строк (по умолчанию - 1)
При вызове метода открывается окно выбора файла XLS (XLSX). После обработки возвращает адрес временного хранилища, в котором хранится полученная таблица значений.
Обработка происходит следующим образом:
По очереди считываются столбцы из файла и записываются в таблицу значений с заранее сформированными колонками на основе структуры. Затем эта таблица значений попадает через параметр в запрос, динамически сформированный на основе типов из значений структуры. Документы приводятся по номерам (как число и как строка), справочники - по кодам (как число и как строка) и наименованиям, перечисления - по синониму (не в запросе, по метаданным). Справочник Номенклатура отдельно приводится по реквизиту Артикул. Строковые значения, загруженные из документа, остаются в таблице отдельными колонками на всякий случай.
Важно: Все примитивные типы остаются после загрузки типом "Строка", однако приводятся платформой автоматически при заполнении в табличную часть или другую таблицу значений с нужным типом колонки (через ЗаполнитьЗначенияСвойств() или присваивание, например).
Пример полученного запроса:
ВЫБРАТЬ
ВходнаяТаблица.Спр2 КАК Спр2,
ВходнаяТаблица.Спр2КодЧислом КАК Спр2КодЧислом,
ВходнаяТаблица.Перечисление1НеОбрабатывать КАК Перечисление1,
ВходнаяТаблица.Док1 КАК Док1,
ВходнаяТаблица.Док1КодЧислом КАК Док1КодЧислом,
ВходнаяТаблица.Спр1 КАК Спр1,
ВходнаяТаблица.Спр1КодЧислом КАК Спр1КодЧислом,
ВходнаяТаблица.ПорядковыйНомер КАК ПорядковыйНомер
ПОМЕСТИТЬ ВходнаяТаблица
ИЗ
&ВходнаяТаблица КАК ВходнаяТаблица
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
Произведения1.Ссылка КАК Спр2,
Пост1.Ссылка КАК Док1,
Люди1.Ссылка КАК Спр1,
ВходнаяТаблица.Спр2 КАК Спр2Служебный,
ВходнаяТаблица.Перечисление1 КАК Перечисление1,
ВходнаяТаблица.Док1 КАК Док1Служебный,
ВходнаяТаблица.Спр1 КАК Спр1Служебный
ИЗ
ВходнаяТаблица КАК ВходнаяТаблица
ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Справочник2 КАК Справочник2
ПО (ВходнаяТаблица.Спр2 <> "")
И (ВходнаяТаблица.Спр2 <> 0)
И (ВходнаяТаблица.Спр2 = Справочник2.Наименование
ИЛИ ВходнаяТаблица.Спр2КодЧислом = Справочник2.Код
ИЛИ ВходнаяТаблица.Спр2 = Справочник2.Код)
ЛЕВОЕ СОЕДИНЕНИЕ Документ.Документ1 КАК Документ1
ПО (ВходнаяТаблица.Док1 <> "")
И (ВходнаяТаблица.Док1 <> 0)
И ВходнаяТаблица.Док1 = Документ1.Номер
ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Справочник1 КАК Справочник1
ПО (ВходнаяТаблица.Спр1 <> "")
И (ВходнаяТаблица.Спр1 <> 0)
И (ВходнаяТаблица.Спр1 = Справочник1.Наименование
ИЛИ ВходнаяТаблица.Спр1КодЧислом = Справочник1.Код
ИЛИ ВходнаяТаблица.Спр1 = Справочник1.Код)
УПОРЯДОЧИТЬ ПО
ВходнаяТаблица.ПорядковыйНомер
Запрос выполняется, выгружается в ТЗ и помещается во временное хранилище, адрес которого возвращается в результате выполнения функции.
Проект распространяется под лицензией MIT
Репозиторий: https://github.com/Bayselonarrend/uniloadXLS
Мой GitHub: https://gitub.com/Bayselonarrend Лицензия MIT: https://mit-license.org
