Получение информации об Адресе с использованием DADATA.ru через ПреобразованиеXSL (обычные и управляемые формы)




Принцип обмена данными из 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='\

19 Comments

  1. SurmachAU

    Не заполняет данные по адресу

    Reply
  2. Prog89
    Процедура ОбработкаПроведения(Отказ, РежимПроведения)
    
    Движения.ОстаткиТоваров.Записывать = Истина;
    Для каждого Стр из СписокТоваров цикл
    Запись = Движения.ОстаткиТоваров.Добавить();
    Запись = Дата;
    Запись.Номенклатура = Стр.Номенклатура;
    Запись.Склад = Склад;
    Запись.Колечиство = Стр.Количество;
    Запись.ВидДвижения = ВидДвиженияНакопления.Приход;
    КонецЦикла;
    
    КонецПроцедуры   

    Показать

    процедура работает это ошибка!!!

    Ошибка при выполнении обработчика — ‘ОбработкаПроведения’

    по причине:

    {Документ.ПоступлениеТоваров.МодульОбъекта(25)}: Значение не является значением объектного типа (Номенклатура)

    Запись.Номенклатура = Стр.Номенклатура;

    Reply
  3. olegmedvedev

    (1)заполняет, вы по всем адресам проверяли?. по некоторым адресам в дадате — нет инфы.

    Reply
  4. olegmedvedev

    (2)не понял — у меня такого кода точно нет.

    Reply
  5. SurmachAU

    (3) простите, действительно, странно и жаль. просто добавила ваш код в общий модуль для заполнения по инн, добавила условие) теперь отрабатывает

    Reply
  6. olegmedvedev

    (5)а какое условие добавили?.

    кстати у дадаты есть ссылка на расширение по заполнению контрагентов https://1cbonus.ru/kontragent-po-inn/

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

    Reply
  7. SurmachAU

    (6)РезультатАдрес = cmGetDadataArray(ТекАдрес, «6fxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx», «address»);

    Если РезультатАдрес.Количество()>0 Тогда

    СтруктураАдреса = РезультатАдрес[1];

    далее код

    Reply
  8. mburkin

    в кладре у кода 25 символов и это число, а тут возвращаются кладровые данные строкой и длина другая, но вообще обработка классная!!!!

    Reply
  9. Anton64

    (6) Это же решение на инфостарте https://infostart.ru/public/724586/

    Reply
  10. akrelius

    при запросе «подстепки» выдает несколько деревень из разных областей, но в поле Value везде написано «Самарская» хотя регион может быть «Воронеж»

    Адрес одной строкой (сокр.) Самарская обл, Ставропольский р-н, село Подстепки

    Адрес одной строкой (полный, от региона) Самарская обл, Ставропольский р-н, село Подстепки

    Индекс 397183

    Страна Россия

    Код ФИАС региона b756fe6b-bbd3-44d5-9302-5bfcc740f46e

    Код КЛАДР региона 3600000000000

    Регион с типом Воронежская обл

    Тип региона (сокращенный) обл

    Тип региона область

    Регион Воронежская

    Код ФИАС района в регионе dac587d3-17c6-49d3-8949-cc829f947e3f

    Код КЛАДР района в регионе 3600500000000

    Район в регионе с типом Борисоглебский р-н

    Тип района в регионе (сокращенный) р-н

    Тип района в регионе район

    Район в регионе Борисоглебский

    Reply
  11. olegmedvedev

    (10) это уже вопрос к выдаче данных сервисом дадаты, видимо у них другой приоритет по областям.

    Reply
  12. vechiy

    а координаты он в табличную часть не возвращает?

    Reply
  13. vechiy

    вернее возвращает

    Reply
  14. vechiy

    но не для всех адресов, почему так?

    Reply
  15. olegmedvedev

    (14) возможно у ДАДАТЫ нет данных геолокации по этому адресу

    Reply
  16. vechiy

    (15)

    dadata на форуме ответили:

    Валерия 4 недели назад

    Адрес неправильный, вам нужен

    https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/address

    Получить координат можно. Пока человек не выбрал конкретную подсказку (count > 1), Дадата использует справочник адресов налоговой службы (ФИАС). В нём нет координат.

    Когда же человек выбирает конкретную подсказку (count = 1), Дадата возвращает дополнительную информацию об адресе, в том числе координаты.

    Текст запроса при count = 1 должен быть результатом одного из предыдущих запросов (значением поля unrestricted_value).

    Reply
  17. olegmedvedev

    (16)

    Адрес неправильный, вам нужен: https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/address

    а можно подробнее? в коде обработки идет соединение:

    HTTPЗапрос = Новый HTTPЗапрос();
    HTTPЗапрос.АдресРесурса = «/api/4_1/rs/suggest/address»;
    
    HTTPЗапрос.Заголовки.Вставить(«Content-Type», «application/xml»);
    HTTPЗапрос.Заголовки.Вставить(«Accept», «application/xml»);
    
    HTTPЗапрос.Заголовки.Вставить(«Authorization», «Token » + Token);
    
    //если КоличествоПодсказок = 0, тогда по умолчанию вернет 10 подсказок
    ТекстЗапроса = «<req><query>» + Текст + «</query><count>» + КоличествоПодсказок + «</count></req>»;
    
    HTTPЗапрос.УстановитьТелоИзСтроки(ТекстЗапроса);
    
    //соединяемся с сервисом подсказок
    Соединение = Новый HTTPСоединение(«suggestions.dadata.ru/suggestions»,,,,,, Новый ЗащищенноеСоединениеOpenSSL);
    

    Показать

    что именно в адресе неправильно? адрес такой же как в вашем ответе.

    Когда же человек выбирает конкретную подсказку (count = 1), Дадата возвращает дополнительную информацию об адресе, в том числе координаты.

    проверил — действительно при одной подсказке выводит координаты.

    Текст запроса при count = 1 должен быть результатом одного из предыдущих запросов (значением поля unrestricted_value).

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

    Reply
  18. vechiy

    (17) ну например мне нужно заполнить ряд адресов и условно говоря по тысяче адресов координаты заполнились а по тысяче нет (вызывал вашу функцию в цикле по сетке представлений)

    Reply
  19. olegmedvedev

    (18) если честно, не понял ответа. согласно ответу дадаты у вас должна была быть еще указана единичная подсказка, для заполнения координат — так отрабатывает?

    Или это был ответ на вопрос, что вам ответила дадата по поводу что адрес неправильный?

    «Адрес неправильный, вам нужен: https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/address»

    но у меня используется такой же адрес.

    Reply

Leave a Comment

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