<?php // Полная загрузка сервисных книжек, создан 2026-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='\
Добавил 🙂 Ура!
Добавилось! Ура!
пока применять негде, но за идею уже +
Поправил косяк с кареткой при заполнении текста во весь экран.
tormozit, а зачем применять? Это просто, удовольствия ради… 🙂
Хотя в этот скринсейвер можно что угодно запихнуть…
При попытке скачивания файл не найден.
(5) Есть такое…
Сорри за оффтоп: Доржи, а как сделать, чтобы свежие комменты вверху были? Или никак?
(4)
Всмысле я про то, что мне лично пока ее негде применять) А так бы разыграть кого — самое оно.
Файл перезалил, но сам же скачать не могу… Глюк, видимо движка…
Не качает…
Могу пока предложить:
Где-то была похожая штуковина. Скачал — понравилось. Плюсуем !!!
Прикольно, только надо сделать неравномерный ввод символов, плюс иногда возврат назад (стирание), ошибки ну и проч…
(11) Была в виде работающей базы на 7.7 в которой то ли выгрузкашла, толи проведение документов — вообщем, бежал индикатор прогресса.
(12) Я уже думал над этим 😉 Введу процент очепяток и исправление 🙂
Может есть у кого звук нажатия клавиши? 😉
Ну и Ctrl+C Ctrl+V а то ж куда без них ))))))))
(15) А зачем? 🙂
(15) А, эмулировать…. Тут уже сложнее, надо подумать…
Прикольненько — поставил +
.
Еще бы хорошо заменить заголовок главного окна — не у всех УТ юзается 🙂
Например, установкой в параметрах.
Звуки нажатия есть в различных аськах 🙂
(18) Заголовок вынесу в параметр.
(19) В квипе какая-то печатная машинка — ужас!
Надо инет пошерстить, и добавлю тогда звук.
в Punto Switcher вроде звуки адекватные
Скачивание исправили
Добавлено:
— при наборе текста опечатки и копи-паст 😉
В настройки добавлено
— заголовок конфигурации
— процент опечаток
— процент использование копи-паста
Текст запроса неправильно красит, как код…
Блин, опять не качается…
(24) Во, текст запроса!… ведь все вспоминал, что я забыл добавить!..
(25) Тогда снова:
а можно такое же но для семерки??? очень хотелось бы
Можно, вот только там цвета другие…
Сделаю позже.
Поставил свой заголовок, Сохранил параметры, нажимаю Просмотр, а заголовок остался все тот же — УТ, 10.3 🙁
Счас подожду настоящий скринсейвер.
(30) В просмотре должен быть уже сразу.
А в настройках, когда заново открываешь, изменения есть?
(10) Файл удален с сервиса
(32)
Душелов 02.12.2008
(25) Тогда снова:
И скачку починили, кстати.
Добавил раскраску текста запроса и условий #Если.
что то скачать неполучаеться :(, а на народе говорит удалили 🙁
Добавил звуки клавиатуры, в настройках можно отключить звук.
Начал писать эмулятор 7.7 😉
У кого не качается, пока можно скачать отсюда:
Нажимаю скачать…File (=4489) not found
(37, 39) Пока правится движок, можно скачать по ссылке 38.
а можно сделать так чтобы воспринималось не только 65001(UTF-8) но и старый добрый ansi 1251 ?))) ну и плюс в версии под семерку — поменять подложку на скрин из под семерошного конфигуратора
Понравилось. Можно использовать при презентации чегонить, в фоне. Очень интересно и прикольно.
Прикольная штука, автору плюс за идею! Только у меня звук работает всегда, даже если скриншот не активен!
Скачку починили.
(41) Ага, вынесу тогда в настройки.
(43) В предосмотре — он работает, есть такое дело, в свойствах экрана на закладке «Засткавка», а вообще, в системе не должен.
Душелов жгет!
(впрочем как и всегда 🙂 )
Без комментариев……………………………………………………………………………….
Бесполезно, но прикольно)))
(42) на самом джеле можно использовать и для обучения — только скорость поставить маленькую и процент ошибок убрать
Особенно полезно тем, за кем следит Большой Брат через радмин.
сам хотел такую вещь сделать, но поленился. Однозначно плюс.
49. Но есть баг. 🙁 Когда текст дошел до конца экрана, не сработал скролл. Текст стал благополучно набиваться за нижней границей экрана.
(49) А всегда так срабатывает или единично? У меня скроллится.
— Добавил эмулирование 7.7
— вынес в настройку выбор 7.7 и 8
— так же выбирается кодировка файлов с текстом модулей
Если шутить, так шутить по-крупному 😉
Добавил «синий экран смерти» 😉
Ошибка при инициализации приложения… 🙁
(53) Фреймворк стоит?
(50) у меня два монитора. На основном не скроллится, на дополнительном работает нормально. Отключил один монитор — все ок. Думаю, этим багом можно пренебречь.
(55) Можно было бы поправить, да не могу воспроизвести из-за отсутствия 2х подключенных мониторов 😉 Если будет такая возможность — сделаю.
А, видимо, я один момент упустил из-за отсутствия колонок на работе — останется ли звук клавиатуры после выскакивания «синего экрана»…
Баловство… Даааа не любит у нас народ работать…
(58) Почему же? Для меня — это практика. Изучение очередной технологии.
(59)Это все замечательно, опыт весч хорошая, но куда еще можно применить эту технологию в 1С? Я не спорю у Вас интересные разработки, но они никак не применимы к работе. И даже наоборот. Не интереснее было бы написать что нибудь в помосч в работе а не в отдыхе? ИМХО.
(60) А почему именно к 1С?
К примеру, на полученном опыте я могу сделать скринсейвер, который будет выводить скриншоты рабочих столов пользователей, статистическую информацию о базах, подключениях и прочее…
А то, что применимо к работе — я получаю за это финансовое вознаграждение.
>>А то, что применимо к работе — я получаю за это финансовое вознаграждение.
А для упрощение, оптимизации своей работы Вы ничего не пишете? или Вы за это тоже берете деньги?
(58)>Баловство… Даааа не любит у нас народ работать…
Почти все мои разработки на этом сайте написаны ради «баловства».
А потом оказывалось, что они очень даже нужны для работы как в прямом, так и в переносном смысле (в части повышения моего уровня программирования)
(63) Если честно, вот у Вас я не видел подобных обработок. По моему очень даже рабочие обработки.
Не отчетами едиными живет программист 🙂
СКРИН — ПРОСТО СССУУУПППЕЕЕРРР ! Давно о таком мечтал. Спасибо.
>»Screen Saver 1C» — хранитель экрана в стиле 1С
надо поменять название на-Что бы такого сделать что бы ничего не делать
Под Вистой не работает (
Я вот думаю.. В то же самое время написал, так сказать, «анти-Душелова» по большой просьбе руководства. С установленным интервалом делат скриншоты у юзверей и складывает в указанную папку. Что б не расслаблялись! 😉 Выкладывать на сайт?
(69) Конечно! Хотя такие программы есть, но вроде платные…
(68) А что пишет? За неимением висты не могу проверить..
(69) А что будет в случае получения скриншота с машины, на которой работает скринсейвер? 😉
(57) Да при синем экране озвучка клацанья клавиш остается.
Супер игрушка.
(73) Понял, поправлю…. Так и думал 🙂
А синий экран все равно в дрожь бросает 😉
Исправил.
(72) Замочить скрин-сейвер — задача как два байта отослать :)))
(69) Выкладывай «антиДушелова» 🙂
(71) А ничего не пишет ) Копипастю в ВинСистем32, а в доступных заставках не появляется… Хотя, если ручками запустить просто — то работает.
(77) —>
Ну шутник :). Вчера потестил сабж, понравилось.
Вечером оставил важную обработку в эске. Сегодня утром прихожу на работу, включаю монитор, а там «синий экран». Сначала испугался, потом думаю — «заставка же это», тыкаю кнопки — нет реакции.
«Мда… видать это не заставка :(»
Решил подвигать мышкой — и о чудо! все работает 🙂
(78) Посмотри, где в висте scr хранятся, по-моему просто в папке с виндой.
(76) Ага, я могу сделать отключение скринсейвера только по горячим клавишам ;)))) И все 😉
(80) Сам попадался 🙂
Крута! 🙂
Клевая штука=) специально ради нее зарегилась=) чмоки-чмоки
А можно панель конфигурация закрепить и справа СП открыть=) и снизу, если можно, табло например=).
(83) Скриншот покажите пожалуйста.
скрин
Дерево конфигурации вряд ли можно сделать по-нормальному — у всех же свои конфигурации (для этого и вынес в настройку загловок), а метаданные у всех разные так же будут.
ну пожалуйста…
может тогда сделать, чтоб он инфу брал из файла конфигурации тогда=)
Ага, анализ CF файла…
ну можно тогда типовую заскриншотить
Не работает ((( «Ошибка при инициализации приложения» 135-ая. Вылетает при выборе заставки в параметрах экрана.
Ошибку заскринила, могу скинуть. Windows XP Professional 2002 SP2.
Не работает ((( «Ошибка при инициализации приложения» 135-ая. Вылетает при выборе заставки в параметрах экрана и при попытке запустить непосредственно.
Ошибку заскринила, могу скинуть. Windows XP Professional 2002 SP2. Права полные.
(92) .Net Framework 2.0 стоит?
(90) Я подумаю над этим предложением 🙂
(94) может на худой конец СП добавить и служебные сообщения
при эмуляции 7.7 — бяковая отрисовка графики в главном меню.
(тема виндов у меня на всякий случай — классическая)
(96) Это не тема виндов, это скрин шот просто с моего домашнего компьютера + подстроение фона под фон скриншота. Я не заморачивался с меню 😉
Ты свой скриншот меню 7-ки кинь, я под него подстроюсь просто 🙂
(93) Я балда — мне ж с тех пор, как был фреймворк поставлен, сисблок меняли… Похоже, не стоит (
Точно не стоит. Поставила — всё работает, спасибо )
Обалдеть. Автору респект! Показал Начальнику своему (не директору, а начальнику отдела), Поржали, он себе забрал, сказал убойная вещь! Плюс ставлю без вопросов.
(3) tormozit, как это негде использовать? О_О. А на рабочем месте? А на совещаниях? да мало ли ещё где…