Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
18 апр 2024, 00:21

Печать договора контрагента

Автор Семён Бочаров, 04 сен 2018, 22:20

0 Пользователей и 1 гость просматривают эту тему.

Семён Бочаров

Добрый день уважаемые коллеги!

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

Макет сделал прям в 1С не Wordовский. Не могу ни примера найти ни чего, как загнать договор заполненый в ТабДок...

Семён Бочаров

Ответ на вопрос ребят думаю нужно будет кому!

ТабДок = Справочники.ШаблоныДоговоров.НайтиПоНаименованию("Договор купли-продажи");
ПараметрыЗаполнения = Новый Структура;
    ПараметрыЗаполнения.Вставить("ШаблонДоговора",          ТабДок);
ПараметрыЗаполнения.Вставить("СсылкаНаОбъект",          Договор.Ссылка);

ФорматированныйДокумент = Новый ФорматированныйДокумент;

ПечатьДоговоров.ЗаполнитьТекстДоговораПоШаблону(ПараметрыЗаполнения.ШаблонДоговора,
                                    ФорматированныйДокумент,
                                    ПараметрыЗаполнения.СсылкаНаОбъект);

ПолноеИмяФайла = "M:\temp\Договор №" + Счет.orderId + ".rtf";

ЭлектронноеВзаимодействиеБП.КонвертироватьВФорматRTF(ФорматированныйДокумент, ПолноеИмяФайла);

ДвоичныеДанные = Новый ДвоичныеДанные(ПолноеИмяФайла); 
Адрес = ПоместитьВоВременноеХранилище(ДвоичныеДанные);

ПараметрыФайла = Новый Структура();
            ПараметрыФайла.Вставить("Автор", Пользователи.ТекущийПользователь());
            ПараметрыФайла.Вставить("ВладелецФайлов", Договор.Ссылка);
            ПараметрыФайла.Вставить("ИмяБезРасширения", "Договор №" + Счет.orderId);
            ПараметрыФайла.Вставить("РасширениеБезТочки", "rtf");
            ПараметрыФайла.Вставить("ВремяИзмененияУниверсальное", Неопределено);
   
    ПрисоединенныйФайл = РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, Адрес, "", "");


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск