<?php // Полная загрузка сервисных книжек, создан 2025-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='\
Отбор не работает.
Опробировал на штрихкодах, было много пустых записей, очистил, отбор не сработал = 0, а оставил пустое поле и очистил. Благодрю +
(1) Можно несколько деталей: кокого типа фильтруемое поле, какое значение использовалось в отборе?
Я ей неооднократно пользовался, вроди бы проблем не замечал.
ПлакалЪ. «Неоднократно встречал универсальные обработки которые позволяют полностью очистить выбранный регистр». Зачем обработки, зачем городить огород на пустом месте? Убить независимый регистр сведений целиком можно всего двумя строчками:
НаборЗаписей = РегистрыСведений.МойРегистр.СоздатьНаборЗаписей();
НаборЗаписей.Записать();
И все, он труп.
Точно так же можно поступить и с записями, полученными через Отбор. Это скорее проблема — как бы случайно не стереть неправильно отобранные данные…
Подобные вещи пользователям в руки нельзя давать 🙁
Минус за неверное позиционирование программы.
(5) Большой опыт внедрений показывает, что защита от «злоумышленников» методом «в руки нельзя давать» крайне недальнавида и неэффективна. У пользователей есть руки и они умеют сами ими брать (например, вот такие инструменты .
Поэтому если мы хотим избежать казусов, то этим пользователям должно быть запрещено использование внешних обработок.
(3)
>>>> В списке выбора, расположенном в верхней части формы, выбирается требуемый регистр сведений. Если требуется фильтрация удаляемых записей, то устанавливается отбор в табличной части, расположенной под списком выбора регистра.
Так вот, выбираю любой регистр, в настройках выбираю поля, отбор пустой.
(7) «В настройках выбираю поля» это в поле отбора или в форме открывающейся по кнопке «отбор»?
Обновлена версия. В новой версии убрана возможность настройки состава выводимых полей, т.к. их сокращение может привести к невозможности/некорректности очистки.
(4) В общем и целом вы правы. Я так и писал «я обычно за пару минут набрасывал код, дававший необходимый результат».
Эта обработка позволяет не набрасывать постоянно этот код, + дает пользовательский интерфейс для удобной установки фильтров.
«Точно так же можно поступить и с записями, полученными через Отбор» — а вот это уже заблуждение. Так нельзя поступить с записями полученными через отбор (по крайней мере если этот отбор полноценный, как в приведенном мной варианте).
(10) Никто не мешает после отбора добавить несколько строк:
НаборЗаписей.Прочитать();
НаборЗаписей.Очистить();
НаборЗаписей.Записать();
Все и так просто, хотя может кому-то действительно необходим интерфейс…
Блин, догнал с отбором, надо было ручкми insert нажать или ПКМ. Автор, сделайте панель кнопок для отбора, для таких как я.
(12) Ок. Скоро выложу обновленную версию.
Выложил обновление, в котором добавил панель инструментов для поля установки отбора и добавил вопрос, для подтверждения намерения очистки.
Не работает в Бухгалтерии 8.1 релиз (1.6.16.3). Ошибка при инициализации:
{Форма.ФормаОтчета(25)}: Поле объекта не обнаружено (ВидыДоговоровСФизЛицами) НовСтр.ОтборВидыДоговоров=перечисления.ВидыДоговоровСФизЛицами.ТрудовойДоговор;
(15) Посмотрю на досуге
Я что то не пойму, 👿 тут уже такие элементарные обработки закрывают: «ДЛЯ ДОСТУПА РЕЙТИНГ +30» скоро вапще забью на ваш сайт <censored>!
(17) элементарно — сделай сам
(17) Прощайте, нам такие точно не нужны. Как они понять то не могут, что не для них этот сайт существует.
Работает очень медленно.
Удаление каждой записи в цикле.
Если отбор только по измерениям, можно было бы удалить без цикла.
По кнопке Сформировать тоже очень долго выводится, т.к. в поле табличного документа выводятся ссылки, а не представление.
Можно было просто форму списка регистра вывести, наложив штатный фильтр…
И ещё. нет обработки прерывания, и если так долго работает, не хватает индикатора процесса… 😉
В качестве рекламы, идейное развитие 🙂
(11)(11) Для набора записей Отбор не позволяет отбирать «в группе».
Автору. Жаль что не обрабатываются периодические регистры сведений.
Исполлзовал. Работает
Спасибо
Спасибо и +
спасибо
На платформе 8.3 будет работать. Надо в УТ 11 почистить.