<?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='\
Неужели никому не пригодилось ?
не волнуйся, пригодится…
я так точно попробую.
Интересует вопрос:
1. насколько замедляется проведение дока?
2. обход этой фичи при групповом проведении сделан?
1. Ненамного. Секунды на 2 в очень большой базе с начала года.
2. При групповом проведении контроль тоже не помешает. Обойти это легко, а при использовании можно предупреждать, но не отменять проведение.
А плюсанул, хоть и не успел посмотреть. Лишний контроль не лишний 🙂
Спасибо.
Так, ща вооружусь… понадобилось… проверим заодно как работает при многофирменном/многоупраналитичной работе…
ДА! хорошо бы озвучить порядок настройки на другие регистры
Порядок настройки на другие регистры примерно такой:
Изменить функцию «глКонтрольОтрицательногоОстатка()» (там, вроде, всё понятно),
а также в функции «ПроверитьОтрицательныйОстаток» изменить строки:
====
Если ВидРег = «ОстаткиТМЦ» Тогда
_РегСклад = ВремРегистры.ОстаткиТМЦ;
ИначеЕсли ВидРег = «ПартииОтданные» Тогда
_РегСклад = ВремРегистры.ПартииОтданные;
Иначе
Сообщить(«Неверный вид регистра !!!», «!!!»);
КонецЕсли;
======
Очень интересно. Отлично!, но медленно. Давно назревала проблема, переделаю под SQL c 1C++, будет на порядок быстрее. Если интересно выложу свою реализацию.
Выкладывай … много народу учится 1С++ обычно не хватает
1-2 отчетов чтобы были и на 1с и на 1с++ чоб в сравнении вникнуть лучше
Не заработало:
Пример:
На 1-е число есть остаток 12 шт
3-го числа есть расходный документ на 1шт (Док №2)
Делаем расходный Док №1 от 2-го числа на 10шт этого товара
Видно, что всем всего хватает, но получаю:
Возникнет отрицательный остаток по регистру «ОстаткиТоваров»: ОстатокТовара = -8 по Док №1 (02.10.09)
Фирма = Товар = МойТовар Склад = Главный склад
———————————
Возникнет отрицательный остаток по регистру «ОстаткиТоваров»: ОстатокТовара = -9 по Док №2 (03.10.09)
Фирма = Товар = МойТовар Склад = Главный склад
А может нужно всего лишь сделать так:
Пользователь проводит док. задним числом тогда в этом случае в документе должна происходить проверка остатков на этот документ, а также на ТА, т.е. двойная проверка при проведении задним числом. Кто что думает по этому поводу?
добавил возможность отключения, если установлен параметр «не контролировать остатки»
Показать
Для УТ можно использовать?
Мне нужен контроль отрицательных остатков при изменении старых доков,по регистру «Товары на складах».
Пригодилась