Первое значение валютного курса в 2009 г.

Запись=РегистрыСведений.Курсы.Получитьпервое('20090101');

Сообщить("Сегодня курс УЕ="+Запись.Курс);

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

 

Листинг ю_3.2

 

Процедура ПримерыОбращенияКРегиструСведений()

// Сначала создадим менеджер записи:

РегСведКурсы = РегистрыСведений . Курсы . СоздатьМенеджерЗаписи ();

// Затем определим период в который будем писать данные:

РегСведКурсы.Период = '20090109' ; //9 января 2009 г.

// 1. Пытаемся прочитать запись

РегСведКурсы . Прочитать ();

// 2. Если записи нет

Если Не РегСведКурсы . Выбран () Тогда

// 3. Запишем новую

РегСведКурсы . Период = '20090109' ; //9 января 2009 г.

РегСведКурсы . Курс = 23.7244 ;

РегСведКурсы . Записать ();

КонецЕсли;

Сообщить("Сегодня курс УЕ="+ РегСведКурсы.Курс);

 

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

 

 

Процедура ПриНачалеРаботыСистемы()

 

ИмяПроцедуры ();

 

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

 

 

Листинг ю_3.3

 

Процедура ПримерыОбращенияКРегиструСведений ()

// записать в регистр сведений "Курсы" значение 23.7244 на 9

//января 2009г..

// Сначала создадим менеджер записи:

РегСведКурсы = РегистрыСведений . Курсы . СоздатьМенеджерЗаписи ();

// Затем определим период в который будем писать данные:

РегСведКурсы . Период = '20090109' ; // 9 января 2009 г.

// 1. Пытаемся прочитать запись

РегСведКурсы . Прочитать ();

// 2. Если записи нет

Если Не РегСведКурсы . Выбран () Тогда

// 3. Запишем новую

РегСведКурсы . Период = '20090109' ;

РегСведКурсы . Курс = 23.7244 ;

РегСведКурсы . Записать ();

КонецЕсли ;

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

// 9 января 2009 г.

 

 

Листинг ю_3.4

Процедура ПечатьКурсаУЕ ( Кнопка )

РегСведКурсы = РегистрыСведений . Курсы ;

НабКурсы = РегСведКурсы . СоздатьНаборЗаписей ();

НабКурсы . Прочитать ();

к = НабКурсы . Количество ();

Для н = 1 по НабКурсы . Количество () Цикл

ТекСтрока = НабКурсы[к - н] ;

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

КонецЦикла;

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

 

 

Листинг ю_3.5

 

Процедура ПечатьКурсаУЕ ( Кнопка )

РегСведКурсы = РегистрыСведений . Курсы ;

НабКурсы = РегСведКурсы . СоздатьНаборЗаписей ();

НабКурсы . Прочитать ();

к = НабКурсы . Количество ();

Для н = 1 по НабКурсы . Количество () Цикл

ТекСтрока = НабКурсы[к - н] ;

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

КонецЦикла;

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

 

 

Листинг ю_3.6

 

// Модуль набора записей регистра сведений "Курсы"

// ПередЗаписью() - проверяет дату периода перед записью в ИБ

// Параметры

// Отказ (Булево) позволяет отказаться от записи (Ложь-по

Умолчанию-

// выполнение операции, Истина – отказ

От операции.

// Замещение (Булево) режим записи набора (Ложь-по умолчанию-

Дописывание

//записи, Истина – замещение записи.

 

Процедура ПередЗаписью ( Отказ , Замещение )

ДатаРегистрации = Константы . ДатаРегистрации . Получить ();

⇐ Предыдущая12345678910Следующая ⇒

Поделиться: