Процедура Выполнить(); СпрП = СоздатьОбъект("Справочник.ОсновныеСредства"); Спр = СоздатьОбъект("Справочник.Фирмы"); Спр.НайтиПоНаименованию (""); СпрП.ИспользоватьВладельца(Спр.ТекущийЭлемент()); СпрП.ВыбратьЭлементы(); Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); Таб.ВывестиСекцию("Шапка"); //ДатаВводаВЭксплуатацию=СпрП.ДатаВводаВЭксплуатацию.Получить(ТекущаяДата()); //ДатаВыбытия = СпрП.ДатаВыбытия.Получить(ТекущаяДата()); ПорядковыйНомер=0; Пока СпрП.ПолучитьЭлемент() = 1 Цикл Если СпрП.Родитель.Наименование = "Машины и оборудование" Тогда Таб.ВывестиСекцию("Секция_2"); //сообщить("Наименование "+СпрП.Наименование+" Код "+спрП.код); ПорядковыйНомер=ПорядковыйНомер+1; ДатаВводаВЭксплуатацию=СпрП.ДатаПостОС.Получить(); ДатаВыбытия=СпрП.ДатаВыбытия.Получить(); СостояниеОС=СпрП.СостояниеОС.Получить(); КонецЕсли; КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать();
ДатаВыбытия=СпрП.ДатаВыбытия.Получить(ТекущаяДата());