<?php // Полная загрузка сервисных книжек, создан 2026-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='\
QueryAct — откуда берется, из «VC runtime library» — ???
(1)
Сергей.
Так, для общей информации (теории). 😉
В разработке:
Это делается одной строчкой: Ext._(60,»1SJOURN»,»Val(IDDOCDEF)<> 238″)
(2) за ценное замечание — спсб, но тянуть клиент/сервер Advantage 8.1/9.1 ради такой одной строчки — я не рискну… $-) а так, конечно — спсб за ценный комментарий — закросспощу его в мисту…
(3)
Так лучше: Ext._(60,»1SJOURN»,»IDDOCDEF<>»»238 «»»)
(1)ну, если глубоко копать, то оттуда, да 🙂
Интересно, а с подменой таблиц движений и остатков регистра, проблем не возникнет при проведении документов по этому регистру ?
Отличная вещь. спасибо!
1. автору: хотелось бы услышать ответ на вопрос от ev-kov (про регистры)
2. всем : «QueryAct vs vk_hook1C» : кто-нибудь сравнивал быстродействие и безглючность этой компоненты и hook () ?
1) пытаюсь выполнить метод «Insert(а,б)/Вставить(а,б)»
выдает ошибку:
{С:….МАНИПУЛЯТОРЫ.ERT(69)}: Недопустимый тип первого параметра!Какие параметры у метода «функция Insert(а,б)/Вставить(а,б)»
и что она возвращает (догадываюсь что элемент коллекции)
2) Кроме того есть метод «процедура Move(а,б)/Сдвинуть(а,б)»
Аналогично: какие у него параметры ?
3) с остальными методами разобрался:
‘чКолво’ функция Count() Количество()
получить количество элементов в коллекции
‘оМанипуляторы’ функция Get(чИндекс[,сИмяМанипулятора]) Получить(чИндекс[,сИмяМанипулятора])
получить элемент коллекции (Индекс=0…Колво-1)
‘оМанипуляторы’ функция Get(сИмяМанипулятора[,чИндекс]) Получить(сИмяМанипулятора[,чИндекс])
получить элемент коллекции (Индекс=0…Колво-1)
‘чИндекс’ функция IndexOf(оМанипуляторы) Индекс(оМанипуляторы)
получить индекс элемента коллекции (Индекс=0…Колво-1)
‘оМанипуляторы’ функция Add(сИмяМанипулятора) Добавить(сИмяМанипулятора)
добавить элемент в коллекцию
void процедура Remove(чИндекс|сИмяМанипулятора) Удалить(чИндекс|сИмяМанипулятора)
удалить элемент из коллекции (Индекс=0…Колво-1).
Индексация сдвигается на ‘-1’
void процедура Clear() Очистить()
очистить коллекцию
вот и нарвался на первый случай «проблемы конкурентного окружения»
1) подменил запросы «sel ect … fr om _1SJOURN ….»
на множественный фильтр по графе отбора
sel ect …
FR OM _1SJOURN AS TabJ
INNER JOIN _1SCRDOC AS TabGraf with (NOLOCK,INDEX(CHILD))
ON (TabGraf.CHILDID = TabJ.IDDOC)
AND (TabGraf.MDID = «+чИдГрафы+»)
AND (TabGraf.PARENTVAL «+СтрУсловияОтбора+»)
2) получил «какашку»: при создании нового документа на сервер уходит запрос
(поймал профилером)
set rowcount 1;
sel ect DOCNO fr om vw_oops__1SJOURN_XXXЮзер
WITH (NOLOCK)
wh ere DNPREFIX=’ 11972014 ‘
order by DNPREFIX DESC, DOCNO DESC;
set rowcount 0
что приводит к выдаче не «вообще» максимально номера документа в таблице
а к «отфильтрованному» максимальному номеру 8((( для пользователя «XXXЮзер»)
В результате имеем задвоение нумерации :
если разные конкурирующие пользователи
используют разные фильтры — по СВОИМ значениям отборов
При этом : пользователь без фильтров
видит два документа с одинаковым номером
введенные этими двумя разными «отфильтрованными» пользователями
Чтобы адекватно пользоваться данной ВК,
в ней нужна доработка ( читаем «запрос на фичи к этой ВК» ):
1) иметь режим «QueryAct.Отладка(0/1)»
чтобы видеть что реально уходит на сервер
2) иметь возможность условной замены «суррогатов»(имен),
для чего добавить 2 свойства
* Манипулятор.ПриУсловииДа=ХХХ
* Манипулятор.ПриУсловииНе=УУУ
тогда суррогат будет срабатывать (выполнять замену запроса)
только при условии что в тексте запроса
* есть подстрока вида «ХХХ»
* нет подстроки вида «УУУ»
Если параметр пустой — безусловная замена.
В моем случае эти параметры будут такими:
* Манипулятор.ПриУсловииДа=»»
* Манипулятор.ПриУсловииНе=»sel ect DOCNO fr om »
Можно ожидать такие доработки?
Иначе в продакшене использовать эту ВК не имеет смысла.
P.S> ну или выложить здесь исходники,
дабы (кто хочет) сам доработал под свои нужды то, что хочет….
Так доработали эту компоненту? Или уже никто не хочет заниматься семеркой?
(11) dicwork, кому-то это еще интересно?