CREATE PROCEDURE sp_DBReindex AS

SET NOCOUNT ON

DECLARE @TableName char(32)

DECLARE SysCur CURSOR FOR S_elect name FROM sysobjects WHERE type='U'

OPEN SysCur

FETCH NEXT FROM SysCur INTO @TableName

WHILE @@FETCH_STATUS=0

BEGIN

DBCC DBREINDEX(@TableName)

FETCH NEXT FROM SysCur INTO @TableName

END

CLOSE SysCur

DEALLOCATE SysCur   

                rem  ВНИМАНИЕ !!!

                rem  Не храните эту программу вместе с файлами базы,

                rem  при случайном удалении восстановление практически невозможно,

                rem  файлы удаляются минуя корзину. Если Вы случайно запустите её,

                rem  то перед выполнением очистки программа попросит два раза нажать

                rem  любую клавишу. Для отмены выполнения закройте окошко,

                rem  не нажимая на клавиатуру.



                Pause

                Pause



                rem Очищаем служебные папки

                del New_Stru

                del Syslog



                rem Удаляем индексы, списки и шаблоны программиста

                del *.cdx

                del *.lst

                del 1cv7srct.st



                rem Удаляем документы

                del dt*.*

                del dh*.*



                del 1sjourn.dbf

                del 1scrdoc.dbf

                del 1sdnlock.dbf



                rem Очищаем регистры и последовательности (для компоненты Оперативный учёт)

                del 1sstream.dbf

                del rg*.*

                del ra*.*



                rem Удаляем проводки, операции сальдо и остатки (для компоненты Бухгалтерский учет)

                del 1SOPER.dbf

                del 1SENTRY.dbf

                del 1SBKTTLC.dbf

                del 1SBKTTL.dbf

                del 1SACCSEL.dbf

                del 1SSBSEL.dbf



                rem Очищаем журнал регистрации УРИБ

                del 1supdts.dbf

                del 1sdwnlds.dbf

                del 1sdbset.dbf