Поиск по ИНН, переработана под другой сайт
Задачи пользователя - Поиск данных
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Переделано, поправлено, опять работает. Минимальная интеграция.
Немного колхозно, но по сути тут представлен основной механизм, для встраивания в конфигурацию по своему желанию и по своей необходимости.
У меня к конфигурации это "прибито гвоздями" вот таким способом:
В кнопке генерации кпп по инн добавлен код:
Если ЗначениеЗаполнено(ИНН) Тогда
ОбработкаОбъект = Обработки.ПоискПоИнн.Создать();
ОбработкаОбъект.ИНН = ИНН;
ОбработкаОбъект.ПолучитьИнформациюПоИНН();
ОбработкаОбъект.ПолучитьФорму("Форма", ЭтаФорма).Открыть();
КонецЕсли;
В конфигурацию, в дерево метаданных, добавлена обработка у которой есть самый главный метод ПолучитьИнформациюПоИНН();. Перед запуском метода в обработке этот самый ИНН надо заполнить.
Обратно в карточку контрагента это добро возвращается структурой через обработку оповещения.
Из обработки:
СтруктураВыбора = Новый Структура;
СтруктураВыбора.Вставить("Команда", "ПоискПоИНН");
СтруктураВыбора.Вставить("ИНН", ИНН);
СтруктураВыбора.Вставить("КПП", КПП);
СтруктураВыбора.Вставить("НаименованиеПолное", НаименованиеПолное);
СтруктураВыбора.Вставить("НаименованиеСокращенное", НаименованиеСокращенное);
СтруктураВыбора.Вставить("ОГРН", ОГРН);
СтруктураВыбора.Вставить("ОКВЭД", ОКВЭД);
СтруктураВыбора.Вставить("Регион", Регион);
СтруктураВыбора.Вставить("ЮрАдрес", ЮрАдрес);
СтруктураВыбора.Вставить("ОКПО", ОКПО);
ОповеститьОВыборе(СтруктураВыбора);
В форме элемента справочника "Контрагенты" :
Процедура ОбработкаВыбора(ЗначениеВыбора, Источник)
//Типовой код .......
ИначеЕсли ТипЗнч(ЗначениеВыбора) = Тип("Структура") Тогда
Команда = "";
Адрес = "";
Если ЗначениеВыбора.Свойство("Команда", Команда) и Команда = "ПоискПоИНН" Тогда
//Тут собственно ваш код загрузки в карточку
КонецЕсли;
КонецЕсли;
КонецПроцедуры;
Поставляется в большей мере как механизм, из которого вы можете самостоятельно, с минимальными усилиями, вылепить именно то, что вам требуется.
Тестировалось на УПП 1.3, для ут без изменений. Для бп 2.0 названия модулей немного другие, поэтому точное название модуля можно определить по имени метода. В остальном все осталось как прежде: главное заполнить поле ИНН и нажать кнопку Обновить.
Часть кода взята отсюда, спасибо Автору
И еще от кучи авторов с инфостарт, но за древностью лет уже не упомню кто это был. Спасибо добрые люди.
Вступайте в нашу телеграмм-группу Инфостарт