create function fn_BuildDate (
  @Year smallint, 
  @Month tinyint, 
  @Day tinyint
)
returns date
begin
  declare @D smalldatetime;
  set @D = convert(date, convert(char( 4 ), @Year) + fn_NumToStr(@Month,  2 , '0') + fn_NumToStr(@Day,  2 , '0'),  112 );
  return @D;
end

create function fn_CDate
 (@Date date,
  @LastDay tinyint)
returns date
begin
  if (@LastDay =  0 ) then
    return convert(date, convert(char( 6 ), @Date,  112 ) + '01',  112 );
  end if;

  return DateAdd(dd, - 1 , convert(date, convert(char( 6 ), DateAdd(mm,  1 , @Date),  112 ) + '01',  112 ));
end

create function fn_ChangeDate
 (@Date smalldatetime,
  @Day tinyint,
  @Month tinyint,
  @Year smallint)
returns date
begin
  declare @Y smallint;
  declare @M tinyint;
  declare @D tinyint;

  set @Y = IsNull(@Year, Year(@Date));
  set @M = IsNull(@Month, Month(@Date));
  set @D = IsNull(@Day, Day(@Date));

  return Convert(date, Convert(varchar( 4 ), @Y) + fn_NumToStr(@M,  2 , '0') + fn_NumToStr(@D,  2 , '0'),  112 );
end

create function fn_ConvertWord (
  @Value varchar( 512 )
)
returns 
  varchar( 512 )
begin
  if @Value is null then
    return null
  end if;

  if Length(@Value) <  2  then
    return Upper(Left(@Value,  1 ));
  end if;

  return Upper(Left(@Value,  1 )) + Lower(Right(@Value, Length(@Value) -  1 ));
end

create function fn_FirstDateYear
 (@Value date)
returns date
begin
  return convert(date, convert(varchar( 4 ), Year(@Value)) + '0101',  112 );
end

create function fn_IsExclusiveMode ()
returns tinyint
begin
  declare @ConnID int;

  set @ConnID = Next_Connection(@ConnID, null);
  list_conn: loop
    if @ConnID is null then
      leave list_conn;
    end if;

    if @ConnID <> @@SPID then
      return  0 ;
    end if;

    set @ConnID = Next_Connection(@ConnID, null);
  end loop list_conn;

  return  1 ;
end

create function fn_LastDateYear
 (@Value date)
returns date
begin
  return convert(date, convert(varchar( 4 ), Year(@Value)) + '1231',  112 );
end

create function fn_NumToStr
 (@Value int, @Scale int, @FillChar char( 1 )) 
returns varchar( 20 )
begin
  return Right(Replicate(@FillChar,  20 ) + convert(varchar( 20 ), @Value), @Scale);
end

create procedure sp_ScriptFindText (
in @Text varchar( 250 )
)
begin
  set @Text = Upper(@Text);

  select TypeObject, Name
  from (
    select ViewName as Name, 'View' as TypeObject
    from SysViews
    where VCreator = User_Name() and CharIndex(@Text, Upper(ViewText)) >  0 
    union all
    select TName as Name, 'Trigger' as TypeObject
    from SysTriggers
    where Owner = User_Name() and CharIndex(@Text, Upper(TrigDefn)) >  0 
    union all
    select Proc_Name as Name, 'Procedure' as TypeObject
    from SysProcedure
    where Creator = User_id() and CharIndex(@Text, Upper(Proc_Defn)) >  0 
    ) as x
  order by TypeObject, Name;
end

create procedure sp_valid_view ()
begin
  declare @Name varchar( 50 );
  declare @Count int;

  declare err_notfound exception for sqlstate '02000';

  declare cViewList no scroll cursor for
    select ViewName
    from SysViews
    where VCreator = User_Name();

  open cViewList;

  ViewLoop: 
  loop
    fetch next cViewList into @Name;

    if sqlstate = err_notfound then
      leave ViewLoop;
    end if;


    print @Name;
    execute immediate 'select count(*) into @Count from "' + @Name + '"';
    print convert(varchar( 20 ), @Count) + ' records';
    print '---';
    print ' ';
  end loop ViewLoop;

  close cViewList;
  deallocate cViewList;
end

create view v_SysObjects
as
  select Table_Name as Name, 'Table' as Type
  from SysTable
  where Creator = user_id() and Table_Type = 'BASE'
  union all
  select ViewName as Name, 'View' as Type
  from SysViews
  where VCreator = User_Name()
  union all
  select TName as Name, 'Trigger' as Type
  from SysTriggers
  where Owner = User_Name()
  union all
  select Proc_Name as Name, 'Procedure' as Type
  from SysProcedure
  where Creator = User_id()

create view SysDependences
as
  select sf.Primary_Table_id, o1.Table_Name as Primary_Name, sf.Foreign_Table_id, o2.Table_Name as Foreign_Name
  from (
      select distinct Primary_Table_id, Foreign_Table_id
      from SysForeignKey) as sf
    inner join SysTable o1 on o1.Table_id = sf.Primary_Table_id and
                              o1.Creator = User_id()
    inner join SysTable o2 on o2.Table_id = sf.Foreign_Table_id and
                              o2.Creator = User_id()

create procedure sp_GetTables (
   -- если NULL - то вернуть данные, 
 
   -- иначе засунуть их в указанную таблицу 
 
   -- (порядок следования полей должен совпадать)
 
  in @TableName varchar( 150 ) default null
)
begin
  declare local temporary table #GetTables_List (
     -- Порядковый номер в списке
 
    Number int identity not null primary key,

     -- Уровень в иеархии вложенности зависимостей 
 
    Level tinyint not null,

     -- ID таблицы
 
    Table_id int
  );

  declare @Level tinyint;
  set @Level =  0 ;

  while exists(
          select *
          from SysTable t
          where Creator = User_id() and
                Table_Type = 'BASE' and
                Table_id not in (select Table_id from #GetTables_List) )
  loop
    set @Level = @Level +  1 ;

    insert into #GetTables_List (Level, Table_id)
      select @Level, Table_id
      from SysTable t
      where Creator = User_id() and
            Table_Type = 'BASE' and
            Table_id not in (
              select Table_id 
              from #GetTables_List) and
            Table_id not in (
              select Foreign_Table_id
              from SysForeignKey
              where Primary_Table_id not in (select Table_id from #GetTables_List) );
  end loop;

  if @TableName is null then
    select l.*, t.Table_Name
    from #GetTables_List l
      inner join SysTable t on t.Table_id = l.Table_id
    order by Number;
  else
    begin
      declare @Script varchar( 500 );
      set @Script = 'insert into ' + @TableName + ' select * from #GetTables_List';
      execute immediate @Script;
    end;
  end if;
end

call sp_asc_GetTables ();

begin
  declare local temporary table #Tables (
    Num int not null primary key,
    Lev tinyint not null,
    Tab_id int not null);

  call sp_asc_GetTables ('#Tables');

  select l.*, t.Table_Name
  from #Tables l
    inner join SysTable t on t.Table_id = l.Tab_id;
end

create procedure sp_ClearDataBase (
 /*
  Внимание - транзакцию должен самостоятельно  организовывать
  вызывающий источник (или не организовывать, если это не требуется).
*/ 

   -- Флаг отключения тригеров во время работы (0-не выключать, 1-выключать)
 
  in @DisableTriggers tinyint default  1 ,

   -- Имя таблицы, содержащей список таблиц, не подлежащих обработке (должно быть поле Table_id)
 
  in @TableName varchar( 150 ) default null,

   -- Флаг разрешения трассировки хода выполнения процедуры (0-выкл, 1-вкл)
 
  in @IsDebug tinyint default  1 
)
begin
   -- Значение опции работы тригеров
 
  declare @Opt_Fire_Triggers varchar( 3 );

   -- Список таблиц
 
  declare local temporary table #Tables (
     -- Порядковый номер в списке
 
    Number int not null primary key,

     -- Уровень в иеархии вложенности зависимостей 
 
    Level tinyint not null,

     -- ID таблицы
 
    Table_id int
  );

   -- Курсор для обработки списка таблиц
 
  declare cTables no scroll cursor for
    select t.Table_Name
    from #Tables l
      inner join SysTable t on t.Table_id = l.Table_id
    order by l.Number desc;

   -- Обрабатываем ситуацию отключения тригеров
 
  if @DisableTriggers =  1  then
     -- Получаем значение установленной опции работы тригеров
 
    set @Opt_Fire_Triggers = Connection_Property('FIRE_TRIGGERS');

     -- Если опция включена, то выключаем ее
 
    if @Opt_Fire_Triggers = 'On' then
      set temporary option FIRE_TRIGGERS = 'OFF';
    end if;
  end if;

   -- Получаем список таблиц
 
  call sp_GetTables ('#Tables');

   -- Удаляем со списка не подлежащие обработке таблицы,
 
   -- в случае если указана таблица, содержащая их список
 
  if @TableName is not null then
    execute immediate 'delete from #Tables where Table_id in (select Table_id from ' + @TableName + ' )';
  end if;

   -- Организуем движение по списку таблиц
 
  open cTables;

  if @IsDebug =  1  then
    print 'Proccess tables ...';
    print '-------';
  end if;

  lp: loop
    fetch next cTables into @TableName;

     -- Если список закончился, то выходим из цикла
 
    if SQLCode <>  0  then
      leave lp;
    end if;

    if @IsDebug =  1  then
      print @TableName;
    end if;

     -- Очищаем таблицу
 
    execute immediate 'delete from ' + @TableName;
  end loop;

  close cTables;

   -- Обрабатываем ситуацию отключения тригеров
 
  if @DisableTriggers =  1  and @Opt_Fire_Triggers = 'On' then
    set temporary option FIRE_TRIGGERS = 'On';
  end if;

  if @IsDebug =  1  then
    print '-------';
    print 'Proccess complete';
    print convert(varchar( 10 ), (select count(Number) from #Tables)) + ' tables clearing';
  end if;

  return;

 -- Обрабатываем ситуацию возникновения ошибок
 
exception
  when others then
     -- Обрабатываем ситуацию отключения тригеров
 
    if @DisableTriggers =  1  and @Opt_Fire_Triggers = 'On' then
      set temporary option FIRE_TRIGGERS = 'On';
    end if;

    resignal;
end

 -- Возвращает 0, если таблица полная и 1, если она пустая
 
CREATE FUNCTION fn_asc_IsEmptyTable (
  @TableName varchar( 128 )
)
returns tinyint
not deterministic
begin
  declare @TestTable tinyint;
  execute immediate 
    'select if exists ( select * from "' + 
    @TableName + '" ) then 0 else 1 endif into @TestTable';

  return @TestTable;
end;

 -- Возвращает список таблиц БД, 
 
 -- построенных в виде иеархии зависимости по связям
 
CREATE PROCEDURE sp_asc_get_Tables ()
begin
  declare local temporary table #GetTables_List (
     -- Порядковый номер в списке
 
    Number int identity not null primary key,

     -- Уровень в иеархии вложенности зависимостей 
 
    Level smallint not null,

     -- ID таблицы
 
    Table_id int
  ) not transactional;

  declare @Level smallint;
  set @Level =  0 ;

  Tables: loop
    set @Level = @Level +  1 ;

    insert into #GetTables_List (Level, Table_id)
      select @Level, Table_id
      from SysTable t
      where Creator = User_id() and
            Table_Type = 'BASE' and
            Existing_Obj is null and
            Table_id not in (
              select Table_id 
              from #GetTables_List) and
            Table_id not in (
              select Foreign_Table_id
              from SysForeignKey
              where Primary_Table_id <> t.Table_id and
                    Primary_Table_id not in (select Table_id from #GetTables_List) );

    if @@RowCount =  0 
    then
      leave Tables;
    end if;
  end loop;

  select l.*, t.Table_Name
  from #GetTables_List l
    inner join SysTable t on t.Table_id = l.Table_id
  order by Number;
end

 -- Миграция данных с БД аналогичной структуры 
 
 -- подключенного удаленного сервера
 
 /*
 В кач-ве ограничений действия данной ХП:
1. не переносяться значения колонкок удаленного сервера, 
   которые ASA определяет как binary (тот же timestamp MSSQL)
2. подразумевается, что все имена таблиц и полей удаленного сервера
   в культурном формате (своими глазами видел в MSSQL следующее
   название поля - "Аттрибуты# Отдел," !!! )
3. подразумевается, что данной штукой можно быстро переносить БД малого
   и среднего обьема. Думаю не стоит обьяснять, как будет печально и долго
   выглядеть попытка выполнения команды insert с таблицы, содержащей
   миллионы записей
4. на данный момент процедура пытается перенести данные всех таблиц, 
   указать какие не переносить нельзя.

Ограничения 1 и 4 в скором времени сниму, ограничения 2 и 3 естественно остануться по любому.
*/ 
CREATE PROCEDURE sp_asc_migrate (
   -- Имя подключенного удаленного сервера
 
  in  @ServerName varchar(  50  ),

   -- Имя базы данных
 
  in  @DataBaseName varchar(  50  ),

   -- Имя владельца обьектов
 
  in  @OwnerName varchar(  50  ),

   -- если 1, то данные в не пустые таблицы не переносяться
 
  in  @SkipNotEmptyTable tinyint default  1 
)
begin
   -- Конец курсора
 
  declare err_NotFound exception for sqlstate '02000';

   -- Значение опции работы тригеров
 
  declare @Opt_Fire_Triggers varchar( 3 );

  declare cTables no scroll cursor for
    select Number, Table_Name
    from sp_asc_get_Tables()
    order by Number;

  declare @Number int;
  declare @TableName varchar(  128  );
  declare @RemoteTableName varchar(  128  );
  declare @Columns varchar(  10000  );

   -- Получаем значение установленной опции работы тригеров
 
  set @Opt_Fire_Triggers = Connection_Property('FIRE_TRIGGERS');

   -- Если опция включена, то выключаем ее
 
  if @Opt_Fire_Triggers = 'On' then
    set temporary option FIRE_TRIGGERS = 'OFF';
  end if;

  print 'Start migration';

   -- Получаем список таблиц в порядке их взаимосвязей
 
  select *
  from sp_asc_Get_Tables()
  order by Number;

  open cTables;

   -- Пошел перебор таблиц курсором
 
  TablesLoop:
  loop
     -- Получили имя таблицы
 
    fetch next cTables into @Number, @TableName;

    if SQLState = err_NotFound 
    then
      leave TablesLoop;
    end if;

     -- Копируем данные в таблицу,
 
     -- если стоит флаг не пропускать не пустые или же таблица пустая
 
    if @SkipNotEmptyTable <>  1  or fn_asc_IsEmptyTable( @TableName ) =  1  
    then
      print 'migrating ' || @Number || ' - ' || @TableName;

       -- Придумываем дикое имя для прокси таблицы
 
      set @RemoteTableName = '__' || @ServerName || '_' ||
          @DatabaseName || '_' || @OwnerName || '_' || @TableName;

       -- Подключаем таблицу удаленного сервера как прокси таблицу
 
      execute immediate 'create existing table "' || @RemoteTableName || '" at ''' ||
        @ServerName || '.' || @DatabaseName || '.' ||
        @OwnerName || '.' || @TableName || '''';

      begin
         -- Генерим строку списка колонок, которые будут переноситься,
 
         -- выщемляя с них тип binary
 
         -- ( завидуйте DBA конкурентов - никаких курсоров )
 
        select List( '"' || Column_Name || '"' order by c.Column_id )
        into @Columns
        from SysTable t
          key join syscolumn c
          key join sysdomain d
        where t.Table_Name = @RemoteTableName and
              d.Domain_Name <> 'binary';

         -- Пошли работать дальше, если список не пуст
 
        if Length( IsNull( @Columns, '' ) ) >  0 
        then
           -- Запускаем перекачку
 
          execute immediate 'insert into "' || @TableName || 
            '" with auto name select ' || @Columns || ' from "' || 
            @RemoteTableName || '"';
        end if;

        print '... successfull';
        print ' ';

      exception
         -- Ошибка, но отключить прокси таблицу надо
 
        when others then
          print '... failed';
          execute immediate 'drop table "' || @RemoteTableName || '"';
          resignal;
      end;

       -- Отключаем прокси таблицу
 
      execute immediate 'drop table "' || @RemoteTableName || '"';
    end if;
  end loop TablesLoop;

  close cTables;
  deallocate cTables;

   -- Восстанавливаем состояние триггеров
 
  if @Opt_Fire_Triggers = 'On' then
    set temporary option FIRE_TRIGGERS = 'On';
  end if;

   -- Обрабатываем ситуацию возникновения ошибок
 
  exception
    when others then
       -- Восстанавливаем состояние триггеров
 
      if @Opt_Fire_Triggers = 'On' then
        set temporary option FIRE_TRIGGERS = 'ON';
      end if;

      resignal;
end

create procedure sp_asc_Table_Rows()
begin
  declare @RowCount bigint;

  declare local temporary table #Tables (
    Table_Name varchar( 128 ) not null primary key,
    RowCount bigint not null
  ) not transactional;

  for Tables as cTables no scroll cursor for
    select Table_Name as @Table_Name
    from SysTable
    where Creator = User_id() and
          Table_Type = 'BASE' and
          Existing_Obj is null
  do
    execute immediate 'select count(*) into @RowCount from ' || @Table_Name;
    insert into #Tables( Table_Name, RowCount ) values( @Table_Name, @RowCount );
  end for;

  select *
  from #Tables;
end

select *
from sp_asc_Table_Rows()
where RowCount >=  1000000 
order by Table_Name

call sp_asc_Table_Rows()