CREATE PROCEDURE "DBA"."sp_am_exportscripts"( IN @dest varchar( 255 ), IN @creator varchar( 50 ) DEFAULT 'DBA' )
// процедура экспортирует хранимые процедуры и триггеры БД в набор файлов вида <имя файла>.sql в папку @dest
BEGIN
    if right(@dest,  1 ) <> '\' then set @dest = @dest + '\' end if;

    select p.proc_name, xp_write_file( @dest + p.proc_name + '.sql', 
        'if exists(select 1 from sys.sysprocedure where proc_name = ''' + p.proc_name + '''' + 
        ' and user_name(creator) = ''' + @creator + ''') then \x0D\x0A' +
        '   drop procedure ' + p.proc_name + '\x0D\x0A' +
        'end if;\x0D\x0A\x0D\x0A' +
        replace(isnull(p.source, p.proc_defn), '\x0A', '\x0D\x0A') + ';' ) as result
    from
       sys.sysprocedure p
    where user_name(p.creator) = @creator
    union all
    select r.trigger_name, xp_write_file( @dest + r.trigger_name + '.sql', 
        'if exists(select 1 from sys.systrigger where trigger_name = ''' + r.trigger_name+ '''' +
        ') then \x0D\x0A' +
        '   drop trigger ' + r.trigger_name + '\x0D\x0A' +
        'end if;\x0D\x0A\x0D\x0A' +
        replace(isnull(r.source, r.trigger_defn), '\x0A', '\x0D\x0A') + ';' ) as result
    from 
       sys.sysuserperms u
          join sys.systable t on (t.creator=u.user_id)
          join sys.systrigger r on (r.table_id = t.table_id)
    where 
      r.trigger_name is not null
      and u.user_name = @creator;

END