Помогите с обработкой справочника Бухгалтерии
17.05.2005
18:01
#1
Помогите!
Я начинающий, всего 5 дней копаюсь в языке 1с и спросить не у кого, так вот задача такая.
Мне не обходимо обработать справочник ОсновныеСредства в Бухгалтерии. Нужно что бы ко всем элементам уже существующим в справочнике, у которых не указан метод амортизации, был присвоен линейный метод. И еще если Специальный Коэффициент ноль, тогда назначить Спец. коэф. Один...вот
За ранее благодарю.
Я начинающий, всего 5 дней копаюсь в языке 1с и спросить не у кого, так вот задача такая.
Мне не обходимо обработать справочник ОсновныеСредства в Бухгалтерии. Нужно что бы ко всем элементам уже существующим в справочнике, у которых не указан метод амортизации, был присвоен линейный метод. И еще если Специальный Коэффициент ноль, тогда назначить Спец. коэф. Один...вот
За ранее благодарю.
17.05.2005
22:49
#2
"Держите, вот Вам пример, как надо обрабатывать справочник основные средства. Думаю дальше Вы сможете сами разбираться.
ОС = СоздатьОбъект("Справочник.ОсновныеСредства");
ОС.ВыбратьЭлементы();
Пока ОС.ПолучитьЭлемент() = 1 Цикл
Если ПустоеЗначение(ОС.СпособНачисленияАмортизации) = 1 Тогда
ОС.СпособНачисленияАмортизации =
Перечисление.СпособыНачисленияАмортизацииНМА.Линейный;
ОС.Записать();
КонецЕсли;
КонецЦикла;
--
С уважением, Захаренков Михаил.
- автоматическое резервное
копирование баз 1С"
ОС = СоздатьОбъект("Справочник.ОсновныеСредства");
ОС.ВыбратьЭлементы();
Пока ОС.ПолучитьЭлемент() = 1 Цикл
Если ПустоеЗначение(ОС.СпособНачисленияАмортизации) = 1 Тогда
ОС.СпособНачисленияАмортизации =
Перечисление.СпособыНачисленияАмортизацииНМА.Линейный;
ОС.Записать();
КонецЕсли;
КонецЦикла;
--
С уважением, Захаренков Михаил.
- автоматическое резервное
копирование баз 1С"
Читают тему
(гостей: 1)