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