Настройка вывода на печать табличного документа в «1С:Предприятие 8.2»




Принцип обмена данными из 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='\

24 Comments

  1. DanilaDru

    А имя принтера получается установить в веб-клиенте?

    Reply
  2. anig99

    Открываем конфигуратор. Справка и читаем всё тоже самое

    Короче минус!!!!!

    Reply
  3. Glafira
    DanilaDru пишет:

    А имя принтера получается установить в веб-клиенте?

    Ну, по крайней мере на веб-клиенте это свойство доступно.

    Reply
  4. DanilaDru

    (3)А есть способы понять на стороне веб-клиента какие принтеры у пользователя подключены?. По сути база может быть запущено с какого угодно компа и не факт, что в системе будет принтер «HP LaserJet 3050 Series PCL 6».

    Reply
  5. Glafira

    В 1С нет своих средств получить список установленных принтеров.

    Можно использовать службу WMI — готовый пример на http://www.1c-h.ru/?p=1360.

    Также см.статью http://infostart.ru/public/21019/, в том числе комментарии

    Reply
  6. DanilaDru

    (5)Спасибо за информацию.

    Reply
  7. semfart

    А как дать команду двусторонней печати?

    Reply
  8. anig99

    (7) никак. нет такой команды, т.к. двусторонняя печать относится к внутренним командам принтера, т.е. управляются драйвером. Всё, что может 1с — это управлять СОДЕРЖАНИЕМ страницы. Двусторонняя печать, выбор лотков, типа бумаги и т.д. — это за пределами возможностей 1с. Можно такими вещами управлять только через WMI, shell и т.д., но это всё равно будет не очень кошерное решение — нужно будет в коде учитывать разных пользователей, компы и т.д.

    Простое решение, которое я нашел — это копии принтеров с разными настройками. Заводим в системе несколько копий одного принтера. Называем их как-нибудь унифицировано. Например, «Верхний лоток», «нижний лоток двухсторонняя печать», «нижний лоток односторонняя печать», и настраиваем эти принтеры в соответствии. Дальше эти настройки надо будет закрепить в 1с — вывести на экран печатную форму, в настройках страницы выбрать принтер, настроить его опять-таки в соответствии и вывести на печать. Если в печатной форме указано название сохраняемых настроек (см. типовые), то в следующий раз всё выйдет именно на нужный принтер с теми настройками. Немного муторно, зато работает без кодинга.

    Reply
  9. Lubocka

    «Если Не ТабДок.ПроверитьВывод(МассивВыводимыхОбластей) Тогда

    ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

    КонецЕсли;»

    Подскажите мне с этим примером, а именно метод .ВывестиГоризонтальныйРазделительСтраниц()

    Где он ставиться? При 1-й строке, на последней? Или каждый раз?

    Играет ли какую-нибудь роль АвтоМасштаб()

    А еще лучше, примерчик. Т.к. у меня никак не работает.

    Reply
  10. nirbolz

    Да, странно что windows Не понимает значение реквизита РазмерСтраницы табличного документа «Custom» как нестандартный размер страницы. А нестандартный размер страницы в windows понимается 1с как «Windows:256». Следовательно у меня не получается задать из 1с размеры страницы.

    Reply
  11. kostia.ck

    (7) semfart, установить 8.3 🙂

    Reply
  12. DanilaDru

    (11)и ловить баги в первых рядах 🙂 Лучше подождать когда стабилизируется.

    Reply
  13. Светлый ум
    Открываем конфигуратор. Справка и читаем всё тоже самое

    Короче минус!!!!!

    Нифига, за колонтитулы плюс — прочитал, и теперь во всю использую.

    Reply
  14. kancerina

    Спасибо за полезную информацию!

    Reply
  15. pvl_mksv

    Спасибо! Полезно, добавлю от себя, что в случае использования сетевого принтера, имя принтера задается как \%HostName%\%PrinterName%. Подозреваю, что с локальными именами тоже не все так просто, так как принтер в системе можно обозвать хоть неприличным словом.

    Reply
  16. bnk72

    (8) anig99, в 7.7 так и делала (устанавливала локальный принтер через TCP/IP Port), настраивала в свойствах вкладка Допольнительно/Умолчания нужные параметры, печатала 1 раз на него с заходом в свойства принтера, а затем уже на печать без предварительного просмотра. В 8.3 так не получается (на параметры по умолчанию наплевать, вернее степлировать степлирует, а вот заместо двусторонней печати шлепает односторонюю). Кто нибудь знает как заставить слушаться?

    Reply
  17. bnk72

    Специально проверила в 8.2 немедленную печать на тот же принтер — здесь дуплексную печать видит и выполняет. Напишу разработчикам, думаю это баг платформы…

    Reply
  18. bnk72

    Обновила платформу на 8.3.5.1098. Стала тестировать — заметила что в 8.3 настройка дуплексной печати вынесена в «Параметры страницы». Выставила дуплекс, отправила на печать — теперь печатает дуплекс и при немедленной печати других документов. Может кому поможет. Но возникли непонятки с теми документами, которые уже были напечатаны ранее, почему-то ориентация страницы слетела. Теперь в предварительном просмотре принудительно ставлю ландшафт, отправляю на печать — печатает портрет…

    Reply
  19. bnk72

    А, тут дело теперь в макете страницы, видать когда я экспериментировала — пробовала. Не пойму, в 8 уже настройка печати для каждого документа (точнее «экземпляра документа» ) сохраняется в базе?

    Reply
  20. RuslanKhanow

    (7) semfart, ТабличныйДокумент.ДвусторонняяПечать = ТипДвустороннейПечати.ПереворотВлево;

    Reply
  21. Tanya_o
    ТабДок.ВерхнийКолонтитул.ТекстСправа=»Стр.[&НомерСтраницы] из [&СтраницВсего]»; //нумерация страниц

    Подскажите пожалуйста, а можно задать параметр с какого номера считать номер страницы

    Пример в текущем отчете это первая страница но надо считать с 122. Т.е.

    Страница 122, 123(122+1(1- это номер страницы в этом отчете)) , 124 (122+2), 1255 (122+3) и т.д.

    Reply
  22. -null-

    (21) Tanya_o, Присоединяюсь к вопросу! Как указать начальный номер страницы, выводимый в колонтитул (не с какой страницы начать выводить колонтитул, а как задать начальный номер) ?

    Reply
  23. Ivon

    Как напечатать только страницу 1 и не печатать остальные? Если это можно.

    Reply
  24. user594726_artyem.romanenkov

    Здравствуйте!

    Подскажите, пожалуйста, как объединить ячейки табличного документа с одинаковыми значениями в рамках одного столбца и поместить значение по центру. Н-р, «Контрагент», «Договор контрагента».

    Reply

Leave a Comment

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