<?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='\
Доточить напильником под себя,воткнуть фильтры, выкинуть предупреждения во всех типовых и можно запущать. 🙂
Цитата «Насчет не требуется изменения кода в конфигурации» — это слишком сильно сказано.
Ведь в конфигурации в процедурах ВводНаОсновании может быть понаписано все, что угодно 🙁
Предупреждения, Сообщения и т.д.
Может быть, вообще нет кода для ввода нового документа на основании переданного документа.
+ За копирование данных из формы созданного документа в создаваемый программный документ.
(2) согласен… но ведь адаптация как раз и состоит в определении того, что необходимо, чтобы все работало — в данном моем примере — есть проверка такая же, как и во вводе на основании — т.о. оно не ругается
Неплохо было бы написать, для какой конфигурации. На типовой бухии не работает (нет соответствующих документов). На ПУБ работает с одним небольшим замечанием: если в выборку попадает документ Реализация (комиссия), то выскакивает ошибка (не отрабатывается ввод на основании по данному виду документа).
(5) добавил проверку на статус возврата, сделал аналогию проверки ввода счета фактуры. но если в типовой заменить предупреждения на сообщить, или таймаут поставить — работать будет
(6) А если юзать ВК Шпион1С от Саши Орефкова, можно и предупреждения автоматом устранить 🙂
(7) ну… через wscript.shell и без ВК их устранить можно, но это уже в другой раз 😉
(8) Сделай лучше форму, как я тебе пример кидал .. так понятнее и красившее… а кому надо, налепит фильтров всяких и список действий — проводить/только записывать,..обрабатывать все/проведенные/ и т.д..
хотя нет, вру… они ж модальные, только если параллельный процесс запускать, и потом по родительскому классу определять нужные предупреждения 🙁
(7) Не всегда подходит. У одного клиента тоже использовал «ложное» закрытие формы в документе. В документе установлено ПриЗаписиПерепроводить(). Если документ по какой-то причине не проводится (например, остатков недостаточно), то выдается предупреждение с вопросом о продолжении редактирования документа. На любой ответ документ закрывается. Клиенту не понравилось, пришлось идти другим путем.
Посмотрел Слайдшоу.ert, почерпнул чуток полезного…
Пример с СЧФ — неудачный, полученный таким образом результат многих бухов неудовлетворит…
…а вот если вместо
ОткрытьФорму(«Документ.СчетФактура»,КонтекстФормы,Док.ТекущийДокумент());
ДокНа = СоздатьОбъект(«Документ.СчетФактура»);
ДокНа.Новый();
.
забабахать
.
ДокНа = СоздатьОбъект(«Документ.СчетФактура»);
ДокНа.Новый();
ОткрытьФорму(«Документ.СчетФактура»,КонтекстФормы,Док.ТекущийДокумент());
— результат может получиться намного лучше…
???
(12) это точно, будет нумерация документов более правильной.
(12, 13) ну… если вы глянете — то в мох условиях — номера проставляются из документа основания, ибо так просили… но в принципе — согласен и с этим
(14) угумс.. на старой работе у мну СЧФ имел номер дока основания…
(14) + логичней не в (13), а в (12) поставить…
не уважают тестеров.. программасты, туды их за ногу…
(13) а вообще — по идее — нужно из открытой формы и номер и дату тягать — тогда должно быть — как есть сейчас…
(16) да мне не жалко, держи!
Если глПолучитьСчетФактуру<<?>>(Док.ТекущийДокумент()) = 0 Тогда
{C:/ПАКЕТНЫЙ ВВОД НА ОСНОВАНИИ БЕЗ ИЗМЕНЕНИЯ ФОРМ И МОДУЛЕЙ.ERT(18)}: Функция не обнаружена (глПолучитьСчетФактуру)
респект автор
Немного доработал для тис 9.2
И чтобы нумерация вставала из базы.
Автору спасибо