Имя: Пароль:
1C
1C 7.7
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с++ подкину самую лутчую на свете обработку и пох на  "Ручное изменение".