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

Как прикрепить к накладной Excel или Word файл?

Автор mono, 21 июл 2010, 11:05

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

mono

При распечатке расходника должен распечатываться вторй лист Excel или Word документа. Как его прикрепить кто знает? :trhregerhg:

Vit1501

можно создать макет типа active document, загрузить в него внешний doc файл и печатать его

mono

Расскажи плиз подробнее как это делается :D

mono

т.е. active document сделал. Ток нужен счётчик на номер гарантийника, число и колличество позиций(колличество единиц товара в таблице)

Vit1501

Как сформировать новый договор на основании файла Microsoft Office Word?
Для заключения договоров с контрагентами разработан типовой договор («пустышка»). При его оформлении (для реального контрагента) в определенные места документа вставляются данные о контрагенте. Подобные фрагменты определены следующим образом: <ИмяОбласти> (на практике можно использовать другие способы).
Фрагмент такого договора приведен на следующем рисунке (рис. 9.12):

Рис. 9.12. Фрагмент договора
Оформленный таким образом документ сохранен в файле, который загружен в качестве макета (при его создании указывается, что тип макета – Active document), рис. 9.13.

Рис. 9.13. Конструктор макета
Далее в соответствующем обработчике события (например, в обработчике нажатия на кнопку Создать договор) размещается следующий текст (листинг 9.44):
Листинг 9.44. Использование макета Active Document
Договор = ПолучитьМакет("Договор");

// Получить объект из макета.
MSWord = Договор.Получить();
   
НаименованиеКонтрагента = "ООО Торгуем всем";

Попытка
   Документ = MSWord.Application.Documents(1);
   Документ.Activate();

   // Получить объект, который будем использовать для поиска и замены.
   Замена = Документ.Content.Find;

   // Заменить заранее определенные ключевые конструкции на требуемый текст.
   Замена.Execute("<НазваниеКомпании>",
      Ложь, Истина, Ложь, , , Истина, , Ложь,   НаименованиеКонтрагента);

   // Далее аналогично для остальных ключевых конструкций.
   //   ...

   // Делаем видимым приложение и активизируем его.
   MSWord.Application.Visible = Истина;
   MSWord.Activate();

Исключение

   // Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.
   Сообщить(ОписаниеОшибки());
   MSWord.Application.Quit();

КонецПопытки;

Vit1501

это из практических примеров Радченко

Теги:

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

Рейтинг@Mail.ru

Поиск