1c v7 krediidiinfo

//____________________________________________________________________________________________
Функция ПолучитьДанныеКредитИнфо(РегНомер)

    objHTTP = CreateObject("Microsoft.XMLHTTP");
    objHTTP.open("POST", "https://www.e-krediidiinfo.ee", 0);
    objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
    objHTTP.send(Шаблон("action=view&name=product&generate=buy&product_code=RAXTME&subject_code=[РегНомер]&format=html"));
    Возврат objHTTP.responseText;

КонецФункции
//____________________________________________________________________________________________
Процедура глПоказатьКредитИнфо(Клиент) Экспорт

    Если Клиент.Выбран() = 0 Тогда
        Предупреждение("Не указан клиент!");
        Возврат;
    КонецЕсли;

    Если ПустаяСтрока(Клиент.РегНомер) = 1 Тогда

        Предупреждение("Не указан регистрационный номер клиента!");
        Возврат;

    Иначе

        файл = КаталогВременныхФайлов() + "Report.html";
        Т = СоздатьОбъект("Текст");
        Т.ДобавитьСтроку(ПолучитьДанныеКредитИнфо(Клиент.РегНомер));
        Т.Записать(файл);
        ЗапуститьПриложение(файл);

    КонецЕсли;

КонецПроцедуры