На КД 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>");
СтрСтатус = Сред(ТекстОтвета,НачАтр,КонАтр-НачАтр);
Сообщить(СтрСтатус);