7.7 Состояние ОС

Тема в разделе "Типовые решения "1С:Предприятие 7.7"", создана пользователем JohnConnor, 1 сен 2012.

  1. TopicStarter Overlay
    JohnConnor
    Offline

    JohnConnor Опытный в 1С

    Регистрация:
    1 сен 2012
    Сообщения:
    85
    Симпатии:
    0
    Баллы:
    26
    Доброго времени суток форумчане!
    Пишу маленькую обработку по 1с для Бюджетного учереждщения, которая должна проверять состояние ОС
    Вот такой код написал
    [​IMG]

    но к моему разочерованию таблица формируеться неправильно=( дата поступления ставиться правильно, дата выбития пустая, в состояние ОС неправильно отображаеться
    [​IMG]

    Подскажите пажалуйста что я делаю неправильно?

    Вложения:

    • ос.ert
      Размер файла:
      61,5 КБ
      Просмотров:
      103
  2. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    С бюджеткой не дружу, но в ОСНО есть процедура в ГМ которая отвечает за состояние ОС. Может в вашей тоже есть?
  3. TopicStarter Overlay
    JohnConnor
    Offline

    JohnConnor Опытный в 1С

    Регистрация:
    1 сен 2012
    Сообщения:
    85
    Симпатии:
    0
    Баллы:
    26
    Вот так сделал

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

Поделиться этой страницей