1C.Net:Предприятие + DirectX = 3D-графика на формах 1С:Предприятие




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

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

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

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

20 Comments

  1. А моделирование окон?

    К примеру производство окон.

    Там надо вбить параметры, рассчитать материалы и вывести макет будущего окна на экран.

    Сюда же можно это прикрутить?

    Reply
  2. Elisy

    (1) Если разобраться в принципах 3д-моделирования, то можно. Проблема в том, что это целая наука, требующая время на освоение. Многие моменты требуют знаний в высшей математике.

    Применительно к окнам ребята из АТехголоджи подготовили целый проект на .Net и «глубоко» внедрили его в 1С. Вот ссылка на Инфостарт: 1C.Net:Предприятие – пример коммерческого успеха .Net-решений в России

    Reply
  3. viollan

    (1) Можно и моделирование окон сюда прикрутить. Только удобнее написать на C# отдельную сборку и подключить используя Elisy подключить.

    Reply
  4. o.nikolaev

    Общее замечание — это не первый в интернете пример работы 1С с 3d 🙂 В свое время еще Гений 1С (который сотик за секс толкал 😀 ) публиковал пример работы с VRML в 7.7. Причем там строилась структура склада.

    (2) АТехнолоджи рулит. Особенно WinDraw. То что они встроили в 1С-ину — довольно сильно урезанная версия их флагманского продукта.

    Reply
  5. Elisy

    (4) Что-то ссылок при написании статьи не смог найти на 3д-графику в 1С 🙂 Если есть ссылки на статьи таких работ, давайте. Я обязательно напишу в статье. А то информации совсем мало.

    Вы тогда скажите еще — чего в 1С сделать никак не удалось до сих пор. 🙂 Может мне удастся примеры сделать. Анимация на формах была?

    Reply
  6. mehalyna

    Хорошая идея! Действительно можна визуализировать работу на складах. Огромная просьба, дайте ссылки на статьи по работе с 3d-графикой в 1С! Заранее благодарен!

    Reply
  7. Elisy

    (6) К сожалению вышла только одна статья о 3д в 1С. Оригинальная статья, которая опубликована на Инфостарт, находится здесь:

    http://www.richmedia.us/post/2010/06/23/1c-directx-wpf.aspx

    Reply
  8. oiter

    Спасибо за пример. Были мысли реализовать один проект с использованием 3D. У нас в компании такое реализовано через DLL библиотеку, написанную на Delphi + OpenGL. Эта библиотека генерировала отдельное окно, которое или пряталось за окно 1С, или, если делали поверх окон, закрывала 1С собой, пока не закроешь. Короче есть минусы в работе. Библиотека прикручена к 1С и позволяет наглядно увидеть расположение на карте списанные в производство оборудование.

    Теперь вот пытаюсь заменить данную DLL на нечто, указанное в примере.

    Reply
  9. Elisy

    (8) Самое обидное, что использование 3д требует специальных знаний. И чтобы профессионально работать с трехмерной графикой, нужно этому посвятить всю жизнь.

    Есть идея еще таким же образом использовать игровую XNA-платформу. Вроде, она тоже дружит с .Net framework и подключается аналогично.

    Reply
  10. john-nnov

    Ни кто эту тему больше не развивал?

    Reply
  11. Elisy

    (10) john-nnov,

    Ни кто эту тему больше не развивал?

    Вы имеете ввиду 3d или вообще визуальные компоненты .Net (wpf/winforms)?

    Reply
  12. john-nnov

    Визуальные компоненты.

    Reply
  13. Elisy

    (12) john-nnov,

    Визуальные компоненты .Net в 1С 8 хорошо себя проявили при планировании в «оконных» компаниях



    Reply
  14. mehalyna

    Да… Идея хорошая. Это бы еще и реализовать. Спасибо за подборку информации и полезные ссылки!

    Reply
  15. pavel_pss

    Спасибо. за статью.

    Reply
  16. pavel_pss

    Было бы еще не плохо если бы ты выложил dll или ссылку где можно скачать.

    Reply
  17. Elisy

    (16) pavel_pss,

    Было бы еще не плохо если бы ты выложил dll или ссылку где можно скачать.

    http://infostart.ru/public/20035/

    Последние версии здесь:

    http://www.1csoftware.com/forums/viewtopic.php?f=9&t=13&start=10

    доступны для скачивания после регистрации

    Reply
  18. alina0587

    Уважаемый Elisy!

    Меня очень заинтересовала Ваша разработка по 3D-графике в 1С.

    Разрешите задать Вам вопрос.

    Как мне нарисовать линию в трехмерном пространстве, используя Ваши компоненты? (Я знаю набор координат x,y,z).

    Заранее спасибо за ответ!

    Reply
  19. Elisy

    (18) alina0587,

    Добрый день, Алина

    Код для вывода 3д-линии с координатами 0, 0, 0 — 5, 0, 0 будет следующий:

    normal0Wire = net.New(«_3DTools.ScreenSpaceLines3D»);
    normal0Wire.Thickness = 1;
    normal0Wire.Color = net.GetStatic(«System.Windows.Media.Colors», «Blue»);
    
    point0 = net.New(«System.Windows.Media.Media3D.Point3D», 0, 0, 0);
    normal0Wire.Points.Add(point0);
    point1 = net.New(«System.Windows.Media.Media3D.Point3D», 5, 0, 0);
    normal0Wire.Points.Add(point1);
    
    _mainViewport.Children.Add(normal0Wire);
    

    Показать

    Обновил в статье обработку для 8.2 и .Net Bridge 4

    Reply
  20. Midasu

    В номенклатуру грузить модели товара!

    Reply

Leave a Comment

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