<?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='\
Нельзя просто так взять и открыть форму списка любого регистра сведений, установить нужные отборы, потом нажать Ctrl+A, потом нажать Del.
(1) Когда в регистре сведений немного записей — наверное, можно, не пробовал. Когда десятки или сотни тысяч — не уверен, что это получится легко и просто.
(2) Не могли бы подсказать к примеру когда может потребоваться очистить весь регистр сведений.
(3) как пример, регистр Соответствие объектов обмена (или Дескрипторы доступа для объектов в Документообороте)
(3) Еще пример из личного — сделал загрузку данных из внешнего источника в регистр сведений, постфактум оказалось, половину данных предоставили некорректно. Это около 50 тысяч строк. Пришлось делать эту обработку )
(5) Спасибо за примеры.
Интересная обработка… наверное очень нужна обычным пользователям… Хотя «обычным» пользователям нельзя давать «гранату»…
Для программиста обычно обработка укладывается в несколько строк:
Рег=РегистрыСведений.имярегистраСведений.СоздатьНаборЗаписей();
Рег.Записать();
И да, почему не реализована очистка для подчиненных регистратору?
(7) Если Вы программист, Вы должны понимать, что универсальная обработка по любому регистру с универсальным отбором по любым параметрам не может занимать несколько строк. Очистка для подчиненных регистратору не сделана, потому что не стояло такой практической задачи.
(8) Нда… как всегда сарказм на форумах не приветствуется…
Странно, если стояла задача реализовать именно универсальную обработку, то почему не дошло до подчиненных регистров…
Опять таки, учитывая затраченное время на интерфейс и «универсальность», реализовать этот функционал уже намного менее трудозатратно…
(9) Извините, если обидел. Вполне возможно, что я реализую Вашу идею в данной обработке, спасибо )
(10) Что вы! никаких обид! Тем более, что в вашем сообщении не было никаких оскорблений или даже намека!
А вот в моём… всё-таки требуется утихомиривать свой свой сарказм, и оставлять только четкую критику и нормальные предложения о доработке функционала.
З.Ы. Успехов в работе!
З.Ы.Ы. Не забудьте добавить массу предупреждений о возможных последствий и необратимости действий! А то ведь пользователи такие пользователи…
(7) Если регистр содержит очень много строк, то такой способ очень надолго заблокирует регистр и может привести к другим проблемам.
(13) Как бы Вы посоветовали усовершенствовать механизм очистки регистра в таком случае?
эх, а мне как раз по документам-регистраторам отбор и очистка нужны…
буду ждать )
(15) Я как раз в ближайшее время собирался доработать подобный функционал, но не было практической задачи. Опишите, пожалуйста, что бы Вам хотелось от обработки.
Желательно с примерами )
(16) мне нужно было очистить регистр сведений Способы отражения по имущественным налогам у документа Ввод начальных остатков.
но я их уже типовой обработкой очистила.
но вашу бы обработку поюзала)
Спасибо! пригодилась
О! Как моя любимая CleanReg.ert, только для управляемых форм. Лайк!