Секция.Параметры.РыночнаяСтоимость

СтрокаСреза.РыночнаяСтоимость;

=

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

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

КонецЕсли;

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

КонецЕсли;

КонецЦикла;

=

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

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

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

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

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

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

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

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

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

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

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

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

// Заголовок

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

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

// Шапка

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

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

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

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

"";

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

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

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

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

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

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

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

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

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

"ВЫБРАТЬ

|

|

|

|

|

|

|

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

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

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

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

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

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

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

|

|ИЗ

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

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

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

"ВЫБРАТЬ

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

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

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

|ИЗ

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

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

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

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

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

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

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

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

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

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

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

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

Иначе

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

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

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

КонецЕсли;

КонецЦикла;

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

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

Процедура

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

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

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

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

// Заголовок

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

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

// Шапка

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

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

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

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

"ВЫБРАТЬ

|

|

|

|

|

|

|

|

|

|

|ИЗ

|

|

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

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

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

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

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

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

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

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

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

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

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

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

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

|

|

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

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

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

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

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

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

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

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

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

ЧТО И КАК ПИСАЛИ О МОДЕ В ЖУРНАЛАХ НАЧАЛА XX ВЕКА Первый номер журнала «Аполлон» за 1909 г. начинался, по сути, с программного заявления редакции журнала...

ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры...

Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом...

Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор...

Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте: