<?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='\
Наши предложения: поддержка 8.х
И еще… Syslog далеко не «мусор» :))
«Syslog далеко не «мусор»» Он так сказать иногда мусор =), когда mlg файл поврежден, так вообще 1С не стартует.
А поддержка 8.х, там ведь другие задачи, внешние отчеты в папке с базой не хранятся.
А если серьезно, пока просто нет клиентов на 8.х, соответственно понятия не имею какие там задачи решать надо. Если будут четкие пожелания, можно будет что то придумать.
1) Сведения о конфигурации желательно получать в отдельном потоке, чтобы окно программы не висло и была возможность работать с остальными базами
2) Было бы круто, если при наведении курсора мыши на базу в подсказке показывался список пользователей работающих с ней в данный момент
3) Применительно к 8.1 пока сделать архивирование и тестирование
4) Добавить сортировку баз по наименованию
5) Слишком уж много памяти отъедает
(0) Список активных пользователей работает неправильно.
И не будет работать правильно, т.к. ты похоже просто парсишь links.tmp
Механизм определения активных пользователей несколько сложнее.
(0) Посмотри один прикол… .
У меня более 100 баз. Проблем нет.
Пожелание — Удаление несуществующих баз
2vip — да, именно так. Буду весьма благодарен за другой, более четкий алгоритм.
(7) Нужно проверять на залоченность байты файла links.tmp со смещением 2000001 + НомерЗаписиОЮзере.
Если байт залочен, юзер активен.
А в самом деле, (5) — понятно…
(9) Стесняюсь спросить, от Вас за что плюс?
Тоже такими фишками балуетесь? Помогла моя подсказка?
(10) За смещение. Мне не помогла, но кому-то однозначно поможет.
(7) Т.к. в личку поступило несколько аналогичных вопросов, выкладываю код здесь.
Только на бейсике. Я малограмотный, трактатов про БУ, УУ и УО писать не умею.
Надеюсь, лего переведете на используемые выми языки.
Dim k As Long
Dim SA As SECURITY_ATTRIBUTES
Dim lngHandle As Long
Dim TextLine As String
retVal = «»
lngHandle = CreateFile(ParamVal(0), &H80000000 Or &H40000000, &H1 Or &H2, SA, 3, 0, 0)
Open ParamVal(0) For Input As #1
k = -1
Do While Not EOF(1)
Line Input #1, TextLine
TextLine = Mid(TextLine, 1, 100)
If Mid(TextLine, 1, 6) = «{» & «»»» & «Name» Then
k = k + 1
If LockFile(lngHandle, 2000001 + k, 0, 1, 0) = False Then
TextLine = Mid(TextLine, 7)
TextLine = Replace(TextLine, «»»», «»)
TextLine = Replace(TextLine, «}», «»)
TextLine = Replace(TextLine, «,», «»)
retVal = retVal & TextLine & «;»
Else
UnlockFile lngHandle, 2000001 + k, 0, 1, 0
End If
End If
Loop
Close #1
CloseHandle lngHandle
ЗЫ. ParamVal(0) это ваш файл links.tmp
(12) … не сказать еще хужей…
(13) Что-то не нравится в коде?
Буду благодарен за критику.
(12) За алгоритм спасибо, вечером попробую реализовать.
Но вот вопрос, а как часто будет врать простой парсинг? Так ли уж принципиально проверять залоченность байтов?
Кгхрм…
Вопрос примерно про то, можно ли быть немножко беременной.
Данные не могут быть иногда неправильными.
Они или правильные, или нет.
(14) код в норме. Комментирую язвительность 🙂
(16) А вот тут возражу. Данные обычно слегка неправилиные. Во всяком случае, я из этого исхожу….
(17) А… Ну, прости, это не к тебе относится.
(18) Ну да. 2х2 изредка бывает равно 5, иногда даже 6. Ввиду достаточно малой вероятности получить такой результат, этим можно пренебречь.
название не удачное. чем вызвано такое название?
Саппорт (от англ. Support — Поддержка, Поддерживать) — это та или иная служба поддержки (хостинг-компании, сайта, форума). «Пишите им в саппорт» значит, что тебе нужно написать письмо в службу поддержки
…
Саппорт некая служба для решения проблем именно пользователей. а не облегчения собственной работы.