Программное создание графических схем




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

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

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

<?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='\

24 Comments

  1. Alias

    Тэги не побились, всё работает.

    Вернее, почти всё… в случае если региональные установки разделителя целой и дробной является запятая (Россия), в XML попадают числа типа 191,5 (с запятой), что делает результирующую XML-строку некорректной. Дроби получились от деления на 2 (когда ищем середину).

    Заменил Строка() на XMLСтрока() в функции ДобавитьКоординатыФигуры(), после чего стало совсем замечательно.

    P.S. Линии декоративные вместо нормально-привязанных (например, от выбора варианта), это недоработка или особенность?

    Reply ↓
  2. Yashazz

    (1) Alias, блин, насчёт декоративных линий — это я в итоге мучений с публикацией не ту версию скопипастил. Конечно, там должны быть привязываемые. Это рулится параметром «ДекоративнаяЛиния». Извиняюсь. А вот насчёт формата — тупо прохлопал. Постараюсь обновить публикацию, спасибо.

    Reply ↓
  3. vandalsvq

    (2) прикрепи обработку, у кого мани есть могут скачать. Все лучше чем со статьи копипастить ))))

    Reply ↓
  4. Сурикат

    Огромное спасибо за публикацию!

    Reply ↓
  5. Yashazz

    Коллеги-товарищи, я собираюсь эту штуку развивать дальше, поэтому очень приветствуется критика. Где-какие косяки и недоработки, пишите.

    Reply ↓
  6. konstruktiv

    (5) тоже делал такое, также использовал XDTO-сериализацию. В своем время разобрался со многими вещами, даже которые нельзя было сделать интерактивно (перевернуть фигуру на 75 градусов, фон заштриховать). Бросил это дело из-за одной мелочи, поэтому хочу сразу предостеречь. Но возможно я просто не нашел решения.

    1. Получается, что стрелки можно сделать только параллельно осям с изгибом только в 90 градусов. Тут вроде бы не страшно. Не так уж плохо и выглядит.

    2. Когда связываешь стрелку с фигурой — то есть при интерактивном перетаскивании фигуры стрелка не отклеивается — так вот стрелка может примыкать только к одному из 4 секторов, только к одной точке. А это уже порождает ограничения.

    Например разными стрелками будем обозначать товар, деньги и т.п. Соответственно из-за описанных выше ограничений стрелки разного вида сольются в одну. Можно сделать чтобы при первом формировании они не склеивались, но как только передвинешь что-то мышкой, они склеиваются. А интерактивность все-таки лучше оставить в таком продукте.

    Reply ↓
  7. konstruktiv

    (5) с этими ключами тоже разобрался:

    <printPropItem><key>6</key><val>10</val></printPropItem>

    |<printPropItem><key>7</key><val>10</val></printPropItem>

    |<printPropItem><key>8</key><val>10</val></printPropItem>

    |<printPropItem><key>9</key><val>10</val></printPropItem>

    |<printPropItem><key>13</key><val>0</val></printPropItem>

    |<printPropItem><key>16</key><val>0</val></printPropItem>

    Я не скачивал обработку, но я использовал только сериализованные объекты, которые дает платформа, сам текст XML не парсил и не собирал.

    А вообще ощущение, что сами 1сники забросили этот объект, а жаль…

    Reply ↓
  8. Yashazz

    (6) Ага, копаю в эту сторону.

    Кстати, в процессе изучения выяснилось, что рисовать можно ЛЮБЫЕ фигуры. Любой формы. Если задать координаты, так получаются жуткие звёзды, кривые косоугольники и прочая прелесть. Ну и декорации со всякими овалами тоже))) Тут да, простор для творчества. Правда, надпись при этом может отказаться не внутри многоугольника, а где-то вообще мимо.

    (7) Справедливости ради, я где-то в планах 1С видел программное изменение коллекций фигур схемы, но под таким пятизначным приоритетом, что ещё год-полтора ждать точно…

    Reply ↓
  9. konstruktiv

    (8) про любые фигуры тоже проходили)) вроде скрытых возможностей дофига, но как только пытаешься приложить к какой-нибудь реальной задаче, так руки опускаются

    Reply ↓
  10. Nikola23

    (5) Зачем тратить силы на собирание строк XML вручную, если то же самое прекрасно работает с использованием XDTO? Объектная модель рулит.

    Чем принципиально эта публикация отличается от еще нескольких подобных? Много кода, но зачем?

    Reply ↓
  11. Yashazz

    (10) Nikola23, покажите мне эти подобные, пожалуйста. Кроме работы Diversus’а, конечно. И объясните насчёт XDTO — вы предлагаете оперировать абстракциями на уровне элементов схемы? Ну, можно и так, конечно, только вот у меня несколько попыток подобного подхода обламывались — схема не собиралась обратно.

    Чем ещё отличается — полной доступностью. Можно воспользоваться безо всяких стартманей.

    Reply ↓
  12. Nikola23

    (11) Никаких хитрых абстракций.

    Предлагаю возможность настраивать свойства (в т..ч. методом тыка) с использованием привычной объектной модели.

    Если задача сводится к нарисовать — то Ваш метод может и подойдет, а если необходимо проанализировать структуру связей схемы и построить по нарисованной картинке автоматизацию?

    Если не нашли решения на инфостарте, это значит, либо плохо искали, либо оно куда-то делось.

    Я пользуюсь наработками скачанными отсюда.

    Reply ↓
  13. Yashazz

    (12) Nikola23, а, так это я тоже практикую. В публикации http://infostart.ru/public/531533/ я именно так и поступил — создал только самое необходимое, дальше донастроил штатными методами и свойствами языка.

    А вот за отсутствие пруфлинка и при этом фразу «плохо искали» — мой вам респект, ибо отсутствие ссылки значит, что аналогов у моей публикации всё-таки нету)))

    Reply ↓
  14. user595212_go.blin2014

    Ценная статья, благодарю.

    Reply ↓
  15. DrAku1a
  16. Yashazz

    (15) DrAku1a, да, я указал её как первоисточник. Я от этой идеи собственно и отталкивался. Ещё раз Diversus’у спасибо.

    Правда, там в комментах один товарищ указывает, что это всё было изобретено ещё раньше. Что, в общем, не удивительно)

    Reply ↓
  17. serg_infostart

    Нужен жесткий контроль за itemid, нельзя допускать повторения — иначе будут глюки (срывается соединение между элементами при любой подвижке элемента).

    В вышеуказанном блоке изменить:

    // добавляем линию с координатой, начинающейся от середины варианта
    //парПолучателяЛинии=соотДобавленных.Получить(рВариант.Куда); — если надо получитьэти данные
    парЛВ=Новый Структура;
    парЛВ.Вставить(«Имя»,»ЛинияВарианта»+рВариант.Идентификатор);
    парЛВ.Вставить(«ТипЭлемента»,»ЭлементГрафическойСхемыДекоративнаяЛиния»);
    парЛВ.Вставить(«Идентификатор»,ПолучитьСтаршийИдентификатор(строГС));
    

    на:

    // добавляем линию с координатой, начинающейся от середины варианта
    //парПолучателяЛинии=соотДобавленных.Получить(рВариант.Куда); — если надо получитьэти данные
    парЛВ=Новый Структура;
    парЛВ.Вставить(«Имя»,»ЛинияВарианта»+рВариант.Идентификатор);
    парЛВ.Вставить(«ТипЭлемента»,»ЭлементГрафическойСхемыДекоративнаяЛиния»);
    парЛВ.Вставить(«Идентификатор»,пар.Идентификатор + й + 1); // Вот тут нужно изменить — иначе добавляет существующие itemid
    

    В остальном, все хорошо.

    Напрашивается оптимизация кода, возможно через использование ФабрикиXDTO. И выпустить в виде отдельного серверного модуля.

    Я же хочу на вход подавать простейшую структуру взаимосвязей, на выходе получать ГрафическуюСхему — как раз в процессе производства.

    И конечно же благодаря статье сэкономлена куча времени. Автору и предшественникам благодарность.

    Reply ↓
  18. serg_infostart

    Да, еще нюанс.

    Системные перечисления сторон (portIndex):

    1: Лево

    2: Верх

    3: Право

    4: Низ

    5: Центр

    6: Вариант 1 Лево

    7: Вариант 1 Право

    8: Вариант 2 Лево

    9: Вариант 2 Право

    10: ….. и т.д.

    Поэтому, придется исправить еще и порт источника для Декоративной линии варианта.

    Кусок кода

    парЛВ.Вставить(«НаправлениеОткуда»,ТипСтороныЭлементаГрафическойСхемы.Право); // всегда
    

    меняем на

    парЛВ.Вставить(«НаправлениеОткуда»,7+й*2); // всегда
    
    Reply ↓
  19. serg_infostart

    Не обязательно, т.к. работает и без этого, но…

    Для чистоты преобразований заменим

    парЛВ.Вставить(«ВариантОткуда»,0);

    заменить на

    парЛВ.Вставить(«ВариантОткуда»,й);
    Reply ↓
  20. serg_infostart

    Сделал объектную модель. Ссылка на эту статью имеется — без этой статьи не решился бы создать свой вариант реализации.

    http://infostart.ru/public/551576/ (скоро будет доступна).

    Reply ↓
  21. RainyAugust22

    Где можно скачать в виде обработки?

    Скопипастил код в обработку, не получается запустить, помогите плз:

    {ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(16)}: Ошибка при вызове метода контекста (ПрочитатьXML)

    Возврат СериализаторXDTO.ПрочитатьXML(чтен,Тип(«ГрафическаяСхема»));

    по причине:

    Ошибка преобразования данных XDTO:

    НачалоСвойства: {http://v8.1c.ru/8.2/data/graphscheme}FlowchartContextType Форма: Элемент Тип: {http://v8.1c.ru/8.2/data/graphscheme}FlowchartContextType

    по причине:

    Ошибка преобразования данных XDTO:

    Значение: 191,5 Тип: {http://www.w3.org/2001/XMLSchema}decimal

    по причине:

    Ошибка отображения типов:

    Отображение типа ‘{http://www.w3.org/2001/XMLSchema}decimal’ в тип ‘Число’

    Reply ↓
  22. Yashazz

    (21) Ух, красота… Какая у Вас платформа 1С?

    Reply ↓
  23. RainyAugust22

    (22) 8.3.9.1818

    Reply ↓
  24. Yashazz

    (23) Так это, думаю, просто релиз кривой. 1С, как всегда, косячат неимоверно. Попробуйте на чём-то надёжном вроде 8.3.6

    Reply ↓

Leave a Comment

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