<?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) То, что пишут все, это понятно. Но причин выклыдывать свои разработки достаточно много. И одна из них тестирование и получение откликов колег.
(0) Несколько мелких недочетов.
1. платформ много, а не только V77s
2. путь к базе может быть с пробелами, поэтому » /D»»»+СокрЛП(КаталогБазыПриемника)+»»»»
3. насколько я понял элемент справочника «Цены» не перенесется. Кода, наименования нет, первый реквизит без сортировки. Поэтому, либо настройки, либо перебирай все реквизиты.
(1)да, возможно многие такое пишут, я выкладываю не для того чтобы брали и тупо пользовались, а для того, чтобы те кому надо, могли выбрать наиболее подходящий вариант, и наименьшими усилиями выполнили поставленную им задачу.
С вероятностью 99% могу сказать, что твоя обработка «для обрезания распределённой базы» не очень удобна для переноса одного отдельно взятого документа.
Я выкладываю не самые сложные решения, а самые универсальные.
(2)Тестирование меня не интересует, ибо я выкладываю решения, которые уже использовались на практике. Исправлять ошибки я буду только в комерческих продуктах ( , ). Отзывы — конечно спасибо, но тоже не принципиально.
1, 2, 3 — да, возможно, есть недочеты (и со справочником Цены ты правильно понял, правда я с 7.7 несколько лет не работал, о таких деталях не знаю). Обработка писалась для переноса документов из черной базы в белую, т.е. структуру я мог менять.
+ аналогичные проблемы как с ценами будут с спр.единицы
соответсвенно — если эти проблемы не решены (что мешает, кстати, проанализировать код и наименование через метаданные и синхронизировать/переносить по «составному» коду, коотрый включает все
+ по подбору документов — гуано полнейшее (опять же извините за прямоту), зачастую при переносе надо отбирать доки по «хитрым» условиям… и не прикрутить к подбору документов универсальную обработку подбора объектов — это (глубочайшее имхо) — «плевок в д
(4,5) обработка писалась не на все случаии жизни, а для выполнения конкретной задачи на конкретной паре баз.
а именно: в конфигурации в документах была кнопка «Перенести в белую базу», и по этой кнопке переносился документ с помощью обработки «Перенос»
остальные обработки использовались разово, и просто предоставляли тот интерфейс выбора объектов, который был необходим на тот момент (в примере — полный список справочников выбранных видов и единичные документы).
справочники без кода и наименования — для них должна быть сортировка по первому реквизиту. только в этом случае(!) не нужен перебор справочника и значит будет работать быстро.
И прежде чем делать какие либо поспешные выводы, ИМХО стоит подумать, что Вас окружают не идиоты (или не только идиоты)
> (4,5) обработка писалась не на все случаии жизни, а для выполнения конкретной задачи на конкретной паре баз.
а именно: в конфигурации в документах была кнопка «Перенести в белую базу», и по этой кнопке переносился документ с помощью обработки «Перенос»
//
тоже не надо думать, что вокруг все идиоты… как повесить кнопку, а на кнопку обработку/процедуру — это мы сообразим…
интересует правильность и беспроблемность переноса, ответа на вопросы не увидал, поэтому попытаюсь переопределить вопрос еще раз:
— правильно ли переносятся/синхронизируются справочники (в т.ч. и подчиненные), в которых нулевая длина кода и н аименования?
..
> а для выполнения конкретной задачи на конкретной паре баз.
в описании не указаны граничные условия, типа каким требованиям должна удовлетворять «пара баз», и прочие тнокости… т.е. меня интересует — взяв обработку и «прикрутив» ее на кнопку в штатной ТиС (Бух) — будет переноситься/синхронизироваться все правильно?
…
неиспользование гтового и удобного механизама универсального подбора — просто вызывает вопросы
…
возможно, где-то был резок, сорри…
просто достает обилие «частных» решений, которые проще переписать самому при надобности, чем тратить время на выяснение «адекватности» поведения обработки… 😉
(7) Правильность и беспроблемность — кто ж даст такую гарантию. Тем более через 6 лет после создания обработки. Однаго промышленная эксплуатация в то время проблем не выявила (на комплексной доработаной). Также использовалась после в единичных случаях на других конфигах.
справочники без кода и наименования — для них должна быть сортировка по первому реквизиту. только в этом случае(!) не нужен перебор справочника и значит будет работать быстро. естественно считается, что есть уникальность по этому полю (в пределах владельца, если есть конечно)
перенос.ert
уже было, но повторюсь:
//Для SQL:
//ОЛЕприемник=СоздатьОбъект(«V77s.Application»);
ОЛЕприемник=СоздатьОбъект(«V77.Application»);//+++++++
Чтобы при повторном открытии не инициализировалась уже инициализированная база:
Если ПустоеЗначение(Параметры.Получить(«Приемник»))=1 тогда //+++++++
Если ПустоеЗначение(Параметры.Получить(«КаталогБазы»))=0 тогда
Параметры.Установить(«Приемник», ИнициализацияПриемника(Строка(Параметры.Получить(«КаталогБазы»))));
ИначеЕсли ПустоеЗначение(Приемник) = 1 тогда
Параметры.Установить(«Приемник», ИнициализацияПриемника(«»));
КонецЕсли;
КОнецЕсли;//+++++++
не получается инициализация. я указываю путь к папке с базой-получатель и
ни чего не происходит.»Нет» не меняется на «ОК» Может я что-то не так делаю?
а кнопку «Инициализация» нажимаете потом?
можно просто нажимать на кнопку «Инициализация» и выбирать нужную базу
Не открывает базу данных.
Rebelx, заключай в кавычки путь к инициализируемой базе данных
Спасибо, пригодилось!
Спасибо!Помогло
Спасибо! Выручил очень сильно!) Под себя, конечно, закрутил чуть-чуть! — Но столько времени ты мне с экономил! Просто Здорово!!!!
большое спасибо автору, а так же Артему аkа korol-ar, а то после двух лет восьмерки мозги совсем не варят в семерке)))
Долго искала такую обработку. Для переноса документов (которых нет в стандартной конфигурации)очень удобна.
Очень пригодилась.
Помогите, пожалуйста! Эта обработка была бы для меня просто спаснием, но инициализировать базу-приемник не могу — ОЛЕприемник=СоздатьОбъект(«V77s.Application»);
БухPERENOS.ERT(466)}: Неудачная попытка создания объекта (V77s.Application)
(19)попробуй так:
//ОЛЕприемник=СоздатьОбъект(«V77
s.Application»);ОЛЕприемник=СоздатьОбъект(«V77.Application»);
спасибо автору за обработку.пригодилась.не в первоначальном виде, но кое-что полезное для себя из нее взяла
Пригодилась как заготовка, автору спасибо
Всем доброго вечера! Ребята, если можете, помогите, я уже не знаю что мне делать, у меня две фирмы работают в двух идентичных базах 1с 7.7,одна является копией другой, конфигурация не стандартная, много ручных изменений, которые были сделаны до меня. Мне необходимо в одной базе сформировать остатки по всем счетам и перенести в другую, чтоб эти фирмы работали в одной базе. Со справочниками я разобрался, перенес отлично,затем сформировал операции по остаткам с помощью WRAP.ert, перенес их с помощью TranrefDoc.ert, но после переноса, в другой базе они оказались пустыми, пробовал также оле переносом данных, но при подключении приемника вылазить это -ОЛЕприемник=СоздатьОбъект(«V77s.Application»);
БухPERENOS.ERT(466)}: Неудачная попытка создания объекта (V77s.Application).Если есть альтернативные способы, пожалуйста покажите и расскажите.
(23) см. (20)
Большое спасибо за данную разработку . Мне пригодилось, но было это давно и не помню чем именно.=)
Обработок много такого типа, но у всех разная реализация. Буду пробовать на переносе справочников основных средств.
За работу однозначно +