1С Программирование и поддержка (1C) - [1020] :: Прикладное программирование

Код:

    НаборЗаписей = РегистрыСведений.СостояниеАвтомобилей.СоздатьНаборЗаписей();

    Для Каждого ТекСтрокаСписокАвтомобилей Из СписокАвтомобилей Цикл

        НаборЗаписей.Отбор.Регистратор.Установить(ЭтотОбъект.Ссылка);

        НоваяЗапись = НаборЗаписей.Добавить();

        НоваяЗапись.Период = Дата;
        НоваяЗапись.Автомобиль = ТекСтрокаСписокАвтомобилей.Автомобиль;
        НоваяЗапись.ТипСостоянияАвтомобиля = Перечисления.ТипыСостоянияАвтомобилей.Свободное;

    КонецЦикла;

    НаборЗаписей.Записать();

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению