Кусочки полезного кода 1С
Найти:
Menu
Меню выбора вида кода 1C
JSON
Регистры накопления
Регистры сведений
СКД
Файл
Диалоги выбора файлов
Отбор по регистратору
Набор = РегистрыНакопления.ТвойРегистр.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(ТвойРегистратор);
Набор.Прочитать();
Отбор по реквизиту и периоду
КурсыВалют = РегистрыСведений.КурсыВалют;
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();
Доллар = Справочники.Валюты.НайтиПоНаименованию(«USD»);
НаборКурсов.Отбор.Валюта.Установить(Доллар);
НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
НаборКурсов.Прочитать();
Если НаборКурсов.Количество() = 0 Тогда
НовыйКурс = НаборКурсов.Добавить();
НовыйКурс.Валюта = Доллар;
НовыйКурс.Период = ТекущаяДата();
ИначеЕсли НаборКурсов.Количество() = 1 Тогда
НовыйКурс = НаборКурсов[0];
Иначе
Предупреждение(НСтр(«ru = ‘Курс валюты задается один раз в день.’;»
+ » en = ‘Rate is set once a day.'»), 60);
Возврат;
КонецЕсли;