Сравнение СЗВ-М и СЗВ-СТАЖ из XML




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

5 Comments

  1. vin_lucy

    Скачала, попробовала.

    1. Запускается ТОЛЬКО в обычном приложении?

    2. Запустилась и…ошибка №1(скрин). (не поняла как перестала появляться)

    3. закрыла -открыла…ошибка№2

    4. Просит число — поставила число….чтобы дальше смотреть. Обманка на скрине.

    5. Заработало…А здесь понравилось. Выдались ожидаемые ошибки. «Ручками+глазками» до этого уже нашли.

    Если поправите, очень хочется безошибочный вариант.

    спасибо.

    Reply
  2. RomanBor

    (1)

    Сделаю еще одну форму на управляемых

    но несколько позже

    Reply
  3. ssfedkin

    Спасибо за обработку!

    Проверял на УПП 1.3.114.2, не заработало, пока не исправил такие ошибки:

    1. Форма строка 380:

    СтрД.ОУТ = ?(ОУТ_КОД + ОУТ_ПозицияСписка  = «», «»,ОУТ_КОД + » (» + ОУТ_ПозицияСписка + «)»);

    была заменена на

    СтрД.ОУТ = ?(«» + ОУТ_КОД + ОУТ_ПозицияСписка  = «», «»,ОУТ_КОД + » (» + ОУТ_ПозицияСписка + «)»);

    т.к. выскакивала ошибка преобразования к типу Число. Добавил пустую строку в начало формулы.

    2. Возможно, поменялся формат выгрузки СЗВ-СТАЖ, т.к. в процедуре разбора файла пришлось заменить все блоки, у которых в названии было «ИС4» на «ИС2». Иначе стажевые периоды в таблицы не подтягивались и ошибки были по всем сотрудникам.

    Например,

    Если ВРЕГ(СП.ИмяУзла) = ВРЕГ(«ИС4:Период») тогда
    

    заменил на

    Если ВРЕГ(СП.ИмяУзла) = ВРЕГ(«ИС2:Период») тогда
    
    Reply
  4. RomanBor

    (3)

    да к сожалению сейчас вышла новая форма 2019 по СЗВ-СТАЖ,

    сегодня проверю и обновлю

    Reply
  5. erutan

    Сделал доп.кнопку для проверки на наложение стажа

    Процедура КоманднаяПанель3СЗВ_СТАЖ_наложение(Кнопка)
    ПроанализироватьСЗВ_СТАЖ_Наложения();
    //Поставить отбор
    элементыформы.СЗВ_М.ОтборСтрок.Ошибка.Значение = истина;
    элементыформы.СЗВ_М.ОтборСтрок.Ошибка.Использование = истина;
    
    элементыформы.СЗВ_СТАЖ.ОтборСтрок.Ошибка.Значение = истина;
    элементыформы.СЗВ_СТАЖ.ОтборСтрок.Ошибка.Использование = истина;
    
    КонецПроцедуры
    
    функция ПроанализироватьСЗВ_СТАЖ_Наложения()
    ТЗ_Стаж = СЗВ_СТАЖ.Выгрузить();
    ТЗ_Снилсов = ПолучитьСнилсы(СЗВ_СТАЖ);
    ТЗ_Стаж.Сортировать(«СтраховательИннТ, СтраховательКппТ, СнилсТ, СтажС, СтажПО»);
    КолвоСнилс = ТЗ_Снилсов.количество();
    н = 0;
    стр_Снилс_старая = Неопределено;
    для каждого стр_Снилс из ТЗ_Снилсов цикл
    н = н + 1;
    Состояние(«выполнено: » + н + » из » + КолвоСнилс + » [» + стр_Снилс.СнилсТ + «]»);
    М = ПолучитьМАссивТЗ_Снилсов(стр_Снилс, ТЗ_Стаж);
    стр_старая = Неопределено;
    для каждого стр из м цикл
    если стр_старая <> Неопределено тогда
    если НачалоДня(стр.СтажС) = НачалоДня(стр_старая.СтажПо) тогда
    //Так как мы сортировали копию таблицы то надо по номеру строки найти нужную строку в ориг. таблицы и поставить в ней
    Стр_СЗВ_СТАЖ = СЗВ_СТАЖ.Найти(стр.номерстроки, «НомерСтроки»);
    Стр_СЗВ_СТАЖ.ошибка = истина;
    Стр_СЗВ_СТАЖ.ОшибкаОписание = ДополнитьТекстОшибки(«Наложение Стажа с пред. строкой», Стр);
    //Так как мы сортировали копию таблицы то надо по номеру строки найти нужную строку в ориг. таблицы и поставить в ней
    Стр_СЗВ_СТАЖ = СЗВ_СТАЖ.Найти(стр_старая.номерстроки, «НомерСтроки»);
    Стр_СЗВ_СТАЖ.ошибка = истина;
    Стр_СЗВ_СТАЖ.ОшибкаОписание = ДополнитьТекстОшибки(«Наложение Стажа со след. строкой», Стр)
    конецесли;
    
    
    конецесли;
    стр_старая = стр;
    конеццикла;
    
    конеццикла;
    
    
    КонецФункции

    Показать

    Reply

Leave a Comment

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