|
|
Процедура ПримерыОбращенияККонстантам()// Если это первый запуск конфигурации, то константа // содержит в качестве значения 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 г.
Листинг ю_3.4 Процедура ПечатьКурсаУЕ(Кнопка) РегСведКурсы=РегистрыСведений.Курсы; НабКурсы=РегСведКурсы.СоздатьНаборЗаписей(); НабКурсы.Прочитать(); к=НабКурсы.Количество(); Для н=1 по НабКурсы.Количество() Цикл ТекСтрока=НабКурсы[к-н]; Сообщить(""+ТекСтрока.Период+Символы.Таб+ТекСтрока.Курс); КонецЦикла; КонецПроцедуры
Листинг ю_3.5
Процедура ПечатьКурсаУЕ(Кнопка) РегСведКурсы=РегистрыСведений.Курсы; НабКурсы=РегСведКурсы.СоздатьНаборЗаписей(); НабКурсы.Прочитать(); к=НабКурсы.Количество(); Для н=1 по НабКурсы.Количество() Цикл ТекСтрока=НабКурсы[к-н]; Сообщить(""+ТекСтрока.Период+Символы.Таб+ТекСтрока.Курс); КонецЦикла; КонецПроцедуры
Листинг ю_3.6
// Модуль набора записей регистра сведений "Курсы" // ПередЗаписью() - проверяет дату периода перед записью в ИБ // Параметры // Отказ (Булево) позволяет отказаться от записи (Ложь-по Умолчанию- // выполнение операции, Истина – отказ От операции. // Замещение (Булево) режим записи набора (Ложь-по умолчанию- Дописывание //записи, Истина – замещение записи.
  ЧТО ПРОИСХОДИТ ВО ВЗРОСЛОЙ ЖИЗНИ? Если вы все еще «неправильно» связаны с матерью, вы избегаете отделения и независимого взрослого существования...  Что вызывает тренды на фондовых и товарных рынках Объяснение теории грузового поезда Первые 17 лет моих рыночных исследований сводились к попыткам вычислить, когда этот...  ЧТО И КАК ПИСАЛИ О МОДЕ В ЖУРНАЛАХ НАЧАЛА XX ВЕКА Первый номер журнала «Аполлон» за 1909 г. начинался, по сути, с программного заявления редакции журнала...  ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|
