<?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='\
Спасибо. вспомнил институт. Ну и на практике так же приходилось стоить небольшие автоматы разборах xml
Этот код плох не тем что «далек от совершенства в плане производительности» а тем что его бесполезно читать без соответствующего листочка.
(3) у меня на столе давно вместо листочков толстая тетрадь в клеточку .
мне кажется наоборот упрощается чтение собственного кода написанного давным давно ,
Не, читать такой код без графа потом просто жесть, но вообще технология интересная. Спасибо!
Интересное решение
Недавно в аналогичной ситуации применил рекурсивную функцию с накоплением данных в соответствии которое являлось параметром функции…
(6) решение не новое , книг по автоматному программированию довольно много
(5) как я говорил решение использовать или нет зависит от сложности , для таких примеров как в статье пожалуй не стоит , а в случае сложных систем наоборот упростит понимание логики
(5)(6) есть еще один немаловажный плюс о котором забыл упомянуть в статье.
т.к. программа фактически сводится к выполнению простых действий,то ( при условии если автомат правильно построен) отладка практически не требуется
(9) При условии если программа правильно построена отладка вообще никогда не нужна :)))
(10) разница в том , что для автомата вам нужно протестировать модель , а не готовый прототип
(11) Тестирование модели — это такое новое название для отладки? :))) не заморачивайтесь, я не спорил, это вроде как шутка была 🙂
(11) а если серьезно то для вашего автомата можно было бы продумать промежуточные функции сборщики поступающих данных и результата выполнения, может быть даже отправку статистики автору 🙂 получился бы универсальный блок автоматического тестирования.
Автоматическое тестирование собственного кода считается одним из признаков настоящего профессионализма в программировании.
(12) точно в конце дня уже заговариваться стал ))
(13) здесь специально старался сделать код как можно доступнее и понятнее
(15) и правильно сделали, очень понравилось, если будет продолжение с удовольствием почитаем
(16) про НКА может быть ))
(17) Интересно насколько ваша статья с таким заголовком да еще и с вступлением
применима к теме
Блин, как не хватает гитхаба для 1С, все-таки коллективная доработка таких «самописных» инструментов мне кажется могла бы очень многое изменить. Форкнул, доработал то, что нужно, скинул автору — автор слил.
(19)
это интересное предложение, может быть разработчики 1С примут его к сведению
(18) это просто шутка . Мыже с вами программисты а не милитаристы. Давайте собирать а-т Мили вместо Калашникова
(19) Для 1с подходит обычный гитхаб
(22) Как -то я это слабо вижу, git сравнивает файлы по содержимому, т.к. в большинстве языков программирования это обычный текст, а у 1С это бинарные файлы, поэтому как вы планируете делать слияние двух веток — для меня большая загадка.
(23)Всё уже давно придумано. Есть софт который разбирает файлы на код и отправляет в гит.
Тема КА — безусловно очень интересна и наверное неисчерпаема. Что бы не мучаться с листочком и не хранить эти каракули — смотри в сторону ragel или smc. Код КА не надо писать. Он должен генерироваться.
(23)
Конфигурация — Выгрузить конфигурацию в файлы
Внешняя обработка — Выгрузить в файлы
(19) EDT
дел
Так и не понял зачем это нужно
(25) Вы безусловно правы. Более того можно написать движок автомата скажем в виде рекурсивной функции которая будет принимать в качестве параметров данные некоторых хранимых таблиц. Пока же мне интересно определить области применимости автоматного программирования в 1с как альтернативы традиционному процедурному подходу. Например можно ли рассмотреть управляемую форму как некий объект «реактивного» типа с «внешним» управлением? Вобщем пока в стадии экспериментов.
(29) может и не нужно , каждый решает для себя.
вкратце для систем со сложным поведением предлагается предварительно построить автоматную модель управления
напр. аналог в UML — это диаграммы состояний
Состояния, имхо, лучше строками обозначать со смыслом, а не числами.
Тогда и комментарии станут лишними
На самом деле графическое представление схемы автомата можно нормально редактировать в виде таблицы переходов.
График красив, кода состояний не более 10. А если увеличим, тогда становится совсем уж не наглядно, и придется львиную долю уделять «красивости/понятности».
Я, извиняюсь, — это автомат Мили или Мура?
(34) Даже не задумывался. Первый можно считать автоматом Мура т.к нет выходных сигналов , второй и третий очевидно Мили , четвертый смешанного типа .
Спасибо. Тоже молодость вспомнил — программировали конечные автоматы для реализации сетевых протоколов спецсвязи. Шеф в виде табличек задания давал: по строкам события, по столбцам состояния. На Ассемблере, конечно, было больше возможностей для реализации предельной производительности.
(36) ДКА это больше про надежность чем производительность,
а для ответственных программных систем тем более
(37) С появлением в 1С объекта ОписаниеОповещения появилась теоретически новая возможность программирования автомата. Двумерный массив, одно измерение — события, второе измерение — состояния. В элементы массива помещаются объекты ОписаниеОповещения, указывающие на процедуры обработки события m в состоянии n. Извлекается элемент массива [m,n] и передается в процедуру ВыполнитьОбработкуОповещения().
Жаль, только на клиенте можно.
(38)
отличная идея !
(38) только нужно определить как извлекать текущее состояние. Можно например как значение набора реквизитов или
привязать к панели страниц как на рис. ниже
(40)
Угу, я-то предполагаю, что события и состояния изначально кодируются целыми числами, которые можно использовать в качестве индексов массива (состояние хранится в переменной модуля). А если состояние определяется комбинацией нескольких разных значений, то такая реализация может оказаться неэффективной.
В развитие идеи. Строковые имена (точнее, вызовы) процедур обработки событий можно поместить в ячейки табличного документа (типа «Проц_03_05()»). Выполнять обработку тогда при наступлении события m в состоянии n можно так:
Выполнить(ТД.Область(m,n,m,n).Текст);
Это позволит «матрицу» каждый раз не заполнять программно, а хранить, например, в макете типа «Табличный документ». Такой вариант будет работать и на сервере.
Авось, пригодится.
(41)
не только можно но уже практически есть )) , с внешним хранением, передачей состояний , параметров, кодогенерацией . Правда сыровато пока .
(42) Да, плодотворная тема 🙂
Оставляю свои 5 копеек 🙂
Еще в догонку 5 вариант 🙂
(44) Ваша Лампа…. ничего в этом не понимаю, но выглядит красиво и завораживающе !
курс про автоматы для «чайников» мне будет полезен 🙂