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

23.05.22

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

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
Отправка счетов и актов из 1С:Бухгалтерия 3.0: .epf 14,40Kb 19	19	Скачать (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].ТабличныйДокумент;

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

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

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

+9 –

См. также

SALE! 50%

Рассылки из 1С через Email, SMS, WhatsApp, Telegram - Директ Маркетинг

Мессенджеры и боты SMS рассылки Email рассылки Пользователь Платформа 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Управленческий учет Платные (руб)

Расширение 1С с полным набором инструментов для качественных транзакционных, триггерных и маркетинговых рассылок Email, SMS, WhatsApp, Telegram. Даже простые уведомления об оплате счетов способны существенно упростить сбор дебиторской задолженности. Применение всех возможностей прямого маркетинга выводит коммуникацию с клиентами, уровень сервиса и лояльность на новый уровень.

~~4800~~ 2400 руб.

07.04.2014 87212 56 199

141

Рассылка по электронной почте и автоматическое формирование актов сверки взаиморасчетов для КА 2.5, УТ 11, ERP 2.5

Email рассылки Взаиморасчеты Мастера заполнения Акт сверки Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет Управленческий учет Платные (руб)

Расширение для автоматического формирования актов сверки по контрагентам/партнерам, а также для массовой рассылки печатных форм акта взаиморасчетов пользователям на их электронный адрес.

9600 руб.

01.06.2020 33665 84 53

"Акты сверки +" Групповая подготовка и рассылка актов сверки для Бухгалтерии 3.0.

Взаиморасчеты Email рассылки Акт сверки Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бухгалтерский учет Платные (руб)

Внешняя обработка для Бухгалтерии 3.0 - позволяет автоматически формировать документы «Акт сверки расчетов» с контрагентами за выбранный период с последующей фоновой отправкой на почту контрагента.

4800 руб.

25.11.2020 25976 278 9

240

SALE! 15%

Массовая рассылка печатных форм любых документов по электронной почте, в Telegram, в каталог или том

Email рассылки Программист Пользователь Платформа 1С v8.3 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:ERP Управление предприятием 2 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 Платные (руб)

Решение для массовой рассылки печатных форм (в том числе и дополнительных) любых документов, и произвольных файлов. Рассылка возможна посредством электронной почты, Telegram и файловой системы. Рассылка пакета документов. Добавление факсимильных печати и подписи. Произвольные шаблоны HTML/Simple text с автозаполнением любыми полями документа. Любые форматы файлов. Упаковка вложений в архив. Транслитерация имен файлов. Разбиение рассылки на произвольные порции. Обход спам-фильтров. Журналирование рассылок.

~~5280~~ 4488 руб.

30.06.2022 12322 82 104

Групповое создание актов сверок для 1С:УТ 10.3 и БП 3.0

Взаиморасчеты Email рассылки Акт сверки Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Управление торговлей 10 1С:Бухгалтерия 3.0 Бухгалтерский учет Платные (руб)

Обработки предназначены для массового создания актов сверки и отправки их по электронной почте для конфигураций Управление торговлей 10.3. и Бухгалтерия предприятия 3.0. Для Бухгалтерии 3.0 Разработка велась на 1С:Предприятие 8.3 (8.3.15.1830). проверялась на Бухгалтерия предприятия 3.0 (3.0.71.83) и 3.0.76.77 Для Управление торговлей 10.3 Разработка велась на 1С:Предприятие 8.3 релиз конфигурации (10.3.61.2) . РАБОТАЕТ НА БАЗОВЫХ и ПРОФ. ВЕРСИЯХ.

2520 руб.

24.04.2020 32522 129 66

105

Автоматическая рассылка отчетов из 1С:УТ 10.3 и 1С:УПП по электронной почте

Email рассылки Оптовая торговля Бизнес-аналитик Бухгалтер Пользователь Руководитель проекта Платформа 1С v8.3 1С:Управление торговлей 10 1С:Управление производственным предприятием Управленческий учет Платные (руб)

Многим сотрудникам предприятия требуется актуальная и достоверная информация для принятия верных управленческих решений. Получить данную информацию можно при помощи отчетов, существующих в конфигурации «1С: Управление торговлей 10.3» или «1С:УПП». Но не всегда у пользователей есть время, возможность и/или желание формировать отчеты непосредственно в системе. Намного привычней и удобней получать готовые отчеты на электронную почту, не открывая 1С.

12000 руб.

16.04.2014 86260 101 91

Массовое создание актов сверки и их рассылка для 1С:УНФ

Взаиморасчеты Email рассылки Акт сверки Бухгалтер Пользователь Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Создать и отправить 1000 Актов серки контрагентам за 5 мин?! Легко! Разработано для конфигурации 1C:УНФ. Массовое создание и рассылка Актов сверки в три клика.

6000 руб.

13.01.2022 11408 9 13

Автоматическое формирование актов сверок и отправка контрагентам на почту e-mail в Бухгалтерии 3.0

Взаиморасчеты Email рассылки Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бухгалтерский учет Платные (руб)

Обработка позволяет автоматически сформировать акты сверок на почту контрагентов (почта берется из контактных данных контрагента). При формировании акта сверки формируется подпись с указанием контактов для связи с бухгалтерией нашей организации (формируется исходя из контактов из карточки организации). Присутствует возможность ручного редактирования электронной почты контрагента для отправки. Отправка осуществляется с системной записи электронной почты. В случае, если у контрагента нет адреса электронной почты, эти контрагенты будут выведены в отдельной табличной части. Это очень удобно, так как сразу наглядно виден список контрагентов, которым невозможно отправить акты сверок!

7080 руб.

11.05.2021 10249 8 2

Комментарии

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

Свернуть все

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

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

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

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

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

Показать