Форум ДИЦ

Пользовательский и Дилерский форум ДИЦ
Текущее время: Вт май 22, 2018 11:32 pm

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 34 ]  На страницу Пред.  1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Вт апр 24, 2018 1:42 pm 
Не в сети

Зарегистрирован: Вт мар 30, 2004 12:30 pm
Сообщения: 4935
Откуда: Москва, Кустарь-одиночка с мотором
Перевыложил

Извините - вместо версии 2.00 была повторно выложена старая версия
Не доглядел - при публикации сбросилась папка для сохранения на папку по-умолчанию :(

_________________
Андрей Булетов, Москва
PS Не стесняйтесь, поправьте меня, если я не прав!


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Вт апр 24, 2018 11:01 pm 
В сети

Зарегистрирован: Ср июн 18, 2008 3:03 pm
Сообщения: 966
По-моему, его нужно сделать лицевым

_________________
С уважением, Владимир Миронычев.


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Вт апр 24, 2018 11:41 pm 
Не в сети

Зарегистрирован: Вт мар 30, 2004 12:30 pm
Сообщения: 4935
Откуда: Москва, Кустарь-одиночка с мотором
Миронычев Владимир писал(а):
По-моему, его нужно сделать лицевым

Сделал лицевым, перевыложил

Признаю - забыл.
Дело в том, что я обычно ВСЕ свои проекты делаю НЕлицевыми.
А у пользователей создаю отдельный проект - объединяющий, лицевой.

Если пользователю захочется создать новую инфобазу, ему достаточно добавить единственный дополнительный проект.

_________________
Андрей Булетов, Москва
PS Не стесняйтесь, поправьте меня, если я не прав!


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Ср апр 25, 2018 7:20 am 
Не в сети

Зарегистрирован: Пт апр 16, 2004 5:11 pm
Сообщения: 6555
Откуда: OpenFly Soft Technology, Москва
Нашел косяк. Не считывает краткое имя. Проверять на мне ИНН 7725694581. У меня краткое имя О.Ф.С.Т., а не Опенфлай Софт Технолоджи.
Я сделал функцию серверной и у себя Краткое Имя подправил. Особо разбираться не стал.

Код:
func ЗагрузкаПоИНН -------------------------------------------------------
(rDoc : Базовый.Данные.Субъект):string;
VAR sHTTPЗапрос        :String;
VAR sHTTPОтвет         :String;
VAR iИНН               :Integer;
VAR i,i1                  : Integer;
VAR s1,sQ,sQ1              : String;

VAR sИмя               : String;
VAR sОГРН              : String;
VAR sРук_Должн         : String;
VAR SourceWWW  : String ;

  PROC HTTPЗапрос_OnClick;------------------------------------------------------
   VAR хHTTP      :AutoObject;    -- Variant;
   VAR s : String;

    IF sHTTPЗапрос='' THEN Return; END;
    IF 0=Pos(':',sHTTPЗапрос) THEN s='http://'; END; -- If
    TRY
      хHTTP = AutoObject.Create("WinHttp.WinHttpRequest.5.1");
      хHTTP.open ("GET", s+sHTTPЗапрос, 0);
      хHTTP.send();
      sHTTPОтвет = хHTTP.responsetext();
    EXCEPT Seterror(0,'Ошибка при обработке^MИ-нет запроса'); END; -- Try
  END; -- HTTPЗапрос_OnClick ---------------------------------------------------
  FUNC ВзятьПоID -----------------------------------------------------------------
   (sTxt, sId, sType : String): String;
   VAR i,n      : Integer;
   VAR s,locType: String;

    IF sTxt='' OR  sId='' THEN Return ''; END; -- Входной контроль

    IF sType=''
    THEN locType='id';
    ELSE locType=sType;
    END; -- If

    s=locType+'="'+sId+'">';    -- Что искать
    n=Length(s);
    i=Pos(s,sTxt);              -- Ищу
    IF i=0 THEN Return ''; END; -- Не нашёл

    Result = Substr(sTxt,i+n,9999);           -- Отбрасываю начало -- с учётом закрывающего тэг >
    Result = Substr(Result,1,Pos('<',Result)-1);  -- Отбрасываю хвост
  END; -- Func ВзятьПоID ---------------------------------------------------------
  PROC ЗаменитьОПФ --------------------------------- Заменить ОПФ на короткое --
   (Source, Target :String); -- Базовый.Классификаторы.ОКОПФ - нет, не могу выделить
   VAR i : Integer;
    i=Length(Source);
    IF Match(Up(sИмя),Source+'*')
    THEN
--        rDoc.Имя        = Target+' '+Substr(sИмя,i+1,999);
--        rDoc.КраткоеИмя = rDoc.Имя;
--        rDoc.АльтИмя    = rDoc.Имя;
    END;   -- Если поменялся тип
  END; -- PROC ЗаменитьОПФ ------------------------- Заменить ОПФ на короткое --

   SourceWWW  = 'https://zachestnyibiznes.ru/' ;

  sИмя          ='';
  sОГРН         ='';
  sРук_Должн    ='';

  WITH rDoc DO
    iИНН=Length(ИНН);
    recordedit(rDoc);
    IF Not iИНН In [10,12] THEN
      result='Проверь ИНН^MСимволов должно быть^M10 для ЮЛ^M12 для ИП';
      Return;
    END;

    sQ='search?query=';
    sHTTPЗапрос=SourceWWW+sQ+ИНН;       -- 1й запрос
    HTTPЗапрос_OnClick;

    IF iИНН=10
    THEN sQ='company/ul/';
    ELSE sQ='company/ip/';
    END; -- If

    i=Pos(sQ,sHTTPОтвет);
    IF i=0 THEN
      result='Ошибка в 1м запросе^MНе найден контрагент (ЮЛ или ИП)^Mс таким ИНН';
      Return;
    END; -- If

    sQ1='"legalName"';
    i1=Pos(sQ1,sHTTPОтвет);
    IF i1=0 THEN
      result='Ошибка в 2м запросе^MНет строки^M'+'legalName';
      Return;
    END; -- If


    sQ1=Substr(sHTTPОтвет,i1+Length(sQ1)+1,9999);            -- Отбрасываю начало
    sИмя=Substr(sQ1,Pos('>',sQ1)+1,Pos('br',Substr(sQ1,Pos('>',sQ1)+1,999))-2);
    IF sИмя[1]=Chr(10) THEN sИмя=Substr(sИмя,2,999); END;  -- Отбрасываю Перевод строки
          Имя     = sИмя;
      КраткоеИмя  = sИмя;
      АльтИмя     = sИмя;



    sHTTPОтвет=Substr(sHTTPОтвет,i,9999);                 -- Отбрасываю начало
    sQ=Substr(sHTTPОтвет,1,Pos('>',sHTTPОтвет)-2);        -- Отбрасываю хвост

    sHTTPЗапрос=SourceWWW+sQ;        -- 2й запрос
    HTTPЗапрос_OnClick;

    sQ='Not Found (#404)';
    i=Pos(sQ,sHTTPОтвет);
    IF i>0 THEN
      result='Ошибка в 2м запросе^M'+sQ;
      Return;
    END; -- If

    sQ='"legalName"';
    i=Pos(sQ,sHTTPОтвет);
    IF i=0 THEN
      result='Ошибка в 2м запросе^MНет строки^M'+'legalName';
      Return;
    END; -- If


    sQ=Substr(sHTTPОтвет,i+Length(sQ)+1,9999);            -- Отбрасываю начало
    sИмя=Substr(sQ,1,Pos('<',sQ)-1);
    IF sИмя[1]=Chr(10) THEN sИмя=Substr(sИмя,2,999); END;  -- Отбрасываю Перевод строки
    sОГРН        = ВзятьПоID(sHTTPОтвет,'ogrn'   ,'id');

    КодПричины   = ВзятьПоID(sHTTPОтвет,'kpp'    ,'id');
    ОКПО         = ВзятьПоID(sHTTPОтвет,'okpo'   ,'id');
    ОКТМО        = ВзятьПоID(sHTTPОтвет,'oktmo'  ,'id');
    ОКОГУ        = ВзятьПоID(sHTTPОтвет,'okogu'  ,'id');
    ОКАТО        = ВзятьПоID(sHTTPОтвет,'okato'  ,'id');

    НомерПФР     = ВзятьПоID(Substr(sHTTPОтвет,Pos('Регистрация во внебюджетных фондах',sHTTPОтвет),99999),'pfr','id'); -- встречается несколько раз!
    РегНомерФСС  = ВзятьПоID(sHTTPОтвет,'fss'    ,'id');

    ФормаСобственности = FindRecord(Базовый.Классификаторы.ОКФС
                                 , 'Код='+ToStr(ВзятьПоID(sHTTPОтвет,'okfs','id'))
                                 ) AS Базовый.Классификаторы.ОКФС;
    ПравоваяФорма      = FindRecord(Базовый.Классификаторы.ОКОПФ
                                 , 'Код='+ToStr(ВзятьПоID(sHTTPОтвет,'okopf','id'))
                                 ) AS Базовый.Классификаторы.ОКОПФ;
  --Trace('Код='+ToStr(ВзятьПоID(sHTTPОтвет,'okfs' )));
  --Trace('Код='+ToStr(ВзятьПоID(sHTTPОтвет,'okopf')));

    s1=ВзятьПоID(sHTTPОтвет,'foundingDate','itemprop');
    ДатаРегистр   = StringToDate(s1);
    МРегистр      = ExtractWord(s1,2);
    ГРегистр      = ExtractWord(s1,3);

    IF ЮрАдрес>''                                 -- Только если пустой
    THEN
--    Trace('Адрес не обновлён. Для получения нового (урезанный для ИП) - сотрите старый и повторите запрос');
    ELSE
      sQ='itemprop="address">';
      i=Pos(sQ,sHTTPОтвет);
      IF i>0 THEN
        sQ=Substr(sHTTPОтвет,i+Length(sQ),9999);  -- Отбрасываю начало
        ЮрАдрес=Substr(sQ,1,Pos('<',sQ)-1);       -- В ответах для ИП адрес урезанный - без индекса и улицы и квартиры
      END; -- If
      IF АдресПочтовый   ='' THEN АдресПочтовый   = ЮрАдрес; END;
      IF АдресФактический='' THEN АдресФактический= ЮрАдрес; Адрес = ЮрАдрес; END;
    END;

    sQ='Основной вид деятельности:</b>&nbsp;<';
    i =Pos(sQ,sHTTPОтвет);
    sQ=Substr(sHTTPОтвет,i+Length(sQ),9999);      -- Отбрасываю начало
    i =Pos('>',sQ);
    sQ = Substr(sQ,i+1,9999);                     -- Отбрасываю начало
    sQ = Substr(sQ,Pos('<br />',sQ)+7,9999);      -- Отбрасываю начало

    IF iИНН=10
    THEN
      i =Pos('>',sQ);
      sQ = Substr(sQ,1,Pos(Chr(10),sQ)-1);        -- Вырезаю нужное
      ОКВЭД   = ExtractWord (sQ,1,' ');
      ВидДеят = ExtractWords(sQ,2,999,' ');
    ELSE
      i = Pos('>',sQ);
      sQ = Substr(sQ,i+1,9999);                   -- Отбрасываю начало
      i = Pos('<',sQ);
      ОКВЭД = Substr(sQ,1,i-1);
      i = Pos('>',sQ);
      sQ = Substr(sQ,i+1,9999);                   -- Отбрасываю начало
      ВидДеят = ExtractWord(sQ,1,Chr(10));

    END; -- If

    IF iИНН=10
    THEN sQ='<b>Описание деятельности компании:</b></p>';
    ELSE sQ='<b>Описание деятельности:</b>';
    END; -- If
    i=Pos(sQ,sHTTPОтвет);
    sQ=Substr(sHTTPОтвет,i+Length(sQ),9999);              -- Отбрасываю начало
    i=Pos('>',sQ);
    sQ=Substr(sQ,i+2,9999);              -- Отбрасываю начало
    i=Pos('<',sQ);
    ТекстКомментария=Substr(sQ,1,i-1);

    Контрагент    = True;
    ИмяДляПФР     = '';
    IF False THEN
    ELSIF iИНН=10 THEN -- Юрлицо
      ТипКонтрагента=0;

--          Имя     = sИмя;
      ПолнИмя     = sИмя;
--      КраткоеИмя  = sИмя;
--      АльтИмя     = sИмя;

      ОГРН        =sОГРН;
      ОГРНИП      ='';

      s1=Substr(КодПричины,1,4);                                -- Новый код ГНИ
      IF s1<>КодГНИ THEN                                        -- Если не совпадает с текущим
        КодГНИ=s1;                                              -- Присваиваю новый
        НаименованиеГНИ='';                                     -- Очищаю старое название
      END;

      sQ='itemprop="roleName">';
      i=Pos(sQ,sHTTPОтвет);
      IF i>0 THEN
        sQ=Substr(sHTTPОтвет,i+Length(sQ),9999);  -- Отбрасываю начало
        sQ=Substr(sQ,Pos('<small>',sQ)+7,9999);   -- Отбрасываю начало
        Рук_Должн=Substr(sQ,1,Pos('<',sQ)-1);     -- Отбрасываю хвост
      END; -- If

      i=Pos(sРук_Должн+'</small><br />',sQ);
      IF i>0 THEN
        sQ=Substr(sQ,i+Length(sРук_Должн+'</small><br />'),9999);            -- Отбрасываю начало с должностью
        i=Pos('query=',sQ);
        sQ=Substr(sQ,i,9999);                     -- Отбрасываю начало
        sQ=Substr(sQ,Pos('>',sQ)+1,9999);         -- Отбрасываю начало
        Рук_ФИО=Substr(sQ,1,Pos('<',sQ)-1);       -- Отбрасываю начало
      END; -- If

      ФизическоеЛицо=False;       ФизЛицо=Nil;
      ФамилияФизлица = nil;
      ИмяФизлица     = nil;
      ОтчествоФизлица= nil;
      ДатаРождения   = nil;
      Фамилия    .Clear;
      ИмяСубъекта.Clear;
      Отчество   .Clear;
      Инициалы   ='';

      ЗаменитьОПФ('ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ','ООО');
      ЗаменитьОПФ('ЗАКРЫТОЕ АКЦИОНЕРНОЕ ОБЩЕСТВО','ЗАО');
      ЗаменитьОПФ('ПУБЛИЧНОЕ АКЦИОНЕРНОЕ ОБЩЕСТВО','ПАО');
      ЗаменитьОПФ('НЕПУБЛИЧНОЕ АКЦИОНЕРНОЕ ОБЩЕСТВО','НАО');
      ЗаменитьОПФ('АКЦИОНЕРНОЕ ОБЩЕСТВО','АО');

      ЗаменитьОПФ('АКЦИОНЕРНЫЙ КОММЕРЧЕСКИЙ БАНК','АКБ');
      ЗаменитьОПФ('ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ УЧРЕЖДЕНИЕ ГОРОДА МОСКВЫ','ГБУ г.Москвы');
      ЗаменитьОПФ('ГОСУДАРСТВЕННОЕ УНИТАРНОЕ ПРЕДПРИЯТИЕ ГОРОДА МОСКВЫ','ГУП г.Москвы');
      ЗаменитьОПФ('МУНИЦИПАЛЬНОЕ УНИТАРНОЕ ПРЕДПРИЯТИЕ','МУП');

      ЗаменитьОПФ('ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ПРОФЕССИОНАЛЬНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ','ГБПОУ');
      ЗаменитьОПФ('ГОСУДАРСТВЕННОЕ АВТОНОМНОЕ УЧРЕЖДЕНИЕ ДОПОЛНИТЕЛЬНОГО ОБРАЗОВАНИЯ','ГАУ ДО');
      ЗаменитьОПФ('ГОСУДАРСТВЕННОЕ МАЛОЕ ПРЕДПРИЯТИЕ','ГМП');
      ЗаменитьОПФ('ОБЛАСТНОЕ ГОСУДАРСТВЕННОЕ УНИТАРНОЕ ПРЕДПРИЯТИЕ','ОГУП');
      ЗаменитьОПФ('ГОСУДАРСТВЕННОЕ УНИТАРНОЕ ПРЕДПРИЯТИЕ','ГУП');

      ЗаменитьОПФ('ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ УНИТАРНОЕ ПРЕДПРИЯТИЕ','ФГУП');
      ЗаменитьОПФ('УПРАВЛЕНИЕ ФЕДЕРАЛЬНОЙ СЛУЖБЫ СУДЕБНЫХ ПРИСТАВОВ','УФССП');
      ЗаменитьОПФ('ИНСПЕКЦИЯ ФЕДЕРАЛЬНОЙ НАЛОГОВОЙ СЛУЖБЫ','ИФНС');
      ЗаменитьОПФ('ГЛАВНОЕ УПРАВЛЕНИЕ МИНИСТЕРСТВА ВНУТРЕННИХ ДЕЛ РОССИЙСКОЙ ФЕДЕРАЦИИ','ГУ МВД РФ');

      ЗаменитьОПФ('НЕГОСУДАРСТВЕННЫЙ ПЕНСИОННЫЙ ФОНД','НПФ');
      ЗаменитьОПФ('МЕДИЦИНСКАЯ АВТОНОМНАЯ НЕКОММЕРЧЕСКАЯ ОРГАНИЗАЦИЯ','МАНО');

    ELSIF iИНН=12 THEN -- Физлицо
      ТипКонтрагента=1;
      ОГРН        = '';
      ОГРНИП      = sОГРН;
      КодПричины  = '0';

      ФизическоеЛицо=True;       ФизЛицо=rDoc;
      ФамилияФизлица = ExtractWord(sИмя,3);
      ИмяФизлица     = ExtractWord(sИмя,4);
      ОтчествоФизлица= ExtractWord(sИмя,5);
      Инициалы       =Substr(ИмяФизлица,1,1)+'.'+Substr(ОтчествоФизлица,1,1)+'.';
      Фамилия    [01.01.1900] = ФамилияФизлица ;
      ИмяСубъекта[01.01.1900] = ИмяФизлица     ;
      Отчество   [01.01.1900] = ОтчествоФизлица;

      Рук_Должн   = 'Индивидуальный предприниматель';
      Рук_ФИО     = Trim(''
                  +' '+ФамилияФизлица
                  +' '+ИмяФизлица
                  +' '+ОтчествоФизлица
                  );

      ПолнИмя    = sИмя;
      IF not 'ФЛ'=Код[1]+Код[2]                   -- НЕ порчу ИМЯ тем, кто был создан как сотрудник
       AND  Match(Up(sИмя),'ИНДИВИДУАЛЬНЫЙ ПРЕДПРИНИМАТЕЛЬ*')
      THEN
        Имя        = 'ИП '+Рук_ФИО;
        КраткоеИмя = ФамилияФизлица+' '+Инициалы+' (ИП)';
        АльтИмя    = КраткоеИмя;
      END;   -- Если поменялся тип

      IF ДатаРождения<01.01.1900 THEN ДатаРождения=01.01.1900; END;       -- Обхожу стандартную проверку
      IF Пол=0 THEN Пол=1; END;                                           -- Обхожу стандартную проверку
    END; -- If

    IF 0<Pos('Деятельность прекращена',sHTTPОтвет) THEN
      result='ВНИМАНИЕ!^MДеятельность организации прекращена!';
    END; -- If
    IF 0<Pos('Ликвидировано',sHTTPОтвет) THEN
      result='ВНИМАНИЕ!^MОрганизация ликвидирована!';
    END; -- If
  END; -- With rDoc
END; -- Proc

_________________
www.TurboFlyERP.ru


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Ср апр 25, 2018 11:44 am 
Не в сети

Зарегистрирован: Вт мар 30, 2004 12:30 pm
Сообщения: 4935
Откуда: Москва, Кустарь-одиночка с мотором
storm писал(а):
Нашел косяк. Не считывает краткое имя. Проверять на мне ИНН 7725694581. У меня краткое имя О.Ф.С.Т., а не Опенфлай Софт Технолоджи.

Спасибо за информацию
На самом деле сейчас для краткого имени просто подменяю название формы ОПФ, так как с ходу не нашёл именно короткое наименование в той части страницы, где идёт основная информация
Сейчас присмотрелся - есть краткое имя в заголовке
Доделаю
Ну и переделаю метод так, чтобы его можно было вызывать для групповой обработки - то есть без интерактивного взаимодействия с пользователем, ошибки буду возвращать как текст

storm писал(а):
Я сделал функцию серверной и у себя Краткое Имя подправил. Особо разбираться не стал.

В приведённом коде увидел только закомментированные строки в PROC ЗаменитьОПФ
Не увидел получения правильного короткого имени ;)

_________________
Андрей Булетов, Москва
PS Не стесняйтесь, поправьте меня, если я не прав!


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Ср апр 25, 2018 11:55 am 
Не в сети

Зарегистрирован: Пт апр 16, 2004 5:11 pm
Сообщения: 6555
Откуда: OpenFly Soft Technology, Москва
Код:
   sQ1='"legalName"';
    i1=Pos(sQ1,sHTTPОтвет);
    IF i1=0 THEN
      result='Ошибка в 2м запросе^MНет строки^M'+'legalName';
      Return;
    END; -- If


    sQ1=Substr(sHTTPОтвет,i1+Length(sQ1)+1,9999);            -- Отбрасываю начало
    sИмя=Substr(sQ1,Pos('>',sQ1)+1,Pos('br',Substr(sQ1,Pos('>',sQ1)+1,999))-2);
    IF sИмя[1]=Chr(10) THEN sИмя=Substr(sИмя,2,999); END;  -- Отбрасываю Перевод строки
          Имя     = sИмя;
      КраткоеИмя  = sИмя;
      АльтИмя     = sИмя;


А в вашем коде закомментировал.
Проблема хитрее, чем выглядит на самом деле. Вы делаете 2 запроса. Второй запрос предоставляет неверные (неполные) данные.

_________________
www.TurboFlyERP.ru


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Ср апр 25, 2018 11:58 pm 
Не в сети

Зарегистрирован: Вт мар 30, 2004 12:30 pm
Сообщения: 4935
Откуда: Москва, Кустарь-одиночка с мотором
storm писал(а):
Проблема хитрее, чем выглядит на самом деле. Вы делаете 2 запроса. Второй запрос предоставляет неверные (неполные) данные.

А что там нет так?
Посмотрел на нескольких ИНН - вроде нормально всё

_________________
Андрей Булетов, Москва
PS Не стесняйтесь, поправьте меня, если я не прав!


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Ср апр 25, 2018 11:58 pm 
Не в сети

Зарегистрирован: Вт мар 30, 2004 12:30 pm
Сообщения: 4935
Откуда: Москва, Кустарь-одиночка с мотором
Выложил версию 2.01

Изменения для пользователя:
1. Для ЮЛ получаю и короткое имя (а не конвертирую сам полное)
Использую его для полей Имя, КраткоеИмя, АльтИмя
2. В описание деятельности добавляю информацию о приостановке или ликвидации (было - только выдача сообщения)

Изменения для разработчиков:
1. Метод ЗаполнитьКонтрПоИНН - теперь ФУНКЦИЯ (для групповой обработки), возвращает пусто или текст ошибки.
Соответственно там НЕТ выдачи Message - это надо делать в оболочке.
2. Исправлена ошибка определения состояния записи

_________________
Андрей Булетов, Москва
PS Не стесняйтесь, поправьте меня, если я не прав!


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Чт апр 26, 2018 8:29 am 
Не в сети

Зарегистрирован: Пт апр 16, 2004 5:11 pm
Сообщения: 6555
Откуда: OpenFly Soft Technology, Москва
Buletov писал(а):
storm писал(а):
Проблема хитрее, чем выглядит на самом деле. Вы делаете 2 запроса. Второй запрос предоставляет неверные (неполные) данные.

А что там нет так?
Посмотрел на нескольких ИНН - вроде нормально всё

Во втором запросе нет Краткого Имени.
Ну в любом случае исправили ))).

_________________
www.TurboFlyERP.ru


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Чт апр 26, 2018 8:48 am 
Не в сети

Зарегистрирован: Вт мар 30, 2004 12:30 pm
Сообщения: 4935
Откуда: Москва, Кустарь-одиночка с мотором
storm писал(а):
Во втором запросе нет Краткого Имени

Как видим - есть ;)

_________________
Андрей Булетов, Москва
PS Не стесняйтесь, поправьте меня, если я не прав!


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Чт апр 26, 2018 9:09 am 
Не в сети

Зарегистрирован: Пт апр 16, 2004 5:11 pm
Сообщения: 6555
Откуда: OpenFly Soft Technology, Москва
И О.Ф.С.Т. нашлось?

_________________
www.TurboFlyERP.ru


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Чт апр 26, 2018 11:01 am 
Не в сети

Зарегистрирован: Вт мар 30, 2004 12:30 pm
Сообщения: 4935
Откуда: Москва, Кустарь-одиночка с мотором
storm писал(а):
И О.Ф.С.Т. нашлось?

Проверяйте :)

Напоминаю - очень нужен ИНН многофилиальной организации, случай, когда ИНН - один, а КПП - много

_________________
Андрей Булетов, Москва
PS Не стесняйтесь, поправьте меня, если я не прав!


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Чт апр 26, 2018 12:39 pm 
Не в сети

Зарегистрирован: Ср мар 31, 2004 2:39 pm
Сообщения: 2029
Откуда: г. Таганрог, ОАО "Термопласт"
Buletov писал(а):
очень нужен ИНН многофилиальной организации, случай, когда ИНН - один, а КПП - много
Сбербанк (7707083893) подойдет?

_________________
Сергей Давыдов, Таганрог, АО Термопласт


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Чт апр 26, 2018 4:17 pm 
Не в сети

Зарегистрирован: Вт мар 30, 2004 12:30 pm
Сообщения: 4935
Откуда: Москва, Кустарь-одиночка с мотором
Davydov писал(а):
Сбербанк (7707083893) подойдет?

Этот злостный нарушитель законов (и государственных, и моральных)?
Цитата:
ПУБЛИЧНОЕ АКЦИОНЕРНОЕ ОБЩЕСТВО "СБЕРБАНК РОССИИ"
Внимание: Компания находится в реестре «Юридические лица, имеющие взыскиваемую судебными приставами задолженность по уплате налогов, превышающую 1000 рублей» (по данным ФНС)

К сожалению, ни один из присланных примеров НЕ ДАЛ возможности увидеть информацию о филиалах или обособленных подразделениях с собственным КПП.
Я ожидал что-то вроде таблицы с перечнем организаций, имеющих одинаковый ИНН. Увы :(

Возможно, это особенность сайта-источника или причина лежит глубже. Контур.Фокус тоже даёт ссылку только на СБ-головной

_________________
Андрей Булетов, Москва
PS Не стесняйтесь, поправьте меня, если я не прав!


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
 Заголовок сообщения: Re: Заполнение Контрагента по ИНН
СообщениеДобавлено: Чт апр 26, 2018 4:19 pm 
Не в сети

Зарегистрирован: Пн мар 29, 2004 11:50 pm
Сообщения: 6369
Откуда: Новороссийск
Buletov писал(а):
Davydov писал(а):
Сбербанк (7707083893) подойдет?

Этот злостный нарушитель законов (и государственных, и моральных)?
Цитата:
ПУБЛИЧНОЕ АКЦИОНЕРНОЕ ОБЩЕСТВО "СБЕРБАНК РОССИИ"
Внимание: Компания находится в реестре «Юридические лица, имеющие взыскиваемую судебными приставами задолженность по уплате налогов, превышающую 1000 рублей» (по данным ФНС)

К сожалению, ни один из присланных примеров НЕ ДАЛ возможности увидеть информацию о филиалах или обособленных подразделениях с собственным КПП.
Я ожидал что-то вроде таблицы с перечнем организаций, имеющих одинаковый ИНН. Увы :(

Возможно, это особенность сайта-источника или причина лежит глубже. Контур.Фокус тоже даёт ссылку только на СБ-головной

Я думаю, информации о филиалах нет на таких сайтах - они дают только инфу про "головную" организацию...

_________________
Ян Терновский, Новороссийск


Вернуться к началу
 Профиль Отправить личное сообщение  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 34 ]  На страницу Пред.  1, 2, 3  След.

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB