Отправка счетов и актов за период из 1С:Бухгалтерии 3.0 программно с помощью функций БСП

23.05.22

Разработка - БСП (Библиотека стандартных подсистем)

Задача: обработкой сформировать печатные формы счетов и актов за период в 1С:Бухгалтерия 3.0, сохранить в папку на диске и отправить на электронную почту клиенту. Основная сложность этой задачи найти нужную функцию БСП, которая отвечает за формирование табличного документа печатной формы, и функцию, которая прикручивает к ней печать и подпись.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Отправка счетов и актов из 1С:Бухгалтерия 3.0: .epf 14,40Kb 16	16	Скачать (1 SM)	Купить за 1 850 руб.

Моя публикация предназначена для таких же, как я, "программистов по случаю", которым иногда надо писать что-то для собственных нужд. Подобных обработок на Инфостарте множество, но у меня со "стартманями" проблема, да и все равно я буду писать свою максимально простую обработку под свои нехитрые задачи.

Я потратила целый день, на то, чтобы программно получить печатную форму счета с помощью БСП. Благодаря статье на другом ресурсе у меня все получилось, правда, пришлось потратить еще полдня, чтобы к счету приделать подпись и печать. Поэтому хочу поделиться результатом и, возможно, облегчить кому-то жизнь.

Обработка нужна была, чтобы ежемесячно выгружать счета и акты из программы 1С:Бухгалтерия 3.0 в папку на диске в формате pdf. Счет должен быть с печатью и подписью. Некоторые счета нужно сразу отправлять клиенту по электронной почте, для этого в справочник Договоры контрагентов был добавлен дополнительный реквизит "Рассылка счетов" - в значении Истина счет включается в рассылку.

Ключевая функция обработки - получение табличного документа печатной формы:

ПечатныеФормы = УправлениеПечатью.СформироватьПечатныеФормы(ИмяМенеджераПечати, ИменаМакетов, МассивОбъектов,
ПараметрыПечати, ДопустимыеТипыОбъектовПечати);

Для добавления Подписи и печати:

УправлениеПечатьюБП.ДобавитьФаксимилеВФоне(ТбДок,ДокументСсылка);

&НаСервере
//По ссылке на документ получаем табличный документ печатной формы документа
функция СформироватьПечатнуюФорму(ДокументСсылка) 
		
	МассивОбъектов = Новый Массив();
	МассивОбъектов.Добавить(ДокументСсылка);
	ПараметрыПечати = Новый Структура(); 
	ДопустимыеТипыОбъектовПечати = Неопределено;
	
	Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
		ИмяМенеджераПечати = "Обработка.ПечатьСчетаНаОплату";
		ИменаМакетов = "СчетЗаказ";
	Иначе
		ИмяМенеджераПечати = "Документ.РеализацияТоваровУслуг";
		ИменаМакетов = "Акт";
	КонецЕсли;
	
	// Получение табличного документа печатной формы документа
	ПечатныеФормы = УправлениеПечатью.СформироватьПечатныеФормы(ИмяМенеджераПечати, ИменаМакетов,
                    МассивОбъектов,ПараметрыПечати, ДопустимыеТипыОбъектовПечати);
	
	ТбДок =ПечатныеФормы.КоллекцияПечатныхФорм[0].ТабличныйДокумент;
	
	Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
		//Добавление печати и подписи в табличный документ
		УправлениеПечатьюБП.ДобавитьФаксимилеВФоне(ТбДок,ДокументСсылка); 
	КонецЕсли;
	
	Возврат ТБДок;
КонецФункции

В функцию вставлена проверка на тип документа, так как подпись и печать нужно вставлять только в счет.

Получив табличный документ, мы можем делать с ним все что угодно:

- сохранять на диск

&НаКлиенте
Процедура ВыгрузитьВPDF(Команда) //Сохраняем счета в папку на диске
  Если не Объект.ПапкаДляЗаписи="" Тогда
  ИмяКаталога = Объект.ПапкаДляЗаписи+"\Счета\"+Формат(Объект.Период.ДатаНачала,"ДФ='ММММ гггг'");
  ПроверитьСоздатьКаталог(ИмяКаталога);
	
    Для каждого документ из Объект.Счета Цикл
	  ТБДОк =СформироватьПечатнуюФорму(Документ.Ссылка);
	  ИмяФайла = ИмяКаталога+"\"+Документ.Контрагент+" счет на оплату от "+Формат(Документ.Дата,"ДФ=dd.MM.yyyy")+".pdf";
	  ТбДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.PDF);
	  Сообщить(ИмяКаталога+"\"+Документ.Контрагент+" счет на оплату от "+Формат(Документ.Дата,"ДФ=dd.MM.yyyy")+".pdf - записан");
    КонецЦикла;
  Иначе Сообщить("Не заполнен каталог для записи!");
  КонецЕсли;
КонецПроцедуры

- отправлять по электронной почте (функция полностью была взята из статьи по БСП на другом ресурсе)

&НаСервере
Функция ОтправитьТабличныйДокументЭлектроннойПочтойКакPDF(УчетнаяЗаписьПочтыОтправителя, ПочтаПолучателя,
	ТекстПисьма, ТемаПисьма,ТабДок)
	
	Отправлено = Ложь;
	
	Если УчетнаяЗаписьПочтыОтправителя = Неопределено Или УчетнаяЗаписьПочтыОтправителя.Пустая() Тогда
		Возврат Отправлено;
	КонецЕсли;
	
	ПотокФайла = Новый ПотокВПамяти();
	ТабДок.Записать(ПотокФайла, ТипФайлаТабличногоДокумента.PDF);
	
	ДвоичныеДанныеФайла = ПотокФайла.ЗакрытьИПолучитьДвоичныеДанные();
	ВременноеХранилищеФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла, Новый УникальныйИдентификатор);
	
	Вложения = Новый Массив;
	ОписаниеВложения = Новый Структура("Представление, АдресВоВременномХранилище", ТемаПисьма + ".pdf", ВременноеХранилищеФайла);
	Вложения.Добавить(ОписаниеВложения);
	
	ПараметрыПисьма = Новый Структура;
	ПараметрыПисьма.Вставить("Кому", ПочтаПолучателя);
	ПараметрыПисьма.Вставить("Тема", ТемаПисьма);
	ПараметрыПисьма.Вставить("Тело", ТекстПисьма);
	ПараметрыПисьма.Вставить("ТипТекста", "ПростойТекст");
	ПараметрыПисьма.Вставить("Вложения", Вложения);
	
	Попытка
		Идентификатор = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(УчетнаяЗаписьПочтыОтправителя, ПараметрыПисьма);
		Если ЗначениеЗаполнено(Идентификатор) Тогда
			Отправлено = Истина;
		КонецЕсли;
	Исключение
		ЗаписьЖурналаРегистрации("Отправка письма " + ПочтаПолучателя, УровеньЖурналаРегистрации.Ошибка,,,ОписаниеОшибки());
	КонецПопытки;
	
	Возврат Отправлено;

КонецФункции

Листинг всей обработки :

&НаСервере
//По ссылке на документ получаем табличный документ печатной формы документа
функция СформироватьПечатнуюФорму(ДокументСсылка) 
	
	МассивОбъектов = Новый Массив();
	МассивОбъектов.Добавить(ДокументСсылка);
	ПараметрыПечати = Новый Структура(); 
	ДопустимыеТипыОбъектовПечати = Неопределено;
	
	Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
		ИмяМенеджераПечати = "Обработка.ПечатьСчетаНаОплату";
		ИменаМакетов = "СчетЗаказ";
	Иначе
		ИмяМенеджераПечати = "Документ.РеализацияТоваровУслуг";
		ИменаМакетов = "Акт";
	КонецЕсли;
	
	// Получение табличного документа печатной формы документа
	ПечатныеФормы = УправлениеПечатью.СформироватьПечатныеФормы(ИмяМенеджераПечати, ИменаМакетов, МассивОбъектов,
	ПараметрыПечати, ДопустимыеТипыОбъектовПечати);
	
	ТбДок =ПечатныеФормы.КоллекцияПечатныхФорм[0].ТабличныйДокумент;
	
	Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
		//Добавление печати и подписи в табличный документ
		УправлениеПечатьюБП.ДобавитьФаксимилеВФоне(ТбДок,ДокументСсылка); 
	КонецЕсли;
	
	Возврат ТБДок;
КонецФункции

&НаСервере
Функция ОтправитьТабличныйДокументЭлектроннойПочтойКакPDF(УчетнаяЗаписьПочтыОтправителя, ПочтаПолучателя,
	ТекстПисьма, ТемаПисьма,ТабДок)
	
	Отправлено = Ложь;
	
	Если УчетнаяЗаписьПочтыОтправителя = Неопределено Или УчетнаяЗаписьПочтыОтправителя.Пустая() Тогда
		Возврат Отправлено;
	КонецЕсли;
	
	ПотокФайла = Новый ПотокВПамяти();
	ТабДок.Записать(ПотокФайла, ТипФайлаТабличногоДокумента.PDF);
	
	ДвоичныеДанныеФайла = ПотокФайла.ЗакрытьИПолучитьДвоичныеДанные();
	ВременноеХранилищеФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла, Новый УникальныйИдентификатор);
	
	Вложения = Новый Массив;
	ОписаниеВложения = Новый Структура("Представление, АдресВоВременномХранилище", ТемаПисьма + ".pdf", ВременноеХранилищеФайла);
	Вложения.Добавить(ОписаниеВложения);
	
	ПараметрыПисьма = Новый Структура;
	ПараметрыПисьма.Вставить("Кому", ПочтаПолучателя);
	ПараметрыПисьма.Вставить("Тема", ТемаПисьма);
	ПараметрыПисьма.Вставить("Тело", ТекстПисьма);
	ПараметрыПисьма.Вставить("ТипТекста", "ПростойТекст");
	ПараметрыПисьма.Вставить("Вложения", Вложения);
	
	Попытка
		Идентификатор = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(УчетнаяЗаписьПочтыОтправителя, ПараметрыПисьма);
		Если ЗначениеЗаполнено(Идентификатор) Тогда
			Отправлено = Истина;
		КонецЕсли;
	Исключение
		ЗаписьЖурналаРегистрации("Отправка письма " + ПочтаПолучателя, УровеньЖурналаРегистрации.Ошибка,,,ОписаниеОшибки());
		Сообщить("Во время отправки письма для "+ПочтаПолучателя+" произошла ошибка");
	КонецПопытки;
	
	Возврат Отправлено;
	
КонецФункции


&НаКлиенте
Процедура Отправить(Команда)   //Отправить счета на электронную почту
	Если ЗначениеЗаполнено(Объект.УчетнаяЗаписьЭП) Тогда  
		ТекстПисьма =  "Уважаемый клиент, направляем Вам счет на оплату."+Символы.ПС+Символы.ПС+Символы.ПС+"С уважением, ООО КИЦРП";
		
		Для каждого документ из Объект.Счета Цикл
			Если не Документ.Email ="" и Документ.Рассылка Тогда
				ТабДок = СформироватьПечатнуюФорму(Документ.Ссылка);
				ТемаПисьма = "Счет для "+Документ.Контрагент+" от "+Формат(Документ.Дата,"ДФ=dd.MM.yyyy");
				Отправлено = ОтправитьТабличныйДокументЭлектроннойПочтойКакPDF(Объект.УчетнаяЗаписьЭП, Документ.Email,ТекстПисьма, ТемаПисьма, ТабДок);
				Если  Отправлено Тогда Сообщить("Счет для "+Документ.Контрагент+" - отправлен."); КонецЕсли;	
			КонецЕсли;	
		КонецЦикла;
	Иначе
		Сообщить("Не заполнена учетная запись!");
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
КонецПроцедуры

&НаКлиенте
Процедура ПапкаДляЗаписиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
	Диалог.Заголовок = "Выберите путь к папке для сохранения документов:";
	Если Диалог. Выбрать() Тогда 
		Объект.ПапкаДляЗаписи=Диалог.Каталог;
	КонецЕсли; 
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьСчетаНаСервере()
	
	Дата1 = Объект.Период.ДатаНачала;
	Дата2 = Объект.Период.ДатаОкончания;
	ВидКонтактнойИнформации = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
	Рассылка = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Рассылка счетов");
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	КонтрагентыКонтактнаяИнформация.Ссылка КАК Ссылка,
	|	КонтрагентыКонтактнаяИнформация.Представление КАК Представление
	|ПОМЕСТИТЬ Контакты
	|ИЗ
	|	Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформация
	|ГДЕ
	|	КонтрагентыКонтактнаяИнформация.Вид = &Вид
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	ДоговорыКонтрагентовДополнительныеРеквизиты.Ссылка КАК Ссылка,
	|	ДоговорыКонтрагентовДополнительныеРеквизиты.Значение КАК Значение
	|ПОМЕСТИТЬ Рассылка
	|ИЗ
	|	Справочник.ДоговорыКонтрагентов.ДополнительныеРеквизиты КАК ДоговорыКонтрагентовДополнительныеРеквизиты
	|ГДЕ
	|	ДоговорыКонтрагентовДополнительныеРеквизиты.Свойство = &Свойство
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	СчетНаОплатуПокупателю.Ссылка КАК Ссылка,
	|	СчетНаОплатуПокупателю.Дата КАК Дата,
	|	СчетНаОплатуПокупателю.Контрагент КАК Контрагент,
	|	Контакты.Представление КАК Email,
	|	Рассылка.Значение КАК Рассылка
	|ИЗ
	|	Документ.СчетНаОплатуПокупателю КАК СчетНаОплатуПокупателю
	|		ЛЕВОЕ СОЕДИНЕНИЕ Контакты КАК Контакты
	|		ПО СчетНаОплатуПокупателю.Контрагент = Контакты.Ссылка
	|		ЛЕВОЕ СОЕДИНЕНИЕ Рассылка КАК Рассылка
	|		ПО СчетНаОплатуПокупателю.ДоговорКонтрагента = Рассылка.Ссылка
	|ГДЕ
	|	СчетНаОплатуПокупателю.Дата МЕЖДУ &Дата1 И &Дата2
	|	И СчетНаОплатуПокупателю.Проведен = &Проведен
	|	И СчетНаОплатуПокупателю.ПометкаУдаления = &ПометкаУдаления";
	
	Запрос.УстановитьПараметр("Вид", ВидКонтактнойИнформации);
	Запрос.УстановитьПараметр("Дата1", Дата1);
	Запрос.УстановитьПараметр("Дата2", Дата2);
	Запрос.УстановитьПараметр("Свойство", Рассылка);
	Запрос.УстановитьПараметр("Проведен", истина);
	Запрос.УстановитьПараметр("ПометкаУдаления", ложь);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.ВЫбрать();  
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Заполнитьзначениясвойств(Объект.Счета.Добавить(),ВыборкаДетальныеЗаписи);
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьСчета(Команда)
	Объект.Счета.Очистить();
	ЗаполнитьСчетаНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура ПроверитьСоздатьКаталог(ИмяКаталога) 
	
	КаталогНаДиске = Новый Файл(ИмяКаталога);
	Если не КаталогНаДиске.Существует() Тогда
		СоздатьКаталог(ИмяКаталога);
	КонецЕсли;
	//Ответ = Вопрос("Указанный каталог не существует. Создать каталог?", РежимДиалогаВопрос.ОКОтмена);
	//Если Ответ = КодВозвратаДиалога.ОК Тогда
	
КонецПроцедуры 

&НаКлиенте
Процедура ВыгрузитьВPDF(Команда) //Сохраняем счета в папку на диске
	Если не Объект.ПапкаДляЗаписи="" Тогда
		ИмяКаталога = Объект.ПапкаДляЗаписи+"\Счета\"+Формат(Объект.Период.ДатаНачала,"ДФ='ММММ гггг'");
		ПроверитьСоздатьКаталог(ИмяКаталога);
		
		Для каждого документ из Объект.Счета Цикл
			ТБДОк =СформироватьПечатнуюФорму(Документ.Ссылка);
			ИмяФайла = ИмяКаталога+"\"+Документ.Контрагент+" счет на оплату от "+Формат(Документ.Дата,"ДФ=dd.MM.yyyy")+".pdf";
			ТбДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.PDF);
			Сообщить(ИмяКаталога+"\"+Документ.Контрагент+" счет на оплату от "+Формат(Документ.Дата,"ДФ=dd.MM.yyyy")+".pdf - записан");
		КонецЦикла;
	Иначе Сообщить("Не заполнен каталог для записи!");
	КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьАктыНаСервере()
	
	Дата1 = Объект.Период.ДатаНачала;
	Дата2 = Объект.Период.ДатаОкончания;
	ВидКонтактнойИнформации = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
	Видоперации = Перечисления.ВидыОперацийРеализацияТоваров.Услуги;
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	КонтрагентыКонтактнаяИнформация.Ссылка КАК Ссылка,
	|	КонтрагентыКонтактнаяИнформация.Представление КАК Представление
	|ПОМЕСТИТЬ Контакты
	|ИЗ
	|	Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформация
	|ГДЕ
	|	КонтрагентыКонтактнаяИнформация.Вид = &Вид
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	Контакты.Представление КАК Email,
	|	РеализацияТоваровУслуг.Ссылка КАК Ссылка,
	|	РеализацияТоваровУслуг.Контрагент КАК Контрагент,
	|	РеализацияТоваровУслуг.Дата КАК Дата
	|ИЗ
	|	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
	|		ЛЕВОЕ СОЕДИНЕНИЕ Контакты КАК Контакты
	|		ПО РеализацияТоваровУслуг.Контрагент = Контакты.Ссылка
	|ГДЕ
	|	РеализацияТоваровУслуг.Дата МЕЖДУ &Дата1 И &Дата2
	|	И РеализацияТоваровУслуг.ВидОперации = &ВидОперации";
	
	Запрос.УстановитьПараметр("Вид", ВидКонтактнойИнформации);
	Запрос.УстановитьПараметр("Дата1", Дата1);
	Запрос.УстановитьПараметр("Дата2", Дата2);
	Запрос.УстановитьПараметр("Проведен", истина);
	Запрос.УстановитьПараметр("ПометкаУдаления", ложь);
	Запрос.УстановитьПараметр("ВидОперации", ВидОперации);
	
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); 
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Заполнитьзначениясвойств(Объект.Акты.Добавить(),ВыборкаДетальныеЗаписи);
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьАкты(Команда)
	Объект.Акты.Очистить();
	ЗаполнитьАктыНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура ВыгрузитьВPDFАкты(Команда)//Сохраняем акты в папку на диске
	Если не Объект.ПапкаДляЗаписи="" Тогда
		ИмяКаталога = Объект.ПапкаДляЗаписи+"\Акты\"+Формат(Объект.Период.ДатаНачала,"ДФ='ММММ гггг'");
		ПроверитьСоздатьКаталог(ИмяКаталога);
		
		Для каждого документ из Объект.Акты Цикл
			ТБДОк =СформироватьПечатнуюФорму(Документ.Ссылка);
			ИмяФайла = ИмяКаталога+"\"+Документ.Контрагент+" акт от "+Формат(Документ.Дата,"ДФ=dd.MM.yyyy")+".pdf";
			ТбДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.PDF);
			Сообщить(ИмяКаталога+"\"+Документ.Контрагент+" акт от "+Формат(Документ.Дата,"ДФ=dd.MM.yyyy")+".pdf - записан");
		КонецЦикла;
	Иначе Сообщить("Не заполнен каталог для записи!");
	КонецЕсли;
КонецПроцедуры

Саму обработку тоже прилагаю на всякий случай, но она, что называется, техническая, так как создавалась для отладки необходимых процедур и к тому же, если тратить стартмани, то на что-то более навороченное (на Инфостарте, как я уже писала, их много, а эта публикация для тех, у кого стартманей нет).

Обработка запускается через : "Файл" - "Открыть".

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

В соответствующих полях нужно заполнить период документов для записи или отправки, путь к каталогу, в который будут сохранятся счета и учетную запись для электронной почты , которая тоже уже должна быть создана.

Печать и факсимиле должны быть подгружены в справочнике "Организации", т.е. когда вручную формируется печатная форма и стоит галочка "Подпись и печать", то в документе отображаются подпись и печать.

Далее на закладке "Счета" или "Акты" нажимаем кнопку "Заполнить". В таблице заполняются документы за выбранный период, электронная почта указанная в справочнике "Контрагенты" и галочка в поле "Рассылка", если в справочнике "Договоры" заполнен дополнительный реквизит "Рассылка счетов". Если такого реквизита нет, то галочки можно проставить в таблице.

Кнопка "Выгрузить счета в PDF" сохранит счета в указанную папку, а кнопка "Отправить по электронной почте" запустит рассылку тех счетов у которых заполнена электронная почта и стоит галочка в поле "Рассылка".

На закладке Акты кнопка "Отправить по электронной почте" отсутствует, так как в этом нет необходимости.

Обработка тестировалась на платформе 1С:Предприятие 8.3 (8.3.18.1741), релиз 1С:Бухгалтерия 3.0 (3.0.105.14) и (3.0.111.25).

&НаСервере
//По ссылке на документ получаем табличный документ печатной формы документа
функция СформироватьПечатнуюФорму(ДокументСсылка)

   МассивОбъектов = Новый Массив();
   МассивОбъектов.Добавить(ДокументСсылка);
   ПараметрыПечати = Новый Структура();
   ДопустимыеТипыОбъектовПечати = Неопределено;

   Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
       ИмяМенеджераПечати = "Обработка.ПечатьСчетаНаОплату";
       ИменаМакетов = "СчетЗаказ";
   Иначе
       ИмяМенеджераПечати = "Документ.РеализацияТоваровУслуг";
       ИменаМакетов = "Акт";
   КонецЕсли;

   // Получение табличного документа печатной формы документа
   ПечатныеФормы = УправлениеПечатью.СформироватьПечатныеФормы(ИмяМенеджераПечати, ИменаМакетов, МассивОбъектов,
   ПараметрыПечати, ДопустимыеТипыОбъектовПечати);

   ТбДок =ПечатныеФормы.КоллекцияПечатныхФорм[0].ТабличныйДокумент;

   Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
       //Добавление печати и подписи в табличный документ
       УправлениеПечатьюБП.ДобавитьФаксимилеВФоне(ТбДок,ДокументСсылка);
   КонецЕсли;

   Возврат ТБДок;
КонецФункции

обработка печатная форма счета табличный документ БСП отправка по электронной почте

+8 –

См. также

БСП: инструкция подключения объектов к подсистеме запрета редактирования реквизитов

БСП (Библиотека стандартных подсистем) Программист Платформа 1С v8.3 Бесплатно (free)

В статье описан алгоритм для включения документа или справочника в систему БСП. Будет полезно программистам 1С, начинающим работать с БСП.

24.10.2024 1088 PROSTO-1C 0

Расширение функционала общей формы «ФормаОтчета» для работы с новыми элементами формы

БСП (Библиотека стандартных подсистем) Работа с интерфейсом Программист Платформа 1С v8.3 Бесплатно (free)

В материале описан универсальный механизм работы с добавленными элементами на общую форму «ФормаОтчета». Думаю, облегчит работу многим разработчикам.

08.10.2024 978 PROSTO-1C 4

Фоновое формирование дополнительного отчета БСП

БСП (Библиотека стандартных подсистем) Программист Стажер Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В статье рассмотрим пошаговую инструкцию создания дополнительного отчета с фоновым формированием результата.

04.10.2024 1829 MadRave 11

Индикатор прогресса фонового выполнения дополнительной обработки БСП

БСП (Библиотека стандартных подсистем) Программист Стажер Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пример отслеживания прогресса фонового выполнения дополнительной обработки с использованием программного интерфейса длительных операций БСП.

10.09.2024 1816 MadRave 1

О бедной паузе замолвите слово (Дополнено)

БСП (Библиотека стандартных подсистем) Программист Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

А что, если долгожданная реализация Паузы в 1С смутно напоминает старую, проверенную? А?!

06.09.2024 1254 n_mezentsev 10

БСП. Добавляем дополнительные свойства

БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Добавим дополнительные свойства в новый документ средствами БСП

02.09.2024 4105 John_d 10

Печать в docx методами БСП без COM объекта

БСП (Библиотека стандартных подсистем) Программист Платформа 1С v8.3 Бесплатно (free)

Всё больше организаций выбирает для серверов под 1С операционные системы Linux. Одним из отличий систем Windows и Linux является отсутствие COM объектов, которые зачастую использовались для формирования печатных форм офисных документов (Word). Конечно, можно выполнять печать и на клиенте, но есть риск импортозамещения. В работе у меня случались проблемы с зависанием процесса Word, поэтому я не люблю его использовать.

29.07.2024 5354 PROSTO-1C 12

Самые используемые методы БСП 3.1.9

БСП (Библиотека стандартных подсистем) Программист Платформа 1С v8.3 Бесплатно (free)

Наиболее часто используемые методы БСП 3.1.9

24.07.2024 14902 Serg2000mr 32

187

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. unknown181538 158 24.05.22 01:59 Сейчас в теме

(0) Я в прошлом году битый час потратил, чтоб разобраться, как сделать, чтобы сохранялось с факсимиле.

2. ixijixi 1913 01.07.22 12:14 Сейчас в теме

Всё, что нужно, есть в одной функции
УправлениеПечатью.НапечататьВФайл()

// Формирует печатные формы в требуемом формате и записывает в файлы.
// Ограничение: печатные формы, формируемые на клиенте не поддерживаются.
//
// Параметры:
// КомандыПечати - Структура
// - Массив - команда или несколько команд печати формы,
// см. УправлениеПечатью.КомандыПечатиФормы.
// СписокОбъектов - Массив - ссылки на печатаемые объекты.
// НастройкиСохранения - см. УправлениеПечатью.НастройкиСохранения.
// * ФорматыСохранения - Массив - коллекция значений типа ТипФайлаТабличногоДокумента,
// либо значений типа ТипФайлаТабличногоДокумента, преобразованных в строку.
// По умолчанию сохранение выполняется в формате PDF.
// * УпаковатьВАрхив - Булево - если установить значение Истина, будет создан один файл архива с файлами указанных форматов.
// * ПереводитьИменаФайловВТранслит - Булево - если установить Истина, то имена полученных файлов будут на латинице.
// * ПодписьИПечать - Булево - если установить Истина и сохраняемый табличный документ поддерживает размещение
// подписей и печатей, то в записанных файлах будут размещены подписи и печати.
//
// Возвращаемое значение:
// ТаблицаЗначений:
// * ИмяФайла - Строка - имя файла;
// * ДвоичныеДанные - ДвоичныеДанные - файл печатной формы.
//
Функция НапечататьВФайл(КомандыПечати, СписокОбъектов, НастройкиСохранения) Экспорт

Показать