Печать QR кодов для 1С:Бухгалтерия 2.0 для платежек Сбербанка




Принцип обмена данными из 1С с сайтом (на MySQL) и выдачи (публикации) этих данных по запросу.
PHP-Скрипт автоматической загрузки данных из файла данных в формате CSV в базу данных сайта работающего на WordPress.

В продолжение моей темы: 1С:Альфа-Авто Автосалон Автосервис: обмен с сайтом.
С помощью данного скрипта можно загружать в автоматическом режиме, по расписанию, данные сервисных книжек (ремонтов авто) из 1С:Альфа-Авто Автосалон Автосервис.
Также можно загружать данные в ручном режиме: для этого делается скрытая страница, где размещается специальная кнопка.
Комментарии размещенные внутри скрипта разъяснят логику и порядок действия.
Комментарии с "/////    echo" использовались для отладки.
Дополнительно создана таблица для журналирования результатов загрузки данных.
Скрипт включает в себя защиту от SQL инъекций (думаю безопасность соблюдена в полной мере).
В кратце:
1. Пишется скрипт, который запускает этот.
2. Создается регламентное задание в WordPress, по которому запускается скрипт из п.1. 
3. Этот скрипт осуществляет проверку на существование файла обмена в папке.
4. Если данные не новые, загрузка не производится.
5. Если данные новые, очищается таблица сервисных книжек.
6. Загружаются новые данные.

Собственно сам скрипт:

<?php // Полная загрузка сервисных книжек, создан 2024-01-05 12:44:55

global $wpdb2;
global $failure;
global $file_hist;

/////  echo '<H2><b>Старт загрузки</b></H2><br>';

$failure=FALSE;
//подключаемся к базе
$wpdb2 = include_once 'connection.php'; ; // подключаемся к MySQL
// если не удалось подключиться, и нужно оборвать PHP с сообщением об этой ошибке
if (!empty($wpdb2->error))
{
/////   echo '<H2><b>Ошибка подключения к БД, завершение.</b></H2><br>';
$failure=TRUE;
wp_die( $wpdb2->error );
}

$m_size_file=0;
$m_mtime_file=0;
$m_comment='';
/////проверка существования файлов выгрузки из 1С
////файл выгрузки сервисных книжек
$file_hist = ABSPATH.'/_1c_alfa_exchange/AA_hist.csv';
if (!file_exists($file_hist))
{
/////   echo '<H2><b>Файл обмена с сервисными книжками не существует.</b></H2><br>';
$m_comment='Файл обмена с сервисными книжками не существует';
$failure=TRUE;
}

/////инициируем таблицу лога
/////если не существует файла то возврат и ничего не делаем
if ($failure){
///включает защиту от SQL инъекций и данные можно передавать как есть, например: $_GET['foo']
/////   echo '<H2><b>Попытка вставить запись в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>$m_comment));
wp_die();
/////    echo '<H2><b>Возврат в начало.</b></H2><br>';
return $failure;
}
/////проверка лога загрузки, что бы не загружать тоже самое
$masiv_data_file=stat($file_hist);   ////передаем в массив свойство файла
$m_size_file=$masiv_data_file[7];    ////получаем размер файла
$m_mtime_file=$masiv_data_file[9];   ////получаем дату модификации файла
////создаем запрос на получение последней удачной загрузки
////выбираем по штампу времени создания (редактирования) файла загрузки AA_hist.csv, $m_mtime_file

/////   echo '<H2><b>Размер файла: '.$m_size_file.'</b></H2><br>';
/////   echo '<H2><b>Штамп времени файла: '.$m_mtime_file.'</b></H2><br>';
/////   echo '<H2><b>Формирование запроса на выборку из лога</b></H2><br>';
////препарируем запрос
$text_zaprosa=$wpdb2->prepare("SELECT * FROM `vin_logs` WHERE `last_mtime_upload` = %s", $m_mtime_file);
$results=$wpdb2->get_results($text_zaprosa);

if ($results)
{   foreach ( $results as $r)
{
////если штамп времени и размер файла совпадают, возврат
if (($r->last_mtime_upload==$m_mtime_file) && ($r->last_size_upload==$m_size_file))
{////echo '<H2><b>Возврат в начало, т.к. найдена запись в логе.</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>'Загрузка отменена, новых данных нет, т.к. найдена запись в логе.'));
wp_die();
return $failure;
}
}
}
////если данные новые, пишем в лог запись о начале загрузки
/////echo '<H2><b>Попытка вставить запись о начале загрузки в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>0, 'last_size_upload'=>$m_size_file, 'comment'=>'Начало загрузки'));

////очищаем таблицу
$clear_tbl_zap=$wpdb2->prepare("TRUNCATE TABLE %s", 'vin_history');
$clear_tbl_zap_repl=str_replace("'","`",$clear_tbl_zap);
$results=$wpdb2->query($clear_tbl_zap_repl);
/////   echo '<H2><b>Очистка таблицы сервисных книжек</b></H2><br>';
if (empty($results))
{
/////   echo '<H2><b>Ошибка очистки таблицы книжек, завершение.</b></H2><br>';
//// если очистка не удалась, возврат
$failure=TRUE;
wp_die();
return $failure;
}

////загружаем данные
$table='vin_history';         // Имя таблицы для импорта
//$file_hist Имя CSV файла, откуда берется информация     // (путь от корня web-сервера)
$delim=';';          // Разделитель полей в CSV файле
$enclosed='"';      // Кавычки для содержимого полей
$escaped='\

34 Comments

  1. cdb

    Пытаюсь использовать Ocvita Barcode ActiveX на платформе 8.3.8.2054 на управляемых формах.

    Вставляю элемент управления ActiveX в Макет, он корректно отображается, выставляю Вид кода 58 (QR Code).

    При попытке Задать текст

    ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет(«Макет»);
    Макет.Рисунки.Штрихкод.Объект.barcode = «Тест передачи информации через 2D штрих код»;
    ТабДок.Вывести(Макет);

    система выводит сообщение «Значение не является значением объектного типа».

    При отладке обнаружил что значение Макет.Рисунки.Штрихкод.Объект — Неопределено.

    При этом в 8.2 всё корректно работает.

    Подскажите, пожалуйста, в чём шибка?

    Reply
  2. Chaotic

    С управляемыми формами по-другому… К сожалению. Какая у Вас конфигурация?

    Reply
  3. cdb

    Посмотрев тестовые обработки от Ocvita Barcode ActiveX для 8.2 ставил опыты на самонаписанной конфигурации под 8.3.

    Обработки под 8.2 написаны без привязки к какой либо конфигурации.

    Reply
  4. Chaotic

    Если не ошибаюсь, в новых версиях на УФ многие ВК перестали работать, я с этим столкнулся, когда писать вывод ШК для Розницы 2

    Reply
  5. morohon

    Столкнулся с тем, что техподдержка сбербанка говорит что штрихкод валидный, а терминалы видят кракозябру.

    Также проблема была в том, что сбербанк требовал служебные символы в виде ST00011, а 1С (бухгалтерия 2.0) выдавала только ST00012. Пришлось перебирать строку.

    Даже на партнерке писал про эту проблему.

    Почему-то банкоматы все равно как-то косячно воспринимают qr, хотя обычным сканером штрихкодов (приложение на планшете) все прекрасно считывается.

    Reply
  6. morohon

    И да, для получения строки можно использовать метод: УправлениеПечатью.ФорматнаяСтрокаУФЭБС

    И потом просто перебрать начальные 7 символов с указанием кодировки и перевести в utf

    Reply
  7. _Z1

    (5) Скажите у Вас получилось победить сберовские терминалы чтобы они воспринимали qr код ?

    Reply
  8. _Z1

    Написал на v8 — работает.

    И еще вопрос как все то же самое сделать на v77.

    Английский текст все ок.

    Вместо русского текста появляются

    крыкообразки.

    Reply
  9. morohon

    (7) К сожалению пока нет. Общаюсь с техподдержкой сбербанка.

    Reply
  10. morohon

    (7) Отправил им в utf кодировке. Стандартный вывод того, что дает метод УправлениеПечатью.ФорматнаяСтрокаУФЭБС . Сбербанк долго упирался, что они принимают только в win1251. Но когда я таки отправил клиента к терминалу с qr-кодом — все прочиталось прекрасно

    Reply
  11. _Z1

    (10) Скажите а Вы не пробовали такой вариант

    если qr для оплаты передать в виде файла на смарфон

    открыть на смартфоне этот фай

    Будет ли сканер терминалаСбербанка распознавать

    qr код с экрана смартфона ?

    Reply
  12. _Z1

    (11) Сам себе отвечаю да работает

    Вариант 1

    т.е. можно или файл со штрихкодом отправить по e-mail

    на смартфон. Далее открыть в смартфоне картинку со штрихкодом и терминал успешно распознает qr код

    Вариант 2

    т.е. можно с экрана компьютера сфотографировать qr код

    передать картинку на нужный смартфон

    Далее открыть в смартфоне картинку со штрихкодом и терминал успешно распознает qr код

    Вариант 1 более предпочтительный так как меньше искажений информации.

    Reply
  13. _Z1

    …..а может кто знает есть ли какая возможность по чеку

    сбербанк онлайн ( но до прихода денег на счет )

    определить что чек подлиный и что платеж от ЧЛ был произведен ?

    Reply
  14. Stim087

    Работает только с английским текстом, возможно сделать на кириллице?

    Reply
  15. Infector

    А чем, собственно, не устраивает эта штука:

    My Webpage

    Раньше клиентская часть выглядела как виртуальный принтер, накладывающий изображение кода поверх платежного поручения. У сбера часть своя — читающая.

    Или в сбере что-то сильно поменялось по части этих кодов?

    Прошу прощения, невнимательно прочитал пост. Ссылка касается платежных поручений, а не абонентских квитанций.

    Reply
  16. Гобсек

    (1)Столкнулся с аналогичной проблемой. Если запустить толстый клиент (управляемое приложение), то печатная форма формируется.

    При этом кодировка UTF-8 отображается корректно, а WIN1251 — нет. Та же проблема, что и у фирменной компоненты КомпонентаПечатиQRКода от 1С

    Но КомпонентаПечатиQRКода от 1С хотя бы не подвисает.

    Reply
  17. Xershi

    Из перечисленных методов только про гугл читал, как вы гуглили http://infostart.ru/public/510646/ загадка)

    Reply
  18. Гобсек

    (16) + Добавил строку

    ОбластьШапка1.Рисунки.КартинкаШК.Объект.code_page = 1251;

    И все заработало!

    Сайт http://sbqr.ru/validator/index.html признал QR код корректным.

    Если работа идет на управляемых формах, то в настройках запуска к конфигурации указываем — «Толстый клиент».

    Если найду способ запустить под тонким клиентом, то отпишусь.

    Reply
  19. madonov

    Как муторно всё =((.

    Выбрал UTF-8, официальный сервис сбербанка читает правильно, ошибок нет. Но банкомат не распознает.

    Попробовал 1251 (ST00011; Объект.code_page = 1251; ) — оф сервис сбера распознает только числовые параметры, строковые кракозябрами. Расшифровал кракозябры декодером от Лебедева, декодер опознал исходную кодировку как 1252.

    Пробовал принудительно конвертнуть в 1251:

    Текст = Новый ТекстовыйДокумент;
    Текст.УстановитьТипФайла(«windows-1251»);
    Текст.УстановитьТекст(Рез);
    Возврат Текст.ПолучитьТекст();

    Никакого результата.

    Что примечательно, приложение сбербанк-онлайн в обоих случаях распознает ШК неправильно — не заполняет ФИО, адрес и назначение платежа, хотя эти реквизиты ШК содержит.

    Reply
  20. madonov

    Терминал упорно пишет «по заданным реквизитам не найден поставщик услуг».

    Странно это. Получается, что сами реквизиты он из штрихкода считывает…

    А какого поставщика услуг он пытается найти? Это ведь оплата по произвольным реквизитам…

    При этом мобильное приложение Сбера считывает все кроме ФИО, адреса и назначения платежа.

    В любых сервисах проверки штрихкода все проходит успешно.

    Reply
  21. madonov

    А ларчик просто открывался.

    Платежи по произвольным реквизитам в терминале оплаты разрешены только «авторизованным» пользователям. Пока карту не вставишь — квитанцию с произвольными реквизитами не оплатить. Вставил карту — все заработало.

    Правда «ФИО, Адрес, Назначение платежа» — все равно заставляет заполнять руками. Похоже, что сбер убрал автозаполнение этих полей намерено.

    Reply
  22. MakarkinPRO

    а в каком онлайн сервисе, можно ручками создать платежку для сбербанка?

    Reply
  23. Valery_t

    Здравствуйте.

    Использую Ocvita Barcode ActiveX под Server 2012. Регистрация проходит успешно. В 1С (платформа 8.3.10.2580, НЕ управляемые формы) при добавлении на макет рисунка «Элемент управления» — «Ocvita Barcode» — присутствует. Но в свойствах созданного рисунка нет строки Ocvita Barcode, и в строке Макет.Рисунки.QRКод.Объект.symbology = 58 выдает ошибку «Значение не является значением объектного типа». Если кто встречал подобную проблему, помогите пожалуйста.

    Reply
  24. Chaotic

    а при нажатии на Properties что открывается?

    Насколько я вижу по рисунку, у Вас уже QR код установлен

    Reply
  25. Valery_t

    Нет. На рисунке как раз то, что я ожидал бы увидеть. Что-то в Server «недоустановлено».

    Reply
  26. user948046

    1С Бухгалтерия 3.0 умеет делать QR-Code. Можно просто перетащить макет с генерацией QR-Code в Бухгалтерию 2.0 маленько переписать

    функции и все должно работать. Ищем в конфигурации Бухгалтерии 3.0 по ключевому слову Qr находим для себя все примеры и делаем свой вариант. И не нужны дополнительные компоненты.

    Reply
  27. Valery_t

    (26) Спасибо. Буду попробовать.

    Reply
  28. user727890

    Добрый день! подскажите, пожалуйста, будут ли считывать qr код другие банки такие как Тинькофф, Альфа и т.д ?

    Reply
  29. Chaotic

    (28) добрый! вряд ли. по идее, чтобы оплачивать через Сбербанк, например, нужно заключить со Сбербанком договор. По поводу остальных банков — лучше у них уточнять

    Reply
  30. HIVvich

    Напишу сюда, может кто подскажет. Самописная конфа (8.3.8, управл.формы), на документах печать QR-кодов с помощью этой утилиты, ТОЛСТЫЙ клиент, dll зарегистрирована успешно и лежит там где надо. Конфа у меня — код распечатывается, выложили на сервер — пишет, что объект не обнаружен и код не печатается. На сервере dll зарегистрировала успешно, под толстым клиентом, не работает. Ну как это побороть?

    Reply
  31. HIVvich

    Напишу, может кому пригодиться. Решение своей проблемы нашла только в этом, скопировала блоки из Розницы, модуль: МенеджерОборудованияСерверПовтИсп, в нем нужны только 2 функции: Функция ДанныеQRКода(QRСтрока, УровеньКоррекции, Размер) Экспорт, Функция КомпонентаФормированияQRКода(Отказ).

    В модуле документа:

    КурТекст = «Type=2» + «;» + «Number=» + НомерДокумента + «;» + «Date=» + ДатаДокумента;;
    
    ДанныеКода = МенеджерОборудованияСерверПовтИсп.ДанныеQRКода(КурТекст, 0, 120);
    КартинкаQRКода = Новый Картинка(ДанныеКода);
    ОбластьМакета.Рисунки.Штрихкод.Картинка = КартинкаQRКода;
    
    ТабличныйДокумент.Вывести(ОбластьМакета);
    

    В макете разместила обычную картинку с именем Штрихкод.

    Reply
  32. Zlak

    Скажите есть решение — в 1с отсканировать qr код и на его основе создать платежку?

    Reply
  33. ZeroDM

    (31) HIVvich Спасибо за идею, свою задачу я решил. Правдо в ERP эти процедуры лежать в общем модуле УправлениеПечатью, но суть таже. В целом использование типовых примеров считаю более эффективным, чем написанных «на коленках».

    Reply
  34. Rustig

    (0)спасибо! разобрались сами — просветили других!

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *