<?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='\
Спасибо! Скоро этот отчет должен пригодиться.
Описание порадовало — «красивый бланк» 😉
поле объекта не обнаружено (АктСверкиБАЛАНС)
Не работает форма. даже в программу добавляться не хочет.
Вот эту ошибку выдает.
Метод объекта не обрнаружен(СведенияОВнешнейОбработке)
Спасибо большое!
(4) al4271, загрузила обработку новее
я может что-то не понимаю ?? его не через файл -> открыть надо включать ??? у меня после нажатия кнопки сформировать пишет «поле объекта не обнаружено (АктСверкиБАЛАНС)»
пытаюсь добавить как внешнюю Метод объекта не обнаружен(СведенияОВнешнейОбработке), это на вновь скачанной обработке
это была первоапрельская шутка новая обработка от старой не отличается
в модуль объекта добавил следующее:
Функция СведенияОВнешнейОбработке()Экспорт
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вставить(«Вид», «ДополнительныйОтчет»);
ПараметрыРегистрации.Вставить(«Наименование», «АктСверкиБАЛАНС»);
ПараметрыРегистрации.Вставить(«Версия», «1»);
ПараметрыРегистрации.Вставить(«БезопасныйРежим», Истина);
ПараметрыРегистрации.Вставить(«Информация», «акт сверки»);
ТаблицаКоманд = ПолучитьТаблицуКоманд();
ДобавитьКоманду(ТаблицаКоманд,»АктСверкиБАЛАНС»,»АктСверкиБАЛАНС»,»ОткрытиеФормы», Ложь,»»);
ПараметрыРегистрации.Вставить(«Команды», ТаблицаКоманд);
Возврат ПараметрыРегистрации;
КонецФункции
Функция ПолучитьТаблицуКоманд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить(«Представление», Новый ОписаниеТипов(«Строка»));
Команды.Колонки.Добавить(«Идентификатор», Новый ОписаниеТипов(«Строка»));
Команды.Колонки.Добавить(«Использование», Новый ОписаниеТипов(«Строка»));
Команды.Колонки.Добавить(«ПоказыватьОповещение», Новый ОписаниеТипов(«Булево»));
Команды.Колонки.Добавить(«Модификатор», Новый ОписаниеТипов(«Строка»));
Возврат Команды;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = «»)
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
после этого удалось прилепить ее в дополнительные отчеты, она прекрасно включается и очень радостно заполняется реквизитами, нажимаю кнопку сформировать и … оппа <поле объекта не обнаружено (АктСверкиБАЛАНС)>
Отчет рабочий, но надо немного подправить:
1. В модуле объекта добавляем:
Функция СведенияОВнешнейОбработке() Экспорт
РегистрационныеДанные = Новый Структура;
РегистрационныеДанные.Вставить(«Наименование», «АктСверки»);
РегистрационныеДанные.Вставить(«БезопасныйРежим», Истина);
РегистрационныеДанные.Вставить(«Версия», «1.0»);
РегистрационныеДанные.Вставить(«Вид», «ДополнительныйОтчет»);
РегистрационныеДанные.Вставить(«Информация», «АктСверки «» «);
тзКоманд = Новый ТаблицаЗначений;
тзКоманд.Колонки.Добавить(«Идентификатор»);
тзКоманд.Колонки.Добавить(«Представление»);
тзКоманд.Колонки.Добавить(«Модификатор»);
тзКоманд.Колонки.Добавить(«ПоказыватьОповещение»);
тзКоманд.Колонки.Добавить(«Использование»);
строкаКоманды = тзКоманд.Добавить();
строкаКоманды.Идентификатор = «1»;
строкаКоманды.Представление = «АктСверки»;
строкаКоманды.ПоказыватьОповещение = Истина;
строкаКоманды.Использование = «ОткрытиеФормы»;
РегистрационныеДанные.Вставить(«Команды», тзКоманд);
Возврат РегистрационныеДанные;
КонецФункции
2. В модуле формы «ФормаОтчета» в «Функция СформироватьЗаголовок()» меняем строку
Макет = Отчеты.АктСверкиБАЛАНС.ПолучитьМакет(«АктСверки»);
на строку Макет = ТекДок.ПолучитьМакет(«АктСверки»);
И перед ней добавляем строку:
ТекДок =РеквизитФормыВЗначение(«Отчет»);
Тоже самое делаем в «Процедура Сформировать()»
Только там в двух местах меняем строку на Макет = ТекДок.ПолучитьМакет(«АктСверки»);
Сохраняем, запускаем
Картинки с оборотами в периоде можно было бы добавить. А то сальдо нач. — сальдо кон. Сейчас народ уже просит текущее сальдо по каждой строке акта.