При работе с 1С и электронным документооборотом часто возникает задача загрузки входящих документов — для этого есть автоматическая загрузка XML-документов УПД в 1С. Однако загрузка своих собственных XML-документов формата ON_NSCHFDOPPR (Универсальный передаточный документ для продавца, версия 5.03) не в привычное "Поступление товаров и услуг", а в "Реализацию товаров и услуг", является нетиповой задачей. Давайте вместе разберемся, как реализовать такую загрузку, используя механизмы платформы 1С:Предприятие или универсальное решение для загрузки исходящих УПД в реализацию.
Эта задача может быть актуальна для специфических внутренних процессов, миграции данных, или если по какой-то причине вам нужно создать документ реализации на основе своего же исходящего УПД. Стандартные механизмы ЭДО 1С или типовая загрузка XML, как правило, ориентированы на создание документов поступления из входящих УПД, поэтому нам потребуется разработать свое решение.
Прежде чем приступить к разработке, давайте подробнее рассмотрим, с чем мы имеем дело:
Выяснив эти особенности, мы понимаем, что нам предстоит разработать собственный механизм обработки XML-файла и создания документа.
Для нашей задачи наиболее эффективным решением будет создание собственной внешней обработки или использование готового расширения для импорта XML в реализацию (удобнее через загрузка документов из XML в реализацию). Это позволит нам детально контролировать процесс:
Типовая обработка "Универсальный обмен данными в формате XML" из "Режима технического специалиста", хотя и предназначена для импорта/экспорта данных, скорее всего, не подойдет, так как она требует специфического формата XML-файлов и правил обмена, которые не соответствуют структуре УПД ON_NSCHFDOPPR.
Давайте разберем по шагам, как построить логику загрузки.
Первым шагом нам нужно прочитать содержимое XML-файла. Для этого в 1С используются объекты ЧтениеXML.
Рассмотрим пример кода для инициализации чтения XML и прохода по его структуре:
Функция ЗагрузитьУПД_ON_NSCHFDOPPR(ИмяФайлаXML) Экспорт
Перем ОбъектЧтениеXML;
Попытка
ОбъектЧтениеXML = Новый ЧтениеXML;
ОбъектЧтениеXML.ОткрытьФайл(ИмяФайлаXML);
Исключение
Сообщить("Ошибка открытия XML-файла: " + ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;
// Переменные для хранения данных из XML
СтруктураДанныхДокумента = Новый Структура;
Попытка
Пока ОбъектЧтениеXML.Прочитать() Цикл
Если ОбъектЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
// Здесь мы будем обрабатывать различные элементы XML-файла
// Например, ищем корневой элемент документа, информацию о контрагентах и табличную часть.
Если ОбъектЧтениеXML.Имя = "Файл" Тогда
// Предполагаем, что внутри элемента "Файл" будут все основные данные
РазборЭлементаФайл(ОбъектЧтениеXML, СтруктураДанныхДокумента);
КонецЕсли;
КонецЕсли;
КонецЦикла;
Исключение
Сообщить("Ошибка при чтении XML-файла: " + ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;
ОбъектЧтениеXML.Закрыть();
Возврат СтруктураДанныхДокумента;
КонецФункции
Процедура РазборЭлементаФайл(ЧтениеXML, СтруктураДанныхДокумента)
Пока ЧтениеXML.Прочитать() Цикл
Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента И ЧтениеXML.Имя = "Файл" Тогда
Прервать; // Выходим из текущего элемента
КонецЕсли;
Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Если ЧтениеXML.Имя = "СвУчДокОбор" Тогда // Сведения об участниках документооборота
// Здесь мы можем получить данные о продавце и покупателе
// Например, ИНН, КПП, наименование
// Для УПД продавца, продавцом будет наша организация, покупателем - контрагент
РазборУчастниковДокументооборота(ЧтениеXML, СтруктураДанныхДокумента);
ИначеЕсли ЧтениеXML.Имя = "Документ" Тогда // Сам документ УПД
РазборДокументаУПД(ЧтениеXML, СтруктураДанныхДокумента);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Мы будем рекурсивно или итеративно проходить по узлам XML-файла, извлекая нужные значения, такие как ИНН, наименование контрагента, номер документа, дата, номенклатура, количество, цена, сумма, ставка НДС и т.д. Все извлеченные данные будем сохранять во временную структуру или таблицу значений.
Один из самых важных этапов – это правильное сопоставление номенклатуры (поможет интеллектуальное сопоставление номенклатуры поставщиков в ЭДО) из XML-файла с номенклатурой в вашей базе 1С. Разберем основные подходы:
Посмотрим на пример логики сопоставления:
Функция ПолучитьНоменклатуруПоДаннымXML(НаименованиеИзXML, Контрагент)
// 1. Поиск в регистре "Номенклатура контрагентов БЭД"
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| НоменклатураКонтрагентовБЭД.Номенклатура
|ИЗ
| РегистрСведений.НоменклатураКонтрагентовБЭД КАК НоменклатураКонтрагентовБЭД
|ГДЕ
| НоменклатураКонтрагентовБЭД.Контрагент = &Контрагент
| И НоменклатураКонтрагентовБЭД.НаименованиеКонтрагента = &НаименованиеИзXML";
Запрос.УстановитьПараметр("Контрагент", Контрагент);
Запрос.УстановитьПараметр("НаименованиеИзXML", НаименованиеИзXML);
РезультатЗапроса = Запрос.Выполнить();
Если Не РезультатЗапроса.Пустой() Тогда
Выборка = РезультатЗапроса.Выбрать();
Выборка.Следующий();
Возврат Выборка.Номенклатура;
КонецЕсли;
// 2. Поиск в справочнике "Номенклатура"
Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(НаименованиеИзXML);
Если Номенклатура <> Неопределено Тогда
Возврат Номенклатура;
КонецЕсли;
// 3. Создание новой номенклатуры (если разрешено)
Если ПараметрыОбработки.СоздаватьНенайденнуюНоменклатуру Тогда
НоваяНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
НоваяНоменклатура.Наименование = НаименованиеИзXML;
НоваяНоменклатура.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
НоваяНоменклатура.Записать();
Возврат НоваяНоменклатура;
КонецЕсли;
Возврат Неопределено;
КонецФункции
Для удобства пользователя можно предусмотреть интерфейс для ручного сопоставления номенклатуры, выделяя ненайденные позиции и предлагая варианты из справочника с указанием процента соответствия.
Из XML-файла нам также потребуется извлечь данные о контрагенте (покупателе в нашем случае) и нашей организации (продавце). Мы ищем их в соответствующих справочниках 1С по ИНН/КПП или наименованию.
Другие важные реквизиты, которые необходимо получить из XML и заполнить в документе "Реализация товаров и услуг":
После того как все данные из XML извлечены и сопоставлены, мы можем приступать к программному созданию документа РеализацияТоваровУслуг.
Разберем по шагам создание документа:
СоздатьДокумент().Дата, Организация, Контрагент, ДоговорКонтрагента.Номенклатура, Количество, Цена, Сумма.Записать().Посмотрим на пример кода для создания документа:
Функция СоздатьДокументРеализация(СтруктураДанныхДокумента)
НовыйДокумент = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
// Заполнение шапки документа
НовыйДокумент.Дата = СтруктураДанныхДокумента.ДатаДокумента;
НовыйДокумент.Организация = Справочники.Организации.НайтиПоРеквизиту("ИНН", СтруктураДанныхДокумента.ИННПродавца);
НовыйДокумент.Контрагент = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН", СтруктураДанныхДокумента.ИННПокупателя);
НовыйДокумент.ДоговорКонтрагента = НовыйДокумент.Контрагент.ОсновнойДоговорКонтрагента;
// Заполнение табличной части "Товары"
Для Каждого СтрокаТЧИзXML Из СтруктураДанныхДокумента.ТабличнаяЧасть Цикл
НоваяСтрока = НовыйДокумент.Товары.Добавить();
НоваяСтрока.Номенклатура = ПолучитьНоменклатуруПоДаннымXML(СтрокаТЧИзXML.НаименованиеНоменклатуры, НовыйДокумент.Контрагент);
НоваяСтрока.Количество = СтрокаТЧИзXML.Количество;
НоваяСтрока.Цена = СтрокаТЧИзXML.Цена;
НоваяСтрока.Сумма = СтрокаТЧИзXML.Сумма;
НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.НайтиПоНаименованию(СтрокаТЧИзXML.СтавкаНДС);
КонецЦикла;
Попытка
НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
Сообщить("Документ успешно создан.");
Исключение
Сообщить("Ошибка при записи: " + ОписаниеОшибки());
КонецПопытки;
Возврат НовыйДокумент;
КонецФункции
На платформах, таких как Инфостарт, часто встречаются публикации, демонстрирующие подходы к загрузке XML-документов. Например, крайне полезна публикация с универсальным решением для УТ 11, КА 2, ERP 2 и БП 3.0. Хотя подобные решения часто описывают импорт для создания документов поступления, они могут послужить отличной отправной точкой.
Как адаптировать такое решение?
Документы.ПоступлениеТоваровУслуг используйте Документы.РеализацияТоваровУслуг.НоменклатураКонтрагентовБЭД.Таким образом, для успешной загрузки своих документов XML ON_NSCHFDOPPR (УПД 5.03) в собственную "Реализацию товаров и услуг" нам потребуется разработка специализированной внешней обработки или расширения. Она будет включать в себя парсинг XML-файла, тщательное сопоставление данных (особое внимание уделяем номенклатуре) и программное создание или перезаполнение документов "Реализация товаров и услуг".