Активный "крест" в табличном документе — II




Принцип обмена данными из 1С с сайтом (на MySQL) и выдачи (публикации) этих данных по запросу.
PHP-Скрипт автоматической загрузки данных из файла данных в формате CSV в базу данных сайта работающего на WordPress.

В продолжение моей темы: 1С:Альфа-Авто Автосалон Автосервис: обмен с сайтом.
С помощью данного скрипта можно загружать в автоматическом режиме, по расписанию, данные сервисных книжек (ремонтов авто) из 1С:Альфа-Авто Автосалон Автосервис.
Также можно загружать данные в ручном режиме: для этого делается скрытая страница, где размещается специальная кнопка.
Комментарии размещенные внутри скрипта разъяснят логику и порядок действия.
Комментарии с "/////    echo" использовались для отладки.
Дополнительно создана таблица для журналирования результатов загрузки данных.
Скрипт включает в себя защиту от SQL инъекций (думаю безопасность соблюдена в полной мере).
В кратце:
1. Пишется скрипт, который запускает этот.
2. Создается регламентное задание в WordPress, по которому запускается скрипт из п.1. 
3. Этот скрипт осуществляет проверку на существование файла обмена в папке.
4. Если данные не новые, загрузка не производится.
5. Если данные новые, очищается таблица сервисных книжек.
6. Загружаются новые данные.

Собственно сам скрипт:

<?php // Полная загрузка сервисных книжек, создан 2025-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='\

38 Comments

  1. Ish_2

    В общем случае речь идет , конечно , об определении формы выделенной фигуры как

    функции от координат активной ячейки.

    Reply
  2. anonimka

    Удобно, спасибо за идею.

    Reply
  3. WKBAPKA

    ха, оригинально

    Reply
  4. Катя84

    неожиданно:) и удобно

    Reply
  5. tango

    Процедура КоманднаяПанельОценкиПлюсМинус(Кнопка)

    Если Кнопка = ЭлементыФормы.КоманднаяПанельОценки.Кнопки.Плюс тогда

    СсылкаПлюса = «https://infostart.ru/projects/3766/»;

    ЗапуститьПриложение(СсылкаПлюса);

    Иначе

    СсылкаМинуса = «https://infostart.ru/projects/3766/»;

    ЗапуститьПриложение(СсылкаМинуса);

    КонецЕсли;

    КонецПроцедуры

    *******

    + и —

    одна ссылка

    мелкое мошенничество?

    Reply
  6. Ish_2

    (5) Одна ссылка — которая не дает ни плюса , ни минуса. А лишь отправляет пользователя на страницу с публикацией.

    Мошенничество — налицо. За бдительность — плюс.

    Reply
  7. Ish_2

    От Вашего поста, Катерина, мне неудобно , потому что неожиданно.

    Reply
  8. Ish_2

    (4) От Вашего поста, Катерина, мне неудобно , потому что неожиданно.

    Reply
  9. Ish_2

    — Разве есть связь между пустым множеством и мошенничеством ?

    — Есть : способ мышления.

    Пустое множество является подмножеством любого множества — это не баг.

    Ссылка не содержит ни плюса, ни минуса — это не мошенничест

    Reply
  10. Ish_2

    (10) Лучше обратиться к специалистам по 1с++.

    В классической 77 ,насколько я помню, в объекте «Таблица» нет возможности программно реализовать выделение определенных областей .

    Reply
  11. Ivon

    Взял идею в реализацию. Что не удобно — нельзя в этом случае просто скопировать часть отчета в Эксель. В связи с чем была доработана кнопкой включения и отключения функции выделения крестом.

    Reply
  12. Ish_2

    (12)

    1.В процедуре ПриАктивизацииОбласти можно предусмотреть анализ формы выделенной фигуры . Если выделено несколько ячеек (например, при нажатой клавише мыши) , то выделение строки(креста) отменяется и пользователь имеет в табличном документе обычный множественный выбор ячеек.

    Это продемонстрировано в бухотчетах http://infostart.ru/projects/3288/ .

    2. Вообще говоря, логично предусмотреть в программе несколько способов выделения , каждому из которых поставить в соответствие процедуру обработки события ПриАктивизацииОбласти. Переключение режимов выделения возможно производить при помощи метода УстановитьДействие.

    Reply
  13. Ivon

    (13).Выделение строки (креста) отменяется, но при попытке вставить в буфер выделенный фрагмент выводится ошибка, что данный фрагмент не может быть помещен в буфер обмена. Поэтому пришлось добавить небольшой кусочек кода. А так у меня все просто в экстазе от отчетов. Большие полотенца очень удобно просматривать.

    Reply
  14. Ish_2

    (14) Любопытно . Мне неизвестен такой прием.

    Если нетрудно , приведите процедуру ПриАктивизацииОбласти с указанным «небольшим кусочком кода», который позволяет поместить выделенный фрагмент в буфер обмена.

    Reply
  15. Ivon

    (15). Вы меня неправильно поняли. Я всего-лишь добавил флаг отключения выделения крестом, который включаю и отключаю. В зависимости от флага выделение крестом либо работает, либо не работает и тогда можно выделить произвольный фрагмент отчета. Потом пользователь нажимает сам Ctrl+С.

    Reply
  16. Ivon

    Хотя в принципе можно попытаться проэмулировать нажатие клавиш Ctrl+С программно. Правда я не пробовал это сделать.

    Reply
  17. Altair777

    (11)

    > В классической 77 ,насколько я помню, в объекте «Таблица» нет возможности программно реализовать выделение определенных областей .

    С Формексом можно 🙂

    http://infostart.ru/projects/5522/

    Reply
  18. correct_coding

    прикольная фишка, но что-то не могу понять как ее правильно заставить работать если очет формируется через СКД и последовательно выводится несколько таблиц. Вертикальное выделение на первой таблице обрывается и дальше не идет, т.е. если щелкаешь по второй, третьей и т.п. таблице, выделяется только строка.

    Reply
  19. Ish_2

    (19) Неважно как формируется отчет с использованием СКД или без.

    Выделение в табличном документе не зависит от способа получения табличного документа.

    Пример в демон.обработке Активный крест.epf приведен для простого случая .

    Выделение осуществляется в одной прямоугольной области табличного документа , заданной четырьмя координатами Верх,Низ,Лево, Право.

    Если областей для веделения несколько, как у Вас , то , конечно ,алгоритм определения области выделения в процедуре ПриАктивизацииОбласти() должен быть переделан.

    Reply
  20. Ish_2

    +(19) После вывода в табличный документ отчета, нужно определить области (таблицы) для выделения крестом , например с помощью метода НайтиТекст.

    Заполнить таблицу значений «ТЗ» с четырьмя колонками (Лево,Верх,Право,Низ) координатами найденный обл

    Reply
  21. Altair777

    (22) А более конретные факты Вы привести можете?

    Reply
  22. koliaff
  23. Ish_2

    (24) Глупости.

    По указанной ссылке приведен пример координатного выделения в Excel. Т.е. никакого отношения к 1с не имеющего.

    Я так понимаю , Koliaf .

    Вашей недавней теме — мной была дана оценка- «Жуть».

    Оценка Вашей работе дана подробная , обоснованная .

    В этом всё дело.

    Решившись на дешевые приемы с обвинением в «Плагиате», Вы показываете свой уровень , как человек.

    Оценка Вам , прежняя — Жуть.

    Reply
  24. koliaff

    (Ish_2) Плагиат относится к идее, а не реализации ! Реализации здесь на 5 коппек, так что о ней и говорить не приходится.

    Reply
  25. biv75

    (26) сделать автомобиль вроде как тоже получается не проблема, идея ясна, принципы давно известны, но что-то феррари на ВАЗе так и не получилось. Идею может любой дурак с перепугу озвучить, а вот реализуют единицы. Так что сама формулировка плагиата идеи смешна.

    Reply
  26. Ish_2

    (26) Опять несерьезно .

    Идея выделения крестом (координатного выделения) «в сетке» стара как мир . Никокого открытия идеи ни автор по Вашей ссылке, ни я не совершали.

    Вся суть темы «Активный крест» не в идее , а в простом способе реализации.

    Способ этот до опубликования темы «Каким должен быть бухгалтерский отчет ?» нигде не был опубликован и нигде не применялся.

    Тема «Активный крест» опубликована также на сайте ЗАО «1с».

    С тамошней проверкой и модерацией.

    Поэтому Ваше обвинение в плагиате забавно. Но я Вас прощаю.

    Reply
  27. koliaff

    Хорошо, уговорили, не плагиат, а рецепция. Но похвалы Автор за 20 строчек кода принимал не краснея. 🙂

    Reply
  28. Ish_2

    (29) Кстати , в понедельник приглашаю посетить тему

    Строка -«заголовок» в табличном поле

    Там строчек всего десять. Еще проще.

    И минус можно поставить еще один.

    Приглашаю, koliaff .

    Reply
  29. Ish_2

    (31) Новая редакция темы «Каким должен быть бухгалтерский отчет ?» будет готова и открыта в понедельник.

    Reply
  30. Altair777

    (31) > Пошутил я, просто хотел посмотреть есть кто на сайте 🙂

    Для этого есть http://infostart.ru/community/online/

    В общем, очень плохо Вы себя показали

    Reply
  31. bearcat

    идея с выделением активных ячеек в табличной части очень нравится

    радостно скачала

    и что с ней делать дальше?

    только смотрю на предложенный пример, а в моих таблицах это не работает

    что нужно сделать?

    1. скачала

    2. прицепила во внешние обратотки

    3. а дальше?

    Reply
  32. Ish_2

    (34) Текущую обработку нельзя использовать «как есть».

    И от того что Вы подцепили ее во внешние обработки ничего в Ваших отчетах не изменится.

    В текущей теме продемонстрирован ЛИШЬ прием программирования, пример

    (т.е. технология для программиста ) , использовав который программист может модифицировать нужный для Вас отчет.

    Reply
  33. bearcat

    понятно

    Reply
  34. Nur**

    Очень удобно,спасибо за идею. пользуюсь.

    Reply
  35. AruslanM

    Супер, взял на вооружение, .

    Reply
  36. tindir

    возникла проблема с программной фокусировкойактивизацией на области табличного документа. как я понимаю в этой обработке как раз можно будет найти нужный код для меня? спасибо.

    Reply
  37. ZeroDM

    В управляемых формах не работает. Есть примеры адаптации?

    UPD: Решил проблему. Ненужно использовать метод «УстановитьДействие». И так работает

    Reply
  38. Ish_2

    (40) Давно это было. Рад, если хоть чем-то пригодилось.

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *