такая засада-нужно выбрать непроведенные доки ПРинятие к учету ОС и поставить там срок полезного использования. Документы созданы датой 27.09.2013 00.00.00.
вот код:
сч=0;
Запрос=новый запрос;
запрос.Текст="ВЫБРАТЬ
| ПринятиеКУчетуОС.Номер КАК номер
|ИЗ
| Документ.ПринятиеКУчетуОС КАК ПринятиеКУчетуОС
|ГДЕ
| ПринятиеКУчетуОС.Организация = &Орг
| И ПринятиеКУчетуОС.Дата МЕЖДУ &Дата1 И &Дата2";
Запрос.УстановитьПараметр("Орг",Документ);
Запрос.УстановитьПараметр("Дата1",началоДня(ПолеВвода1));
Запрос.УстановитьПараметр("Дата2",КонецДня(ПолеВвода2));
Результат=Запрос.Выполнить().Выбрать();
Пока результат.Следующий() цикл
ДокументОС=Документы.ПринятиеКУчетуОС.НайтиПоНомеру(Результат.Номер).ПолучитьОбъект();
если Документос.Проведен=Ложь тогда
Документос.СрокПолезногоИспользованияБУ=30;
Документос.СрокПолезногоИспользованияНУ=30;
Документос.СрокПолезногоИспользованияУУ=30;
сч=0;
Запрос=новый запрос;
запрос.Текст="ВЫБРАТЬ
| ПринятиеКУчетуОС.Номер КАК номер,
| ПринятиеКУчетуОС.Ссылка КАК Ссылка
|ИЗ
| Документ.ПринятиеКУчетуОС КАК ПринятиеКУчетуОС
|ГДЕ
| ПринятиеКУчетуОС.Организация = &Орг
| И ПринятиеКУчетуОС.Дата МЕЖДУ &Дата1 И &Дата2";
Запрос.УстановитьПараметр("Орг",Документ);
Запрос.УстановитьПараметр("Дата1",началоДня(ПолеВвода1));
Запрос.УстановитьПараметр("Дата2",КонецДня(ПолеВвода2));
Результат=Запрос.Выполнить().Выбрать();
Пока результат.Следующий() цикл
ДокументОС=Результат.Ссылка.ПолучитьОбъект();
если Документос.Проведен=Ложь тогда
Документос.СрокПолезногоИспользованияБУ=30;
Документос.СрокПолезногоИспользованияНУ=30;
Документос.СрокПолезногоИспользованияУУ=30;
блин вот я протупил...фиг ли уже замотался-всю ночь перед 1с-кой не ложился даже..а что за параметр?
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший