<?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='\
Интересное решение, но с излишками. Я бы убрал сортировку, в поле дата добавил бы кнопку выбора и кнопки лучше бф расположить вверху. А так интересная разработка, все работает.
в Бухии 7.70.528 не работает
(2)?- можно подробнее как ругается ? — я проверял в бух 7.70.527 работает, работает в комплексной и самописной с разделителем учета =ДоговорКлиента.
нет никакой привязки к конфигурациям, должна работать с любой конфигуцией где есть бух учет.
-Могут быть проблемы со старыми версими платформы <7.70.025, когда вызвается .ВыбратьСубконто(2) а количество субконто меньше 2х.
анонс: через неделю — две добавлю вызов стндартного аннализа счета.
(3) Заинтересовало. Ситуация знакомая. Попробую.
Запускается. Вроде работает. Если не задавать конкретный счет, заполняет таблицу. При попытке задать
конкретный счет (41, например) никакого результата. Дата постоянно возвращается в 2006 год. Т. е требует постоянного контроля. При попытке просмотра дополнительных колонок ругается на отсутствие агрегатного объекта.
Ну и , если пропадут все эти мелкие неудобства, можно отрицательные остатки выделить красным цветом.
Еще вопрос: в каком формате записывается файл? Его вероятно, нужно предварительно создать?
(5) про 41 счет спасибо, уже исправлял эту ошибку когда на последнем субконто нет сумм, но есть количесво, поправлю -пришлось добавить галочку «без сумм»
Дата поправляется по конец расчитанных итогов ВыбДата = КонецРассчитанногоПериодаБИ(); если хотите закоментируйте эту проверку -платформа будет ругаться что итоги не расчитанны.
Про дополнительные колонки — спасибо, поправлю ошибку и добавлю в описание формат формулы («ФТЗ.суб1.Вдаделец»)
Файл открывать команндой 1С ТЗ=ЗначениеИзФайла(ИмяФайла) -формат как значениеВСтрокуВнутр(ТЗ)
(6) Попробую еще…
Но вы там столько наговорили… Я бухгалтер. При желании, найду , наверное, где закомментировать., но есть уже горький опыт…Не полезу…))
Приятная вещица