<?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 стартмани (почему не 5?). Она нисколько не универсальна. Более того, она ещё и в локальном смысле неверна, работает неправильно.
1. Нет отбора по организации.
2. Не установлен привилегированный режим.
3. В запросе нет слова РАЗРЕШЕННЫЕ (не учтены RLS).
4. РегистрацияВНалоговомОргане берётся тупо самая последняя (из среза последних без даты), а не по периоду, как заявлено.
5. Не учтено, что период может быть закрыт.
6. В регистре «ИмущественныеВычетыНДФЛ» нет поля «МесяцНалоговогоПериода», по которому потом идёт поиск в строке:
НайденныеСтроки = ТЗНаборЗаписей.НайтиСтроки(Новый Структура(«ФизическоеЛицо, МесяцНалоговогоПериода», СтрокаФизЛицо.ФизическоеЛицо, СтрокаФизЛицо.МесяцНалоговогоПериода));
и выдаётся ошибка.
7. Не меняются записи в табличных частях Ведомостей, а значит после их перепроведения записи в регистрах снова «испортятся».
8. Не выводится ни одного сообщения (что изменили, где изменили, по кому).
Ужас. Обман. Фиаско.
Жаль.
Здравствуйте.
Благодарю за комментарий.
1. Да, нет отбора по организации. Дело в том, что обработка работает по всем организациям.
2. Естественно, человек, запускающий такую обработку должен иметь права как на ее запуск так и на обрабатываемые регистры. Обработка в большей степени предназначена программистам, а не кадровикам. Некорректно было бы думать, что такие вещи будет запускать пользователь с ограниченными правами. Про закрытый период я вообще молчу. Если конструкция «НаборЗаписей.ОбменДанными.Загрузка = истина;» для вас ничего не значит, то смысла объяснять не вижу, мы не на экзамене.
3. См.пункт 2.
4. Да, сведения о том, где зарегистрировано подразделение, действительно, берутся самые крайние. Жаль, что вы не отнеслись с должным вниманием к чтению описания обработки. Или вы неверно поняли суть. Обработка предназначена для ситуаций, когда либо вовремя не ввели сведений о том, что подразделение обособленное и в документах (регистрах) уже сидят неверные сведения, либо ввели ошибочные данные регистрации, потом поправили и все расползлось в отчете «Анализ НДФЛ».
5. См. пункт 2.
6. Тут да, есть ошибка. Запускал на базе, где нет имущественных вычетов. Исправляется достаточно легко.
7. Жаль, что вы не удосужились опять дочитать до конца описание к обработке, где черным по белому написано: Замена осуществляется именно в движениях документа..
8. Это не является обязательным условием для создания обработки и никак не умаляет ее достоинств и не препятствует выполнению ею своих функций.
P.S. про «абсолютна не стоит 3 стартмани»: действительно, при написании обработки я так остро нуждался в чужом мнении по поводу ее стоимости, жаль вас не было в тот момент в онлайне, чтобы проконсультировать меня, ведь вы так хорошо разбираетесь, даже не глядя кода и не читая описания (см. пункт 4, 7).
Добавил все необходимые пожелания в обработку.
пользователи этой обработки должны понимать, что изменять ИФНС нужно на то значение — куда вы перечисляли НДФЛ!!!