<?php // Полная загрузка сервисных книжек, создан 2025-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) и какая версия конфы нужна?
artbear писалось под ЗУП для украины, но особой разницы нет, немного может нужно будет подправить для других конфигураций
в типовой Зарплата и Управление Персоналом, редакция 2.1 (2.1.11.1) отчет выдает:
{ВнешняяОбработка.РасчетныеВедомостиОрганизацийЗП_01(64,24)}: Процедура или функция с указанным именем не определена (ПолучитьСписокВидыВзаиморасчетовЗарплата)
тВидВзаиморасчетов = <<?>>ПолучитьСписокВидыВзаиморасчетовЗарплата();
{ВнешняяОбработка.РасчетныеВедомостиОрганизацийЗП_01(68,24)}: Процедура или функция с указанным именем не определена (ПолучитьСписокВидыВзаиморасчетовЗарплата)
тВидВзаиморасчетов = <<?>>ПолучитьСписокВидыВзаиморасчетовЗарплата();
{ВнешняяОбработка.РасчетныеВедомостиОрганизацийЗП_01(86,20)}: Процедура или функция с указанным именем не определена (ПолучитьСписокВариантовВыплатЗарплаты)
СписокСпособов = <<?>>ПолучитьСписокВариантовВыплатЗарплаты();
{ВнешняяОбработка.РасчетныеВедомостиОрганизацийЗП_01(104,20)}: Процедура или функция с указанным именем не определена (ПолучитьСписокВариантовВыплатЗарплаты)
СписокСпособов = <<?>>ПолучитьСписокВариантовВыплатЗарплаты();
// Функция возвращает код операции по ЗП и характеристику движения для документов движения денег
//
// Параметры:
// Ведомость — документ начисления заработной платы
// ВидВзаиморасчетовСРаботниками — сюда запишем вид взаиморасчетов по зарплате (дивиденды, ЗП, депонированная ЗП)
//
// Возвращаемое значение:
// Булево — авансовая выплата или нет
//
Функция ПолучитьСписокВидыВзаиморасчетовЗарплата() экспорт
СписокВидыВзаиморасчетов = Новый СписокЗначений;
СписокВидыВзаиморасчетов.Добавить(Перечисления.ВидыВзаиморасчетовСРаботниками.ЗаработнаяПлата);
СписокВидыВзаиморасчетов.Добавить(Перечисления.ВидыВзаиморасчетовСРаботниками.ЗаработнаяПлатаНеФОТ);
Возврат СписокВидыВзаиморасчетов;
КонецФункции
Подошла для БухУкраины с небольшими переделками (см. выше). Плюс
Интересная Вещь.
(4) куда воткнуть указанный код?
Добрый день. Хотелось бы проконсультироваться по поводу вашей обработки «Расчетная ведомость по заработной плате работников организаций» (.
Подойдет ли она для конфы Зарплата и кадры бюджетного учреждения 8.2?
А то при попытке подключить ее выдает ошибки.
В принципе вы прокомментировали участок кода, который это исправляет (. Я облазил весь код обработки. вставил указанный код перед «Функция ПолучитьСписокВидыВзаиморасчетовЗарплата». Но возникают другие ошибки по незавершению цикла.
Если вас не затруднит укажите правильное решение. Заранее спасибо.