v7: Очистить периодические реквизиты в справочнике

1C 7.7

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

https://yandex.ru/search/?lr=213&msid=1475217392.25047.22903.9644&text=очистка%20периодических%20реквизитов%20справочника%207.7

4 Остап Сулейманович

30.09.16

✎

09:39

(0)
СпрОС=Создатьобъект("Справочник.ОсновныеСредства");
ПП = СоздатьОбъект("Периодический");

СпрОС.НайтиПокоду("01");
ГруппаОС = СпрОС.ТекущийЭлемент();

СпрОС.ИспользоватьРодителя(ГруппаОС);
СпрОС.ВыбратьЭлементы();
Пока СпрОС.ПолучитьЭлемент()=1 Цикл
    Сообщить("СпрОС---"+СпрОС.Код);
    //Привязка должна быть здесь
    ПП.ИспользоватьОбъект("ВосстановительнаяСтоимость",СпрОС.ТекущийЭлемент());
    ПП.ВыбратьЗначения();
    Пока ПП.ПолучитьЗначение() = 1 Цикл
        ПП.Удалить();
    КонецЦикла;
    //Вот это вот вообще не нужно.
    //СпрОС.Записать() ;
КонецЦикла

ЗЫ. И то только в том случае, если установлена фишка "Ручное изменение". Иначе нужно перепроводить документы.

5 work92

30.09.16

✎

09:44

Все равно не удаляет

6 пипец

30.09.16

✎

09:48

http://sysadmins.ru/post7629514.html

7 пипец

30.09.16