Вход | Регистрация

1С:Предприятие :: 1С:Предприятие 8 общая

Автозаполнение реквизитов контрагента по ИНН

Автозаполнение реквизитов контрагента по ИНН
Я
   skupidom
 
09.06.18 - 11:05
Есть сервис для проверки корректности ИНН контрагента,

но нужно автоматически выверять и дозополнять реквизиты контрагента

Определение = Новый WSОпределения("http://npchk.nalog.ru/FNSNDSCAWS_2?wsdl";);
    Прокси = Новый WSПрокси(Определение, "http://ws.unisoft";, "FNSNDSCAWS2", "FNSNDSCAWS2_Port");
    Запрос = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://ws.unisoft/FNSNDSCAWS2/Request";, "NdsRequest2"));
    Контрагент = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://ws.unisoft/FNSNDSCAWS2/Request";, "NdsRequest2_NP"));
    
    Контрагент.INN = ИНН;
    Контрагент.KPP = КПП;
    Контрагент.DT = Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
    Запрос.NP.Добавить(Контрагент);
    
    РезультатЗапроса = Прокси.NdsRequest2(Запрос);
    
    Для каждого ОтветДляКонтрагента из РезультатЗапроса.NP Цикл
        СтатусКонтрагента = ОтветДляКонтрагента.State;
    КонецЦикла;
 
 
   Кац
 
1 - 09.06.18 - 11:06
Держите нас в курсе
   Гипервизор
 
2 - 09.06.18 - 11:18
Посмотрите как реализовано в типовых.
   Симпатяга
 
3 - 09.06.18 - 11:22
(0) Выровняйте и дозапоните)))
   skupidom
 
4 - 09.06.18 - 12:41
в типовом надо тащить огромный пласт кода в пустую базу с 1 справочником Контрагенты.Есть ли более оптимальный способ и компактное решение ?
   lubitelxml
 
5 - 09.06.18 - 12:43
(4) какой там пласт?
        Определение = Новый WSОпределения("https://api.orgregister.1c.ru/orgregister/v7?wsdl","логинИТС","парольИТС";);

        Сервис = Новый WSПрокси(Определение,"http://ws.orgregister.company1c.com/";, "RequisitesWebServiceEndpointImpl7Service", "RequisitesWebServiceEndpointImpl7Port");
        ТипWSПараметра = Сервис.ФабрикаXDTO.Пакеты.Получить("http://ws.orgregister.company1c.com/").Получить("getCorporationRequisitesByINN";);
        Сервис.Пользователь = "логинИТС";
        Сервис.Пароль = "парольИТС";
        параметр = Сервис.ФабрикаXDTO.Создать(ТипWSПараметра);
        параметр.INN =  ИНН;
        Результат=Сервис.getCorporationRequisitesByINN(параметр);
   Aleksey
 
6 - 09.06.18 - 12:46
(5) в том то и дело что в типовых запрос идет через сервер 1С с проверкой на актуальность логина и пароля
   Aleksey
 
7 - 09.06.18 - 12:47
Более того количество запросов через 1с ограничено тарифом
   Поpyчик-4
 
8 - 09.06.18 - 12:50
(0)
(7) Дадата же есть. Скачайте с инфостарта обработку с процедурами или сами сделайте.
   shuhard
 
9 - 09.06.18 - 12:52
(7) угу
налетел в январе
тащил контрагентов из выписок банка по ИНН и бац - не пашет, пришлось включать мозг, парсить ошибку, лезть на ИТС и открывать доступ

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует