Свой кусочек информационного пирога по 54-ФЗ – обработка для получения данных о своих покупках по чекам ОФД (на примере сети магазинов «Лента»)

&НаСервере
Процедура ЗагрузитьЧекНаСервере()

ТекОбъект = РеквизитФормыВЗначение("Объект");

URL = СокрЛП(Объект.URLЧека);
ОтправляемаяКомандаНаФокус = URL;

URLРазделенный = ТекОбъект.РазделитьURL(URL);
Таймаут = 5;

ИмяСервера           = URLРазделенный.ИмяСервера;
ПутьКФайлуНаСервере  = URLРазделенный.ПутьКФайлуНаСервере;
Протокол             = URLРазделенный.Протокол;
Порт = Неопределено;
ЗащищенноеСоединение = Неопределено;
Если Протокол = "https" Тогда
ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL;
КонецЕсли;
ПолнаяСтруктураURL = ТекОбъект.СтруктураURI(URL);
Если Не ПустаяСтрока(ПолнаяСтруктураURL.Порт) Тогда
ИмяСервера = ПолнаяСтруктураURL.Хост;
Порт = ПолнаяСтруктураURL.Порт;
КонецЕсли;

Прокси = ТекОбъект.ПолучитьПрокси(Протокол);

Попытка
Соединение = Новый HTTPСоединение(ИмяСервера, Порт, , , Прокси, Таймаут, ЗащищенноеСоединение);
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
СообщениеОбОшибке = НСтр("ru = 'Ошибка при создании HTTP-соединения с сервером %1:'") + Символы.ПС + "%2";
ВызватьИсключение СообщениеОбОшибке;
КонецПопытки;

Заголовки = Новый Соответствие;
HTTPЗапрос = Новый HTTPЗапрос(ПутьКФайлуНаСервере, Заголовки);

HTTPОтвет = Соединение.Получить(HTTPЗапрос);
ФайлОтвета = HTTPОтвет.ПолучитьТелоКакСтроку();
HTTPОтвет = ТекОбъект.СтроковыеФункцииКлиентСерверИзвлечьТекстИзHTML(ФайлОтвета);
КоличествоТоваровВЧеке = СтрЧислоВхождений(HTTPОтвет,"vmb_i67bc30956372029315_vblock")/13 - 1;

Для НомерТовара = 0 По КоличествоТоваровВЧеке Цикл

ПоправкаНаДлинуНомераСтроки = 0;
Если НомерТовара >= 10 Тогда
ПоправкаНаДлинуНомераСтроки = 1;
КонецЕсли;

ТекНачалоСтрокиТовара = СтрНайти(HTTPОтвет,"vmb_i67bc30956372029315_vblock"+СокрЛП(НомерТовара),,,2);
Если ТекНачалоСтрокиТовара = 0 Тогда
Продолжить;
КонецЕсли;

НачалоСтрокиТовара = ТекНачалоСтрокиТовара + 54 + ПоправкаНаДлинуНомераСтроки;
ОкончаниеСтрокиТовара = СтрНайти(HTTPОтвет,"</span>",,НачалоСтрокиТовара);
ДлинаНазванияТовара = ОкончаниеСтрокиТовара - НачалоСтрокиТовара;
НазваниеТовара = Сред(HTTPОтвет,НачалоСтрокиТовара,ДлинаНазванияТовара);

//количество
НачалоСтрокиКоличества = СтрНайти(HTTPОтвет,"vmb_i67bc30956372029315_vblock"+СокрЛП(НомерТовара),,,3) + 54 + ПоправкаНаДлинуНомераСтроки;
ОкончаниеСтрокиКоличества = СтрНайти(HTTPОтвет,"</span>",,НачалоСтрокиКоличества);
ДлинаКоличества = ОкончаниеСтрокиКоличества - НачалоСтрокиКоличества;
Количество = Сред(HTTPОтвет,НачалоСтрокиКоличества,ДлинаКоличества);

//цена
НачалоСтрокиЦены = СтрНайти(HTTPОтвет,"vmb_i67bc30956372029315_vblock"+СокрЛП(НомерТовара),,,4) + 54 + ПоправкаНаДлинуНомераСтроки;
ОкончаниеСтрокиЦены = СтрНайти(HTTPОтвет,"</span>",,НачалоСтрокиЦены);
ДлинаЦены = ОкончаниеСтрокиЦены - НачалоСтрокиЦены;
Цена = Сред(HTTPОтвет,НачалоСтрокиЦены,ДлинаЦены);

//сумма
НачалоСтрокиСуммы = СтрНайти(HTTPОтвет,"vmb_i67bc30956372029315_vblock"+СокрЛП(НомерТовара),,,9) + 55 + ПоправкаНаДлинуНомераСтроки;
ОкончаниеСтрокиСуммы = СтрНайти(HTTPОтвет,"</span>",,НачалоСтрокиСуммы);
ДлинаСуммы = ОкончаниеСтрокиСуммы - НачалоСтрокиСуммы;
Сумма = Сред(HTTPОтвет,НачалоСтрокиСуммы,ДлинаСуммы);

НоваяСтрока = Объект.Покупки.Добавить();
НоваяСтрока.НазваниеТовара = НазваниеТовара;
НоваяСтрока.Количество = Количество;
НоваяСтрока.Цена = Цена;
НоваяСтрока.Сумма = Сумма;

КонецЦикла;

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

&НаКлиенте
Процедура ЗагрузитьЧек(Команда)

Объект.Покупки.Очистить();
СразуСсылкаНаЧек = "http://receipt.taxcom.ru/v01/show?fp=" + СокрЛП(Объект.ФПД) + "&s=" + СокрЛП(Формат(Объект.СуммаПокупки,"ЧГ=0")) + "&sf=False&sfn=False";
Объект.URLЧека = СразуСсылкаНаЧек;
ЗагрузитьЧекНаСервере();

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

&НаКлиенте
Процедура ПерейтиПоСсылке(Команда)
ЗапуститьПриложение(Объект.URLЧека);
КонецПроцедуры

Модули объекта внешней обработки:

Функция РазделитьURL(URL) Экспорт

Результат = ПолучениеФайловИзИнтернетаКлиентСервер.РазделитьURL(URL);

Если Результат.Свойство("ПустьКФайлуНаСервере") Тогда
Результат.Вставить("ПутьКФайлуНаСервере", Результат.ПустьКФайлуНаСервере);
КонецЕсли;
Возврат Результат;

КонецФункции

Функция СтруктураURI(СтрокаURI) Экспорт

Возврат ОбщегоНазначенияКлиентСервер.СтруктураURI(СтрокаURI);

КонецФункции

Функция ПолучитьПрокси(Протокол) Экспорт

Попытка
Возврат ПолучениеФайловИзИнтернетаКлиентСервер.ПолучитьПрокси(Протокол);
Исключение
Возврат Неопределено;
КонецПопытки;

КонецФункции

Процедура УстановитьHTTPЗаголовки(Заголовки) Экспорт

Куки = Новый Соответствие;
Куки.Вставить("new-int-rel", "1");
Куки.Вставить("expires", Формат(ДобавитьМесяц(ТекущаяДата(), 1), "Л=en_US; ДФ='ddd, dd-MMM-yyyy H:mm:ss G""MT'"));
Куки.Вставить("path", "/");
СтрКуки = "";
Для Каждого Кука Из Куки Цикл
СтрКуки = СтрКуки + "; " + Кука.Ключ + "=" + КодироватьСтроку(Кука.Значение, СпособКодированияСтроки.КодировкаURL);
КонецЦикла;

СтрКуки = Сред(СтрКуки, 3);

Заголовки.Вставить("Cookie", СтрКуки);

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

Функция СтроковыеФункцииКлиентСерверИзвлечьТекстИзHTML(Знач ИсходныйТекст) Экспорт
Результат = "";

Текст = НРег(ИсходныйТекст);

Позиция = Найти(Текст, "<body");
Если Позиция > 0 Тогда
Текст = Сред(Текст, Позиция + 5);
ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 5);
Позиция = Найти(Текст, ">");
Если Позиция > 0 Тогда
Текст = Сред(Текст, Позиция + 1);
ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 1);
КонецЕсли;
КонецЕсли;

Позиция = Найти(Текст, "</body>");
Если Позиция > 0 Тогда
Текст = Лев(Текст, Позиция - 1);
ИсходныйТекст = Лев(ИсходныйТекст, Позиция - 1);
КонецЕсли;

ПозицияНачалаУдаления = стрНайти(Текст, "ttc_multiple_block_panel",,1);
ДлинаТекста = СтрДлина(Текст);

ВтораяЧастьТекста = Прав(Текст,ДлинаТекста - ПозицияНачалаУдаления - 29);
ИсходныйТекст = ВтораяЧастьТекста;

Результат = Результат + ИсходныйТекст;

Возврат СокрЛП(Результат);

КонецФункции

Данная статья не претендует на универсальность в загрузке данных чеков с ОФД. Автор хотел лишь поделиться своим мнением и некоторыми наработками в вопросе работы с доступными данными с сайтов ОФД.