Вопрос по удалению компании из Аксапты

[zZ_TOP_Zz]

Всем привет!

Частенько сталкиваясь с этой бедой используем SQL скриптик на той Базе Данных откуда приходится удалить компанию.

Выкладываю на обозрение может кому пригодится.

declare @name nvarchar(128)

declare tables_cursor cursor for
select [name] from sysobjects
where type = 'U'

open tables_cursor

fetch next from tables_cursor
into @name

while @@fetch_status = 0
begin

--print @name
exec('delete ' + @name + ' where dataareaid 
in
(
select id from dataarea 
where id like ''ТУТ ИМЯ УДАЛЯЕМОЙ КОМПАНИИ например tst''
)'
)

fetch next from tables_cursor
into @name
end

close tables_cursor
deallocate tables_cursor