Всем привет!
Внешняя обработка разработана на платформе 1С:Предприятие 8.3.20.2184, конфигурации Бухгалтерия предприятия, редакция 3.0.129.13.
После открытия обработки надо вставить из буфера обмена таблицу с полями ИНН, КПП, Название, ДополнительнаяИнформация. Далее нажимаете кнопку "Загрузить".
Контрагенты ищутся по ИНН + КПП - для ООО, по ИНН - для ИП. Контрагенты должны быть заранее заданы в БП 3.0.
Подобный загрузчик может пригодиться, например, при переходе с БП 2.0 на БП 3.0 - дополнительная информация из регистра сведений "Контактная информация" из БП 2.0 автоматом не переносится в дополнительное поле "ДополнительнаяИнформация" справочника Контрагенты.
В БП 2.0 надо через консоль запросов выгрузить список контрагентов: ИНН, КПП, Название контрагента, ДопИнформация - из регистра сведений. Далее скопировать в загрузчик. Поиск начинается с первой строки, поэтому заголовки полей "ИНН, КПП, Название, ДопИнформация" надо удалить.
По данной обработке - все.
&НаСервере
Процедура ЗагрузитьНаСервере(ИНН, КПП, Название, Контакт)
Если ПустаяСтрока(ИНН) Тогда
Возврат;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.ИНН = &ИНН
| И ВЫБОР
| КОГДА &ИспользоватьКПП
| ТОГДА Контрагенты.КПП = &КПП
| ИНАЧЕ ИСТИНА
| КОНЕЦ";
Запрос.УстановитьПараметр("ИНН", ИНН);
Запрос.УстановитьПараметр("ИспользоватьКПП", Не ПустаяСтрока(КПП));
Запрос.УстановитьПараметр("КПП", КПП);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Если Выборка.Следующий() Тогда
Контрагент = Выборка.Ссылка.ПолучитьОбъект();
Контрагент.ДополнительнаяИнформация = Контакт;
Контрагент.Записать();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Загрузить(Команда)
Для К = 1 По ДанныеДляЗагрузки.ВысотаТаблицы Цикл
ИНН = СокрЛП(ДанныеДляЗагрузки.Область(К,1,К,1).Текст);
КПП = СокрЛП(ДанныеДляЗагрузки.Область(К,2,К,2).Текст);
Название= СокрЛП(ДанныеДляЗагрузки.Область(К,3,К,3).Текст);
Контакт = СокрЛП(ДанныеДляЗагрузки.Область(К,4,К,4).Текст);
ЗагрузитьНаСервере(ИНН, КПП, Название, Контакт);
КонецЦикла;
КонецПроцедуры
На этом все.
С пользой для клиентов, Рустем
- Анализ прав и ролей. Поиск подходящего профиля - алгоритмический анализ и поиск
- Оцифровка и визуализация склада - программная прорисовка склада
- Удаление документов для любых баз на управляемых формах
- Удаление справочников для любых баз на управляемых и обычных формах
- Перенумерация документов и справочников - с учетом префиксов номеров
- Свертка базы УТ 10.3 подокументно - новая концепция
- Матричное программирование - демо-стенд матричного калькулятора
- Справочное хранение товаров в КА 2.5 - кейс запуска адресного склада
- Мини-обзор разных задач - от очевидного до неочевидного
- Поиск отчета по документам - пример анализа незнакомых конфигураций
- Флажок в динамическом списке - от теории до практики "как бы простой" задачи
- Из Json в ДеревоЗначений - удобный просмотрщик json-структуры
- Внедрение адресного склада в КА 2.5 - кейс запуска адресного склада
- Фрилансеру: про цены, про клиентов, про планирование - мое исследование
- Что такое форматированный документ - прекрасная возможность раскрасить любой текст
- Программная работа с упаковками в КА 2.5 - примеры адаптаций механизмов упаковок в КА 2.5
- Универсальное сравнение регистров накопления - связь по измерениям, сравнение по ресурсам
- Обход объекта рекурсивно - просмотр реквизитов документа с бесконечным открытием подуровней
Проверено на следующих конфигурациях и релизах:
- Бухгалтерия предприятия, редакция 3.0, релизы 3.0.129.13
Вступайте в нашу телеграмм-группу Инфостарт
