ПриУстановкеНовогоНомера
Данное событие возникает в момент, когда выполняется установка нового номера документа.
ПриКопировании
Это событие возникает при создании документа копированием. В процедуре обработчике можно произвести дополнительные действия, например, присвоить новую дату и новый номер, заполнить реквизит Автор и т.д.
Кроме вышеперечисленных процедур, в модуле документа могут располагаться процедуры и функции, созданные разработчиком. Если их объявить с ключевым словом Экспорт, то они станут доступными вне документа, как обычные методы.
Часто, таким образом, производится печать документов, например, ниже приведена процедура печати расходной накладной:
Процедура Печать(ТабДок) Экспорт
//получение макета
Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Печать");
//вывод шапки
Область = Макет.ПолучитьОбласть("Шапка");
Область.Параметры.НомерДокумента = Номер;
Область.Параметры.От = Дата;
ТабДок.Вывести(Область);
//вывод табличной части Состав
Для Каждого СтрокаСостава Из Состав Цикл
Область = Макет.ПолучитьОбласть("Строка");
Область.Параметры.Заполнить(СтрокаСостава);
ТабДок.Вывести(Область);
КонецЦикла;
//вывод подвала
Область = Макет.ПолучитьОбласть("Подвал");
Область.Параметры.ИтогоКоличество = Состав.Итог("Количество");
Область.Параметры.ИтогоСумма = Состав.Итог("Сумма");
ТабДок.Вывести(Область);
КонецПроцедуры
|
|
Теперь в любом программном модуле можно вызвать эту процедуру и передать ей в качестве параметра табличный документ,который затем можно показать на экране или отправить сразу на принтер.
Например, в форме документа по кнопке «Печать» вызывается следующая процедура:
Процедура ПечатьСПросмотром(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Печать (ТабДок); //вызывается приведенная выше процедура
ТабДок.Показать();
КонецПроцедуры
Аналогично, можно организовать печать текущей расходной накладной из журнала документов, и снова будет вызвана наша процедура Печать из модуля документа, например:
Процедура ПечатьТекущегоДокумента()
Список = ЭлементыФормы.Список;
Если Список.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ТекДокумент = Список.ТекущаяСтрока.ПолучитьОбъект();
ТабДок = Новый ТабличныйДокумент;
ТекДокумент.Печать(ТабДок);
ТабДок.Показать();
КонецПроцедуры
Дата добавления: 2015-12-20; просмотров: 27; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!