Передача ссылок на документы и справочники между пользователями




Принцип обмена данными из 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='\

15 Comments

  1. vcv

    Ээээ… Может я что-то путаю, но в 1С8 уже много лет есть штатный функционал обмена ссылками на объекты базы… Чем этот велосипед лучше/функциональней?

    Reply
  2. Cobranet123

    Ну пытается человек перенести функционал управляемых форм в обычные, ну чего такого, пусть забавляется ))

    Reply
  3. yuran2000

    (1) vcv, просветите, пожалуйста, где он в обычных формах?

    Reply
  4. v.l.

    Ух ты! Я подобное делал нашему финдиректору в прошлом году. Я в своей копии базы проводил документы, давал отчет об ошибках с внутренними ссылками, финотдел исправлял ошибки в рабочей базе прямо из моего отчета.

    (1) vcv, тем, что и другие велосипеды. Т.е. ничем + желание новичка поделиться своим открытием. Я раньше тоже сюда вываливал тонны гов веолсипедов. Но потом после обсуждения со старшими товарищами убирал. Осталась может парочка. Один — это точно.

    (3) где-где, в синтакс-помощнике. Как обмены происходят между разными базами? Например, торговой и бухгалтерской?

    Попутно предложения:

    1. А почему бы не сделать полную ссылку? Вида «тип объекта + ссылка на объект этого вида». Хотя эта вроде парсится «ДокуентСсылка…..».

    2. Весь функционал надо поместить в одну обработку — в одном поле сформировали, в другом получили. Ведь всякие почтовики, скайпы и прочие асечки имеют один клиент, который и принимает и отправляет, у них же нет отдельно «скайпо-приёмное» и «скайпо-отправляльное».

    3. Поправь в описании это ужасное «ковычки» на «кавычки».

    4. Ключевое понятие «передать ее другому пользователю данной базы» в таком случае лучше сделать свой мессенджер в самой базе, и оповещать нужного пользователя. Такое существует еще со времен 7.7.

    Reply
  5. v.l.

    Вот примерно так я передавал ссылки между базами (по сути — клоном рабочей), как я описал выше:

    Формировался обычный отчет с обычной расшифровкой:

     мНомер = мНомер+1;
    мОбластьСтрока.Параметры.Номер = мНомер;
    мОбластьСтрока.Параметры.Документ = ?(мОбрабатываемыйДокумент = Документ, «», Документ);
    мОбластьСтрока.Параметры.ДокументРасшифровки = Документ;
    мОбластьСтрока.Параметры.ОписаниеОшибки = ПредставлениеОшибки;
    мОбластьСтрока.Параметры.Контрагент = Контрагент;
    мОбластьСтрока.Параметры.СтавкаНДС = СтавкаНДС;
    мОбластьСтрока.Параметры.ВнутреннийИдентификатор = Документ.Ссылка.УникальныйИдентификатор();
    
    мТабДок.Вывести(мОбластьСтрока);

    Показать

    А после закрытия обработки, контекст расшифровки терялся, тем более, после открытия в другой базе. Поэтому восстанавливал расшифровку прямо из внутренней ссылки:

      УникальныйИдентификатор = Новый УникальныйИдентификатор(ТабличныйДокумент.Область(«R»+Формат(К,»ЧГ=»)+»C7″).Текст);
    
    Для Каждого ЭлементМетаданных из Метаданные.Документы Цикл
    Ссылка = Документы[ЭлементМетаданных.Имя].ПолучитьСсылку(УникальныйИдентификатор);
    
    Если Найти(Ссылка, «Объект не найден») Тогда
    Продолжить;
    Иначе
    ТабличныйДокумент.Область(«R»+Формат(К,»ЧГ=»)+»C3″).Расшифровка = Ссылка;
    Прервать;
    КонецЕсли;
    
    КонецЦикла;

    Показать

    Reply
  6. kapustinag

    (5) Vladal, Как-то программный код, вставленный в сообщение, странно выглядит — вместо раскрашенного текста показывает текст с тэгами. Во всяком случае, у меня в броузере Firefox так.

    Reply
  7. yuran2000

    (4) Vladal,

    Ключевое понятие «передать ее другому пользователю данной базы» в таком случае лучше сделать свой мессенджер в самой базе, и оповещать нужного пользователя. Такое существует еще со времен 7.7.

    Зачем усложнять? Кому надо — доделает. У меня это в основном используется для отправки пользователем мне письма с вопросом по конкретному документу. Стало лень искать по виду/дате/номеру.

    Reply
  8. v.l.

    (6) kapustinag, побилось. Да. Я на другом компьютере открыл — действительно бодяга ХТМЛ. Нажимаю «Изменить» — нормальный текст с тэгом [1C-CODE]. Странно.

    Сначала отправлял из огнелиса под виндой. Сейчас исправил в огнелисе в линухе. Видать, что-то с дополнениями, хотя огнелис у меня синхронизируется, может еще чего. Глубоко не копал.

    (7) Зачем выкладывал с таким подходом? Развивая эту мысль: «Кому надо — сделают.» Лучше использовать готовый продукт, чем разбираться в чужом коде и доделывать.

    В описании нет, что ты этот процесс разделил на front- и back-.

    Reply
  9. v.l.

    По коду в (5)

    В третьей колонке отчета выводится документ и расшифровка со ссылкой на этот документ (разных видов), в 7-й — внутренний идентификатор для восстановления расшифровки. Т.е. отчет формировался мной в копии рабочей базы, показывал ошибки, далее сохранялся во внешний файл MXL, в рабочей базе финик открывал этот файл из обработки и получал ссылки в расшифровке. Таким образом сохранялась кликабельность расшифровки в отчете.

    Reply
  10. yuran2000

    (8) Vladal,

    Зачем выкладывал с таким подходом? Развивая эту мысль: «Кому надо — сделают.» Лучше использовать готовый продукт, чем разбираться в чужом коде и доделывать.

    Это я про внутренний мессенджер. А со своей задачей обработка отлично справляется, и, что самое главное, отправить мне ссылку очень просто для пользователя.

    Да и внешние месседжеры уже как правило у всех установлены, зачем их плодить?

    Reply
  11. Yashazz

    Стоп. В буфере обмена? Это вы clipboard.dll припахали или чем другим воспользовались?

    И да, xml-сериализация ссылок на объекты рулит. Туда и обратно в одну строку кода ))

    Reply
  12. yurkov

    (11) Yashazz,

    Это вы clipboard.dll припахали

    Все проще, справка рулит.

    Reply
  13. DrAku1a

    А не проще ли пользовать: ЗначениеВСтрокуВнутр(), ЗначениеИзСтрокиВнутр()?

    Reply
  14. yuran2000

    (13) DrAku1a, Альтернатива, но не проще.

    Reply
  15. yuran2000

    Что особенно удобно, так это, что документ откроется даже в том случае, если ему изменили номер и дату после создания ссылки.

    В ссылке все, что находится до знака @ — только для наглядности.

    Reply

Leave a Comment

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