<?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='\
Написано для 8.1, а картинки от 8.2. Кому верить? 🙂
(1) (0) «Напечатанному в 36(341) номере нашей газеты за 32 февраля верить»
(1) Если на клетке с буйволом увидишь надпись «Лев», не верь глазам своим! (Козьма Прутков)
🙂
С Наступающим!
(3) И Вас с наступающим 2011 😀
(1) Доделываю что-бы работало под 8.2, поэтому на картинке она и есть 🙂
Подскажите, плз, есть ли возможность еще и отрубить все сеансы, мешающие бэкапу базы, например ?
(6) Если база серверная, то есть.
Собственно вся база и заточена для работы с базами работающими в клиент-серверном режиме.
Подскажите, а можно как то автоматизировать действия с базой? Т.е. нужно делать бэкап баз по расписанию?
(8) В данной версии все действия с базами выполняются последовательно в указанное время.
Время начала выполнения задается стандартным выбором времени запуска регламентного задания.
Вроде штука неплохая, но почему так мало информации о возможностях?
При архивации:
Начало действия: BackUP(рабочая сервер)Ошибка подключения! {ОбщийМодуль.МодульЗаданий(210)}: Ошибка при вызове метода контекста (ConnectAgent): Произошла исключительная ситуация: Версия компоненты ‘comcntr’ (8.1.12.101) отличается от версии корневого модуля ‘core81’ (8.1.13.41)
Че делать?
(11) Обновить версию платформы до 8.1.13.41.
(9) Дело в том что регламентное задание отрабатывает без ошибок (на сервере), но бэкап на сервере не делается , на локальной машине все отрабатывает нормально …
(13) Пользователь из под которого запущен сервер 1С имеет все необходимые доступы на каталог куда делается бэкап? Должен быть доступ на создание файлов.
(12) У меня и стоит платформа 8.1.13.41. Что не так?
(15) И на сервере и на локальной тачке?
Ну, тогда удалить платформу (проследить, чтобы папка bin была чиста), заново переставить. Если не поможет — вручную зарегистрировать dll (пример: regsvr32.exe C:Program Files1cv81incomcntr.dll).
Я так понимаю если установлен флаг «Не сбрасывать все подключения» и существует подключение к базе, то задание все равно будет выполняться?
Нашел небольшой баг… При установленном флаге «Выполнять только при успешном завершении предыдущего», если в течении для выполнялось несколько раз, и если первый раз выполнилось с ошибкой, а последний успешно, то все равно не выполнится задание. В запросе:
ВЫБРАТЬ
ВЫБОР
КОГДА ОбновлениеБазы.Результат = «0»
ТОГДА ИСТИНА
ИНАЧЕ ЛОЖЬ
КОНЕЦ КАК ВыполненоУспешно
ИЗ
Документ.ОбновлениеБазы КАК ОбновлениеБазы
ГДЕ
ОбновлениеБазы.Действие = &Действие
И ОбновлениеБазы.НачалоВыполнения >= &НачалоВыполнения
наверно нужно сделать сортировку по убыванию даты документа и например брать не с начала текущего дня, а хотя бы за последние 2 дня, ведь начало выполнения предыдущего задания может быть в 23:59 а начало новго в 00:02 например и тогда опять же выдаст ошибочку
(18) + и еще добавить отбор по Базе
И ОбновлениеБазы.База = &БазаСсылка
(18) + поправочка: сортировку по дате окончания выполнения
Добрый день у меня возни ряд разных ошибок.
Имеем 1 локальную машину(с полными правами), 2 сервера 1с 8.1
Для всех вариантов подключения такая ошибка
1) {ОбщийМодуль.МодульЗаданий(363)}: Ошибка при вызове конструктора (ЧтениеТекста): Файл не обнаружен ‘c:Tempv8_51_d.txt’
Тут я сам подправил просто дописал:
ИмяФайлаЛога = ПолучитьИмяВременногоФайла(«txt»);
ИмяФайлаРезультата = ПолучитьИмяВременногоФайла(«res»);
// Правка
Текст = Новый ТекстовыйДокумент;
Текст.Записать(ИмяФайлаЛога);
// Конец Правка
2) Как я уже писал не отрабатывает на сервере задание, на локальной машине все ок (добавил полные права пользователю сервера) начало выдавать такую ошибку:{ОбщийМодуль.МодульЗаданий(445)}: Ошибка при вызове конструктора (COMОбъект): Интерфейс не поддерживается
по причине:
Интерфейс не поддерживается
по причине:
Интерфейс не поддерживается
3) Создал новую базу вашей конфигурации (для другого сервера и другой базы) бэкап не отрабатывает даже на локальной машине никаких ошибок не выдает пишет «Завершено действие: BuckUp» но файла нету, что самое интересное файл выгрузки появляется но потом через какоето время исчезает в итоге ошибок нет но результат:1
автор, ты куда потерялся?????
Новая неприятность:
{ОбщийМодуль.МодульЗаданий(216)}: Ошибка при вызове метода контекста (AuthenticateAgent): Произошла исключительная ситуация: Ошибка информационной базы
Администратор кластера не аутентифицирован
АгентСервера.AuthenticateAgent(Константы.АдминистраторКластера.Получить(), Константы.ПарольАдминистратораКластера.Получить());
по причине:
Произошла исключительная ситуация: Ошибка информационной базы
Администратор кластера не аутентифицирован
Что нужно сделать?
(23) На сколько я помню прописать в константах логин и пароль админа кластера.
(23) Это логин и пароль, с которыми я вхожу в рабочую базу?
ошиблась… (25)—>(24)
(25) Нет это проль и логин кластера для серверного варианта
бэкап делается через «Запустить приложение»?
(28) Да.
(5) а как на счет версии 8.2 управляемые формы уже доделали?
(30) ves_sergey, Нет, все руки не доходят.
Пробую тестить не сервере, бэкап не создается, конфа не обновляется, хотя пишет, что все ок?!
(32) m_aster, В журнал регистрации пишется подробный лог что происходит. Посмотрите что там, киньте мне, я посмотрю.
Все супер, все работает, спасибо)
Пытаюсь делать бэкап, не делается.
Начал разбираться, прогнал в отладчике, комендная строка выставляется правильно, но в в логах пишет, что пользователь АДМИНИСТРАТОР не идентифицирован.
Сегодня еще буду пытаться.
Не работает, танцы с бубном и курение исходных кодов в течении дня толку не дали.
Платформа 8.2 релиз 8.2.19.80
Идея 5+ реализация промолчу.
Остановился на другой обработке.