<?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='\
А скриншоты?
Прикольно!!!
Со статистикой))) Красиво!
Вот погоди, доберусь я до восьмерки…
:))
Нормально! А по сетке поиграть?
Нормуль… Вот тока игры уж больно быстро проходят… Одна минута и все, компьютер повержен.
Всем, БОЛЬШОЕ спасибо за оценки и комментарии!:-)
Да, согласен, чтоб по сети можно было — это интересно 🙂
Достойный конкурент… а с моей игрушкой всё наоборот, по сети можно а в одиночку с компом никак =))
Молодец!
Форма.Форма(1763)}: Поле объекта не обнаружено (СтрелкаНазад)
КартинкаПереместитьВлево = БиблиотекаКартинок.СтрелкаНазад;
нало было указать — что работает только с типовыми конфигурациями
заменить строки картинок на примерно следующие стандартные
КартинкаПереместитьВлево = БиблиотекаКартинок.Назад;
КартинкаПереместитьВправо = БиблиотекаКартинок.Вперед;
КартинкаИгрока = БиблиотекаКартинок.Пользователь;
КартинкаКомпьютера = БиблиотекаКартинок.Калькулятор;
Хаха, и все таки косяк, что по сети играть нельзя))) Так бы можно было через SQL сервер шпилить))))))))))))
Ошибку исправил, спасибо. (12), (13). Теперь должно работать
во всех конфигурациях.
Идея хорошая но если бы кто смог ее перегнать на 7.7. и сеть в ней доработать то ей цены бы небыло!
Автор, как насчет новой, сетевой версии?
+17 на регистре сведений, через обработку ожидания?
На счет сетевой версии, пробую. Если получится, обязательно выложу
когда руками расставляем свои корабли, то почему то можно расставить несколько 4 палубных кораблей или там 5 трехпалубных. Наверно надо это отслеживать.
Добавлена сетевая версия игры! (14), (17)
Есть возможность сделать сетевую игру для большего количества людей? Было бы замечательно
не запускается в 1с 8.2.
после попытки добавление этой обработки выдается: «{Справочник.ВнешниеОбработки.Форма.ФормаЭлемента.Форма(189)}: Ошибка при вызове метода контекста (Создать)»
👿
(23) Обработка должна работать только под 1С 8.1. Под 1С 8.2 не предназначена.
Прикольно… Только по окончанию игры не ничего не обнулилось. Клацаешь новая игра, все остается по прежнему.
(25) Спасибо за найденную ошибку. Исправил, выложил рабочую (исправленную) версию.
Теперь при нажатии на «Новая игра» всё должно работать как задумывалось.
Если Вы скачали немного не до конца работающую версию приношу свои извинения. Сейчас выложил работающую версию. Спасибо за понимание.
Клёво, в пятницу искали с сотрудником моской бой, все приложения — фигня, а тут оказывается сразу в 1С можно рубиться 🙂 Спасибо.
(28) Вам спасибо!)
Попробовали с коллегой побиться в конце рабочего дня по сетке, но соедениться не смогли к сожалению. Пробовали разными способами, в чате видет человека, а с запросом на игру — лаги.
За игрушку благодарю )
Прикольно!!!
прикольная игруха
ща заценим)
Прикольно!!!
А круто!!! Спасибо, поиграл
почему-то комп всегда выигрывает
Круто.
Плюс однозначно