<?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) Обрати внимание, что режим записи не меняется, если нет изменений. Это надо на случай перепроведения. А то как-то раз стукнулся, об то, что перепроведение не выполняется.
Из статьи узнал, что блогов нет. Зря они это. не пользовался, но в целом ветка была уместной (статьи и публикации для основательного труда, блог для мелких пометок на полях для себя и заинтересованных)
Функция А()
Возврат Неопределено;
КонецФункции
Эффект этого равносилен
Функция А()
КонецФункции
(4) Читаемость кода тоже важна.
Буква ё не раскрашивается))
Ее кстати нельзя использовать в модулях.
(6) Armando, не знал. Использую. Работпет.
(7) нашел:
«4. В именах, синонимах и комментариях не допускается использовать букву «ё».»
«В текстах модулях не допускается использовать букву «ё».»
Хочу обратить Ваше внимание, что на Инфостарте есть еще одна публикация о редактировании реквизитов в закрытом периоде — ««.
В этой публикации рассматриваются два способа:
1. С минимальными изменениями кофигурации (добавляется всего ОДНА строка!);
2. Без внесения изменений в конфигурацию.
(8) Armando, проверил на типовой БП3. В ней есть функции ЗаменитьБуквуЁ ПодготовитьКПоискуПоФИОСБуквамиЕЁ, СтруктураПараметровДляРасчётаАпдекса. Так и называются. А в комментариях Ё встречается в полный рост. И это правильно. Незаслуженно букву обидели. 1С сама не придерживается своих рекомендаций. Но мы учтём.
(9) mtv:), хорошее решение. Замечание только одно. Объект.ОбменДанными.Загрузка = Истина возможно использовать не всегда. Если его не использовать то количество строк кода растёт.
Посмотрел на твою обработку. Редактирование с помощью функций ВвестиЧисло, ВвестиСтроку, ВвестиЗначение удобным никак никак не назовёшь. Это решение для очень редкого редактирования. Моё решение для случаев, когда вчерашние документы перепроводить нельзя, но вспомогательные данные вносить требуется.
(6)(10) А я вот как использовал букву ё, так и буду дальше использовать. Мне она нравится своей «нарядностью». Думаю, это ошибочная рекомендация.
Проверку на наличие ссылки в базе, думаю, лучше запросом делать:
(13) Allexe8.1,
1. СсылкаНаОбъект.ПолучитьОбъект() у меня используется. Это, кстати, довольно тяжёлый метод. Я всё думал как обойтись без него, но не придумал. Метод тяжёл так как при получении объекта происходит инициализация модуля объекта, а что там понаписал программист мы не знаем.
2. Читать запросом реквизиты ссылки, конечно прикольно, но в этом случае число запросов будет на один больше числа табличных частей объекта. А если читать реквизиты как Ссылка (точка) Имя реквизита, то значения реквизитов кэшируются и/или подтягиваются при чтении, точно не помню. Важно что число запросов к базе примерно такое же как и при чтении запросом. Только эти запросы выполняются в фоне. По сути разницы нет как читать реквизиты ссылки.
(11) ildarovich, поддерживаю. С детства всем прививали, что в русском языке 33 (тридцать три) буквы. А сейчас принуждают самих себя ограничивать и незаслуженно дискредитиировать бедную букву.
И вообще, мало кто значет, что бёквё ё с лёгкёстьё мёжёт зёмёнёть всё ёстёльнёё бёквё.
Они вообще сами-то с русским языком дружат !!!???
(17) А какой оператор ты хочешь с буквой Ё написать???
Всё понимаю, вот только зачем мертвеца реанимировать (имею ввиду илюстрацию к статье)!?
Насчёт буквы ё. Конечно нельзя ёё так «опускать». Это изюминка русского языка, не дайте ей исчезнуть. Сам я не русский, но думаю имею право высказать своё мнение, потому что у нас, украинцев, тоже есть похожая ситуация, даже две — «ї» и «ґ». Берегите родной язык.
«// Тип — наименование вида справочника или документа. Благо их наименования не пересекаются.»
враньё. можно запросто создать документ и справочник с одинаковыми названиями.
те будут «пересекаться»
так что код условно рабочий.
(19) DAnry, капитализм принёс уже две мировые войны. Боюсь, что сейчас мы живём в начальный период третьей мировой войны. Капитализм смог развалить СССР. Но СССР жив пока жив, например, я и другие, разделяющие мои убеждения. Я надеюсь возродить СССР, исправив ошибки.
(21) МихаилМ, это кусок кода и комментарий из работающей конфы. В ней имена справочников и документов не пересекаются.
Как-нибудь поправлю, уберу это замечание или напишу, что нежелательно пересекать названия.
Про доступ к сайту по ГУИД не понял. Наверное Вы говорили про доступ к базе 1С 8?
Про «перепроведение» тоже приемы могут пригодиться. Жаль что не всегда.
Вопрос как быть если конфигурация в желтых кубах «за замке» и трогать ее нельзя. Пишите что и нижеприведенный прием не помогает.
ДокОбъект.ОбменДанными.Записать = Истина;
ДокОбъект.Записать(РежимЗаписиДокумента.Запись);
Я спросил про задачи, когда нужно программно перезаполнить документы в прошлом закрытом периоде или установить значение нового реквизита.
Не всегда ведь даже признак в свойствах у документа может быть «записывать модифицированные при проведении» и прочие свойства формы документа «при записи перепроводить».
Когда все закрыто тут как быть то?
(23) kostyaomsk, тогда остаются только внешние обработки. О них написано выше. Можно хоть печатную форму, обработку заполнения табличной части использовать для этого. Открывать свою форму и из неё редактить что угодно.
Я не говорил, что нельзя использовать конструкцию
Можно. Но надо помнить о последствиях. Для распределённой базы, для логики, связанной с изменяемыми реквизитами. Короче говоря если осторожно, то можно всё.
(24) спасибо, видел что можно внешними обработками реализовать такие функции записи без проведения. Возможно, в отраслевых конфигурациях опять что-то попалось из обработчиков. Проверю на типовых.
Спасибо автору