<?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='\
68 закачек и ни одного комента, померли все что ли ???
Не понял, в каких случаях и как это использовать?
Неплохая вещь, пригодится.
(2) Взять процедуру из глобального модуля, сунуть ее в глобальный модуль своей конфигурации. Если нужно печатать что-нибудь через Ворд делаешь в Ворде шаблон печатной формы, в обработчике печати вызываешь процедуру из глобального модуля, передаешь ей список параметров и путь к шаблону. Вот и все.
Спасибо за пояснение, попробую использовать.
(5) Параметры в документе Word это закладки (bookmarks). Включить отображение закладок можно через меню Сервис — Параметры — Вид, установить флажок «закладки». Создать новую закладку можно через меню Вставка — Закладка.
Как пример, пойдет.
А как в word документе сделать штрих код чтобы он еще и заполнялся из 1с.?!
(8) В Ворде выбираешь из главного меню «Вставка» -> «Объект» -> «1c.v8.Печать Штрих-кодов» и помещаешь на форму ActiveX объект. Посмотри свойства этого объекта (через контекстное меню) там можно настроить параметры штрих-кода. Затем документ сохраняешь например как C:ШтрихКод.doc.
Затем нужно обратиться к свойству CodeValue этого объекта из 1С.
// =============================================
Попытка
Word = СоздатьОбъект(«Word.Application»);
Исключение
Сообщить(«Не удалось установить связь с Microsoft Word !!!»);
Возврат;
КонецПопытки;
// Формируем договор
Word.Documents.Add(«C:ШтрихКод.doc»);
Документ = Word.ActiveDocument;
// Назначаем штрих код
Документ.BarcodeCtrl1.CodeValue = 111111111111;
// Показываем договор
Word.Visible = 1;
В примере я использовал восьмерочный штрих-код, поскольку семерочного у меня не было.
У меня не все так просто. word 2007 версия стандарт.
«Вставка» -> «Объект» -> «1c.v8.Печать Штрих-кодов» — прокатывает в 1с.
А вот у ворда вставка объекта возможна но пункта 1c.v8.Печать Штрих-кодов» там нет. боюсь даже если я извращу и сделаю на другом ворде пользовательский ворд все равно не откроет. Делаю вывод что мой вариант это создавать картинку в 1с и ее пытаться вставить в ворд… Пока что примеров такова кода не нашел. Вопрос открыт…
Возможность вставки штрих-кода доступна только в Microsoft Office Профессиональный плюс 2007, Microsoft Office Корпоративный 2007, Microsoft Office Максимум 2007, а также в автономных версиях Office Word 2007, Office Excel 2007 и Office PowerPoint 2007.
(10) Я пользовался 2003м. Вордом. Насчет картинки не знаю, никогда о таком не слышал. У тебя баркод для восьмерки установлен, может его просто у тебя нет ? Попробуй вставить штрих-код в восьмерку (в любую форму или документ) если его и там не будет в списке значит дело не в ворде а просто нужно баркод поставить.
Не не. С баркодом все ок.! это именно что восьмеричный баркод последняя версия 8.0.14.2. Он у нас много где используется.
(11) Я подозреваю что по этой ссылке речь идет не о том штрих коде. Скорее всего это просто какая-нибудь примочка от мелкософта. Любой ворд должен поддерживать вставку объектов ActiveX. А что это за объект ворду по барабану, тем более что создан он сторонним разработчиком.
И тут я с тобой согласен также рассуждал.
Вот картинка диалога из ворда и 1с.
походу в ворде недоступны все компоненты которые кличют с элемент управления.
(15) установи 2003й ворд, создай шаблон своего документа и сохрани
а юзать его скорее всего можно будет и под 2007й
это просто какой то глюк, у мелкомягких вечно руки из ж… растут
А как ты решил что обращение к баркоду будет вот таким «BarcodeCtrl1.CodeValue» ? имя гдето задается? вдруг там штрихкодов 2000.
BarcodeCtrl1 это имя по умолчанию, созданное вордом при вставке объекта, типа Кнопка1 или ПолеТекстовогоДокумента1 в 1С. Изменить его можно в свойствах объекта. А добраться до свойств можно через контекстное меню (щелкнуть правой кнопкой мыши на объекте и выбрать «свойства»). В свойствах также можно назначить тип штрих-кода и многое другое.
По многочисленным просьбам 😉
(20) Неплохо :), а я думал что фокус с картинкой не пройдет.
Классно. А есть аналогичная ссылка на использование шрифта eang000.ttf?
(22) Не знаю, это к Душелову вопрос. Мне не приходилось раньше печатать штрих коды в Ворде.
Идет проверка переданных параметров в документе Word.
А как прочитать из документа Word все закладки которые есть в документе
СЗ = СоздатьОбъект(«СписокЗначений»);
Для Счетчик = 1 По Документ.Bookmarks.Count Цикл
Закладка = Документ.Bookmarks(Счетчик);
СЗ.ДобавитьЗначение(Закладка,Закладка.Name);
КонецЦикла;
Кстати, ещё стоит заметить, что если мы хотим ограничивать количество строк (место отведенное под надпись) например для наименования, то можно использовать сначало Вставка -> Текст, а потом внутри его уже делать закладку.
При этом надпись(наименование) не вылезет за пределы области и не сместит ниже лежащие закладки, как могло бы быть, если просто закладки ставить в текст.
К слову о вставке штрих-кода.
У меня Word 2003.
Там объект ActiveBarcode — его и использовал.
Имя его Barcode1
Команда Документ.Barcode1.Text = 111111111111
Все работает.
Единственное, что несколько напрягает, что при попытки вставить данные в этот ActiveX объект — Word ругается — типа: «вы доверяет? вставить, да или нет?» на каждую попытку.
Наверно это где-то в настройках есть, типа «доверять всем»?
Никто не ковырялся?
(27) Нет, у меня такого не было, ActiveX вставлялся без проблем.
Разработка очень хороша!!!
Большое спасибо. Наконец-то клиенты нормальные договора будут печатать. 😀
Отличная штука! Очень помогла с договорами. Респект автору.
Спасибо. Использовал в качестве образца для создания своих печатных форм из 1с в Ворд.
Большое спасибо! То что надо.
Просьба прокомментировать возможность формирования через Шаблон Word таблиц…
Когда-то пытлся добраться до шаблона, хорошо получалось с обычным текстом, но оставались нерешенным вопрос в случае потребности в шаблоне Таблицы с переменным количеством строк.
Спасибо. Не знал как подступиться к задаче печати через Word, помог.
Спасибо большое! Очень нужная вещь.
Спасибо. Сэкономило время.
Спасибо!
А можно сделать чтобы после создания word-документа он сразу отправился на печать и закрылся?