|
v7: Очистить периодические реквизиты в справочнике
| ☑ |
0
work92
30.09.16
✎
09:35
|
Может кто подскажет как очистить периодические реквизиты в справочнике.
СпрОС=Создатьобъект("Справочник.ОсновныеСредства");
ПП = СоздатьОбъект("Периодический");
ПП.ИспользоватьОбъект("ВосстановительнаяСтоимость",СпрОС);
СпрОС.НайтиПокоду("01");
ГруппаОС = СпрОС.ТекущийЭлемент();
СпрОС.ИспользоватьРодителя(ГруппаОС);
СпрОС.ВыбратьЭлементы();
Пока СпрОС.ПолучитьЭлемент()=1 Цикл
Сообщить("СпрОС---"+СпрОС.Код);
ПП.ВыбратьЗначения();
Пока ПП.ПолучитьЗначение() = 1 Цикл
ПП.Удалить();
КонецЦикла;
СпрОС.Записать() ;
КонецЦикла
|
|
1
work92
30.09.16
✎
09:35
|
1С 7.7
|
|
2
пипец
30.09.16
✎
09:38
|
есть обработка по очистке
|
|
3
пипец
30.09.16
✎
09:38
|
|
|
4
Остап Сулейманович
30.09.16
✎
09:39
|
(0)
СпрОС=Создатьобъект("Справочник.ОсновныеСредства");
ПП = СоздатьОбъект("Периодический");
СпрОС.НайтиПокоду("01");
ГруппаОС = СпрОС.ТекущийЭлемент();
СпрОС.ИспользоватьРодителя(ГруппаОС);
СпрОС.ВыбратьЭлементы();
Пока СпрОС.ПолучитьЭлемент()=1 Цикл
Сообщить("СпрОС---"+СпрОС.Код);
//Привязка должна быть здесь
ПП.ИспользоватьОбъект("ВосстановительнаяСтоимость",СпрОС.ТекущийЭлемент());
ПП.ВыбратьЗначения();
Пока ПП.ПолучитьЗначение() = 1 Цикл
ПП.Удалить();
КонецЦикла;
//Вот это вот вообще не нужно.
//СпрОС.Записать() ;
КонецЦикла
ЗЫ. И то только в том случае, если установлена фишка "Ручное изменение". Иначе нужно перепроводить документы.
|
|
5
work92
30.09.16
✎
09:44
|
Все равно не удаляет
|
|
6
пипец
30.09.16
✎
09:48
|
|
|
7
пипец
30.09.16
✎
09:50
|
можно еще кардинальнее - но говорить не буду )))
|
|
8
Эльниньо
30.09.16
✎
11:16
|
Если юзаете 1с++ подкину самую лутчую на свете обработку и пох на "Ручное изменение".
|
|