<?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='\
выдает
> Не удалось скопировать шаблон во временный файл.
строка команды получается такой
«copy C:1CopenOOoWriter&1CPrimer.doc C:DOCUME~19335~1LOCALS~1Tempdoc.tmp»
Получилось…
В ОО сначала получается видимым документ, потом идет замена — имхо лучше сразу показать готовый.. (если такая возможность есть). В ворде — нормально…
Очень полезная обработка!!! Иногда пользователи составляют «психоделические» формы документов, Кащенко отдыхает! А т.к. в 1С нет путного редактора, то СПАСИБО АВТОРУ, будем поступать нестандартным образом.
Уважаю, Рулез!
А можно из 1с заполнять пользовательские поля во Writer? Ну чтобы не искать по ключевым полям и заменять их, а заполнять именованные поля, предназначенные для ввода данных.
Очень нужная обработка. Оказывается сидел занимался изобретением велосипеда. Автору респект. !!!
Подскажите, как в OpenOffice после заполнения сразу отправить на печать на заданный принтер и закрыть документ. !!! очень надо !!! БОЛЬШОЕ СПАСИБО !!!
Спасибо! Сделал формирование на основании шаблона Word, а половина молодцов в организации, как выяснилось, работает в OpenOffice. Теперь все будут рады…
Спасибо, как раз искал хороший пример работы с Word.
Спасибо полезная штука.. Подскажите еще примерчик работы с OpenOffice Электронные таблицы… ????
Штука-то полезная, но как задать парметры печати в openoffice из 1с? У меня формируется табель в Calc и надо сразу задать формат А3 и пр…
(10) Вот примерчик:
BDPath = IBDir() + «ExtFormsPrnFormsтабель.xls»;
BDPath = «file:///» + StrReplace(BDPath, «», «/»);
scr = CreateObject(«MSScriptControl.ScriptControl»);
scr.language = «javascript»;
scr.eval(«Массив=new Array()»);
Массив = scr.eval(«Массив»);
scr.AddCode(«function SetItem(ind,val){Массив[ind]=val}»);
ServiceManager = CreateObject(«com.sun.star.ServiceManager»);
scr.AddObject(«ServiceManager», ServiceManager);
scr.eval(«Массив[0]=ServiceManager.Bridge_GetStruct(‘com.sun.star.beans.PropertyValue’)»);
scr.eval(«Массив[0].Name=’AsTemplate'»);
scr.eval(«Массив[0].Value=true»);
Desktop = ServiceManager.createInstance(«com.sun.star.frame.Desktop»);
Document = Desktop.LoadComponentFromURL(BDPath, «_blank», 0, Массив);
Sheets = Document.getSheets();
// Sheets.isVisible = 0;
Sheet = Sheets.getByIndex(0);
Sheet.getCellByPosition(1, 3).String = TrimAll(Константа.НазваниеОрганизации);
….
///=========================================================
procedure FormatOOoRange(scr, Sheet, begCol, begRow, endCol, endRow, HoriJustify, Height, Type, Color, Merge = 0)
Range = Sheet.getCellRangeByPosition(begCol, begRow, endCol, endRow);
Range.merge(Merge);
Range.HoriJustify = HoriJustify; // 1 — left, 2 — center
range.CharHeight = Height; // размер шрифта
range.CharWeight = Type; // 100 — обычный, 150 — жирный
//Row = Sheet.Rows(5);
//Row.Height = 0; //автоподгон высоты строки
scr.eval(«border=ServiceManager.Bridge_GetStruct(‘com.sun.star.table.BorderLine’)»);
Border = scr.eval(«border»);
Border.lineDistance = 0;
Border.innerLineWidth = 0;
Border.outerLineWidth = 1;
Range.SetPropertyValue(«TopBorder», Border);
Range.SetPropertyValue(«BottomBorder», Border);
Range.SetPropertyValue(«LeftBorder», Border);
Range.SetPropertyValue(«RightBorder», Border);
range.CellBackColor = Color;
endProcedure //FormatOOoRange
(11) >> Штука-то полезная, но как задать парметры печати в openoffice из 1с?
тут пример у calc’а посложнее, у writer’а попроще.
Респект
:{} Спасибо огромное))))))
Все очень красиво, но как автоматически записать готовый замененный файл? Никак не пойму!? Пробовал
ТекстовыйПроцессор.Documents.Save(ИмяФайлаВордКон);
и
ТекстовыйПроцессор.Save(ИмяФайлаВордКон);
Пишет
{Обработка.ЗаменаВВордФайлах.Форма.Модуль(126)}: Типы не совпадают
И почему-то открытый файл с атрибутом только чтение?!
Вообщем сам отвечаю на свой вопрос! Сделал
Doc=ТекстовыйПроцессор.Documents.Open(ИмяФайла,, -1);
……..
Doc.Saveas(ИмяФайлаВордКон);
Doc.Close();
Спасибо, очень хороший пример. Реализовал в ЗиК печать уведомлений по иностранцам и еще несколько печатных подобных форм для нашего отдела кадров.
Спасибо за советы!
Хорошая обработка!
а где нужно было увидеть что обработка для 1С 7.7, мне для 8ки нужен был пример, скачал потратил деньги, а тут сюрприз.
Подскажите как что-то подобное реализовать в linux?
Не указано для какой версии 1с обработка!!