<?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='\
… были недоработанными.
В чем?
Вот Автор — Мастер. Объясните, в чем Вы его превзошли?
У него есть один недочет. Формирование идет отдельными списками ПКО и РКО без разбивки по дням. Я добавил его отчет и сформировал, все нормально, но на контроле в банке сказали это грубая ошибка. Поэтому переделал отчет с разбивкой по дням.
P.S. А по поводу контроля того отчета — может так и должно быть а в банке просто докопались, а может и должна быть разбивка списка первички по дням, а не отдельными списками.
(2) Будь эта информация в описании, разве я приставал бы? Теперь ясно.
Просто я первый раз выкладываю файлы. На будущее учту. Большое СПАСИБО.
не работает 😥
да, действительно не работает 🙁 пишет приходных кас.ор. — ноль, расходных — ноль
А для 8-ки не планируется?
Проверенно, у меня в 4 отделениях и в центральном офисе работает
Сейчас проверю
В цикле «Пока Запрос.Группировка(1) = 1 Цикл » после строки «Док = Запрос.Документы;» добавить следующее:
Если Метаданные.РазделительУчета.Выбран() = 1 Тогда
Если ПоВсемРУ=0 Тогда
Если Лев(Строка(Док.НомерДок),1)<>ПрИБ Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонецЕсли;
И в начале добавить переменную «ПрИБ»
А чего так позорно сделана группировка по дням… 👿
Запрос выполняется в цикле!!!
перепиши запрос:
…
|Период с ВыбНачПериода по ВыбКонПериода;
|ОбрабатыватьДокументы Проведенные;
|
|Документы = Документ.ПриходныйОрдер.ТекущийДокумент,
| Документ.ПриходныйОрдерТорг.ТекущийДокумент,
| Документ.РасходныйОрдер.ТекущийДокумент,
| Документ.РасходныйОрдерТорг.ТекущийДокумент;
|ДатаДок = Документ.ПриходныйОрдер.ДатаДок,
| Документ.ПриходныйОрдерТорг.ДатаДок,
| Документ.РасходныйОрдер.ДатаДок,
| Документ.РасходныйОрдерТорг.ДатаДок;
|
|Группировка ДатаДок;
|Группировка Документы упорядочить по Документы.НомерДок;
…
И циклы маленько поменяй, вместо
…
Пока перДатаНач <= ВыбКонПериода Цикл
Запрос.Выполнить(ТекстЗапроса);
Пока Запрос.Группировка(1) = 1 Цикл
…
напиши
…
Пока Запрос.Группировка(1) = 1 Цикл
Пока Запрос.Группировка(2) = 1 Цикл
…
Возможно это и выглядит позорно, но сделано по необходимости.
Согласен, что запрос выполняется быстрее и меньше кода используется, но это дополнительная нагрузка на сервак, т.к. все запросы выполняются на нём. Вот как поменяю серверную машину, так доработаю не позорно.
Михаил, Вы ничего не перепутали? 😉 Или может я чего-то не понимаю.
Формирую ваш отчет за квартал, делаю замер производительности вашего отчета, время выполнения 17 секунд, при этом запрос вызывается 92 раза!!!
Не это ли называется дополнительной нагрузкой на сервак?
Тебе код нужно изменить всего то в двух местах, поменять запрос и оператор первого цикла. Это займет времени меньше, чем время за которое ты писал предыдущее сообщение. При этом отчет, за тот-же период, теперь формируется за 0,2 секунды, в 85 раз быстрее!!!! На два порядка быстрее, задумайтесь!!!
Запрос выполняется 1 раз, и это вместо 92, чем не подмога вашему многострадальному серверу?
не увидела смысла в этой обработке. За многолетний период не один банк не потребовал для проверки такого журнала. Если уж хочется проявить себя в кассовой дисциплине, то ещё ни разу не видела обработки для спецрежимников «кассовая книга» на одном листе по дням (как вкладной лист или лист кассира), ведь в стандартной обработке тратится много бумаги. Для «малышей» это накладно.
Кассиры просто обленились, писать не желают.
С нового года проверять будет не банк, а налоговая. И уж они-то, наверняка придерутся — отсутствие регистров учета и пр.
Скачала, но долго открывается
Спасибо!