Процедура ПечатьЗапросомНажатие ( Элемент )

ТабДок = Новый ТабличныйДокумент ;

Макет = Справочники . ОсновныеСредства . ПолучитьМакет ( "Печать" );

 

// Заголовок

Секция = Макет . ПолучитьОбласть ( "Заголовок" );

ТабДок . Вывести ( Секция );

 

// Шапка

Секция = Макет . ПолучитьОбласть ( "Шапка" );

ТабДок . Вывести ( Секция );

 

Запрос = Новый Запрос ();

Запрос . Текст =

"ВЫБРАТЬ

|

|

|

|

|

|

|

|

|

|

|ИЗ

|

|

ОсновныеСредства.Ссылка КАК Ссылка,

ОсновныеСредства.Код КАК Код,

ОсновныеСредства.Наименование КАК Наименование,

ОсновныеСредства.Фирма КАК Фирма,

ОсновныеСредства.ГруппаОС КАК ГруппаОС,

ОсновныеСредства.ДатаВвода КАК ДатаВвода,

ОсновныеСредства.ДатаСписания КАК ДатаСписания,

ДанныеОС.БалансоваяСтоимость КАК БалансоваяСтоимость,

ДанныеОС.РыночнаяСтоимость КАК РыночнаяСтоимость,

ДанныеОС.Подразделение КАК Подразделение

 

Справочник.ОсновныеСредства КАК ОсновныеСредства

ЛЕВОЕ СОЕДИНЕНИЕ

РегистрСведений.ДанныеОС.СрезПоследних(&Период) КАК ДанныеОС

|

|

ПО ОсновныеСредства.Ссылка = ДанныеОС.ОС

|УПОРЯДОЧИТЬ ПО

| Ссылка ИЕРАРХИЯ" ;

 

 

// Выполняем запрос

Запрос . УстановитьПараметр ( "Период" ,РабочаяДата );

Результат = Запрос . Выполнить ();

 

//Откроем выборку

Выборка = Результат . Выбрать ();

Пока Выборка . Следующий () Цикл

 

Если Выборка . Ссылка . ЭтоГруппа Тогда

Секция = Макет . ПолучитьОбласть ( "Группа" );

Секция . Параметры . Заполнить ( Выборка );

ТабДок . Вывести ( Секция );

Иначе

 

 

Секция = Макет . ПолучитьОбласть ( "Элемент" );

Секция . Параметры . Заполнить ( Выборка );

ТабДок . Вывести ( Секция );

КонецЕсли;

 

КонецЦикла;

 

ТабДок . ОтображатьСетку = Ложь ;

ТабДок . Защита = Ложь ;

ТабДок . ТолькоПросмотр = Истина ;

ТабДок . ОтображатьЗаголовки = Ложь ;

ТабДок . Показать ();

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

 

Листинг ю_10.1.

 

// Модуль документа "Поступление"

// Обработчики событий от элементов формы

// ФирмаПриИзменении(Элемент) - устанавливает новый номер

// документа согласно префиксу фирмы

Процедура ФирмаПриИзменении ( Элемент )

УстановитьНовыйНомер ( Фирма . Префикс + "-" );

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

 

// ДатаПриИзменении(Элемент) - изменяет дату курса, курс и

// пересчитывает содержимое колонок "ЦенаУЕ" и "СуммаУЕ" по

// новому курсу

Процедура ДатаПриИзменении ( Элемент )

ДатаКурса = Дата ;

Строка = РегистрыСведений . Курсы . ПолучитьПоследнее ( ДатаКурса );

Курс = Строка . Курс ;

ПересчетСтроки ();

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

 

// ДатаКурсаПриИзменении(Элемент) - изменяет курс и

// пересчитывает содержимое колонок "ЦенаУЕ" и "СуммаУЕ" по

 

// новому курсу

⇐ Предыдущая234567891011Следующая ⇒

Поделиться: