Работа с буфером обмена (импорт/экспорт в пределах ИБ, нескольких ИБ, Word, Excel и т.д.)




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

33 Comments

  1. Bublik2011

    Удивительно экономит время! Нечто подобное чудо встречаю второй раз. Первое было — «Изображение из буфера привязать к элементу номенклатуры». Не помню название. Но вам (или Вам?:) удалось создать потрясающую вещь! А можно-ли ее переписать на 8.1, есть такая возможность? 💡

    Reply
  2. TrinitronOTV

    интересная идея, спасибо

    Reply
  3. Поручик

    Для вставки изображений из буфера обмена существует набор обработок для разных конфигураций http://infostart.ru/public/81133/

    Reply
  4. axxell

    (1) Bublik2011,

    К сожалению такой возможности переписать под 8.1 у меня нет. Идёт полным ходом проект внедрения на УПП.

    Reply
  5. lion-killer

    Синтаксическая ошибка:

    {ВнешняяОбработка.БуферОбмена_Вставить.МодульОбъекта(745,18)}: Переменная не определена (вичи_МодульАвтоматизацияСерверКлиент)

    ТекДанные = <<?>>вичи_МодульАвтоматизацияСерверКлиент.ВернутьНоменклатуруПоАртикулу(ТекПредставлениеДанных); (Проверка: Толстый клиент (обычное приложение))

    Reply
  6. gull22

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

    Reply
  7. axxell

    (5) lion-killer,

    Добрый день!

    Сегодня уже будет исправленный вариант.

    Reply
  8. axxell

    (6) gull22,

    Добрый день!

    Исправлю публикацию, где укажу пример в Excel. Структуры данных могут быть неодинаковы, главное наличие реквизитов Номенклатура и Количество

    Reply
  9. zzz_natali

    axxell,

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

    Ну Вы поняли(скажем):

    1я колонка Документы.ПоступлениеТоваровУслуг

    2я колонка Товары

    3я колонка ??? (и надо ли её как-то обзывать по аналогии с 1й и 2й колонками: ИмяДокумента, ИмяТЧ)

    Спасибо.

    Reply
  10. axxell

    (9) zzz_natali,

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

    Reply
  11. Bublik2011

    (3) Поручик, да, именно эта публикация «набор обработок для изображений из буфера обмена » и была прекрасной идеей. Если ситуация складывается как в посте (4) , то для УТ10 пока нашел подходящее решение для моих нужд: на простой связке — COMОбъект и СоздатьОбъект(«VBScript.RegExp»); Так, ляповато, почти SendKey))

    
    Функция ПолучитьТекстБуфераОбмена() Экспорт
    #Если Клиент Тогда
    Объект = Новый COMОбъект(«htmlfile»);
    //Сообщить(Объект.ParentWindow.ClipboardData.Getdata(«Text»));
    Возврат Объект.ParentWindow.ClipboardData.Getdata(«Text»);
    #КонецЕсли
    КонецФункции
    
    
    

    Показать

    Reply
  12. &rew

    (1)Переписать можно. Открываете в конфигураторе 1с 8.2 эту обработку, в 8.1 создаете новую, и как у девочек на футболках.

    П.С. У девочки справа, судя по надписи на футболке, больше парней.

    Reply
  13. ula1c

    Спасибо. Тестирую вашу обработку в такой ситуации: две идентичные базовые конфигурации БП 2.0.46.8. Нужно перебросить содержимое табличной части документа Авансовый отчет из одной базы в другую. Копирование происходит нормально. При вставке из буфера обмена не заполняются поля Наименование документа расхода, его дату и номер, счет учета остаютсяпустыми. Проверила в Worde содержимое буфера обмена — все поля есть. Подскажите в чем причина.

    Reply
  14. ula1c

    (13) ula1c, Добавила в функцию Функция ПолучитьВозможныеНаименованияКолонок() недостающие наименования колонок (которые не заполнялись при вставке). Результата нет. А очень нужно.

    Reply
  15. axxell

    (14) ula1c,

    Добавил возможность работы с документом авансовый отчет и заменил обработку по вставке из буфера на новую. Напишите мне адрес эл. почты, чтобы я выслал обновленную версию

    Reply
  16. ula1c

    (15) Добрый день, Александр! Спасибо за помощь. Адрес эл.почты отправила вам в сообщении.

    Reply
  17. ula1c

    Присоединяюсь к (1) Bublik2011, очень простая, наглядная и удобная обработка, нашла для себя множество вариантов применения — от копирования документов между базами, до загрузки отсканированных документов из Excell и Word. Автору благодарность и «+» несомненно и за обработку и за помощь.

    Reply
  18. zaika

    Очень нужная обработка. У меня вопрос по ней. Есть две конфигурации, в которых у номенклатуры несколько различаются наименования, коды одинаковые, я же могу изменить вашу обработку, чтобы в выгрузке-загрузке принимали участие коды, а не наименования?

    Reply
  19. axxell

    (18) zaika, Конечно, меняйте как Вам будет удобно.

    Reply
  20. zaika

    C загрузкой по коду вроде бы получилось, как я поняла, эта колонка должна обязательно присутствовать в ТЧ. А вот ссылка на документ не выгружается. Вроде бы все прописала по аналогии с вашим документов Заказ.

    Reply
  21. zaika

    Вернее не загружается

    Reply
  22. Odinsov

    Спасибо, пригодилось.

    Reply
  23. retif

    Под УФ не работает?

    Reply
  24. axxell

    (23) retif,

    Не тестировал — возможно не получится запустить

    Reply
  25. user641933_valval669

    Добрый день!

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

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

    Reply
  26. Salavat

    Скачал обработку «Вставить ТЧ из буфера обмена», пробую открыть (в Управляемом приложении (ФормаУпр — сделал основной!)).

    Пишет —

    «ВнешняяОбработка.БуферОбмена_Вставить.Форма.ФормаУпр.Форма(864,5)}: Переменная не определена (ОбработкаТабличныхЧастей)

    <<?>>ОбработкаТабличныхЧастей.ЗаполнитьСодержаниеТабЧасти(НовСтр, ДокОбъект);

    {ВнешняяОбработка.БуферОбмена_Вставить.Форма.ФормаУпр.Форма(871,5)}: Переменная не определена (ОбработкаТабличныхЧастей)

    <<?>>ОбработкаТабличныхЧастей.ПриИзмененииСуммыТабЧасти(НовСтр, ДокОбъект, ПараметрыСеанса.ТекущийПользователь);

    {ВнешняяОбработка.БуферОбмена_Вставить.Форма.ФормаУпр.Форма(878,5)}: Переменная не определена (ОбработкаТабличныхЧастей)

    <<?>>ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(НовСтр, ДокОбъект);

    {ВнешняяОбработка.БуферОбмена_Вставить.Форма.ФормаУпр.Форма(885,5)}: Переменная не определена (ОбработкаТабличныхЧастей)

    <<?>>ОбработкаТабличныхЧастей.ЗаполнитьКачествоНоменклатурыТабЧасти(НовСтр, ДокОбъект);

    {ВнешняяОбработка.БуферОбмена_Вставить.Форма.ФормаУпр.Форма(892,5)}: Переменная не определена (ОбработкаТабличныхЧастей)

    <<?>>ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(НовСтр, ДокОбъект);

    {ВнешняяОбработка.БуферОбмена_Вставить.Форма.ФормаУпр.Форма(899,5)}: Переменная не определена (ОбработкаТабличныхЧастей)

    <<?>>ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуТабЧасти(НовСтр, ДокОбъект);

    {ВнешняяОбработка.БуферОбмена_Вставить.Форма.ФормаУпр.Форма(906,5)}: Переменная не определена (ОбработкаТабличныхЧастей)

    <<?>>ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуМестТабЧасти(НовСтр, ДокОбъект);»

    Reply
  27. Salavat

    Что за переменная, где её указать?

    Reply
  28. Salavat

    Нашёл уже — это не переменная, а общий модуль в Обычных Приложениях.

    Вобщем, да констатирую факт — скачал (3 статрмани ушли), а обработка-то — не доделана.

    Она элементарно — не проверена на Управляемых Приложениях.

    Опровергните, пожалуйста.

    Reply
  29. Salavat

    Посмотрел, подсказываю:

    В управляемом, этот Общий Модуль, имеет 4 варианта —

    ОбработкаТабличнойЧасти…
    Reply
  30. Salavat

    С процедурами — ещё дальше/сложнее.

    Reply
  31. acanta

    Интересная тема, спасибо что затронули. Оно работает с буфером, прошедшим сквозь терминал Виндоус?

    Reply
  32. axxell

    Добрый вечер!

    Я указал, что работает на УПП 1.3 — там нет управляемых приложений. Да и создана обработка 6 лет назад

    Reply
  33. Salavat

    Доброй ночи.

    Да, про УПП, я видел,… но — понадеялся.

    Ладно — за подсказку (суть да дело) спасибо.

    (стартмани — всё-равно жаль)

    Reply

Leave a Comment

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