Имя: Пароль:
1C
1C 7.7
v7: Ликвидация необоротных активов - обновить код
0 sivsoft
 
19.06.14
13:14
Доброго времени суток!
Есть документ ликвидация необоротных активов, там кроме самих активов из справочника есть поле код этого актива. Они сейчас пустые. Если в документе перевыбрать сам актив, то все нормально и код проставляется в это поле, но так муторно и очень долго.
Написал короткую обработку. Но почему-то даже
Сообщить(ЛиквидацияНАктивов.НеоборотныйАктив);
не показывает название.
Такое впечатление, что его там нет. Но он есть, если зайти в док и есть если его выбрать.

Каким способом проставить эти кода в обработке?
1 Бовка
 
19.06.14
13:23
(0) код покажи
2 Pit0n_08
 
19.06.14
13:25
Для начала...
ЛиквидацияНАктивов = СоздатьОбъект("Документ.ЛиквидацияНАктивов");
ЛиквидацияНАктивов.ВыбратьДокументы(НачДата,КонДата);
Пока ЛиквидацияНАктивов.ПолучитьДокумент() = 1 Цикл
Сообщить(СокрЛП((ЛиквидацияНАктивов.НеоборотныйАктив.Наименование));
КонецЦикла;
3 Pit0n_08
 
19.06.14
13:26
+(2) Так работает?
4 Pit0n_08
 
19.06.14
13:27
+(2)
Сообщить(СокрЛП(ЛиквидацияНАктивов.НеоборотныйАктив.Наименование));
5 Pit0n_08
 
19.06.14
13:28
Это если НеоборотныйАктив - реквизит шапки.
6 sivsoft
 
19.06.14
13:30
ЛиквидацияНАктивов = СоздатьОбъект("Документ.ЛиквидацияНеоборАктивов");
    ЛиквидацияНАктивов.ВыбратьДокументы(ВыбДата1,ВыбДата2);
    НеоботАктив = СоздатьОбъект("Справочник.НеоборотныеАктивы");
    Пока ЛиквидацияНАктивов.ПолучитьДокумент() = 1 Цикл
        Сообщить(ЛиквидацияНАктивов.НеоборотныйАктив);
        Если НеоботАктив.НайтиПоНаименованию(ЛиквидацияНАктивов.НеоборотныйАктив,0,1) = 1 Тогда
            Сообщить("Нашел!");
        КонецЕсли;
        ЛиквидацияНАктивов.НеоборотныйАктивКод = ЛиквидацияНАктивов.НеоборотныйАктив.Код;
        Сообщить(НеоботАктив.ТекущийЭлемент().Код);
        ЛиквидацияНАктивов.Провести();
    КонецЦикла;

Вот мой код. В общем-то одно и тоже. Но не работает.
НеоборотныйАктив - это табличное поле.
7 Pit0n_08
 
19.06.14
13:36
1. Для табличного поля нужен цикл по строкам документа.
2. Поле Код - это отдельный реквизит ТЧ? Обычно такие доп поля выводятся как текст с функцией НеоборотныйАктив.Код
8 Pit0n_08
 
19.06.14
13:38
3. Если НеоботАктив.НайтиПоНаименованию(ЛиквидацияНАктивов.НеоборотныйАктив.Наименование,0,1) = 1 Тогда
9 Pit0n_08
 
19.06.14
13:58
(6) Ну и ЛиквидацияНАктивов до поведения желательно ЛиквидацияНАктивов.Записать()
10 sivsoft
 
19.06.14
13:59
(7) Точно ты сказал за цикл, совсем я сдурел. Спасибо.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс