ПОЛЕЗНОЕ

Как развить коммуникабельность Почему могут возникнуть ссоры между супругами, в то время как их отношения кажутся прочными Почему появляется страх? Как стать богатым и отойти от дел молодым Советы от доктора Айболита «Как быть здоровым» Как сделать приглашение правильно Точка зрения. Как сделать сотрудника вовлеченным? Лень и как с ней бороться. Психологические аспекты Способов заработать с помощью internet Лекции по Основам предпринимательства Последнее добавление

КАТЕГОРИИ

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

⇐ ПредыдущаяСтр 2 из 8Следующая ⇒

// Если это первый запуск конфигурации, то константа

// содержит в качестве значения 1 января 0001 года.

Если Константы.ДатаРегистрации.Получить()='00010101' Тогда

// Тогда установим 1 января текущего года

Константы.ДатаРегистрации.Установить (НачалоГода(ТекущаяДата()));

КонецЕсли;

// распечатаем значения констант:

Сообщить("Датарегистрации:"+Константы.ДатаРегистрации.Получить()+".");

Сообщить("Наименованиеорганизации:"+Константы.НаименованиеОрганизации.Получить()+".");

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

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

//Примеры:

ПримерыОбращенияККонстантам();

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

Листинг ю_2.2

//ПримерыОбращенияККонстантам()

//- содержит примеры обращения к Константам

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

//Создадим набор констант:

НаборКонстант=Константы.СоздатьНабор

("ДатаРегистрации,НаименованиеОрганизации");

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

//Прочитаем набор

// Если это первый запуск конфигурации, то константа

// содержит в качестве значения 1 января 0001 года.

Если НаборКонстант.ДатаРегистрации='00010101' Тогда

// Тогда установим 1 января текущего года

НаборКонстант.ДатаРегистрации=НачалоГода(ТекущаяДата());

НаборКонстант.Записать();

//Запишем набор

КонецЕсли;

// распечатаем значения констант:

Сообщить("Дата регистрации:"+

НаборКонстант.ДатаРегистрации+".");

Сообщить("Наименование организации:"+

НаборКонстант.НаименованиеОрганизации+".");

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

Листинг ю_3.1

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

// Найдем

Первое значение валютного курса в 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 г.