Секция . Параметры . Подразделение

СтрокаСреза . Подразделение ;

КонецЕсли;

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

КонецЕсли;

КонецЦикла;

 

 

=

 

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

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

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

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

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

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

 

 

Листинг ю_9.15.

 

//ПечатьЗапросомНажатие - выполняет теже действия, что и

//процедура Печать(...), но с использованием объекта запрос

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

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

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

// Заголовок

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

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

// Шапка

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

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

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

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

"";

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

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

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

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

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

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

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

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

 

Листинг ю_9.16.

 

"ВЫБРАТЬ

|

|

|

|

|

|

|

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

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

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

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

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

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

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

|

|ИЗ

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

//Для того чтобы получить срез последних записей из регистра

//сведений мы должны написать:

"ВЫБРАТЬ

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

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

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

|ИЗ

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

 

 

Листинг ю_9.17.

 

 

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

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

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

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

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

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

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

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

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

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

Иначе

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

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

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

КонецЕсли;

КонецЦикла;

 

Листинг ю_9.18.

 

 

//ПечатьЗапросомНажатие - выполняет теже действия, что и

Процедура

// Печать(...), но с использованием объекта запрос

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

Поделиться: