Вход | Регистрация
 
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) угу
налетел в январе
тащил контрагентов из выписок банка по ИНН и бац - не пашет, пришлось включать мозг, парсить ошибку, лезть на ИТС и открывать доступ

Список тем форума
Рекламное место пустует  Рекламное место пустует
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.