Запросы &НаКлиенте для Управляемого приложения




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

13 Comments

  1. GROOVY

    Шикарно. Сериализовать весь результат любого запроса и передавать его на клиента. Прям слов нет.

    Reply
  2. DitriX

    Это может потребоваться только в той конфигурации — где результат запроса ВСЕГДА будет разный, в противном случае — достаточно использовать общие модули с галокой — повторного использования, иначе, при более менее средних объмах — рискуете убить нафиг все 🙂

    Ну и второе — это что, всегда при получении курса писать запрос? 🙂

    Вобщем я бы на вашем месте скрыл эту статью 🙂

    Reply
  3. sereginseregin

    (1) GROOVY,

    Сериализовать весь результат любого запроса и передавать его на клиента

    • Данных передается не больше, чем необходимо &НаКлиенте в каждом конкретном случае. (…немного схалтурил-недоделал с «КоличествоСтрок=0», но) Какой …разработчик определяет в запросах выборку лишних полей или строк.
    • Когда разработчиков >3, форм >100, а заказчик требует «реактивного» решения, на первый план выходит простота и наглядность прикладного кода.
    • Подобное применение запросов &НаКлиенте переводит код из императивного ближе в декларативный.

    Шикарно… Прям слов нет.

    — конструктивно!

    Reply
  4. sereginseregin

    (2) DitriX,

    Это может потребоваться только в той конфигурации — где результат запроса ВСЕГДА будет разный,

    … не понял, как Вы предугадываете одинаковый результат запроса

    в противном случае — достаточно использовать общие модули с галокой — повторного использования

    надеялся понятно, процедуры надо раскидать по общим модулям, или Вы о другом?

    Ну и второе — это что, всегда при получении курса писать запрос? 🙂

    Я за здоровый компромисс, в простейших формах используйте общую функцию КурсВалюты,

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

    Вобщем я бы на вашем месте скрыл эту статью 🙂

    Эх… Рискну!

    Reply
  5. DitriX

    Я к тому, что не зря их разносят по модулям, почитайте про то, что такое модуль повторного использования.

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

    Т.е. вы сами нарисовали сферического коня в вакууме, и говорите о том, что он реальный. Не, ну никто же не спорит, почему же этому механизму то не работать?

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

    То что вы описали — к этому народ тянулся еще лет 6 назад, и каждый второй придумывал такие костыли (и я там же был, чего уж там), но, их оставили в прошлом, и не зря.

    Почему прошу скрыть — не учите плохому, не надо такое видеть неокрепшим умам, а то вы только хуже сделаете людям.

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

    Reply
  6. sereginseregin

    (5) DitriX,

    …модуль повторного использования

    Объясните начинающему, в чем проблемы (бесполезность) с повторным использованием: нагрузка на сервер из-за 4-х вызовов функций или кэширование непредсказуемо.

    То что вы описали — к этому народ тянулся еще лет 6 назад

    К сожалению, кроме жалоб бывалых и бравады авангардистов ничего конструктивного не нашел

    не учите плохому, не надо такое видеть неокрепшим умам

    Ваше мнение поможет этим умам критичнее подойти к предлагаемому решению

    Вместо этого — описали бы минусы такого подхода

    Много лет, НО не в 1С, успешно использую данный подход с классическим SQL. Вычисления выполняются на СУБД — проблем со нагрузкой никаких. Клиент только для отображения данных.

    Решил таки (перед пенсией:-) освоить плюшки и кружева 1С. Лучший способ обучения — показать свое решение, получить отзыв. Понимаю, полез в чужой монастырь со своим уставом, но в чем религии у нас разные, все равно, пока не понял.

    Reply
  7. petrov_al

    По моему решение очень оригинальное и применимо. А то что автор не знает в чем особенность модуля повторного использования …это упустим.

    Reply
  8. dabu-dabu

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

    Ошибки в коде:

    1. У функции «ЗаполнитьИзЗапроса» 2 вызова сервера: ИменаПараметровЗапроса, ЗаполнитьМассивРезультатомЗапроса. Причем от задвоенности совершенно легко избавиться. За такие штуки минимум — лишать премии.

    2. У функции ЗаполнитьМассивРезультатомЗапроса есть безобразная строчка «СтруктураДанных = Новый Структура(МассивИменКолонок)».

    Допущенные ошибки говорят о том что вы как программист достаточно слабый и малоопытный.

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

    Reply
  9. sereginseregin

    (8) dabu-dabu,

    Как показывает практика … превращаются в не поддерживаемых медленных монстров

    Это выжимка из долгоиграющего монстра (не 1С), которая показала свои преимущества как простая схема для конфигурации вычислений на большом объеме форм.

    Вам непривычно писать запросы? А у меня после тысячи написанных SQL рука не поднимается обрабатывать данные циклами — слишком много вспомогательных переменных, и индексы не работают. Я вообще перестал понимать, для чего использовать циклы в базах данных, когда все операции работают через SQL, но это пока не про 1C.

    В 1С выглядит как костыль? Согласен, помогите, как это в 1С будет работать правильней.

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

    У функции «ЗаполнитьИзЗапроса» 2 вызова сервера: ИменаПараметровЗапроса, ЗаполнитьМассивРезультатомЗапроса. Причем от задвоенности совершенно легко избавиться.

    Если обе функции находятся в общем модуле, ничего не знают о контексте формы, как Вы собираетесь их объединить без 2-го пункта:

    1. На сервере стандартной функцией определяются имена параметров Запроса;

    2. На клиенте заполняются параметры Запроса значениями реквизитов формы;

    3. На сервере выполняется Запрос.

    У функции ЗаполнитьМассивРезультатомЗапроса есть безобразная строчка «СтруктураДанных = Новый Структура(МассивИменКолонок)»

    Согласен, МассивИменКолонок тут лишний. Видимо осталось, когда искал варианты, как быстрее выборку засунуть в массив.

    Постараюсь подправить эту опечатку, и еще кое что в ближайшее время…


    То что они облегчают жизнь — это только кажется на первый взгляд.

    Программист пишет — зарплата капает!

    Reply
  10. dabu-dabu

    (9)

    1. При чем здесь

    выжимка из долгоиграющего монстра (не 1С)

    когда пример именно про платформу 1С и при чем здесь

    Вам непривычно писать запросы?

    Осталю без комментариев.

    А ваше

    Возможно, еще понадобится генератор прав доступа на уровне записей, но это по мере надобности.

    как раз и показывает то о чем я говорю:

    долго такие штуки не живут, т.к. в конечном итоге обрастают кучей функционала и превращаются в не поддерживаемых медленных монстров

    2.

    как Вы собираетесь их объединить без 2-го пункта

    Могу посоветовать только учится программировать.

    3.

    Программист пишет — зарплата капает!

    Т.е. ценность вашей деятельности в потраченном времени? Не завидую.

    Reply
  11. sereginseregin

    (9) dabu-dabu,

    [IS-QUOTE]Программист пишет — зарплата капает!

    Т.е. ценность вашей деятельности в потраченном времени? Не завидую.[/IS-QUOTE]

    Э-эх! Знак вопроса после «капает» не поставил — теперь сам виноват.

    как раз и показывает то о чем я говорю:

    долго такие штуки не живут

    Занимаюсь я подобными проектами в свободное от работы время. Какие-то идеи удается внедрить в рабочих проектах. Какие-то естественно отмирают. Условно удачных 60 к 40 неудачным, и это нормально. Если у Вас наоборот, не экспериментируйте.


    Могу посоветовать только учится программировать.

    Диалог пришел в тупик.

    Reply
  12. igormiro

    Ничего не обычного в статье я не нашел, а статью надо переименовать, передача параметров запроса с сервера на клиент.

    Reply
  13. DrAku1a

    Для решения мелких задач — встречается:

    &НаСервере
    Процедура ВыполнитьКод(Код, Параметр=неопределено)
    Выполнить(Код);
    КонецПроцедуры
    
    &НаСервере
    Функция ВычислитьКод(Код, Параметр=неопределено)
    Возврат Вычислить(Код);
    КонецФункции
    
    &НаСервере
    Функция ВыполнитьЗапрос(ТекстЗапроса, Параметры=неопределено, КодОбработкиРезультата=неопределено)
    Запрос = новый Запрос(ТекстЗапроса);
    Если ТипЗнч(Параметры)=Тип(«Структура») Тогда
    Для каждого П из Параметры Цикл Запрос.УстановитьПараметр(П.Ключ, П.Значение); КонецЦикла;
    КонецЕсли;
    Результат = Запрос.Выполнить();
    Если КодОбработкиРезультата=неопределено Тогда
    Результат = Результат.Выгрузить().ВыгрузитьКолонку( 0 );
    Иначе
    Вычислить(КодОбработкиРезультата);
    КонецЕсли;
    Возврат Результат;
    КонецФункции

    Показать

    Reply

Leave a Comment

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