Правильное удаление группы в справочнике Номенклатура

[regAlex2]

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

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


У меня пока что не удается рекурсия и помечает только часть:

Код:

//ВыбНоменклатура - удаляеммая группа
Процедура СсылкиНаСсылки(Удал1, н1) Далее

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

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

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

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

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

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



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

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

[Kivals]

Структурировность кода на низком уровне - читать тяжело. Отсюда следствие - желания разбираться нет. Облагородь код для начала.
И еще  - почитай про функцию НайтиСсылки() в синтакс-помощнике

[regAlex2]

Вот более понятный, без пробования рекурсии, код:

Код:

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

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

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


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

	    Объект = ТЗ.ПолучитьЗначение(ТЗ.НомерСтроки,"Ссылка");

//Определяем какой объект получен и создаем нужный
    ТипОбъекта = ТипЗначенияСтр(Объект);
    ВидОбъекта = Объект.Вид();
    ВремОбъект = СоздатьОбъект(ТипОбъекта+"."+ВидОбъекта);

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


Сообщить("Готово");

КонецПроцедуры

[regAlex2]

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

[Dest]

Непосредственное удаление

Код:

СпрНом.Удалить(1);

[Kivals]

ИМХО без рекурсии здесь никак. (Ну т.е. можно - по теории любая рекурсия раскладывается в цикл, но менее наглядно)
Опасно удалять сразу. Например: А ссылается на Б, Б ссылается на А, но кроме того С также ссылается на А
Помоему лучше вызывать УдалитьОбъекты() до тех пор, пока не вернет пустую ТЗ.
Вызвали УдалитьОбъекты(), если ТЗ не пустая и объект не помечен на цдаление - пометили на удаление, добавили объект в список и опять вызвали УдалитьОбъекты(). Еще нужно условие выхода по "не увеличению" списка - спастись от зацикливания.

Хм. Хотя вроде получилось и через цикл вполне приемлимо

[regAlex2]

ИМХО без рекурсии здесь никак. (Ну т.е. можно - по теории любая рекурсия раскладывается в цикл, но менее наглядно)
Опасно удалять сразу. Например: А ссылается на Б, Б ссылается на А, но кроме того С также ссылается на А
Помоему лучше вызывать УдалитьОбъекты() до тех пор, пока не вернет пустую ТЗ.
Вызвали УдалитьОбъекты(), если ТЗ не пустая и объект не помечен на цдаление - пометили на удаление, добавили объект в список и опять вызвали УдалитьОбъекты(). Еще нужно условие выхода по "не увеличению" списка - спастись от зацикливания.

Помоги, пожалуйста, реализовать. Я лично застрял.
Продвинулся только замены кода вверху строк:

Код:

СсылкиНаСсылки(ВремОбъект, 1);

На

Код:

СсылкиНаСсылки(Объект, н1);

Результат: Стал работать дольше , счетчик н1 показал в 4 раза больше обходов.
Но все равно не хочет удалять все вложенные (а также вложенных (и т.д.) ) зависимости. А также не решил проблемы ссылки друг на друга.

Хм. Хотя вроде получилось и через цикл вполне приемлимо

Хоть что-то удалось...

[Kivals]

Вызвали УдалитьОбъекты(), если ТЗ не пустая и объект не помечен на цдаление - пометили на удаление, добавили объект в список и опять вызвали УдалитьОбъекты(). Еще нужно условие выхода по "не увеличению" списка - спастись от зацикливания.

А где код, который это делает?