<?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='\
> Использую процедуру склонения фамилии из глобальника, ей нужно NameDecl.dll, которая по дефолту в C:Program Files1cv81in лежит.
И где его брать?
А, на ИТС-е… Так бы и надо было написать…
(2) я не помню, чтобы я её добавлял с ИТС, думал, что она ставится с платформой. Но если у тебя нет, значит с ИТС. если не запрещено правилами могу выложить куда-то. выкладывать?
(2) дописал, про ИТС
(3) Не, выкладывать не стоит…
(5) нет, так нет:)
Приглядись к такому коду:
Замена = Документ.Content.Find; Замена.Wrap = 1; Замена.Execute("ш_Номер", , , , , , , , ,ш_Номер); Замена.Execute("ш_ДатаДоговора", , , , , , , , ,ш_ДатаДоговора); Замена.Execute("ш_ОргПолное", , , , , , , , ,ш_ОргПолное, 2); Замена.Execute("ш_ОргКраткое", , , , , , , , ,ш_ОргКраткое, 2); Замена.Execute("ш_ФИОРук", , , , , , , , ,ш_ФИОРук); Замена.Execute("ш_ФИОРаб", , , , , , , , ,ш_ФИОРаб, 2);Показать полностью
Так будет меньше строчек.
Для полного комплекта (счастья кадровику) не хватает Дополнение к Трудовому договору на основе дока Кадровое перемещение. Осилишь?
(8) дополнение я тут встречал, правда не в ворде…Осилю, там по этому же шаблону, ток посидеть денек. я уезжаю до понедельника, как приеду, так думаю и приступлю, моим кадровикам тоже нужно думаю…
(7) спасибо, переделаю! ещё бы найти команду, чтобы заменяло все «ш_ФИО», которые встречаются несколько раз, без цикла. т.е. аналогично «заменить все»
(10) Обрати внимание на крайний аргумент (цифра 2)
Замена.Execute(«ш_ФИОРаб», , , , , , , , ,ш_ФИОРаб, 2);
(9) Жду с нетерпением. Очень нужно!
(8) это не подходит?
(13) я как раз на основе его делаю своё в ворде… как выложу напишу что сделано из твоего и ссылку на твою естественно дам.
завтра если успею.
(8) сделал
(2) NameDecl.dll автоматически копируется в папку 1cv81in при установке конфигурации «Зарплата и управление персоналом».
Если данная конфигурция не используется, то приходится придумывать самому как ее ставить, например у меня в одном случае она включена в комплект защиты конфигурации, а в другом, для внешней печатной формы документа, она включена в Макеты…
А у меня: «Не удалось сформировать внешнюю печатную форму!
Поле объекта не обнаружено (ТелефонФизЛица)»
Попытка заменить «ТелефонФизЛица» на «ТелефонФизЛицаДомашний» приводит
к зависанию.
Подразделение почему то пустое, это только у меня такое?
Большое спасибо. Очень пригодилось.
Действительно, подразделение не проставляется 🙁
(20) (18) у меня поразделение точно проставлялось.
(17) с телефоном там запрос не доделан. мне телефон был не нужен-я запрос не испралял.
Спасибо!
Спасибо! кадры довольны, и код менять не надо.
Будет ли данная обработка совместно с УПП пахать? Есть подозрение что нет. Ну чтож если что допилим и выложим уже для УПП 8.2
Спасибо!
Добрый день!
Делаю аналогично вашей обработке формирование нескольких видов договоров в 1С (в одном электронном документе) с дальнейшей печатью через Ворд. Тот же механизм, но с небольшим отличием (или большим). Хотелось бы в форме документа 1С иметь возможность получения шаблона текста договора (в зависимости от выбранного вида, имеется ввиду описательная часть, там где нет реквизитов, фамилий, дат) для возможной корректировки (если нужно кадровику или юристу). Это сделано, но… Но возникла проблема — не получается большой фрагмент текста, отформатированного по абзацам, спискам и прочее корректно передать в Ворд. Все сбивается в одну кучу (в один абзац).
Не подскажете — есть возможность решить данную проблему, или нет? Понятно, что если нет, буду упрощать…
Большое спасибо за данную разработку . Мне пригодилось. =)
(27) рад был помочь!
Простите, я новичок в 8ке.
А если открывается ворд, но ни одного значения нет — только голый текст, даже без номера документа, при этом точка останова в отладке нигде не срабатывает.
Куда смотреть, чтобы значения стали заполняться из документа?
1С 8.3.8.2137
ЗУП 2.5.120.1
это сделано под старый релиз, в новых работать скорее всего уже не будет, надо допиливать!
подоробностей уже не вспомню, давно было. 8 лет почти прошло.