<?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='\
Забавная штуковина!
(1) mzelensky, Мне тоже нравится))), я впервые такое на еще делфи делал
🙂
Аналогичное еще на TurboPascal`е лепил.
Еще прикольнее будет если задние грани не прорисовывались бы, когда их закрывают стенки на переднем плане.
(3) Dmitri_1C, будет время попробую сделать
Картинка вызывает ностальгические воспоминания. Даешь ELITE на 1С!
(5) Asmody, эта которая на спектруме была))) Загружать с аудиокассеты…
Плюсанул однозначно, но вот заняться вам реально не чем 😉
(7) logarifm, Это намек типа: Программист без математики — дешевый программист?)
(8) Bukaska, ну я бы так не утверждал. Это утверждение не весьма правильно.
Забавно…
Продайте учебному центру 1С, пусть задвинут в минобр в качестве замены аналогичного урока на Бейсиках, Паскалях и прочих неотчечественных языках программирования.
Пусть дети сразу приучаются к 1С, а то недавно тут к нам в отдел экскурсия с какого-то колледжа приходила (орава первокурсников какой-то IT-шной специальности, которым пообещали «настоящих программистов» показать), так один из этих кацапов, увидев плакат 1С на стенке, произнёс эпическую фразу: «А, так это не настоящие программисты, это 1С-ники»!
Ржали, конечно, всем отделом. Но факт остаётся фактом — до сих пор в умах простого народа есть «настоящие программисты», а есть «1С-ники».
(10) mbreaker,
Эту фразу можно в подпись! )
Интересно, а можно ли запилить игрушку какую-нибудь простецкую как на тетрисе, вроде тенниса или танчиков?
(12) bandru,
Почему нет, все в твоих руках
(10) mbreaker, Спасибо! Поржала)))
Тоже слышала подобное.. а.. это типа язык домохозяек..
Ну-ну, я и смотрю как всё просто))) сплошь и рядом специалистов не хватает)))
(8) Bukaska,
я ваще математику терпеть не могу, но еще со школы понял — буду програмистом))) и как обо мне отзываются — неплохим
(11) wildskiff, «Я не настоящий программист — я дорогостоящий 1С-ник»… :))))))
(14) Bukaska, 🙂
Требуется домохозяйка со знанием 1С.
Опыт внедрения домохояйственных систем уровня ERP обязателен.
Участие в проектах развертывания MDM систем в распределённых домохозяйствах приветствуется.
Знание технологий передачи данных не ниже уровня JSON. Свободное владение WSDL обязательно, если Вы претендуете на должность ведущей домохозяйки.
Желателен опыт настройки отказоустойчивостого кластера домосерверов.
Предпочтение будет отдаваться кандидатам с наличием сертификатов «1С:Домохозяйка по технологическим вопросам крупных домохозяйств» или «1С:Руководитель корпоративных домохозяйств».
(10) mbreaker,
это нормально. в 8-ке язык стал более похож на нормальный язык программирования. Мне тут недавно пришлось вспомнить 7.7, так чуть не застрелился, ходил плевался, хотя начинал работать с 1С еще с 6-ки 🙂
(14) Bukaska,
специалистов не хватает не потому что мало программистов, а потому что уметь кодить в 1С это очень мало, т.к. 1С предметно-ориентированная платформа. Поэтому приходиться знать все — и программирование, и бухгалтерию, и финансовый учет, и кадрый и т.п.
(17) mbreaker, Ухахах)) Спасибо! Поржала)))
(19) WKBAPKA, Согласна. Я и учу это всё всесторонне, так как у меня не получается вникнуть в одно без другого, особенно это касается бухучета и расчета зарплаты.. Но это само собой — за год крутым не будешь и не один год нужен, пока станешь наконец спецом)
(18) WKBAPKA, Я в 7.7 раз залезла.. мне там не понравился инструмент отладки,в 8х инструменты лучше). А в 7.7 я попробовала и плюнула.. теперь крещусь от неё пяткой под потолком)))
Действительно не стандартное для 1С решение, респект и уважуха автору.