Печать кадровых приказов по ссылке

Форум Программирование Библиотека стандартных подсистем (БСП)

1С:Зарплата и Управление Персоналом 3.x

1. kns77 103 20.06.19 08:50 Сейчас в теме

Нашел в инете как печатать в УТ, БП например

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

&НаСервере 
Функция ПечатьНаСервере()    
    
СсылкаНаДокумент = Документы.РеализацияТоваровУслуг.НайтиПоНомеру("0000-000033", ТекущаяДата());
МассивОбъектов = Новый Массив;
МассивОбъектов.Добавить(СсылкаНаДокумент);

Возврат МассивОбъектов

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

Показать

Аналогично надо в ЗУП, что то сходу не нашел как.Может есть у кого примерчик ?

По теме из базы знаний

Ответы

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

Свернуть все

2. SlavaKron 20.06.19 09:01 Сейчас в теме

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

Показать

Оставьте свое сообщение

E-mail: