Как изменить запись регистра сведений программно
Подскажите как программно изменить запись регистра сведений в 1С 8.2
В синтакс-помощнике есть хороший пример с курсами валют
КурсыВалют = РегистрыСведений.КурсыВалют;
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();
Доллар = Справочники.Валюты.НайтиПоНаименованию("USD");
НаборКурсов.Отбор.Валюта.Установить(Доллар);
НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
НаборКурсов.Прочитать();
Если НаборКурсов.Количество() = 0 Тогда
НовыйКурс = НаборКурсов.Добавить();
НовыйКурс.Валюта = Доллар;
НовыйКурс.Период = ТекущаяДата();
ИначеЕсли НаборКурсов.Количество() = 1 Тогда
НовыйКурс = НаборКурсов[0];
Иначе
Предупреждение(НСтр("ru = 'Курс валюты задается один раз в день.';"
+ " en = 'Rate is set once a day.'"), 60);
Возврат;
КонецЕсли;
НовыйКурс.Курс = 31.44;
НовыйКурс.Кратность = 1;
НаборКурсов.Записать();
Сообщить(НСтр(ru = 'Курс '; en = 'Rate ')
+ СокрЛП(НовыйКурс.Валюта)
+ НСтр(ru = ' на сегодня: "+"; en = ' for today: ')
+ НовыйКурс.Курс + НСтр(ru = ' руб.'; en = ' roub.'"));
Для добавления комментария необходимо войти или зарегистрироваться.
О сайте 1cinfo.com.ua
Сайт посвящен вопросам разработки, внедрения и использования программных продуктов на базе платформы 1С/BAS.
Основное назначение сайта – это площадка для обсуждения трудностей при работе с 1С/BAS, консультации по разработке, внедрению, работе и других. Обмен опытом и многое другое.
- Ullamco laboris nisi ut aliquip ex ea commodo consequat
- Duis aute irure dolor in reprehenderit in voluptate velit
- Ullamco laboris nisi ut aliquip ex ea commodo consequat
Ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.
Learn Moreзарегистрированных пользователей
тем на форуме
посетителей в месяц
просмотренных страниц в месяц