Быстрый старт. Решение задания №3.5.1

Представляем решение домашнего задания 3.5.1.

К сожалению, у Вас недостаточно прав для просмотра этой записи. Если Вы еще не залогинены на сайте — залогиньтесь.

Если не активировали токен — посмотрите видео-инструкцию (видео N5)

Если вы залогинены, у Вас активирован токен доступа, но вы все равно видите эту запись — напишите нам на e-mail поддержки.

комментария 2 на “Быстрый старт. Решение задания №3.5.1”

  1. stanlog 05.10.2012 в 19:14

    Добрый день.

    Была создана обработка со следующими процедурами:

    &НаКлиенте
    Процедура Курсы(Команда)
        ПолучитьТекущийКурсНаСервере (Валюта);
        ПолучитьМаксимальныйКурсНаСервере (Валюта);
        ПолучитьМинимальныйКурсНаСервере (Валюта);
    КонецПроцедуры

    &НаСервереБезКонтекста
    Процедура ПолучитьТекущийКурсНаСервере (Валюта)

        Запрос = Новый Запрос;
        Запрос.Текст =
            "ВЫБРАТЬ
            |   КурсыВалютСрезПоследних.Курс
            |ИЗ
            |   РегистрСведений.КурсыВалют.СрезПоследних(, Валюта = &Валюта) КАК КурсыВалютСрезПоследних";

        Запрос.УстановитьПараметр("Валюта", Валюта);

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

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

        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = "Текущий курс валюты "+Валюта+" =  "+ ВыборкаДетальныеЗаписи.Курс;
            Сообщение.Сообщить();
        КонецЦикла;

    КонецПроцедуры // ПолучитьТекущийКурсНаСервере (Валюта)()

    &НаСервереБезКонтекста
    Процедура ПолучитьМаксимальныйКурсНаСервере (Валюта)

        Запрос = Новый Запрос;
        Запрос.Текст =
            "ВЫБРАТЬ
            |   МАКСИМУМ(КурсыВалют.Курс) КАК Курс
            |ИЗ
            |   РегистрСведений.КурсыВалют КАК КурсыВалют
            |ГДЕ
            |   КурсыВалют.Валюта = &Валюта";

        Запрос.УстановитьПараметр("Валюта", Валюта);

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

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

        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = "Максимальный курс валюты "+Валюта+" =  "+ ВыборкаДетальныеЗаписи.Курс;
            Сообщение.Сообщить();
        КонецЦикла;

    КонецПроцедуры // ПолучитьМаксимальныйКурсНаСервере (Валюта)()

    &НаСервереБезКонтекста
    Процедура ПолучитьМинимальныйКурсНаСервере (Валюта)

        Запрос = Новый Запрос;
        Запрос.Текст =
            "ВЫБРАТЬ
            |   МИНИМУМ(КурсыВалют.Курс) КАК Курс
            |ИЗ
            |   РегистрСведений.КурсыВалют КАК КурсыВалют
            |ГДЕ
            |   КурсыВалют.Валюта = &Валюта";

        Запрос.УстановитьПараметр("Валюта", Валюта);

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

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

        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = "Минимальный курс валюты "+Валюта+" =  "+ ВыборкаДетальныеЗаписи.Курс;
            Сообщение.Сообщить();
        КонецЦикла;

    КонецПроцедуры // ПолучитьМинимальныйКурсНаСервере (Валюта)()