Имя: Пароль:
1C
1C 7.7
v7: Http-запрос для получения информации по УНН (ИНН) юридического лица
0 Sir_Joe77
 
29.12.22
17:13
На КД Win'2016 код работает без проблем, а на КД Win'2008r2 ошибка:
HTTP.Send();  
{D:\XML REQUEST.ERT(20)}: msxml6.dll: Ресурсы, необходимые для этого устройства, конфликтуют с таблицей MCFG.
Как решить проблему?

    MSXMLver = "6";
    Попытка
        Http = CreateObject("MSXML2.ServerXMLHTTP."+MSXMLver+".0");
    Исключение  
        Попытка
            MSXMLver = "4";
            Http = CreateObject("MSXML2.ServerXMLHTTP."+MSXMLver+".0");    
        Исключение  
            Сообщить(ОписаниеОшибки(),"!");
            Сообщить("Для работы модуля обмена необходима библиотека MSXML не ниже 4.0","!");
            Возврат;
        КонецПопытки;
    КонецПопытки;

       Service = Строка("https://www.portal.nalog.gov.by/grp/getData?unp="+СокрЛП(УНП)+"&charset=UTF-8");
  
    HTTP.Open("POST", Service + "init", 0);
        HTTP.Send();  
    
    ТекстОтвета = СокрЛП(HTTP.responseText);
    
    НачАтр = Найти(ТекстОтвета,"<VKODS>")+СтрДлина("<VKODS>");
    КонАтр = Найти(ТекстОтвета,"</VKODS>");
    
    СтрСтатус = Сред(ТекстОтвета,НачАтр,КонАтр-НачАтр);
    
    Сообщить(СтрСтатус);
Основная теорема систематики: Новые системы плодят новые проблемы.