<?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='\
Новая версия не работает под 8.1
стр 352
…
Если ПустоеЗначение(ЭлементыФормы.спзКонтрагенты.ТекущаяСтрока) <>
…
В 8.1 нет функции ПустоеЗначение()
пришлось изменить строку на
…
Если не ЗначениеЗаполнено(ЭлементыФормы.спзКонтрагенты.ТекущаяСтрока)
…
Alav, к сожалению у меня нет 1С 8.1 ни дома ни на работе, так что я не мог оттестировать обработку, поэтому и выкладывал ее для только для 8.0. Спасибо за комментарии они помогут тем, кто хочет исполтзовать обработку для версии 8.1.
Спасибо, очень понадобилась, чуть-чуть переделаю под себя…
Пробовал обе обработки на УТ 8.1 — 10.3, не пошли обе (пишет — обработка не может быть прочитана текущей версией программы) 🙁 … а жаль… надо бы такую но для 8.1 бухгалтерии и УТ…
(4) открываем обработку в конфигураторе и соглашаемся с конвертацией.
Подскажите плиз начинающему… А если мне нужно удалить почти все, т.е. некоторые документы по организации оставить (а следовательно и саму организацию и все что есть по ссылкам на оставшиеся доки) в каком месте установить фильтр? А то документы остались а Организация з/с счета и т.д удалило нафиг…
(6) Maxim ya seychas v komandirovke i u menyu net dostupa k moemu komputeru. Ya vernus’ chetez 2 dnya in vse napuchu
ganelin — спасибо! 🙂
(8)Maxim, извините но я задержался в командировке намного дольше чем предполагал. Я вернулся и могу помочь с программой, если моя помощь еще нужна. Пожалуйста, напишите
При удалении организации это обработка удаляет и все учетные политики организаций, не подскажете как сделать чтобы этого не случалось ?
Кто может сказать насколько быстро и качественно работает данная обработка?. Стоит задача из базу ЗУП с 20 организациями выделить одну в отдельную базу. Данная обработка подойдет?
(11) Уважаемый lexi,
Когда я писал эту обработку передо мной стаяла практически такая же задача. На сколько я знаю обработка с задачей справилась и никаких нареканий от бухгалтеров не было. Обработка базы не заняла очень большого времени (порядка 30 минут если мне не изменяет память), однако хочу сразу предупредить что во-первых база была не очень большая (среднее тур агентство 3-4 лет использования) и организаций было около десятка. Так что сколько времени займет обработка в Вашем случае не могу сказать.
Хочу заметить что писалась обработка под 1С 8.0, так что если нужно использовать ее под 8.1 внимательно читаете комментарии пользователей, там указано что надо изменить (а возможно кто-то и выложил версию по 8.1 для скачивания)
Удачи, если что пишите.
Андрей
Спасибо большое за разъяснения. Осталось только протестировать )))
Эхх, а под 8.2 еще никто ее не переделал ? Очень хотелось бы. Под 8.0 скачивал как-то целый комплекс обработок вплоть до физического удаления обьектов особо хитрых, а под 8.2 вот что-то не наблюдаю такой, может смотрю плохо..
Удаление данных по организациям из информационной базы Обработка конвертирована для 8.2, в контекстном меню выбора организаций добавлена возможность выбора только помеченный на удаление организаций.
классная штука, спасибо.
Новая версия. На 8.2 заменил как написано в первом комменте
Если ПустоеЗначение(ЭлементыФормы.спзКонтрагенты.ТекущаяСтрока) <>
…
на
…
Если не ЗначениеЗаполнено(ЭлементыФормы.спзКонтрагенты.ТекущаяСтрока)
и все работает. Большое спасибо.
Зачетная вещь
Пробовала обработку в ЗУП 2.5.76.2 вылетает с ошибкой «нехватка памяти», хотя памяти достаточно(((
на БП 3.0 не работают обе обработки
Огромное спасибо за обработку!
конвертнул в 8.3
при запуске (Комплексная Автоматизация 1.1):
{ВнешняяОбработка.УдалениеОрганизаций.Форма.Форма.Форма(352,7)}: Процедура или функция с указанным именем не определена (ПустоеЗначение)
Если <<?>>ПустоеЗначение(ЭлементыФормы.спзКонтрагенты.ТекущаяСтрока) <> Истина Тогда
Попробуй так
Если ЗначениеЗаполнено(ЭлементыФормы.спзКонтрагенты.ТекущаяСтрока) = Истина Тогда
{ВнешняяОбработка.УдалениеОрганизаций.Форма.Форма.Форма(72)}: Ошибка при вызове метода контекста (УдалитьОбъекты)
УдалитьОбъекты(НачальныйСписок, Истина, Подчиненные);
по причине:
В данной транзакции уже происходили ошибки!
А та которая …_новая даже не открывается:
{ВнешняяОбработка.УдалениеОрганизаций.Форма.Форма.Форма(352,7)}: Процедура или функция с указанным именем не определена (ПустоеЗначение)
Если <<?>>ПустоеЗначение(ЭлементыФормы.спзКонтрагенты.ТекущаяСтрока) <> Истина Тогда
Бухгалтерия предприятия, редакция 2.0 (2.0.65.47) (
заменил метод на ЗначениеЗаполнено. Результат:
{ВнешняяОбработка.УдалениеОрганизаций.Форма.Форма.Форма(107)}: Ошибка при вызове метода контекста (НайтиПоСсылкам)
Подчиненные = НайтиПоСсылкам(НачальныйСписок);
по причине:
В данной транзакции уже происходили ошибки!
Это чудесная тряляля_новая.epf уё..ет к ееням собачим половину регистров сведений, включая контактную информацию счетчики прф выгрузок и много еще чего по организациям, которые в базе должны остаться. Аффтар, роди себя обратно!