Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







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





//Сообщить(""+Выборка.Период+Символы.Таб+Выборка.Курс);

Область.Параметры.Дата = Выборка.Период;

Область.Параметры.Значение = Выборка.Курс;

ТабДок.Вывести(Область);

КонецЦикла;

// Установка свойств табличного документа в целом

// перед его отображением:

ТабДок.ИмяПараметровПечати = "ПараметрыПечатиУЕ";

ТабДок.ИмяСохраненияПоложенияОкна = "ОкноПечатиУЕ";

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

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

ТабДок.СохранятьСвойстваОтображения=Истина;

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

ТабДок.ФиксацияСверху = 3;

ТабДок.Показать("История курса УЕ");

 

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


 

 

Листинг ю_7.1

 

Процедура Печать(Элемент)

//{{_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК(Печать)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную

//изменения будут утеряны!!!

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

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

// Заголовок

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

ТабДок.Вывести(Область);

// Шапка

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

ТабДок.Вывести(Область);

Выборка = Справочники.Подразделения.ВыбратьИерархически();

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

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

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

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

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

ТабДок.Вывести(Группа);

Иначе

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

ТабДок.Вывести(Элемент);

КонецЕсли;

КонецЦикла;

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

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

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

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

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

//}}_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК

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


 

Листинг ю_7.2

 

Процедура ПечатьЧерезЗапрос(Кнопка)

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

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

// Заголовок

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

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

// Шапка

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

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

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

Запрос.Текст = "ВЫБРАТЬ


|

|

|ИЗ

|

|


Фирмы.Код КАК Код,

Фирмы.Наименование

 

Справочник.Фирмы КАК Фирмы


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

| Код";

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

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

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

// Обработка результата

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

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

Секция.Параметры.Код = Выборка.Код;

Секция.Параметры.Наименование = Выборка.Наименование;

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

КонецЦикла;

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

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

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

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

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

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


 

Листинг ю_8.1

 

//ПриОткрытии() - заполняет элемент формы "Дерево"

// конкретными значениями

ВыборкаФирм = Справочники.Фирмы.Выбрать();

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

СтрокаСФирмой =

ЭлементыФормы.Дерево.Значение.Строки.Добавить();

СтрокаСФирмой.Ссылка = ВыборкаФирм.Ссылка;

КонецЦикла;


 

 

Листинг ю_8.2

 

//ПриОткрытии() - заполняет элемент формы "Дерево"

// конкретными значениями

Процедура ПриОткрытии()

ВыборкаФирм = Справочники.Фирмы.Выбрать();

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

СтрокаСФирмой =

ЭлементыФормы.Дерево.Значение.Строки.Добавить();

СтрокаСФирмой.Ссылка = ВыборкаФирм.Ссылка;

ДобавитьУровеньПодразделений(

СтрокаСФирмой,

Справочники.Подразделения.ПустаяСсылка(),

ВыборкаФирм.Ссылка);

КонецЦикла;

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

//ДобавитьУровеньПодразделений(...) добавляет в "Дерево"

Подраздления

Процедура ДобавитьУровеньПодразделений(

СтрокаДерева, //Строка дерева куда добавляем

Знач РодительПодразделения, //Уровень в справочнике

Знач ВладелецПодразделения) //Владелец справочника

ВыборкаПодразделений =

Справочники.Подразделения.Выбрать(

РодительПодразделения, ВладелецПодразделения);







Живите по правилу: МАЛО ЛИ ЧТО НА СВЕТЕ СУЩЕСТВУЕТ? Я неслучайно подчеркиваю, что место в голове ограничено, а информации вокруг много, и что ваше право...

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

Конфликты в семейной жизни. Как это изменить? Редкий брак и взаимоотношения существуют без конфликтов и напряженности. Через это проходят все...

Что способствует осуществлению желаний? Стопроцентная, непоколебимая уверенность в своем...





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


©2015- 2024 zdamsam.ru Размещенные материалы защищены законодательством РФ.