Учитывая важность и работоспособность как очень хорошего шаблона для доработок под другие конфигурации (писали что чуток подправить и можно грузить данные в Управление торговлей 11.1) с 02.06.2015 цена поднята до 3-х стартмани!
Общий вид обработки приведен ниже на рисунке 1:
Рисунок 1 -общий вид обработки
Основой решения послужила задача на форуме Загрузка XML в бухгалтерию 3.0 Предстояло сделать сложный этап - загрузку. Также для тестирования подобных задач применил идею создания списка значений, структур на клиенте для передачи их на сервер для того, чтобы как при штатной отработке, так и в случае возникновения синтаксической ошибки или ошибке в данных периода исполнения вся информация ДО данного момента по прочей загрузке была сохранена в протоколе загрузки.
Достоинства обработки:
1. Контроль ввода пользователем всех данных (обычная системная ПроверитьЗаполнение() реквизитов для нужного режима).
2. Возможность сохранения и восстановления настроек формы (тоже все стандартные возможности платформы 8.3).
3. Как уже упоминалось, возможность отладки. Есть "глобальная" транзакция, которая может быть зафиксирована только по флажку, с целью получения "отчета" по возможным ошибкам загрузки. Также учтено что платформа 1С 8 не поддерживает механизма вложенных транзакций. Также учтена особенность неявных транзакций Попытка...Исключение. Во всех случаях протокол создается в виде файла на стороне клиента
4. Ведение счетчика успешно загруженных объектов для предварительного контроля. Опять таки, не учитываются основные договора контрагентов.
5. Для оптимизации не передается контекст формы на сервер.
Недостатки:
1. На больших объемах XML (если файл, допустим, 2 Гб) обработка может зависать, т.к. файл (см. фрагмент кода 1) передается с клиента на сервер для обработки.
2. Не использованы современные парсеры, а использованы примитивные методы платформы 1С 8 Новый ЧтениеXML для "построчного" анализа кода. В данном случае изначально представлялись файлы с ошибками (специально не соответствовали формату XML по спецификации 1.0 - отсутствующие теги и прочее), и даже возникала необходимость предварительной обработки таких текстов. Хорошо, потом данную ошибку устранили в источнике на базе битрикса.
3. Нет индикатора процесса, что сильно бы усложнило задачу, ведь потребовалось бы периодическое возвращение на клиент с потерей всех серверных результатов.
Ниже привожу фрагмент кода главной процедуры:
&НаКлиенте
Процедура ЗагрузитьВсе(Команда)
Если НЕ ПроверитьЗаполнение() Тогда
Возврат;
КонецЕсли;
Попытка
Лог = Новый ТекстовыйДокумент;
Лог.ИспользуемоеИмяФайла = Объект.ПутьЛог;
Лог.ДобавитьСтроку("--> Начали лог загрузки "+ТекущаяДата() );
Лог.Записать(Лог.ИспользуемоеИмяФайла);
Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(Объект.ПутьФайлХМЛ), ЭтаФорма.УникальныйИдентификатор);
СписокВЛог = Новый СписокЗначений; // Сообщения сервера
СтруктКол = Неопределено;
ПрочитатьХМЛНаСервере(Адрес, Объект.ФиксироватьТранзакцию, Объект.ВидНоменклатурыТовар, Объект.ВидНоменклатурыУслуга, СтруктКол, СписокВЛог, Объект.Организация, Объект.ВидДоговора); // Вызываем для оптимальной работы без контекста формы
Если СписокВЛог = Неопределено Тогда
ВызватьИсключение("Была фатальная ошибка на сервере"); // Дальше общий обработчик
Иначе
Для Каждого Стр Из СписокВЛог Цикл
Лог.ДобавитьСтроку(Стр.Значение);
КонецЦикла;
КонецЕсли;
Лог.Записать(Лог.ИспользуемоеИмяФайла);
Исключение
Инфо = ИнформацияОбОшибке();
ТекстОшибок = ПолучитьВсеОписаниеОшибокНаКлиентеНаСервере(Инфо);
СообщитьНаКлиентеНаСервере(ТекстОшибок);
Если СписокВЛог <> Неопределено Тогда
Для Каждого СтрокаЛога Из СписокВЛог Цикл
Лог.ДобавитьСтроку(СтрокаЛога.Значение);
КонецЦикла;
КонецЕсли;
Лог.ДобавитьСтроку(ТекстОшибок); // Ситуация, когда лог не может создаться/сохраниться
Лог.Записать(Лог.ИспользуемоеИмяФайла);
Возврат;
КонецПопытки;
Лог.Записать(Лог.ИспользуемоеИмяФайла);
// Нормально завершение работы загрузки
Если СтруктКол <> Неопределено Тогда
Лог.ДобавитьСтроку("--> Закончили чтение XML в 1С в "+ТекущаяДата() );
Лог.ДобавитьСтроку("");
Лог.ДобавитьСтроку("--> Загружено: Номенклатуры "+ СтруктКол.КолНом+ " шт");
Лог.ДобавитьСтроку("--> Загружено: Контрагентов "+ СтруктКол.КолКон+ " шт");
Лог.ДобавитьСтроку("--> Загружено: Договоров "+ СтруктКол.КолДог+ " шт");
Лог.ДобавитьСтроку("--> Загружено: Счетов "+ СтруктКол.КолСчет+ " шт");
КонецЕсли;
Лог.Записать(Лог.ИспользуемоеИмяФайла);
СообщитьНаКлиентеНаСервере("ОК");
КонецПроцедуры
Фрагмент кода 1 - главная процедура чтения.
Для "парсинга" тегов использовал унифицированные процедуры приведеннные ниже. Сами алгоритмы создания контрагентов, договоров, Номенклтуры не представляют сложности и аналогичны как в обработка в толстом клинете
&НаСервереБезКонтекста
Процедура ЧтениеИСозданиеКонтрагентовНаСервере(СтруктПар)
НомСтр = Новый Структура;
// Чтение тегов <Элемент>...</Элемент> У Номенклатуры
Пока СтруктПар.Чтение.Прочитать() Цикл
ИмяУзла = СтруктПар.Чтение.Имя;
ТипУзла = СтруктПар.Чтение.ТипУзла;
ЗначУзла = СтруктПар.Чтение.Значение;
Если ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
Если ИмяУзла = "Контрагенты" Тогда
Возврат;
ИначеЕсли ИмяУзла = "Элемент" Тогда
НайтиСоздатьКонтрагента(НомСтр, СтруктПар);
НомСтр = Новый Структура; // Очищается Все
Продолжить; // Читаем следующий элемент у Номенклатуры
КонецЕсли;
КонецЕсли; // Если Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда...
// Заполняем данные для Нового элемента
Если ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Если ИмяУзла = "Элемент" Тогда
Продолжить;
Иначе
СохрИмяУзла = ИмяУзла;
КонецЕсли;
ИначеЕсли ТипУзла = ТипУзлаXML.Текст Тогда
НомСтр.Вставить(СохрИмяУзла, ЗначУзла); // // Читаем все Теги номенклатуры что есть во входном файле.
КонецЕсли; // Если Чтение.ТипУзла =...
КонецЦикла; // Пока Чтение.Прочитать()...
КонецПроцедуры
Фрагмент кода 2 - унифицированный алгоритм разбора тегов файла XML.
