Технологическая карта для УНФ 1.6

Обработка для формирования печатной формы «Технологическая карта» (не унифицированная) для УНФ 1.6 (проверено на УНФ для Украины 1.6.10.11 платформа 1С 8.3.15.1489).
Добавляется в конфигурацию (расширение).
Печатается из документа «Заказ на производство».

Формирование печатной формы "Технологическая карта" (не унифицированная) для УНФ 1.6 (проверено на УНФ для Украины 1.6.10.11 платформа 1С 8.3.15.1489). 

Добавляется в конфигурацию (расширение). Печатается из документа "Заказ на производство". Для этого в модуль менеджера документа нужно добавить:

Процедура ДобавитьКомандыПечати(КомандыПечати)
КомандаПечати = КомандыПечати.Добавить();
КомандаПечати.Идентификатор = "arn_ПРО_ПечатьТехнологическойКарты";
КомандаПечати.Представление = НСтр("ru='Печать технологической карты';uk='Печать технологической карты'");
КомандаПечати.СписокФорм = "ФормаДокумента,ФормаСписка,ФормаСпискаДокументов";
КомандаПечати.ПроверкаПроведенияПередПечатью = Ложь;
КомандаПечати.Порядок = 20;
КонецПроцедуры

Процедура arn_ПРОПечать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода)

ПоДереву = Ложь;
Если КоллекцияПечатныхФорм.Количество() > 0 Тогда
Если  КоллекцияПечатныхФорм[0].ИмяВРЕГ = "ARN_ПРО_ПЕЧАТЬТЕХНОЛОГИЧЕСКОЙКАРТЫПОДЕРЕВУСПЕЦИФИКАЦИЙ" Тогда
ПоДереву = Истина;
КонецЕсли;
КонецЕсли;

ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, Обработки.arn_ПРО_ПечатьТехнологическойКарты.ИдентификаторПечатнойФормы(ПоДереву));
Если ПечатнаяФорма <> Неопределено Тогда

ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
ПечатнаяФорма.ТабличныйДокумент.КлючПараметровПечати = Обработки.ПечатьАктаОбОказанииУслуг.КлючПараметровПечати();
ПечатнаяФорма.ПолныйПутьКМакету = Обработки.arn_ПРО_ПечатьТехнологическойКарты.ПолныйПутьКМакету();
ПечатнаяФорма.СинонимМакета = Обработки.arn_ПРО_ПечатьТехнологическойКарты.ПредставлениеПФ(ПоДереву);

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

Обработки.arn_ПРО_ПечатьТехнологическойКарты.СформироватьПФ(ПечатнаяФорма, ДанныеОбъектовПечати, ОбъектыПечати);

КонецЕсли;

КонецПроцедуры

 

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *