<?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='\
Огромная просьба не давать в кратком описании к статье длинных ссылок. Главная страница портала становится кривой 🙁
к пункту 5 — могу добавить — это не большой минус по сравнению с перебросом com порта через 2 терминала и по поводу эмуяции интера — ну почитай про заводские настройки, у меня стоят штук 7 сканов по ценам от 100$ до 750$ все с портом ps/2 — нажатие интера только через суффикс,
А вот работают они действительно в интересных условиях
1 Бездисковые терминалы которые получают рабочий стол по xdmcp у линукс сервера
2 И люди работающие в линукс сессии работают по рдп 1с
поэтому я и отказался от усб и rs232 сканов
ps +1
Смысл в том, что если поставить в разрыв клавы без доп.настроек(драйверов), то например в форме подбора номенклатуры в типовой ТиС ну очень тяжко по ШК работать… там же на каждое нажатие идет «отработка» быстрого поиска…
Ещё раз к 5 пункту. COM- портовыми сканерами уже дважды сжигали мать. (специфика предприятия — запросто роняют тяжёлую железяку на шнур. Как следствие — питание на COM-порт). Поэтому теперь используем клавиатурные. В качестве <префикса> отправляю <F6> (можно любую другую незадействованную функционалку), а в тех местах, где может использоваться сканер, повесил невидимую кнопку, нажимаемую этой функционалкой и вызывающую процедуру, абсолютно идентичную Процедуре ОбработкаВнешнегоСобытия(). При програмировании сканера кроме префикса перед посылкой кода ставлю задержку 200-300мс (в зависимости от компа, к которому подключен) суффиксом идёт Enter. Работает без проблем. При этом во всех местах, где используется сканер, добавилась возможность ручного ввода ШК нажатием F6. Очень удобно в подборе, когда ШК не читается, но цифры оператор видит нормально.
Это, я не понял, а где указание соавторства??? 🙂
Замечания:
п.4 — «ШК бывают в разрыв…» заменить бы на «Сканеры бывают в разрыв…»
— USB-сканеры все равно эмулируют либо клаву, либо COM, поэтому отдельной настройки «под USB» не найдете
п.6 По драйверам:
— в комплекте с 1С (при установке чистой БД) и на диске ИТС идет «родной» драйвер сканера scanopos.dll, на ИТС есть описание его методов. Нормальный, но не отрабатывает события с клавиатурных сканеров.
— бесплатный хороший драйвер для сканеров любых типов (а также ридеров) предоставляет Атол (, это Scaner1C.dll+у них на сайте очень подробно и хорошо описано подключение оборудования их дровами (.
— драйвера под сканеры (из тех, что знаю) есть также у Штрих-М ( и Раруса (, но жлобский Рарус требует за него денюжки
— ну и куча самописных драйверов, если поискать на http://www.proclub.ru и http://www.infostart.ru
п.8 -для клавиатурных сканеров можно обойтись без дров и ОбработкиВнешнегоСобытия (если, например, самописная конфа, и механизм работы с торг.оборудованием переносить ломает): надо просто предварительно ставить курсов в реквизит формы, куда должен вводится ШК, а у сканера префикс убрать, суффикс выставить Enter
Ну и последнее. ЛЮДИ! Читайте документацию по настройке, идущую со сканером. Меньше будет тупых вопросов 🙂
Признаю, облажался!
Хотел выразить благодарность, но зажилил…
Правда, ссылку — указал 😉
Закладочку в браузере поставлю. Купили СШК, нужно будет разбираться.
очередные пять копеек, очень удобно добавлять звукой сигнал в обработке внешнего события если товар с нужным штрих кодом не найден.
что типа:
WshShell = CreateObject(«WScript.Shell»);
WshShell.Run(«%comspec% /c echo «+Симв(7),0,-1);
ЗЫ если работа ведётся в терминале, сигнал идёт на системный динамик клиента (даже если это «тонкий» клиент)
(9) справедливое замечание.
Именно так у меня сделано, например, вот здесь:
— события озвучиваются более яркими звуками, в случае «бяки» звонить тревожный гунявый телефонный звонок…
Атол, по шагам
Может кому пригодится:
СПАСИБУЩЕ!!!
Всего одна фраза, пара слов
Стандартные настройки сбивали суфикс…
как то сталкивался с ситуацией в 1С 7.7.
использовался драйвер Атол технологий. сканер USB в эмуляции клавиатуры, работает в терминале RDP.
сканировали ШК, поиск по номеклатуре, внутренне событие отрабатывается легко и непринужденно,
ШК оказывается не найден, выдается соответственное диалоговое сообщение «ШК не найден» с кнопкой «ОК».
фокус ввода соответственно переходит на него.
если в этот момент сканируется еще один ШК, и вот тут начиналась проблема с 1С в плане зависания.
приходилось снимать задачу 1С-ки.
(14) Религия позволяет отладчиком посмотреть куда идет 1Сина при «..если в этот момент сканируется еще один ШК,»..?
и соответственно, если юзверь НЕ ВОСПИТАН чтобы НЕ СКАНИРОВАТЬ тогда КОГДА ЭТОГО НЕ ТРЕБУЕТСЯ — может а) обучить юзера б) перестроить процес, например если юзверю начхать на окно-предупреждение — то нахрена его выдавать — плюнул сообщение в табло или записал в протокол ошибок а юзверь себе сканирует дальше…
Добрый день есть китайский сканер штриха jepod jp-b2 (беспроводной)
Соответственно рfботает как клава, ни какой эмулции в нём нет.
Так вот приходится каждый раз жамкать Ф7.
В тестах видим что штрих сканирует штрихкод+нажимает enter.
на могу понять как запрограммировать ему префикс.! Помогите пожалуйста!
(17) попробуйте поставить атоловские дрова, которые позволят системе сканер в разрыв клавы воспринимать как внешнее событие
Как то долго ищет, видимо задержка. Как её убрать? DTO6_2010_04_23
Вопрос снят! установил 2008 года дрова всё работает! Алилуя!