<?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='\
07.04.2011 Внесена небольшая поправка, на случай «разорванных» дней за счет работодателя. Для тех кто уже обновился или запускал обработку, скачайте ее снова и перезапустите разок.
ЗиК 309. Для тех кто делал исправление количества дней за счет работодателя в переходящих больничных с 2010 на 2011, например как было описано тут:
Перейти к публикации
Для тех кто пользовался:
Текст обработки автора заменить следующим:
Перем ЖрнЗарплата;
//*******************************************
Процедура Сформировать()
ДатаНач = глДатаНачалаРеформыСоцСтрахования();
ДатаКон = ЖрнЗарплата.КонецТекущегоПериода();
Состояние(«Выборка документов «»Больничный лист»»…»);
Запрос = СоздатьОбъект(«Запрос»);
ТекстЗапроса =
«//{{ЗАПРОС(Сформировать)
|Период с ДатаНач по ДатаКон;
|Объект = ЖурналРасчетов.Зарплата.Объект;
|Рез = ЖурналРасчетов.Зарплата.Результат;
|Док = ЖурналРасчетов.Зарплата.ТекущийДокумент;
|ВР = ЖурналРасчетов.Зарплата.ВидРасч;
|Функция СуммаВсего = Сумма(Рез);
|Условие (ВР.ВходитВГруппу(ГруппаРасчетов.БольничныеЛисты)=1);
|Группировка Док;
|»//}}ЗАПРОС
;
Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
Состояние(«Обработка документов «»Больничный лист»»…»);
Док = СоздатьОбъект(«Документ.БольничныйЛист»);
Пока Запрос.Группировка(1)=1 Цикл
ТекБЛ = Запрос.Док;
Док.НайтиДокумент(ТекБЛ);
Если ТекБЛ.Вид() = «БольничныйЛист» Тогда
Если Док.ТипБолезни <> Перечисление.ТипБолезни.ОбщееЗаболевание Тогда
Продолжить;
КонецЕсли;
Если Док.ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2011года Тогда
Док.ДнейОплатыРаботодателем = 2;
Попытка
Док.Записать();
Сообщить(глПредставлениеДокумента(Док)+» — установлено 2 дня оплаты за счет работодателя»);
Исключение
Сообщить(глПредставлениеДокумента(Док)+» — НЕ установлено 2 дня оплаты за счет работодателя»,»!!»);
КонецПопытки;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
ЖрнЗарплата = СоздатьОбъект(«ЖурналРасчетов.Зарплата»);
Не очень понял код.
Если такая ситуация : в ЖР 2 записи 1 день за счет работодателя попал на 30.11.2010 и 1 день на 01.12.2010 года при этом обе записи относятся к одному документу, получится что в документе будет стоять 1 день за счет работодателя? ЧТо будет если БЛ исправляли тоже непонятно. Сторно записи в обработке не анализируются.
0-Ulfhedhinn >
Если (ЖР.ВидРасч = ВидРасчета.ОплатаБЛЗаСчетРаботодателяс2011) Тогда
КолвоДней = ЖР.ДатаОкончания — ЖР.ДатаНачала;
Прервать
КонецЕсли;
А разве нужно не так?
Если (ЖР.ВидРасч = ВидРасчета.ОплатаБЛЗаСчетРаботодателяс2011) Тогда
КолвоДней = КолвоДней + ЖР.ДатаОкончания — ЖР.ДатаНачала + 1; //с учетом переходящих в другой месяц
//Прервать
КонецЕсли;
А строку
ЖР = СоздатьОбъект(«ЖурналРасчетов.Зарплата»);
нужно поставить перед циклом:
Пока Док.ПолучитьДокумент()=1 Цикл
Если КолвоДней = 0 Тогда
Док.ДнейОплатыРаботодателем = 3;
Иначе
Док.ДнейОплатыРаботодателем = КолвоДней;
КонецЕсли;
Складывается впечатление, что 3 дня запишется даже в те больничные, которые являются продолжениями, а это уже в корне неверно..
я воообще не стал заморачиваться, перебрал в том же коде что есть в обновление все бл, если у бл в реквизите ДнейОплатыРаботодателем стоит «3» меняем на «2».
я воообще не стал заморачиваться, перебрал тем же кодом что есть в обновление все бл, если у бл в реквизите ДнейОплатыРаботодателем стоит «3» меняем на «2». Я понимаю что автор хотел универсальности, но эта обработка нужна только тем у кого 2 дня.
Мне обработка по большому счету вообще не нужна. У меня все в md-шнике в обработке «ОбновлениеИБ», универсальность для разных клиентов, кому-то по просьбам переделывал на 2 дня, кому то оставлял по типовому 3. Теперь при обновлении на 309 лишний раз не приходиться заморачиваться.
Если (ДатаНачалаСобытия < ДатаНачалаРеформыСоцСтрахования) и (Док.ДнейОплатыРаботодателем = 0) Тогда
Для тех кто уже обновился на 309 Док.ДнейОплатыРаботодателем = 3.
как раз не могу понять ЖР = СоздатьОбъект(«ЖурналРасчетов.Зарплата»);
ЖР.ВыбратьЗаписиПоДокументу(Док.ТекущийДокумент()) ;
Пока ЖР.ПолучитьЗапись() = 1 Цикл
сейчас попробую !
Заработало !!!!!!!!!! я Вас обожаю