<?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='\
Вот я всегда думаю, почему в стандартной обработке удаления не сделали подобный функционал? Почему там всё максимально скудно в этом плане.
Внешне удобно. Когда будут деньги — обязательно скачаю
РегистрСведенийКлючЗаписи.ПоставщикиНоменклатуры не удаляет!
(3) lsd_777, записи независимых регистров сведений чистятся руками
(4) jenekmegachuvak, подскажите как?
(5) lsd_777, при двойном клике на строке, относящейся к записи РС, откроется форма списка регистра с установленным курсором на нужной строке. Здесь можно удалить эту запись нажатием клавиши ‘Delete’ (если конечно на форме не запрещено это программно).
(6) jenekmegachuvak, Розница 2.1, не прокатывает такое действие, пишет «Удаление записи регистра выполняется из ее карточки», а где она, непонятно!
(7) lsd_777, при удалении объекта регистр должен сам удалиться или у вас конфа самописная?
(8) Xershi, типовая, абсолютно ничего не трогано!
(9) lsd_777, ковыряйте связи, в конфе смотри поиском по ссылке…
(1) В Бухгалтерии 3.0 встроенная обработка довольно удобна, работает не монопольно, позволяет повторять удаление, позволяет выполнять замену значений
(7) lsd_777, добавил в обработку команду по удалению записей независимых РС и очистки констант. Это должно помочь в Вашем случае.
на УТ 8.2 не работает чтоли?
(13) sobeyko2008, работает на любой конфигурации в режиме управляемых форм. А в чем проблема?
Не работает в УНФ 1.4. Пишет «Нет элементов, которые можно удалить», хотя выбрал все что было. Скрин ниже.
(15) — аналогично, автор!
на 1С 8.3 (8.3.5.1517) редакция 1.0 (1.0.32.7) не запускается и ни чего не пишет!!! Что делать???
Самое главное что универсальная обработка, без проблем запустилась на самописной конфе.. по крайней мере пока.
На БП 3 под 8.3 не работает
Выдает ошибку где то на стадии поиска ссылок
Недопустимое значение параметра (параметр номер 1)
На БП 3 под 8.3 не работает
Выдает ошибку где то на стадии поиска ссылок
Недопустимое значение параметра (параметр номер 1)
Доработал эту обработку под 8.3.6, например (отказ от модальности, если вы понимаете о чём я)
Спасибо. Помогла обработка.
Спасибо за обработку, все не доходили руки самому сделать для нетиповой конфиги.
(21) Спасибо, скачал. Скачал также исходную у автора, считаю, что только так будет честно.
Работает в докобороте под уф для справочников юзал, спасибо
Не удаляются обработкой договора и заказ клиента почему-то, хотя ранее всю реализацию к этим заказам удалила. Может у кого есть обработка на удаление этих объектов, буду очень благодарна.
Автору спасибо
Спасибо автору.
в строке 947 Процедура Процедура ОпределитьВозможностьУдалиенияОбъекта(
Нужно исправить:
На
Показать
Тогда будет удалять если измерение регистров с этим объектом является ведущим.
В противном случае ни чего не дает удалить особенно если включены обмены данными и все объекты в регистре СоответствияОбъектовИнформационныхБаз.