<?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='\
Простота обуславливает низкий порог вхождения и, как следствие, массовость, что для 1С актуальнее красоты и продуктивности кода.
Но подход интересный, на досуге посмотрю ))
Приведите плиз не пример самих функций а пару кусков кода с использованием этих возможностей/функций для текущей работы
(2) CheBurator, добавил несколько примеров
Подход интересный. Но боюсь, быстродействие будет сильно страдать.
, глСписок(«->», глСписок(«СтажГазпромРКСПриУвольнении»), глСписок(«больше», 14))
, глСписок(«НеПереработал»));
Если уж пользуетесь активно функцией Шаблон, то почему бы не сделать более простой синтаксис?
Что-то типа такого:
где $ обозначает текущий объект перебираемой коллекции.
Вместо строки, с возможными опечатками, завести переменную, например, глСкопироватьСтажи = «глСкопироватьСтажи».
Вот и передача функции параметром.
Костыль конечно.
Как то Грибоедов написал «Горе от ума». Само произведение плевенькое, но название зачетное. Очень подходит для таких вот «произведений». Особенно доставляет поддержка таких вот конфигураций после ухода автора. Если бы проклятия обладали материальной силой, Вам, автор, пришлось бы очень плохо. Долго бы болели и умерли нехорошей смертью.
(7) bulpi, Проблема с поддержкой есть. Во многом она объясняется прямолинейностью мышления среднего 1Сника, не воспринимающего приёмов программирования, распространённых в других языках. Но проблему с поддержкой это не облегчает.
Мне больше не нравится проблема с проверкой кода. Синтаксический контроль в 7.7 и так прост и туп как доска, а тут у его еще и отбирают возможность проверить имя функции и количество параметров.
Я вот недавно занялся противоположным (в некоторой степени) вопросом. Как проверить еще что-нибудь в дополнение к синтаксическому контролю. прост и туп, но уже помог выловить ряд потенциально проблемных мест в большом рабочем проекте.
(7) bulpi, «горе от ума», вы правы, крыть нечем 🙂
(8) vcv, добрый день, использую прототипирование в табло чтобы проверять работоспособность написанного, всегда «проваливаюсь» в функцию по ctrl-Enter чтобы посмотреть количество параметров.
Идея хорошая.
Но реализация — плохая..
И не то, что бы у Вас плохая — не знаю, можно ли удобнее сделать в 1С.. убогость языка, конечно, убивает. Особенно после того, как пощупаешь python или ruby — хочеться более гибкого языка.
Ссылка
По конфигурации. Вроде как рекомендуется 1с++ грузить первой.
Впечатление двойственное, честно говоря. Можно, конечно, попытаться и Лисп реализовать на 1С, но… но…
Я сам одно время думал, как средствами 1С реализовать нечто похожее на мою юношескую любовь — Forth ))
(8) vcv,
Нет, она объясняется тем, что обычные заказчики не хотят оплачивать специалиста стоимостью 200к в месяц. Плюсанул к «горю от ума», ибо приходилось иногда разгребать такие витиеватые коды, мама не горюй… причём за счёт заказчика…
PS: Особенно нравится одна самописная конфа — судя по коду, её явно писали люди, которые программировали до этого на фокспро, а тут заказчик потребовал написать конфу на 1с. 1с при этом они первый раз увидели, в результате чего нагромоздили такого, за что их периодически хочется побить. А самое грустное, что заказчик уже привык к такому и другого видеть не желает, поневоле приходится продолжать в том же духе.. ))
Ну, а так в целом, как разминка для ума, конечно, интересно 🙂 В принципе, если функция работает и хорошо задокументирована, то почему бы и нет. Просто использовать её, не вникая в реализацию.
самое главное в публикации начинается после
— «продвинутый» код 1С 7.7
Спасибо за критику, друзья!
В оправдание своего решения позволю себе процитировать самого себя.
Замечу также, что в неумелых руках и обычный синтаксис 1С превращается в кучу макарон, как и стремление накрутить функтор посложней и повложенней.
Знание меры позволит писать приятней и эффективней и радовать своих коллег, простыми и лаконичными решениями.
Если бы я был заказчиком, я бы тоже с осторожностью относился к *витиеватым* кусочкам кода соискателей. Ключевым словом, уважаемый , является «витиеватые коды». Сам перелопатил, тонны такого кода, в зарплатной конфигурации, написанного тёмными силами, работающими в не менее тёмных застенках компании 1С и кода, написанного за счет моего предприятия, именитыми аутсорсинговыми компаниями-подрядчиками. Надеюсь вы не будете оппонировать отложенным вызовам и возьмете их на вооружение при сохранении требования отсутствия витиеватости.
Спасибо, так и есть, берем и пользуемся. Документация в шапках функций. Мои коллеги, их двое, не используют предложенные механизмы, но и по голове мне тоже не стучат, вполне себе могут править мои куски.
Более того, при обсуждении всплыл например такой вопрос — «Что проще, отложенные вызовы или прямые запросы из 1С++». И то и другое — инструмент. В первом случае надо иметь опыт работы с функторами на одном из ЯП высокого уровня, в другом — иметь опыт работы с SQL
Поддержу автора. Мне такой подход ближе, чем километровые «портянки» из простых, а главное повторяющихся конструкций в коде. Которые да, легче поддерживать, но как то не вызывают чувства гармонии. Хотя, пожалуй, гармония мало подходит к коду. Но однотипные функции в разных местах — это уж точно не то чем стоит гордиться.
(19) aspirator23, видите ли, в чем дело. Фикси всегда доделывают конфу в соответствии со своими представлениями о красоте кода. Это нормально, их не в чем упрекнуть. Беда в том, что рано или поздно появляется человек, которому во всей этой красоте приходится разбираться. Даже топикстартер, при всем моем уважении и при всей его пунктуальности, допустил как минимум одну ошибку в документировании функций. Будь вы на месте руководителя, стали бы вы оплачивать приходящему 1Снику время, затраченное на вникание в красоту стороннего кода? ))
(1) Простота обуславливает низкий порог вхождения
и как следствие низкое качество кода