Помогите, пожалуйста, создать внешнюю обработку поиска зависимостей группы "Папка для удаления" справочника Номенклатуры и их удаления.

Данные в .dbf
Комплексная конфигурация "Бухгалтерия+Торговля+Склад+Зарплата+Кадры", редакция 4.5


Самостоятельно удалось только пометить (а также удалить без учета зависимостей) группу "Папка для удаления"

//Самостоятельные попытки:

СпрНом=СоздатьОбъект("Справочник.Номенклатура");
Удал1= ВыбНоменклатура; //Реквезит диалога формы типа Справочник.Номенклатура

СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент(0) = 1 Цикл
Если СпрНом.ТекущийЭлемент() = Удал1 Тогда

Сообщить ("удаляем: " + СпрНом.Наименование);
СпрНом.Удалить(0);

КонецЕсли;
КонецЦикла;

repval.ert

Процедура УдалитьГруппу(ВыбГрНоменклатура)
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(ПодчиненныеЭлементы)
   |ТекущийЭлемент = Справочник.Номенклатура.ТекущийЭлемент;
   |Группировка ТекущийЭлемент;
   |Условие(ТекущийЭлемент.ПринадлежитГруппе(ВыбГрНоменклатура) = 1);
   |"//}}ЗАПРОС
   ;
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;
   СпрНом=СоздатьОбъект("Справочник.Номенклатура");
   Пока Запрос.Группировка(1) = 1 Цикл
       СпрНом.НайтиЭлемент(Запрос.ТекущийЭлемент);
       СпрНом.Удалить(0);
       Сообщить ("удаляем: " + СпрНом.Наименование);
   КонецЦикла;
   СпрНом.НайтиЭлемент(ВыбГрНоменклатура);
   СпрНом.Удалить(0);
   Сообщить ("удаляем: " + СпрНом.Наименование);
КонецПроцедуры


кактатак?)

Условие можно слегка упростить:
|Условие(ТекущийЭлемент в ВыбГрНоменклатура);

Двоешники..

СпрНом.НайтиЭлемент(ВыбГруппа);
СпрНом.Удалить(0);

Удалит(пометит на удаление) выбранную группу и всё что в ней...

(4) :-[
будем знать)

(4) и подчиненный справочник цен...???

(6) да.

(4) Дейтвительно...

Дейтвительно=Действительно

(7) А ПОЧЕМУ??????????
пару раз на грабли наступал такие - пометил на удаление - штатное удаление помеченных - опа - не удалилось - действительно.. есть ссылки ;-) а все "подчиненное" - опа.. нету его уже... ;-)

(10) Что почему ?...

+10 ссылки видать были через 2 подчинения ?...

(12) нет.. например цены к товарам... товар помеченный на удаление - останется, а цены - уйдут в небытиё

(13) ну дык товар еще где-нить светится ?

Спасибо за запрос, но ничего нового, в отличии от моего (1) он не дал - так и остались зависимости. Среди них бывают: Справочник.Единицы , Справочник.Состав комплектов и др.

Как понял в моём случае нужно использовать НайтиСсылки() а как реализовать механизм удаления - не знаю


//ТабЗнач - таблица помещённая на форму

СпрНом=СоздатьОбъект("Справочник.Номенклатура");
Удал1= ВыбНоменклатура;
СпрНом.Использоватьродителя (Удал1);
СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент(0) = 1 Цикл
 Если СпрНом.ЭтоГруппа() = 0 Тогда

   Сообщить ("удаляем: " + СпрНом.Наименование);
   НайтиСсылки(СпрНом.ТекущийЭлемент(),ТабЗнач);

//не знаю как
     
 КонецЕсли;
 //Сообщить ("удаляем: " + СпрНом.Наименование);
 СпрНом.Удалить(0);
КонецЦикла;

(16) удалитьОбъекты()

(17) В моём случае результат выполнения НайтиСсылки() и УдалитьОбъекты() один, просто операций меньше (всё что можно - удалено).

Как, всё-таки, с помощью полученных ссылок помещенных в ТабЗнач {применив НайтиСсылки() (или УдалитьОбъекты()}  помечать на удаление сами справочники, документы и т.д.
А то никак не пойму.

Вот какой результат:


Процедура Сформировать()

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

//Удаление выб. Номенклатуры, если есть ссылки на них - не удаляются, а ссылки в ТЗ
ТЗ = СоздатьОбъект("ТаблицаЗначений");
УдалитьОбъекты (СпНом, 1, ТЗ);

//ссылки на справочники и документы помечаем на удаление    
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл

   Объект = ТЗ.ПолучитьЗначение(ТЗ.НомерСтроки,"Ссылка");
   ТипОбъекта = ТипЗначенияСтр(Объект);
   ВидОбъекта = Объект.Вид();
   ВремОбъект = СоздатьОбъект(ТипОбъекта+"."+ВидОбъекта);
   Если ТипОбъекта = "Справочник" Тогда
       Элем=ВремОбъект.НайтиЭлемент(Объект);
       ВремОбъект.Удалить(0);
   ИначеЕсли ТипОбъекта = "Документ" Тогда
       Докум=ВремОбъект.НайтиДокумент(Объект);
       ВремОбъект.Удалить(0);
   КонецЕсли;
   
КонецЦикла;

//Второй раз пытаемся удалить и показываем оставшиеся ссылки
СпрНом.ИспользоватьРодителя(ВыбНоменклатура);  //ВыбНоменклатура - группа из которой надо все удалить
СпрНом.ВыбратьЭлементы();
СпНом.УдалитьВсе();

Пока СпрНом.ПолучитьЭлемент() = 1 Цикл
   СпНом.ДобавитьЗначение(СпрНом.ТекущийЭлемент());
КонецЦикла;

УдалитьОбъекты (СпНом, 1, ТабЗнач); //ТабЗнач - таб. значений на форме

Сообщить("Готово");
КонецПроцедуры


Таким способом удалось удалить часть.
Помогите, пожалуйста, как можно здесь выполнить нормальную (не стремящуюся к бесконечности) рекурсию?

http://infostart.ru/public/15133/

(21) К сожаленью на этот сайт не попасть: "Извините, небольшая перестройка индексов" .

Вот что у меня, но всё равно выходит удалить небольшую часть объектов и ссылокна них:


Процедура СсылкиНаСсылки(Удал1, н1) Далее

//*******************************************
Процедура Сформировать() //начало

СсылкиНаСсылки(ВыбНоменклатура, 1);
   
Сообщить("Готово");    
КонецПроцедуры
 

//н1 - счетчик
//Удал1 = Удаляемый объект
Процедура СсылкиНаСсылки(Удал1, н1)

   
//Помечает на удаление объекты выбранного справочника Номенклатуры и передает в СпНом
СпНом = СоздатьОбъект("СписокЗначений");
СпрНом = СоздатьОбъект("Справочник.Номенклатура");

СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент() = 1 Цикл
   Если СпрНом.ТекущийЭлемент() = Удал1 Тогда
   СпрНом.Удалить(0);
   СпНом.ДобавитьЗначение(СпрНом.ТекущийЭлемент());
   КонецЕсли;
КонецЦикла;

//Удаление выб. Номенклатуры, если есть ссылки на них - не удаляются, а ссылки в ТЗ
ТЗ = СоздатьОбъект("ТаблицаЗначений");
УдалитьОбъекты (СпНом, 1, ТЗ);



//ссылки на справочники и документы помечаем на удаление    
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл

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

(21) Посмотрел. Ненужно, т.к. удалить (и удалял) ВыбНоменклатура, без ссылочной целостности, мог уже давно с помощью Удалить(1) .

Счас заметил что как минимум часть помеченных не удаляется из-за того что хоть и помечены, но ссылаются друг на друга.
Как модернезировать, чтобы такие сразу удалялись?