<?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='\
Пример реализации "чего-то похожего" штатными средствами:
Процедура ПодсветкаПолей() Для каждого Элемент Из ЭлементыФормы Цикл Попытка Если Элемент = ЭтаФорма.ТекущийЭлемент Тогда Если Элемент.Значение = "Введите что-нибудь..." Тогда Элемент.Значение = ""; Элемент.ЦветТекстаПоля = Новый Цвет; КонецЕсли; Иначе Если Элемент.Значение = "" Тогда Элемент.Значение = "Введите что-нибудь..."; Элемент.ЦветТекстаПоля = Новый Цвет(150, 150, 150); КонецЕсли; КонецЕсли; Исключение КонецПопытки; КонецЦикла; ПодключитьОбработчикОжидания("ПодсветкаПолей", 0.1, Истина); КонецПроцедуры Процедура ПриОткрытии() ПодключитьОбработчикОжидания("ПодсветкаПолей", 0.1, Истина); КонецПроцедурыПоказать полностью
(1)+
На форму добавляем пару-тройку полей ввода строкового типа.
И в модуль формы добавляем приведенный текст.
(1) и как систему грузит? чет мне кажется что 10 раз в секунду прогонять процедуру — накладно
(3) Не знаю. Я это не пробовал использовать. Просто набросал на скорую руку возможный вариант реализации.
В заголовке написано, что такие вариант приветствуются. 🙂
(3) При активном использовании формы с 15 такими полями процессор грузится на 5-10%.
В режиме ожидания — 1%.
А (1) работает
(6)Работать то работает…только некошерно так делать.
Под xp нормально работает? и вообще от операционки зависит работоспособность? кто знает?
Как вариант, код подобный (1) можно навесить на обработчик формы «ОбновлениеОтображения».
(9) Обновление отображения не срабатывает при активации элемента…
(10) угу…
(1) не будет работать для нетекстового поля ввода, а вот (0) как я понимаю будет
(12) Тогда делаем так:
1. Для каждого поля ввода вставляем поверх него надпись и текстом "Введите что-нибудь…".
2. Уменьшаем в размерах надпись, чтобы она не перекрывала рамку поля ввода, и назначаем ей белый фон.
3. Снимаем у надписи флажок Доступность.
4. Даем имя надписи такое же, как у поля ввода, но с суффиксом "Подсказка". Например, если поле ввода называется "Реквизит1", то надпись будет иметь имя "Реквизит1Подсказка".
5. И добавляем код:
Процедура ПодсветкаПолей() Для каждого Элемент Из ЭлементыФормы Цикл Попытка Если Элемент = ЭтаФорма.ТекущийЭлемент Тогда ЭлементыФормы[Элемент.Имя + "Подсказка"].Видимость = Ложь; Иначе ЭлементыФормы[Элемент.Имя + "Подсказка"].Видимость = НЕ ЗначениеЗаполнено(Элемент.Значение); КонецЕсли; Исключение КонецПопытки; КонецЦикла; ПодключитьОбработчикОжидания("ПодсветкаПолей", 0.1, Истина); КонецПроцедуры Процедура ПриОткрытии() ПодключитьОбработчикОжидания("ПодсветкаПолей", 0.1, Истина); КонецПроцедурыПоказать полностью
(13) и что произойдет при попытке клика по подсказке? Должно быть, чтоб активным стал элемент под подсказкой
(14) Именно так и будет. Для этого сбрасывается флажок Доступность у надписи.
Могу выложить обработку-пример, но не знаю куда…
(15) выложи на
(16) Выложил.
Обработка «ПодсказкаВПоле2.epf».
Пояснения к обработке.
1. Ссылки на справочники использованы из самописной конфигурации, так что надо будет заменить на свои.
2. Подсказки сделаны только для первых 10 реквизитов.
3. Код всего-лишь отражает концепцию и требует адаптации под конкретные условия применения.
(17) прикольно, если б не постоянная нагрузка на систему… я и не знал, что если убрать доступность, то можно «проваливаться» сквозь надпись
(18) Я тоже не знал… Методом тыка обнаружил. 🙂
что то я нагрузки на систему таким методом совсем не замечаю