Внешние печатные формы в восьмерке II (дополнительные параметры)




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

25 Comments

  1. ineoosaki

    2 poppy

    Скоро появиться продолжение от м-ра Евгена 😉

    Reply
  2. Abadonna

    (1) Жаль что этому мистеру по интернету не получится кое-что почистить

    Reply
  3. poppy

    (1,2) Грустно :'(

    Я плачу…

    Reply
  4. Yra_bes

    Спасибо poppy — ты лучший!

    Reply
  5. ineoosaki

    даду еще ссылку на статью о печатных формах в восьмерке.

    http://uit.kiev.ua/ru/company/articles/index.php?ELEMENT_ID=3055

    Reply
  6. Alex_1066

    …очень хотел посмотреть реализацию, но в бухгалтерии этого не нашёл 🙁

    Reply
  7. poppy

    (6) Чего не нашел?

    Описанный механизм в типовой БП поддерживается. В качестве примера можешь посмотреть эту http://infostart.ru/projects/4355/ обработку.

    Reply
  8. Alex_1066

    спасибки… обязательно посмотрю

    Reply
  9. Altez

    (4) хароший умный дэвушка,)

    списиб

    Reply
  10. Jako

    За обработку тестирования табличных частей особ спасиб!!!

    Reply
  11. h_vitya
    ineoosaki пишет:

    даду еще ссылку на статью о печатных формах в восьмерке.

    http://uit.kiev.ua/ru/company/article…NT_ID=3055

    Спасибо! То что надо =)

    Reply
  12. Пуд

    Спасибо!Как-то этот момент от меня ускользнул.

    Reply
  13. maratimus

    очень помогла , спасибо разбогатею пришлю деньги, да для тех кто не знает, для отладки нужно поставить брейк на строку ТабДокумент = ВнешняяОбработка.Печать(); , а потом нажать F11.

    Reply
  14. OLga_gab

    За ссылочку на статью о печатных формах в восьмерке.

    http://uit.kiev.ua/ru/company/article…NT_ID=3055

    спасибо = очень классно написано

    Reply
  15. Shickom

    Хотелось бы аналогичной статьи для 8.2 управляемого приложения

    Reply
  16. rom-x

    Есть внешняя обработка, в которой 2 макета, в процедуре Печать() код:

    Если ТипЗнч(ДополнительныеПараметры) = Тип(«Структура») Тогда
    Если ДополнительныеПараметры.Свойство(«ИмяМакета») Тогда
    ИмяМакета = ДополнительныеПараметры.ИмяМакета;
    КонецЕсли;
    КонецЕсли;
    

    При регистрации указываю 2 строки, в первой Параметр ИмяМакета = Макет, во второй ИмяМакета = Макет1, выходит всегда только одна печатная форма, если первую строчку указываю Макет, то выходит Макет, соответственно если узказать Макет1 а во второй Макет, то выходит Макет1, что не так делаю?

    Reply
  17. Kolunya

    Спасибо за инфу!!!

    создал обработку, при регистрации сделал несколько строк с разными доп.параметрами (указал разные ИмяМакета)

    все супер!, но …

    в списке печФорм при нажатии на кн.Печать — одно и тоже наименование из регистрации ПФ «Комплект документов покупателя» и «Комплект документов покупателя(2)», «Комплект документов покупателя(3)»..(((

    как можно задать разные названия? типа «Комплект — Торг12», «Комплект Спецификация»

    Вариант с регистрацией еще одной печформы не предлагать, хочу вот так красиво попробовать реализовать..;-)

    возможно такое?

    Reply
  18. msv23

    Спасибо за информацию

    Reply
  19. MasterIt

    Хороший материал, мне как новичку очень пригодился, спасибо!

    Reply
  20. Rustig

    для всех остальных:

    для использования ДополнительныхПараметров приходится указывать ЗаменяемыеПечатныеФормы… то есть они должны быть изначально….

    а если печатная форма создается как новая, а не как заменяемая?… тогда обходимся без дополнительных параметров….. просто создаем столько печатных форм, сколько разных значений параметра.

    кстати, дополнительные параметры могут принимать только значения примитивных типов: строка, булево, дата, число.

    Reply
  21. Mehanik1977

    Подскажите пожалуйста, совсем новичок. Делал внешнюю печатную форму для документа ОС_Инвентаризация. Перенес в нее функцию из модуля документа

    Функция ПолучитьЛокальнуюПеременную(ИмяПеременной) Экспорт
    Результат = «»;
    Если НЕ ДополнительныеСвойства.Свойство(ИмяПеременной,Результат) Тогда
    Если ИмяПеременной = «Счет101» Тогда
    Результат = ПланыСчетов.ЕПСБУ.ОС;
    ИначеЕсли ИмяПеременной = «Счет102» Тогда
    Результат = ПланыСчетов.ЕПСБУ.НМА;
    ИначеЕсли ИмяПеременной = «Счет103» Тогда
    Результат = ПланыСчетов.ЕПСБУ.НПА;
    ИначеЕсли ИмяПеременной = «МассивКВД» Тогда
    Результат = Новый Массив;
    Результат.Добавить(Перечисления.КВД.Бюджет);
    Результат.Добавить(Перечисления.КВД.Внебюджет);
    Результат.Добавить(Перечисления.КВД.СубсидииНаГосзадание);
    Результат.Добавить(Перечисления.КВД.СубсидииНаИныеЦели);
    Результат.Добавить(Перечисления.КВД.БюджетныеИнвестиции);
    Результат.Добавить(Перечисления.КВД.СредстваОМС);
    ИначеЕсли ИмяПеременной = «МассивВидовНФА» Тогда
    Результат = Новый Массив;
    Результат.Добавить(Перечисления.ВидыНФА.ОС);
    Результат.Добавить(Перечисления.ВидыНФА.НМА);
    Результат.Добавить(Перечисления.ВидыНФА.НПА);
    ИначеЕсли ИмяПеременной = «МассивИсключаемыхСостояний» Тогда
    Результат = Новый Массив;
    Результат.Добавить(Перечисления.СостоянияОС.ПустаяСсылка());
    Результат.Добавить(Перечисления.СостоянияОС.СнятоСУчета);
    ИначеЕсли ИмяПеременной = «СписокБалансов» Тогда
    Результат = УправлениеМатериальнымиЗапасами.СформироватьСписокБалансовДляВыбора();
    ИначеЕсли ИмяПеременной = «СчетБибл» Тогда
    Результат = Новый Массив;
    Результат.Добавить(ПланыСчетов.ЕПСБУ.ОС_ОЦДИ_БиблиотечныйФонд);
    Результат.Добавить(ПланыСчетов.ЕПСБУ.ОС_ИДИ_БиблиотечныйФонд);
    Результат.Добавить(ПланыСчетов.ЕПСБУ.ОС_ПЛ_БиблиотечныйФонд);
    КонецЕсли;
    ДополнительныеСвойства.Вставить(ИмяПеременной,Результат);
    КонецЕсли;
    
    Возврат Результат;
    КонецФункции
    

    Показать

    При проверке синтаксиса пишет что переменная ДополнительныеСвойства не определена. Я не понимаю откуда она должна браться? В модуле документа тоже не понял как посмотреть где она определяется и что это такое вообще. Подскажите пожалуйста, в инете не нашел что почитать про это(

    Reply
  22. user785506

    (21) Посмотрите в синтаксис-помощнике ветку:

    Прикладные объекты

    Документы

    ДокументОбъект.<ИмяДокумента>

    Свойства

    ДополнительныеСвойства

    В Вашей внешней печатной форме согласно требованиям должен быть реквизит СсылкаНаОбъект, которому нужно присвоить тип ДокументСсылка.ОС_Инвентаризация

    Из него можно получить тип ДокументОбъект.ОС_Инвентаризация:

    ДокОбъ=СсылкаНаОбъект.ПолучитьОбъект();

    — а потом уже и ДополнительныеСвойства:

    ДополнительныеСвойства=ДокОбъ.ДополнительныеСвойства

    Reply
  23. Mehanik1977

    (22)Спасибо большое за подробный ответ

    Reply
  24. user1081683

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

    Помогите пожалуйста!

    1С8 Розница 2,2

    Необходимо добавить в печатную форму графу с Маркой(Брендом) из номенклатуры…

    Возможно ли это сделать прописав параметр, и какой будет параметр???

    Reply
  25. Coleuss

    Доброе утро!

    Подскажите, пожалуйста, как можно реализовать процедуру в УПД?

    Суть процедуры в передаче параметра КПП (Контрагент — Грузополучатель — КПП) в печатную форму СчетФактура(УПД). Версия конфигурации УТ 11.1. Я новичок в этом, был бы благодарен за помощь или пример.

    Заранее спасибо.

    Reply

Leave a Comment

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