Обнуление регистров накопления на указанную дату




Принцип обмена данными из 1С с сайтом (на MySQL) и выдачи (публикации) этих данных по запросу.
PHP-Скрипт автоматической загрузки данных из файла данных в формате CSV в базу данных сайта работающего на WordPress.

В продолжение моей темы: 1С:Альфа-Авто Автосалон Автосервис: обмен с сайтом.
С помощью данного скрипта можно загружать в автоматическом режиме, по расписанию, данные сервисных книжек (ремонтов авто) из 1С:Альфа-Авто Автосалон Автосервис.
Также можно загружать данные в ручном режиме: для этого делается скрытая страница, где размещается специальная кнопка.
Комментарии размещенные внутри скрипта разъяснят логику и порядок действия.
Комментарии с "/////    echo" использовались для отладки.
Дополнительно создана таблица для журналирования результатов загрузки данных.
Скрипт включает в себя защиту от SQL инъекций (думаю безопасность соблюдена в полной мере).
В кратце:
1. Пишется скрипт, который запускает этот.
2. Создается регламентное задание в WordPress, по которому запускается скрипт из п.1. 
3. Этот скрипт осуществляет проверку на существование файла обмена в папке.
4. Если данные не новые, загрузка не производится.
5. Если данные новые, очищается таблица сервисных книжек.
6. Загружаются новые данные.

Собственно сам скрипт:

<?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='\

16 Comments

  1. Kuzkin_otets

    Спасибо! весьма полезно было 🙂

    Reply
  2. qSerik

    Только отбора не хватает

    Reply
  3. Eugenie

    (2) Отбора по чём? По измерениям регистров?

    Reply
  4. qSerik

    Да, чтобы закрыть можно было по конкретному измерению

    Reply
  5. Merlin12042009

    Классно! Легким движением руки РН.Незавершенное производство в УУ превратилось в чистый лист для УПП.Оно было не нужно, а иеперь будем вести.Интересно что-бы еще стереть для большего кайфа?

    Reply
  6. Eugenie

    (4) Не было нужно — поэтому не делал, а вообще идея неплохая. Дойдут руки — сделаю отбор и выложу.

    (5) 🙂 ну я «для большего кайфа» еще на НезавершенноеПроизводствоБух и Нал, Затраты (все), БракВПроизводстве (все) нападал

    Reply
  7. Merlin12042009

    идея прекрасная, в РН видны все остатки по регистру, только с минусом

    Reply
  8. ilya005

    У ЗиУП документ называется «КорректировкаЗаписейРегистровНакопления»

    и, конечно, желательно сделать сохранение настроек

    Reply
  9. mars789

    Вот бы еще по мима простого обнуления, добавить возможность отбора по определенным полям, склад, подразделение,…

    Reply
  10. Bassgood
    mars789 пишет:

    Вот бы еще по мима простого обнуления, добавить возможность отбора по определенным полям, склад, подразделение,…

    Да, это действительно не помешало бы…

    Reply
  11. ivan321

    Помогло при корректировке документа Перенос данных СЗВ в программе Зарплата и кадры бюджетного учреждения.

    При перепроведении документа Перенос данных СЗВ данные в регистре удваивались, утраивались … Обнулил, провел и больше не трогал. Спасибо за обработку.

    Reply
  12. goodwin12

    для ЗУП подойдет обнулить по всем сотрудникам долг по зарплате?

    Reply
  13. diman85

    обработка полезная, но нет гибкости в отношении того что совершенно нет никакого отбора, кроме как даты

    Reply
  14. Jackman

    Спасибо, все работает.

    Reply
  15. bigmak

    а кто видел универсальную обработку с отбором по реквизитам и установкой отдельных реквизитов — подскажите

    пожалуйста.

    писать на мыло mir2mb#gmail.com .

    а если несложно сбросьте. в обмен есть чем поделится по статистике БД на 8.

    Reply
  16. Светлый ум

    Прикрутил кнопку, может кому полезно будет:

    Процедура ОсновныеДействияФормыДействие(Кнопка)
    
    ФормаВыбора = Документы.КорректировкаЗаписейРегистров.ПолучитьФормуСписка();
    
    ФормаВыбора.ДокументСписок.Отбор.Комментарий.ВидСравнения = ВидСравнения.Содержит;
    ФормаВыбора.ДокументСписок.Отбор.Комментарий.Значение = «Создан обработкой обнуления остатков»;
    ФормаВыбора.ДокументСписок.Отбор.Комментарий.Использование = Истина;
    ФормаВыбора.ДокументСписок.Обновить();
    
    ФормаВыбора.Открыть();
    
    КонецПроцедуры

    Показать

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *