|
|
Пока Выборка.Следующий() Цикл//Сообщить(""+Выборка.Период+Символы.Таб+Выборка.Курс); Область.Параметры.Дата = Выборка.Период; Область.Параметры.Значение = Выборка.Курс; ТабДок.Вывести(Область); КонецЦикла; // Установка свойств табличного документа в целом // перед его отображением: ТабДок.ИмяПараметровПечати = "ПараметрыПечатиУЕ"; ТабДок.ИмяСохраненияПоложенияОкна = "ОкноПечатиУЕ"; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.ОтображатьСетку = Ложь; ТабДок.СохранятьСвойстваОтображения=Истина; ТабДок.ТолькоПросмотр = Истина; ТабДок.ФиксацияСверху = 3; ТабДок.Показать("История курса УЕ");
КонецПроцедуры
Листинг ю_7.1
Процедура Печать(Элемент) //{{_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК(Печать) // Данный фрагмент построен конструктором. // При повторном использовании конструктора, внесенные вручную //изменения будут утеряны!!! ТабДок = Новый ТабличныйДокумент; Макет = Справочники.Подразделения.ПолучитьМакет("Печать"); // Заголовок Область = Макет.ПолучитьОбласть("Заголовок"); ТабДок.Вывести(Область); // Шапка Область = Макет.ПолучитьОбласть("Шапка"); ТабДок.Вывести(Область); Выборка = Справочники.Подразделения.ВыбратьИерархически(); Группа = Макет.ПолучитьОбласть("Группа"); Элемент = Макет.ПолучитьОбласть("Элемент"); Пока Выборка.Следующий() Цикл Если Выборка.ЭтоГруппа Тогда Группа.Параметры.Заполнить(Выборка); ТабДок.Вывести(Группа); Иначе Элемент.Параметры.Заполнить(Выборка); ТабДок.Вывести(Элемент); КонецЕсли; КонецЦикла; ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Истина; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.Показать(); //}}_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК КонецПроцедуры
Листинг ю_7.2
Процедура ПечатьЧерезЗапрос(Кнопка) ТабДок = Новый ТабличныйДокумент; Макет = Справочники.Фирмы.ПолучитьМакет("Печать"); // Заголовок Секция = Макет.ПолучитьОбласть("Заголовок"); ТабДок.Вывести(Секция); // Шапка Секция = Макет.ПолучитьОбласть("Шапка"); ТабДок.Вывести(Секция); Запрос = Новый Запрос(); Запрос.Текст = "ВЫБРАТЬ | | |ИЗ | | Фирмы.Код КАК Код, Фирмы.Наименование
Справочник.Фирмы КАК Фирмы |УПОРЯДОЧИТЬ ПО | Код"; //И выполняем запрос Результат = Запрос.Выполнить(); Секция = Макет.ПолучитьОбласть("Элемент"); // Обработка результата Выборка=Результат.Выбрать(); Пока Выборка.Следующий() Цикл Секция.Параметры.Код = Выборка.Код; Секция.Параметры.Наименование = Выборка.Наименование; ТабДок.Вывести(Секция); КонецЦикла; ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Истина; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.Показать(); КонецПроцедуры
Листинг ю_8.1
//ПриОткрытии() - заполняет элемент формы "Дерево" // конкретными значениями ВыборкаФирм = Справочники.Фирмы.Выбрать(); Пока ВыборкаФирм.Следующий() Цикл СтрокаСФирмой = ЭлементыФормы.Дерево.Значение.Строки.Добавить(); СтрокаСФирмой.Ссылка = ВыборкаФирм.Ссылка; КонецЦикла;
Листинг ю_8.2
//ПриОткрытии() - заполняет элемент формы "Дерево" // конкретными значениями Процедура ПриОткрытии() ВыборкаФирм = Справочники.Фирмы.Выбрать(); Пока ВыборкаФирм.Следующий() Цикл СтрокаСФирмой = ЭлементыФормы.Дерево.Значение.Строки.Добавить(); СтрокаСФирмой.Ссылка = ВыборкаФирм.Ссылка; ДобавитьУровеньПодразделений( СтрокаСФирмой, Справочники.Подразделения.ПустаяСсылка(), ВыборкаФирм.Ссылка); КонецЦикла; КонецПроцедуры //ДобавитьУровеньПодразделений(...) добавляет в "Дерево" Подраздления Процедура ДобавитьУровеньПодразделений( СтрокаДерева, //Строка дерева куда добавляем Знач РодительПодразделения, //Уровень в справочнике Знач ВладелецПодразделения) //Владелец справочника ВыборкаПодразделений = Справочники.Подразделения.Выбрать( РодительПодразделения, ВладелецПодразделения);   ЧТО И КАК ПИСАЛИ О МОДЕ В ЖУРНАЛАХ НАЧАЛА XX ВЕКА Первый номер журнала «Аполлон» за 1909 г. начинался, по сути, с программного заявления редакции журнала...  ЧТО ПРОИСХОДИТ ВО ВЗРОСЛОЙ ЖИЗНИ? Если вы все еще «неправильно» связаны с матерью, вы избегаете отделения и независимого взрослого существования...  Система охраняемых территорий в США Изучение особо охраняемых природных территорий(ООПТ) США представляет особый интерес по многим причинам...  Конфликты в семейной жизни. Как это изменить? Редкий брак и взаимоотношения существуют без конфликтов и напряженности. Через это проходят все... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|
