Advertisement
Ruslan_Rayanov

/upd api

Sep 10th, 2022 (edited)
1,520
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
T-SQL 66.40 KB | None | 0 0
  1. ----------------------- START CUSTOM SQL -------------------------------
  2. print 'START CUSTOM SQL --------------------'
  3. if(not exists(select id from as_settings where code='falconApiName')) begin
  4.     insert into as_settings(code, name, typeID, value)
  5.     values('falconApiName', 'falconApiName', 1, 'demo')
  6. end
  7.  
  8. if(not exists(select id from as_settings where code='falconApiPassword')) begin
  9.     insert into as_settings(code, name, typeID, value)
  10.     values('falconApiPassword', 'falconApiPassword', 1, 'api10')
  11. end
  12.  
  13. print 'END CUSTOM SQL --------------------'
  14. ----------------------- END CUSTOM SQL -------------------------------
  15.  
  16.  
  17.  
  18. ----------------PAGES --------------
  19.  
  20. ----------------PAGE upd--------------
  21. declare @pageID4828 int,  @errPG4828 nvarchar(max); set @pageID4828 = null;
  22. print  N'НАЧАЛО PAGE upd---------------------------------------------------------------------------------------------------- '
  23. select top 1 @pageID4828 = p.id from pg_pages as p where lower(p.code) = lower('upd') order by p.id;
  24. begin try
  25.     if @pageID4828 > 0 begin
  26.         update pg_pages
  27.          set [title] = 'upd-comps'
  28.             ,[description] = ''
  29.             ,[html] = '<div class=''as-table'' data-code=''upd-comps''></div>'
  30.             ,[seo_robots] = ''
  31.             ,[seo_desc] = ''
  32.             ,[seo_keywords] = ''
  33.             ,[seo_title] = ''
  34.             ,[code] = 'upd'
  35.             ,[isInMenu] = 0
  36.             ,[role] = 'admin'
  37.             ,[colHtml] = ''
  38.             ,[ord] = 0
  39.             ,[modified] = try_cast('28.06.22 11:30' AS datetime)
  40.             ,[menuIcon] = null
  41.             ,[hideTitle] = 1
  42.             ,[parentID] = (select top 1 id from pg_pages where code='XXXXXXXXXXXXX' )
  43.             ,[isStartPanel] = null
  44.             ,[jsRenderMode] = null
  45.             ,[layoutCode] = null
  46.             ,[css] = null
  47.             ,[js] = null
  48.             ,[menuPreTitle] = null
  49.         where id = @pageID4828;
  50.         print N'Страница upd обновлена'
  51.     end else begin
  52.         insert into dbo.pg_pages    ( [title], [description], [html], [seo_robots], [seo_desc], [seo_keywords], [seo_title]
  53.             , [code], [isInMenu], [role], [colHtml], [ord], [modified], [menuIcon], [hideTitle], [parentID], [isStartPanel]
  54.             , [jsRenderMode], [layoutCode], [css], [js], [menuPreTitle])
  55.          VALUES ( 'upd-comps'
  56.             , ''
  57.             , '<div class=''as-table'' data-code=''upd-comps''></div>'
  58.             , ''
  59.             , ''
  60.             , ''
  61.             , ''
  62.             , 'upd'
  63.             , 0
  64.             , 'admin'
  65.             , ''
  66.             , 0
  67.             , try_cast('28.06.22 11:30' AS datetime)
  68.             , null
  69.             , 1
  70.             , (select top 1 id from pg_pages where code='XXXXXXX' )
  71.             , null
  72.             , null
  73.             , null
  74.             , null
  75.             , null
  76.             , null
  77.         );
  78.         select @pageID4828 = scope_identity();
  79.         print N'Страница upd добавлена'
  80.     end;
  81. end try
  82. begin catch
  83.     set @errPG4828 = N'ERROR ############################################## При обновлении\добавлении страницы upd возникла ошибка: '+error_message()
  84.     raiserror( @errPG4828  , 11, 0)
  85. end catch
  86.  
  87.  
  88.  
  89. print  N'НАЧАЛО PROCS pg_crumbs_upd-------------------- '
  90. print N'Попытка удаления хранимых процедур'
  91. declare @name4828 nvarchar(256), @sqlExpec4828 nvarchar(max);
  92. declare cur4828 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'pg_crumbs_upd%' AND type in (N'P', N'PC')
  93. open cur4828 fetch next from cur4828 into @name4828
  94. while @@FETCH_STATUS = 0 BEGIN
  95.     begin try
  96.         set @sqlExpec4828 = 'drop procedure [' + @name4828+']'
  97.         exec sp_executesql @sqlExpec4828
  98.         print N'Удалена хранимая процедура ' + @name4828
  99.     end try
  100.     begin catch
  101.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name4828 + ': '+ error_message()
  102.     end catch
  103.     fetch next from cur4828 into @name4828
  104. END
  105. close cur4828 deallocate cur4828
  106.  
  107. begin try
  108.     exec sp_executesql N'CREATE PROCEDURE [dbo].[pg_crumbs_upd]
  109.     @roles nvarchar(128),
  110.     @itemID nvarchar(128) = '''',
  111.     @urlParameters CRUDFilterParameter READONLY
  112. AS
  113. BEGIN
  114.     CREATE TABLE dbo.#result (title nvarchar(256), link nvarchar(256), tooltip nvarchar(256), ord int)
  115.    
  116.     insert into #result
  117.     select ''Главная'', ''/'', '''', 1
  118.     union
  119.     select ''Панель управления'', ''/start'', '''', 2
  120.     union
  121.     select ''Обновление компонентов SQL'', '''', '''', 3
  122.  
  123.     -- SELECT 1
  124.     select * from #result order by ord
  125.    
  126.     -- SELECT 2
  127.     select ''Обновление компонентов'' Title, '''' Description, '''' Keywords
  128.     drop table #result
  129. END
  130. '
  131.     print N'Добавлена хранимая процедура pg_crumbs_upd'
  132. end try
  133. begin catch
  134.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры pg_crumbs_upd: '+ error_message()
  135. end catch
  136.  
  137.  
  138. begin try
  139.     exec sp_executesql N'CREATE PROCEDURE [dbo].[pg_crumbs_upd-comps]
  140.     @roles nvarchar(128),
  141.     @itemID nvarchar(128) = '''',
  142.     @urlParameters CRUDFilterParameter READONLY
  143. AS
  144. BEGIN
  145.     CREATE TABLE dbo.#result (title nvarchar(256), link nvarchar(256), tooltip nvarchar(256), ord int)
  146.    
  147.     insert into #result
  148.     select ''Главная'', ''/'', '''', 1
  149.     union
  150.     select ''Панель управления'', ''/start'', '''', 2
  151.     union
  152.     select ''Обновление компонентов'', '''', '''', 3
  153.  
  154.    
  155.     select * from #result order by ord
  156.    
  157.    
  158.     select ''Обновление компонентов'' Title, '''' Description, '''' Keywords
  159.     drop table #result
  160. END
  161. '
  162.     print N'Добавлена хранимая процедура pg_crumbs_upd-comps'
  163. end try
  164. begin catch
  165.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры pg_crumbs_upd-comps: '+ error_message()
  166. end catch
  167.  
  168.  
  169. go
  170.  
  171. print  N'КОНЕЦ PROCS pg_crumbs_upd--------------------  '
  172.  
  173.  
  174. --КОНЕЦ PROCS pg_crumbs_upd--------------------
  175. go
  176. print  N'КОНЕЦ PAGE upd----------------------------------------------------------------------------------------------------  '
  177. --КОНЕЦ PAGE upd----------------------------------------------------------------------------------------------------
  178.  
  179.  
  180. ----------------TABLES --------------
  181.  
  182. ----------------TABLE upd-comps--------------
  183. print N'Создание/обновление структуры DB TABLE  as_crud_tables-------------------- '
  184. IF NOT EXISTS (SELECT * FROM sysobjects WHERE name= 'as_crud_tables' and xtype='U') BEGIN
  185.     CREATE TABLE [dbo].[as_crud_tables]
  186.     (
  187.      [id] [int] IDENTITY(1,1) NOT NULL
  188.      CONSTRAINT [PK_as_crud_tables] PRIMARY KEY CLUSTERED ( [id] ASC )
  189.     ) ON [PRIMARY]
  190.     print 'Создана таблица as_crud_tables '
  191. END
  192. GO
  193. IF COL_LENGTH( 'as_crud_tables', 'title') IS NULL BEGIN
  194.     ALTER TABLE as_crud_tables
  195.     ADD [title] nvarchar (256) NULL  
  196. END
  197. IF COL_LENGTH( 'as_crud_tables', 'titleTooltip') IS NULL BEGIN
  198.     ALTER TABLE as_crud_tables
  199.     ADD [titleTooltip] nvarchar (1024) NULL  
  200. END
  201. IF COL_LENGTH( 'as_crud_tables', 'code') IS NULL BEGIN
  202.     ALTER TABLE as_crud_tables
  203.     ADD [code] nvarchar (32) NULL  
  204. END
  205. IF COL_LENGTH( 'as_crud_tables', 'addEditLink') IS NULL BEGIN
  206.     ALTER TABLE as_crud_tables
  207.     ADD [addEditLink] nvarchar (128) NULL  
  208. END
  209. IF COL_LENGTH( 'as_crud_tables', 'commentsCode') IS NULL BEGIN
  210.     ALTER TABLE as_crud_tables
  211.     ADD [commentsCode] nvarchar (128) NULL  
  212. END
  213. IF COL_LENGTH( 'as_crud_tables', 'immediatelyLoad') IS NULL BEGIN
  214.     ALTER TABLE as_crud_tables
  215.     ADD [immediatelyLoad] bit NULL  
  216. END
  217. IF COL_LENGTH( 'as_crud_tables', 'emptyText') IS NULL BEGIN
  218.     ALTER TABLE as_crud_tables
  219.     ADD [emptyText] nvarchar (128) NULL  
  220. END
  221. IF COL_LENGTH( 'as_crud_tables', 'filterLinkTitle') IS NULL BEGIN
  222.     ALTER TABLE as_crud_tables
  223.     ADD [filterLinkTitle] nvarchar (128) NULL  
  224. END
  225. IF COL_LENGTH( 'as_crud_tables', 'showChecksCol') IS NULL BEGIN
  226.     ALTER TABLE as_crud_tables
  227.     ADD [showChecksCol] bit NULL  
  228. END
  229. IF COL_LENGTH( 'as_crud_tables', 'showNumsCol') IS NULL BEGIN
  230.     ALTER TABLE as_crud_tables
  231.     ADD [showNumsCol] bit NULL  
  232. END
  233. IF COL_LENGTH( 'as_crud_tables', 'showToolbar') IS NULL BEGIN
  234.     ALTER TABLE as_crud_tables
  235.     ADD [showToolbar] bit NULL  
  236. END
  237. IF COL_LENGTH( 'as_crud_tables', 'getItemsURLParameters') IS NULL BEGIN
  238.     ALTER TABLE as_crud_tables
  239.     ADD [getItemsURLParameters] nvarchar (128) NULL  
  240. END
  241. IF COL_LENGTH( 'as_crud_tables', 'toolbarAdditional') IS NULL BEGIN
  242.     ALTER TABLE as_crud_tables
  243.     ADD [toolbarAdditional] nvarchar (max) NULL  
  244. END
  245. IF COL_LENGTH( 'as_crud_tables', 'groupOperationsToolbar') IS NULL BEGIN
  246.     ALTER TABLE as_crud_tables
  247.     ADD [groupOperationsToolbar] nvarchar (max) NULL  
  248. END
  249. IF COL_LENGTH( 'as_crud_tables', 'getFilterMakeupCallback') IS NULL BEGIN
  250.     ALTER TABLE as_crud_tables
  251.     ADD [getFilterMakeupCallback] nvarchar (max) NULL  
  252. END
  253. IF COL_LENGTH( 'as_crud_tables', 'filterCallback') IS NULL BEGIN
  254.     ALTER TABLE as_crud_tables
  255.     ADD [filterCallback] nvarchar (2048) NULL  
  256. END
  257. IF COL_LENGTH( 'as_crud_tables', 'processRowCallback') IS NULL BEGIN
  258.     ALTER TABLE as_crud_tables
  259.     ADD [processRowCallback] nvarchar (2048) NULL  
  260. END
  261. IF COL_LENGTH( 'as_crud_tables', 'getItemsCallback') IS NULL BEGIN
  262.     ALTER TABLE as_crud_tables
  263.     ADD [getItemsCallback] nvarchar (2048) NULL  
  264. END
  265. IF COL_LENGTH( 'as_crud_tables', 'remove') IS NULL BEGIN
  266.     ALTER TABLE as_crud_tables
  267.     ADD [remove] bit NULL  
  268. END
  269. IF COL_LENGTH( 'as_crud_tables', 'comments') IS NULL BEGIN
  270.     ALTER TABLE as_crud_tables
  271.     ADD [comments] bit NULL  
  272. END
  273. IF COL_LENGTH( 'as_crud_tables', 'ctrlClickShowComment') IS NULL BEGIN
  274.     ALTER TABLE as_crud_tables
  275.     ADD [ctrlClickShowComment] bit NULL  
  276. END
  277. IF COL_LENGTH( 'as_crud_tables', 'users') IS NULL BEGIN
  278.     ALTER TABLE as_crud_tables
  279.     ADD [users] nvarchar (128) NULL  
  280. END
  281. IF COL_LENGTH( 'as_crud_tables', 'roles') IS NULL BEGIN
  282.     ALTER TABLE as_crud_tables
  283.     ADD [roles] nvarchar (128) NULL  
  284. END
  285. IF COL_LENGTH( 'as_crud_tables', 'fastCreate') IS NULL BEGIN
  286.     ALTER TABLE as_crud_tables
  287.     ADD [fastCreate] bit NULL  
  288. END
  289. IF COL_LENGTH( 'as_crud_tables', 'pageSize') IS NULL BEGIN
  290.     ALTER TABLE as_crud_tables
  291.     ADD [pageSize] int NULL  
  292. END
  293. IF COL_LENGTH( 'as_crud_tables', 'requestGetItems') IS NULL BEGIN
  294.     ALTER TABLE as_crud_tables
  295.     ADD [requestGetItems] nvarchar (512) NULL  
  296. END
  297.  
  298. -- Внешние ключи таблицы as_crud_tables
  299. -- ВАЖНО Параметры ключа delete / update ОБРАБАТЫВАЮТСЯ
  300.  
  301. go
  302. print N'Конец функции DBTABLE  as_crud_tables-------------------- '
  303.  
  304. -- Конец функции DB Table as_crud_tables--------------------
  305.  
  306. GO
  307.  
  308. GO
  309. declare @tableID846 int, @tableDatatypeID846 int, @editableTypeID846 int, @filterTypeID846 int, @operationTypeID846 int; set @tableID846 = null;
  310. print  N'НАЧАЛО TABLE upd-comps---------------------------------------------------------------------------------------------------- '
  311. select top 1 @tableID846 = t.id from as_crud_tables as t where t.code = 'upd-comps' order by t.id;
  312. begin try
  313.     if @tableID846 > 0 begin
  314.         update as_crud_tables
  315.         set [title] = 'Компоненты для обновления'
  316.             ,[titleTooltip] = ''
  317.             ,[code] = 'upd-comps'
  318.             ,[addEditLink] = ''
  319.             ,[commentsCode] = ''
  320.             ,[immediatelyLoad] = 1
  321.             ,[emptyText] = 'Нет элементов'
  322.             ,[filterLinkTitle] = ''
  323.             ,[showChecksCol] = 0
  324.             ,[showNumsCol] = 1
  325.             ,[showToolbar] = 1
  326.             ,[getItemsURLParameters] = ''
  327.             ,[toolbarAdditional] = ''
  328.             ,[groupOperationsToolbar] = ''
  329.             ,[getFilterMakeupCallback] = ''
  330.             ,[filterCallback] = ''
  331.             ,[processRowCallback] = ''
  332.             ,[getItemsCallback] = ''
  333.             ,[remove] = 0
  334.             ,[comments] = 0
  335.             ,[ctrlClickShowComment] = 0
  336.             ,[users] = null
  337.             ,[roles] = null
  338.             ,[fastCreate] = null
  339.             ,[pageSize] = 50
  340.             ,[requestGetItems] = 'upd-getcomps'
  341.         where id = @tableID846;
  342.         print N'Таблица upd-comps обновлена'
  343.     end else begin
  344.         insert into as_crud_tables ([title],[titleTooltip],[code],[addEditLink],[commentsCode],[immediatelyLoad],[emptyText]
  345.             ,[filterLinkTitle],[showChecksCol],[showNumsCol],[showToolbar],[getItemsURLParameters],[toolbarAdditional]
  346.             ,[groupOperationsToolbar],[getFilterMakeupCallback],[filterCallback],[processRowCallback],[getItemsCallback],[remove]
  347.             ,[comments],[ctrlClickShowComment],[users],[roles],[fastCreate],[pageSize], [requestGetItems])
  348.          VALUES ( 'Компоненты для обновления'            , ''
  349.             , 'upd-comps'
  350.             , ''
  351.             , ''
  352.             , 1
  353.             , 'Нет элементов'
  354.             , ''
  355.             , 0
  356.             , 1
  357.             , 1
  358.             , ''
  359.             , ''
  360.             , ''
  361.             , ''
  362.             , ''
  363.             , ''
  364.             , ''
  365.             , 0
  366.             , 0
  367.             , 0
  368.             , null
  369.             , null
  370.             , null
  371.             , 50
  372.             , 'upd-getcomps'
  373.         );
  374.         select @tableID846 = scope_identity();
  375.         print N'Таблица upd-comps добавлена'
  376.     end;
  377. end try
  378. begin catch
  379.     print N' ERROR ############################################## При обновлении\добавлении таблицы upd-comps возникла ошибка: ' + error_message()
  380. end catch
  381.  
  382. begin try
  383.     delete from as_crud_cols where as_crud_cols.tableID = @tableID846;
  384.     print N'Колонки таблицы upd-comps удалены'
  385. end try
  386. begin catch
  387.     PRINT N'ERROR ############################################## При удалении колонок таблицы upd-comps возникла ошибка: ' + error_message()
  388. end catch
  389.  
  390. begin try
  391.     set @tableDatatypeID846 = null; set @editableTypeID846 = null; set @filterTypeID846 = null;
  392.     select @tableDatatypeID846 = d.id from as_crud_dataTypes as d where d.code = 'string';
  393.     select @editableTypeID846 = e.id from as_crud_editableTypes as e where e.code = null;
  394.     select @filterTypeID846 = f.id from as_crud_filterTypes as f where f.code = 'string';
  395.      insert into as_crud_cols ([tableID],[title],[tooltip],[ord],[datatypeID],[isSort],[isVisible]
  396.         ,[isPK],[editableTypeID],[editableCallback],[filterTypeID],[code],[filterNotSelected],[format]
  397.         ,[editableMin],[editableMax],[editableStep],[sqlGetListValues],[width])
  398.     VALUES ( @tableID846, 'SQL пакет'
  399.         , ''
  400.         , 0
  401.         , @tableDatatypeID846
  402.         , 0
  403.         , 1
  404.         , 0
  405.         , @editableTypeID846
  406.         , ''
  407.         , @filterTypeID846
  408.         , 'name'
  409.         , 'Найти...'
  410.         , ''
  411.         , null
  412.         , null
  413.         , null
  414.         , ''
  415.         , null
  416.     );
  417.     print N'Колонка name таблицы добавлена'
  418. end try
  419. begin catch
  420.     print  N'ERROR ############################################## При добалении колонки name таблицы возникла ошибка: ' + error_message()
  421. end catch
  422.  
  423. begin try
  424.     set @tableDatatypeID846 = null; set @editableTypeID846 = null; set @filterTypeID846 = null;
  425.     select @tableDatatypeID846 = d.id from as_crud_dataTypes as d where d.code = 'string';
  426.     select @editableTypeID846 = e.id from as_crud_editableTypes as e where e.code = null;
  427.     select @filterTypeID846 = f.id from as_crud_filterTypes as f where f.code = null;
  428.      insert into as_crud_cols ([tableID],[title],[tooltip],[ord],[datatypeID],[isSort],[isVisible]
  429.         ,[isPK],[editableTypeID],[editableCallback],[filterTypeID],[code],[filterNotSelected],[format]
  430.         ,[editableMin],[editableMax],[editableStep],[sqlGetListValues],[width])
  431.     VALUES ( @tableID846, 'Состав пакета'
  432.         , ''
  433.         , 0
  434.         , @tableDatatypeID846
  435.         , 0
  436.         , 1
  437.         , 0
  438.         , @editableTypeID846
  439.         , ''
  440.         , @filterTypeID846
  441.         , 'desc'
  442.         , ''
  443.         , ''
  444.         , null
  445.         , null
  446.         , null
  447.         , ''
  448.         , null
  449.     );
  450.     print N'Колонка desc таблицы добавлена'
  451. end try
  452. begin catch
  453.     print  N'ERROR ############################################## При добалении колонки desc таблицы возникла ошибка: ' + error_message()
  454. end catch
  455.  
  456. begin try
  457.     set @tableDatatypeID846 = null; set @editableTypeID846 = null; set @filterTypeID846 = null;
  458.     select @tableDatatypeID846 = d.id from as_crud_dataTypes as d where d.code = 'string';
  459.     select @editableTypeID846 = e.id from as_crud_editableTypes as e where e.code = null;
  460.     select @filterTypeID846 = f.id from as_crud_filterTypes as f where f.code = null;
  461.      insert into as_crud_cols ([tableID],[title],[tooltip],[ord],[datatypeID],[isSort],[isVisible]
  462.         ,[isPK],[editableTypeID],[editableCallback],[filterTypeID],[code],[filterNotSelected],[format]
  463.         ,[editableMin],[editableMax],[editableStep],[sqlGetListValues],[width])
  464.     VALUES ( @tableID846, 'Версия'
  465.         , ''
  466.         , 0
  467.         , @tableDatatypeID846
  468.         , 0
  469.         , 1
  470.         , 0
  471.         , @editableTypeID846
  472.         , ''
  473.         , @filterTypeID846
  474.         , 'version'
  475.         , ''
  476.         , ''
  477.         , null
  478.         , null
  479.         , null
  480.         , ''
  481.         , null
  482.     );
  483.     print N'Колонка version таблицы добавлена'
  484. end try
  485. begin catch
  486.     print  N'ERROR ############################################## При добалении колонки version таблицы возникла ошибка: ' + error_message()
  487. end catch
  488.  
  489. begin try
  490.     delete from as_crud_tableOperations where tableID = @tableID846;
  491.     print N'Операции таблицы upd-comps удалены'
  492. end try
  493. begin catch
  494.     PRINT N'ERROR ############################################## При удалении операций таблицы upd-comps возникла ошибка: ' + error_message()
  495. end catch
  496.  
  497. go
  498.  
  499.  
  500. print  N'НАЧАЛО PROCS crud_upd-comps[_]-------------------- '
  501. print N'Попытка удаления хранимых процедур'
  502. declare @name846 nvarchar(256), @sqlExpec846 nvarchar(max);
  503. declare cur846 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'crud_upd-comps[_]%' AND type in (N'P', N'PC')
  504. open cur846 fetch next from cur846 into @name846
  505. while @@FETCH_STATUS = 0 BEGIN
  506.     begin try
  507.         set @sqlExpec846 = 'drop procedure [' + @name846+']'
  508.         exec sp_executesql @sqlExpec846
  509.         print N'Удалена хранимая процедура ' + @name846
  510.     end try
  511.     begin catch
  512.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name846 + ': '+ error_message()
  513.     end catch
  514.     fetch next from cur846 into @name846
  515. END
  516. close cur846 deallocate cur846
  517.  
  518. begin try
  519.     exec sp_executesql N'CREATE PROCEDURE [dbo].[crud_upd-comps_getItems]
  520.     @filters ExtendedDictionaryParameter  READONLY,
  521.     @sort sql_variant,
  522.     @direction nvarchar(8),
  523.     @page int,
  524.     @pageSize int,
  525.     @username nvarchar(32)
  526.  
  527. AS
  528. BEGIN
  529.     declare @json nvarchar(max) = (select value2 from @filters where [key]=''upd-getcomps'')
  530.    declare @result table (code nvarchar(512), name nvarchar(512), [desc] nvarchar(max),
  531.                           version nvarchar(128), versionInfo nvarchar(max), packageDetails nvarchar(max))
  532.  
  533.    declare @search nvarchar(128) = isnull((select Value2 from @filters where [Key] = ''name''), '''')
  534.    
  535.    insert into @result
  536.    SELECT code, name, [desc], version, versionInfo, packageDetails
  537.    FROM OPENJSON(@json, ''$.data'')
  538.    WITH (
  539.            code nvarchar(512) ''$.code'',
  540.            name nvarchar(512) ''$.name'',
  541.            [desc] nvarchar(max) ''$.desc'',
  542.            [version] nvarchar(512) ''$.version'',
  543.            [versionInfo] nvarchar(max) ''$.versionInfo'',
  544.             [packageDetails] nvarchar(max) ''$.packageDetails''            
  545.        )
  546.     where (@search=''''
  547.           or name like ''%''+@search+''%''
  548.           or code like ''%''+@search+''%''
  549.           or packageDetails like  ''%''+@search+''%''
  550.           or [desc] like  ''%''+@search+''%'')
  551.    
  552.    -- if not working JSON - ALTER DATABASE falconAS SET COMPATIBILITY_LEVEL = 130;
  553.    
  554.     -- SELECT 1
  555.     select
  556.         isnull([name], '''') [name],
  557.         isnull([code], '''') [desc_name],
  558.         ''<div class="as-panel">''+replace(isnull([desc], ''''), char(10), ''<br>'') + ''</div>'' [sub_name],
  559.        ''<div class="small" title="Что есть в SQL пакете">'' + packageDetails + ''</div>'' [desc],
  560.         ''<a href="#" class="as-form-modal btn btn-xs btn-outline-primary" data-code="upd-getversion" data-itemID="''+code+''__''+version+''"
  561.             data-big="1" data-title="'' + name + '' '' +code+'' v''+version+''" data-btnText="">Получить версию '' +isnull([version], '''') + ''</a>'' [version],
  562.        isnull(versionInfo, '''') desc_version,
  563.        ''<div class="as-table as-panel" data-code="upd-versions" data-itemID="''+code+''"></div>'' sub_version
  564.     from @result
  565.     order by name
  566.     OFFSET @PageSize * (@Page - 1) ROWS
  567.     FETCH NEXT @PageSize ROWS ONLY;
  568.    
  569.     -- SELECT 2
  570.     select count(*) from @result   
  571.  
  572.     -- SELECT 3
  573.    select 1 Compact, 1 HideTitleCount
  574.     /*Select  '''' Title,
  575.         '''' ToolbarAdditional,
  576.         '''' GroupOperationsToolbar,
  577.         '''' EmptyText,
  578.         '''' FastCreateLinkText, '''' FastCreateDialogHeader, '''' FastCreateDialogPlaceholder,
  579.         0 FastCreateSearch, 0 FastCreateTextarea,
  580.          0 HideTitleCount,
  581.          0 DisableCellTitle,
  582.          ''10px'' FontSize,
  583.          ''{filterCode}'' FilterMakeup,
  584.          1 InstantFilter,
  585.            */
  586.        
  587.     -- 4 SELECT Footer data or kanban/gantt data
  588.  
  589. END
  590.  
  591. --ru 04.07.2022 9:01:35
  592. '
  593.     print N'Добавлена хранимая процедура crud_upd-comps_getItems'
  594. end try
  595. begin catch
  596.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры crud_upd-comps_getItems: '+ error_message()
  597. end catch
  598.  
  599.  
  600. go
  601.  
  602. print  N'КОНЕЦ PROCS crud_upd-comps[_]--------------------  '
  603.  
  604.  
  605. --КОНЕЦ PROCS crud_upd-comps[_]--------------------
  606. go
  607. print  N'КОНЕЦ TABLE upd-comps----------------------------------------------------------------------------------------------------  '
  608.  
  609.  
  610. --КОНЕЦ TABLE upd-comps----------------------------------------------------------------------------------------------------
  611.  
  612. ----------------TABLE upd-versions--------------
  613. print N'Создание/обновление структуры DB TABLE  as_crud_tables-------------------- '
  614. IF NOT EXISTS (SELECT * FROM sysobjects WHERE name= 'as_crud_tables' and xtype='U') BEGIN
  615.     CREATE TABLE [dbo].[as_crud_tables]
  616.     (
  617.      [id] [int] IDENTITY(1,1) NOT NULL
  618.      CONSTRAINT [PK_as_crud_tables] PRIMARY KEY CLUSTERED ( [id] ASC )
  619.     ) ON [PRIMARY]
  620.     print 'Создана таблица as_crud_tables '
  621. END
  622. GO
  623. IF COL_LENGTH( 'as_crud_tables', 'title') IS NULL BEGIN
  624.     ALTER TABLE as_crud_tables
  625.     ADD [title] nvarchar (256) NULL  
  626. END
  627. IF COL_LENGTH( 'as_crud_tables', 'titleTooltip') IS NULL BEGIN
  628.     ALTER TABLE as_crud_tables
  629.     ADD [titleTooltip] nvarchar (1024) NULL  
  630. END
  631. IF COL_LENGTH( 'as_crud_tables', 'code') IS NULL BEGIN
  632.     ALTER TABLE as_crud_tables
  633.     ADD [code] nvarchar (32) NULL  
  634. END
  635. IF COL_LENGTH( 'as_crud_tables', 'addEditLink') IS NULL BEGIN
  636.     ALTER TABLE as_crud_tables
  637.     ADD [addEditLink] nvarchar (128) NULL  
  638. END
  639. IF COL_LENGTH( 'as_crud_tables', 'commentsCode') IS NULL BEGIN
  640.     ALTER TABLE as_crud_tables
  641.     ADD [commentsCode] nvarchar (128) NULL  
  642. END
  643. IF COL_LENGTH( 'as_crud_tables', 'immediatelyLoad') IS NULL BEGIN
  644.     ALTER TABLE as_crud_tables
  645.     ADD [immediatelyLoad] bit NULL  
  646. END
  647. IF COL_LENGTH( 'as_crud_tables', 'emptyText') IS NULL BEGIN
  648.     ALTER TABLE as_crud_tables
  649.     ADD [emptyText] nvarchar (128) NULL  
  650. END
  651. IF COL_LENGTH( 'as_crud_tables', 'filterLinkTitle') IS NULL BEGIN
  652.     ALTER TABLE as_crud_tables
  653.     ADD [filterLinkTitle] nvarchar (128) NULL  
  654. END
  655. IF COL_LENGTH( 'as_crud_tables', 'showChecksCol') IS NULL BEGIN
  656.     ALTER TABLE as_crud_tables
  657.     ADD [showChecksCol] bit NULL  
  658. END
  659. IF COL_LENGTH( 'as_crud_tables', 'showNumsCol') IS NULL BEGIN
  660.     ALTER TABLE as_crud_tables
  661.     ADD [showNumsCol] bit NULL  
  662. END
  663. IF COL_LENGTH( 'as_crud_tables', 'showToolbar') IS NULL BEGIN
  664.     ALTER TABLE as_crud_tables
  665.     ADD [showToolbar] bit NULL  
  666. END
  667. IF COL_LENGTH( 'as_crud_tables', 'getItemsURLParameters') IS NULL BEGIN
  668.     ALTER TABLE as_crud_tables
  669.     ADD [getItemsURLParameters] nvarchar (128) NULL  
  670. END
  671. IF COL_LENGTH( 'as_crud_tables', 'toolbarAdditional') IS NULL BEGIN
  672.     ALTER TABLE as_crud_tables
  673.     ADD [toolbarAdditional] nvarchar (max) NULL  
  674. END
  675. IF COL_LENGTH( 'as_crud_tables', 'groupOperationsToolbar') IS NULL BEGIN
  676.     ALTER TABLE as_crud_tables
  677.     ADD [groupOperationsToolbar] nvarchar (max) NULL  
  678. END
  679. IF COL_LENGTH( 'as_crud_tables', 'getFilterMakeupCallback') IS NULL BEGIN
  680.     ALTER TABLE as_crud_tables
  681.     ADD [getFilterMakeupCallback] nvarchar (max) NULL  
  682. END
  683. IF COL_LENGTH( 'as_crud_tables', 'filterCallback') IS NULL BEGIN
  684.     ALTER TABLE as_crud_tables
  685.     ADD [filterCallback] nvarchar (2048) NULL  
  686. END
  687. IF COL_LENGTH( 'as_crud_tables', 'processRowCallback') IS NULL BEGIN
  688.     ALTER TABLE as_crud_tables
  689.     ADD [processRowCallback] nvarchar (2048) NULL  
  690. END
  691. IF COL_LENGTH( 'as_crud_tables', 'getItemsCallback') IS NULL BEGIN
  692.     ALTER TABLE as_crud_tables
  693.     ADD [getItemsCallback] nvarchar (2048) NULL  
  694. END
  695. IF COL_LENGTH( 'as_crud_tables', 'remove') IS NULL BEGIN
  696.     ALTER TABLE as_crud_tables
  697.     ADD [remove] bit NULL  
  698. END
  699. IF COL_LENGTH( 'as_crud_tables', 'comments') IS NULL BEGIN
  700.     ALTER TABLE as_crud_tables
  701.     ADD [comments] bit NULL  
  702. END
  703. IF COL_LENGTH( 'as_crud_tables', 'ctrlClickShowComment') IS NULL BEGIN
  704.     ALTER TABLE as_crud_tables
  705.     ADD [ctrlClickShowComment] bit NULL  
  706. END
  707. IF COL_LENGTH( 'as_crud_tables', 'users') IS NULL BEGIN
  708.     ALTER TABLE as_crud_tables
  709.     ADD [users] nvarchar (128) NULL  
  710. END
  711. IF COL_LENGTH( 'as_crud_tables', 'roles') IS NULL BEGIN
  712.     ALTER TABLE as_crud_tables
  713.     ADD [roles] nvarchar (128) NULL  
  714. END
  715. IF COL_LENGTH( 'as_crud_tables', 'fastCreate') IS NULL BEGIN
  716.     ALTER TABLE as_crud_tables
  717.     ADD [fastCreate] bit NULL  
  718. END
  719. IF COL_LENGTH( 'as_crud_tables', 'pageSize') IS NULL BEGIN
  720.     ALTER TABLE as_crud_tables
  721.     ADD [pageSize] int NULL  
  722. END
  723. IF COL_LENGTH( 'as_crud_tables', 'requestGetItems') IS NULL BEGIN
  724.     ALTER TABLE as_crud_tables
  725.     ADD [requestGetItems] nvarchar (512) NULL  
  726. END
  727.  
  728. -- Внешние ключи таблицы as_crud_tables
  729. -- ВАЖНО Параметры ключа delete / update ОБРАБАТЫВАЮТСЯ
  730.  
  731. go
  732. print N'Конец функции DBTABLE  as_crud_tables-------------------- '
  733.  
  734. -- Конец функции DB Table as_crud_tables--------------------
  735.  
  736. GO
  737.  
  738. GO
  739. declare @tableID8766 int, @tableDatatypeID8766 int, @editableTypeID8766 int, @filterTypeID8766 int, @operationTypeID8766 int; set @tableID8766 = null;
  740. print  N'НАЧАЛО TABLE upd-versions---------------------------------------------------------------------------------------------------- '
  741. select top 1 @tableID8766 = t.id from as_crud_tables as t where t.code = 'upd-versions' order by t.id;
  742. begin try
  743.     if @tableID8766 > 0 begin
  744.         update as_crud_tables
  745.         set [title] = 'Версии компонента'
  746.             ,[titleTooltip] = ''
  747.             ,[code] = 'upd-versions'
  748.             ,[addEditLink] = ''
  749.             ,[commentsCode] = ''
  750.             ,[immediatelyLoad] = 1
  751.             ,[emptyText] = 'Нет элементов'
  752.             ,[filterLinkTitle] = ''
  753.             ,[showChecksCol] = 0
  754.             ,[showNumsCol] = 1
  755.             ,[showToolbar] = 1
  756.             ,[getItemsURLParameters] = ''
  757.             ,[toolbarAdditional] = ''
  758.             ,[groupOperationsToolbar] = ''
  759.             ,[getFilterMakeupCallback] = ''
  760.             ,[filterCallback] = ''
  761.             ,[processRowCallback] = ''
  762.             ,[getItemsCallback] = ''
  763.             ,[remove] = 0
  764.             ,[comments] = 0
  765.             ,[ctrlClickShowComment] = 0
  766.             ,[users] = ''
  767.             ,[roles] = 'admin'
  768.             ,[fastCreate] = 0
  769.             ,[pageSize] = 50
  770.             ,[requestGetItems] = 'upd-getversions'
  771.         where id = @tableID8766;
  772.         print N'Таблица upd-versions обновлена'
  773.     end else begin
  774.         insert into as_crud_tables ([title],[titleTooltip],[code],[addEditLink],[commentsCode],[immediatelyLoad],[emptyText]
  775.             ,[filterLinkTitle],[showChecksCol],[showNumsCol],[showToolbar],[getItemsURLParameters],[toolbarAdditional]
  776.             ,[groupOperationsToolbar],[getFilterMakeupCallback],[filterCallback],[processRowCallback],[getItemsCallback],[remove]
  777.             ,[comments],[ctrlClickShowComment],[users],[roles],[fastCreate],[pageSize], [requestGetItems])
  778.          VALUES ( 'Версии компонента'           , ''
  779.             , 'upd-versions'
  780.             , ''
  781.             , ''
  782.             , 1
  783.             , 'Нет элементов'
  784.             , ''
  785.             , 0
  786.             , 1
  787.             , 1
  788.             , ''
  789.             , ''
  790.             , ''
  791.             , ''
  792.             , ''
  793.             , ''
  794.             , ''
  795.             , 0
  796.             , 0
  797.             , 0
  798.             , ''
  799.             , 'admin'
  800.             , 0
  801.             , 50
  802.             , 'upd-getversions'
  803.         );
  804.         select @tableID8766 = scope_identity();
  805.         print N'Таблица upd-versions добавлена'
  806.     end;
  807. end try
  808. begin catch
  809.     print N' ERROR ############################################## При обновлении\добавлении таблицы upd-versions возникла ошибка: ' + error_message()
  810. end catch
  811.  
  812. begin try
  813.     delete from as_crud_cols where as_crud_cols.tableID = @tableID8766;
  814.     print N'Колонки таблицы upd-versions удалены'
  815. end try
  816. begin catch
  817.     PRINT N'ERROR ############################################## При удалении колонок таблицы upd-versions возникла ошибка: ' + error_message()
  818. end catch
  819.  
  820. begin try
  821.     set @tableDatatypeID8766 = null; set @editableTypeID8766 = null; set @filterTypeID8766 = null;
  822.     select @tableDatatypeID8766 = d.id from as_crud_dataTypes as d where d.code = 'string';
  823.     select @editableTypeID8766 = e.id from as_crud_editableTypes as e where e.code = null;
  824.     select @filterTypeID8766 = f.id from as_crud_filterTypes as f where f.code = null;
  825.      insert into as_crud_cols ([tableID],[title],[tooltip],[ord],[datatypeID],[isSort],[isVisible]
  826.         ,[isPK],[editableTypeID],[editableCallback],[filterTypeID],[code],[filterNotSelected],[format]
  827.         ,[editableMin],[editableMax],[editableStep],[sqlGetListValues],[width])
  828.     VALUES ( @tableID8766, 'Примечание'
  829.         , ''
  830.         , 20
  831.         , @tableDatatypeID8766
  832.         , 0
  833.         , 1
  834.         , 0
  835.         , @editableTypeID8766
  836.         , ''
  837.         , @filterTypeID8766
  838.         , 'note'
  839.         , ''
  840.         , ''
  841.         , null
  842.         , null
  843.         , null
  844.         , ''
  845.         , null
  846.     );
  847.     print N'Колонка note таблицы добавлена'
  848. end try
  849. begin catch
  850.     print  N'ERROR ############################################## При добалении колонки note таблицы возникла ошибка: ' + error_message()
  851. end catch
  852.  
  853. begin try
  854.     set @tableDatatypeID8766 = null; set @editableTypeID8766 = null; set @filterTypeID8766 = null;
  855.     select @tableDatatypeID8766 = d.id from as_crud_dataTypes as d where d.code = 'string';
  856.     select @editableTypeID8766 = e.id from as_crud_editableTypes as e where e.code = null;
  857.     select @filterTypeID8766 = f.id from as_crud_filterTypes as f where f.code = null;
  858.      insert into as_crud_cols ([tableID],[title],[tooltip],[ord],[datatypeID],[isSort],[isVisible]
  859.         ,[isPK],[editableTypeID],[editableCallback],[filterTypeID],[code],[filterNotSelected],[format]
  860.         ,[editableMin],[editableMax],[editableStep],[sqlGetListValues],[width])
  861.     VALUES ( @tableID8766, 'Получить пакет'
  862.         , ''
  863.         , 50
  864.         , @tableDatatypeID8766
  865.         , 0
  866.         , 1
  867.         , 0
  868.         , @editableTypeID8766
  869.         , ''
  870.         , @filterTypeID8766
  871.         , 'text'
  872.         , ''
  873.         , ''
  874.         , null
  875.         , null
  876.         , null
  877.         , ''
  878.         , null
  879.     );
  880.     print N'Колонка text таблицы добавлена'
  881. end try
  882. begin catch
  883.     print  N'ERROR ############################################## При добалении колонки text таблицы возникла ошибка: ' + error_message()
  884. end catch
  885.  
  886. begin try
  887.     set @tableDatatypeID8766 = null; set @editableTypeID8766 = null; set @filterTypeID8766 = null;
  888.     select @tableDatatypeID8766 = d.id from as_crud_dataTypes as d where d.code = 'string';
  889.     select @editableTypeID8766 = e.id from as_crud_editableTypes as e where e.code = null;
  890.     select @filterTypeID8766 = f.id from as_crud_filterTypes as f where f.code = null;
  891.      insert into as_crud_cols ([tableID],[title],[tooltip],[ord],[datatypeID],[isSort],[isVisible]
  892.         ,[isPK],[editableTypeID],[editableCallback],[filterTypeID],[code],[filterNotSelected],[format]
  893.         ,[editableMin],[editableMax],[editableStep],[sqlGetListValues],[width])
  894.     VALUES ( @tableID8766, 'Версия'
  895.         , ''
  896.         , 0
  897.         , @tableDatatypeID8766
  898.         , 0
  899.         , 1
  900.         , 0
  901.         , @editableTypeID8766
  902.         , ''
  903.         , @filterTypeID8766
  904.         , 'version'
  905.         , ''
  906.         , ''
  907.         , null
  908.         , null
  909.         , null
  910.         , ''
  911.         , null
  912.     );
  913.     print N'Колонка version таблицы добавлена'
  914. end try
  915. begin catch
  916.     print  N'ERROR ############################################## При добалении колонки version таблицы возникла ошибка: ' + error_message()
  917. end catch
  918.  
  919. begin try
  920.     delete from as_crud_tableOperations where tableID = @tableID8766;
  921.     print N'Операции таблицы upd-versions удалены'
  922. end try
  923. begin catch
  924.     PRINT N'ERROR ############################################## При удалении операций таблицы upd-versions возникла ошибка: ' + error_message()
  925. end catch
  926.  
  927. go
  928.  
  929.  
  930. print  N'НАЧАЛО PROCS crud_upd-versions[_]-------------------- '
  931. print N'Попытка удаления хранимых процедур'
  932. declare @name8766 nvarchar(256), @sqlExpec8766 nvarchar(max);
  933. declare cur8766 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'crud_upd-versions[_]%' AND type in (N'P', N'PC')
  934. open cur8766 fetch next from cur8766 into @name8766
  935. while @@FETCH_STATUS = 0 BEGIN
  936.     begin try
  937.         set @sqlExpec8766 = 'drop procedure [' + @name8766+']'
  938.         exec sp_executesql @sqlExpec8766
  939.         print N'Удалена хранимая процедура ' + @name8766
  940.     end try
  941.     begin catch
  942.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name8766 + ': '+ error_message()
  943.     end catch
  944.     fetch next from cur8766 into @name8766
  945. END
  946. close cur8766 deallocate cur8766
  947.  
  948. begin try
  949.     exec sp_executesql N'CREATE PROCEDURE [dbo].[crud_upd-versions_getItems]
  950.     @filters ExtendedDictionaryParameter READONLY,
  951.     @sort sql_variant,
  952.     @direction nvarchar(8),
  953.     @page int,
  954.     @pageSize int,
  955.     @username nvarchar(32)
  956. AS
  957. BEGIN
  958.     declare @json nvarchar(max) = (select value2 from @filters where [key]=''upd-getversions'')
  959.    declare @result table (id int, created nvarchar(512), note nvarchar(512), [version] nvarchar(max))
  960.    declare @comp nvarchar(256) = (select value2 from @filters where [key]=''itemID'')
  961.  
  962.    insert into @result
  963.    SELECT id, created, note, version
  964.    FROM OPENJSON(@json, ''$.data'')
  965.    WITH (
  966.            id int ''$.id'',
  967.             created nvarchar(512) ''$.created'',
  968.            note nvarchar(512) ''$.note'',
  969.             [version] nvarchar(max) ''$.version''          
  970.        )
  971.    -- if not working JSON - ALTER DATABASE falconAS SET COMPATIBILITY_LEVEL = 130;
  972.    
  973.     -- SELECT 1
  974.     select
  975.         isnull([version], '''') [version],
  976.         isnull(dbo.as_timeDelay(datediff(minute, created, getdate()) ) + '' назад'', '''') [desc_version],
  977.         isnull([note], '''') [note],       
  978.         ''<a href="#" class="as-form-modal btn btn-xs btn-outline-primary" data-code="upd-getversion" data-itemID="''+@comp+''__''+version+''"
  979.             data-big="1" data-title="''  + '' '' +@comp+'' v''+version+''" data-btnText="">Получить версию '' +isnull([version], '''') + ''</a>'' [text]
  980.     from @result
  981.     order by id desc
  982.     OFFSET @PageSize * (@Page - 1) ROWS
  983.     FETCH NEXT @PageSize ROWS ONLY;
  984.    
  985.     -- SELECT 2
  986.     select count(*) from @result   
  987.  
  988.     -- SELECT 3
  989.    select 1 Compact, 1 HideTitleCount
  990.  
  991. END
  992.  
  993. '
  994.     print N'Добавлена хранимая процедура crud_upd-versions_getItems'
  995. end try
  996. begin catch
  997.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры crud_upd-versions_getItems: '+ error_message()
  998. end catch
  999.  
  1000.  
  1001. go
  1002.  
  1003. print  N'КОНЕЦ PROCS crud_upd-versions[_]--------------------  '
  1004.  
  1005.  
  1006. --КОНЕЦ PROCS crud_upd-versions[_]--------------------
  1007. go
  1008. print  N'КОНЕЦ TABLE upd-versions----------------------------------------------------------------------------------------------------  '
  1009.  
  1010.  
  1011. --КОНЕЦ TABLE upd-versions----------------------------------------------------------------------------------------------------
  1012.  
  1013.  
  1014. ----------------FORMS --------------
  1015.  
  1016. ----------------FORM upd-getversion--------------
  1017. print N'Создание/обновление структуры DB TABLE  as_forms-------------------- '
  1018. IF NOT EXISTS (SELECT * FROM sysobjects WHERE name= 'as_forms' and xtype='U') BEGIN
  1019.     CREATE TABLE [dbo].[as_forms]
  1020.     (
  1021.      [id] [int] IDENTITY(1,1) NOT NULL
  1022.      CONSTRAINT [PK_as_forms] PRIMARY KEY CLUSTERED ( [id] ASC )
  1023.     ) ON [PRIMARY]
  1024.     print 'Создана таблица as_forms '
  1025. END
  1026. GO
  1027. IF COL_LENGTH( 'as_forms', 'code') IS NULL BEGIN
  1028.     ALTER TABLE as_forms
  1029.     ADD [code] nvarchar (32) NULL  
  1030. END
  1031. IF COL_LENGTH( 'as_forms', 'title') IS NULL BEGIN
  1032.     ALTER TABLE as_forms
  1033.     ADD [title] nvarchar (512) NULL  
  1034. END
  1035. IF COL_LENGTH( 'as_forms', 'subtitle') IS NULL BEGIN
  1036.     ALTER TABLE as_forms
  1037.     ADD [subtitle] nvarchar (1024) NULL  
  1038. END
  1039. IF COL_LENGTH( 'as_forms', 'resultMessage') IS NULL BEGIN
  1040.     ALTER TABLE as_forms
  1041.     ADD [resultMessage] nvarchar (512) NULL  
  1042. END
  1043. IF COL_LENGTH( 'as_forms', 'successURL') IS NULL BEGIN
  1044.     ALTER TABLE as_forms
  1045.     ADD [successURL] nvarchar (256) NULL  
  1046. END
  1047. IF COL_LENGTH( 'as_forms', 'makeup') IS NULL BEGIN
  1048.     ALTER TABLE as_forms
  1049.     ADD [makeup] nvarchar (max) NULL  
  1050. END
  1051. IF COL_LENGTH( 'as_forms', 'hideFormAfterSubmit') IS NULL BEGIN
  1052.     ALTER TABLE as_forms
  1053.     ADD [hideFormAfterSubmit] bit NULL  
  1054. END
  1055. IF COL_LENGTH( 'as_forms', 'buttonText') IS NULL BEGIN
  1056.     ALTER TABLE as_forms
  1057.     ADD [buttonText] nvarchar (64) NULL  
  1058. END
  1059. IF COL_LENGTH( 'as_forms', 'users') IS NULL BEGIN
  1060.     ALTER TABLE as_forms
  1061.     ADD [users] nvarchar (128) NULL  
  1062. END
  1063. IF COL_LENGTH( 'as_forms', 'roles') IS NULL BEGIN
  1064.     ALTER TABLE as_forms
  1065.     ADD [roles] nvarchar (128) NULL  
  1066. END
  1067. IF COL_LENGTH( 'as_forms', 'requestGetItem') IS NULL BEGIN
  1068.     ALTER TABLE as_forms
  1069.     ADD [requestGetItem] nvarchar (512) NULL  
  1070. END
  1071. IF COL_LENGTH( 'as_forms', 'requestSaveItem') IS NULL BEGIN
  1072.     ALTER TABLE as_forms
  1073.     ADD [requestSaveItem] nvarchar (512) NULL  
  1074. END
  1075. IF COL_LENGTH( 'as_forms', 'requestCheckField') IS NULL BEGIN
  1076.     ALTER TABLE as_forms
  1077.     ADD [requestCheckField] nvarchar (512) NULL  
  1078. END
  1079.  
  1080. -- Внешние ключи таблицы as_forms
  1081. -- ВАЖНО Параметры ключа delete / update ОБРАБАТЫВАЮТСЯ
  1082.  
  1083. go
  1084. print N'Конец функции DBTABLE  as_forms-------------------- '
  1085.  
  1086. -- Конец функции DB Table as_forms--------------------
  1087.  
  1088. GO
  1089.  
  1090. GO
  1091. declare @formID3299 int, @errFRM3299 nvarchar(max), @formDatatypeID3299 int; set @formID3299 = null;
  1092. print  N'НАЧАЛО FORM upd-getversion---------------------------------------------------------------------------------------------------- '
  1093. select top 1 @formID3299 = f.id from as_forms as f where f.code = 'upd-getversion' order by f.id;
  1094. begin try
  1095.     if @formID3299 > 0 begin
  1096.         UPDATE as_forms
  1097.         SET  [code] = 'upd-getversion'
  1098.             ,[title] = 'Получить SQL пакет версии'
  1099.             ,[subtitle] = ''
  1100.             ,[resultMessage] = 'OK'
  1101.             ,[successURL] = ''
  1102.             ,[makeup] = ''
  1103.             ,[hideFormAfterSubmit] = 1
  1104.             ,[buttonText] = 'OK'
  1105.             ,[requestGetItem] = 'upd-getversion'
  1106.             ,[requestCheckField] = ''
  1107.             ,[requestSaveItem] = ''
  1108.             ,[users] = ''
  1109.             ,[roles] = 'admin'
  1110.         where id = @formID3299;
  1111.         print N'Форма upd-getversion обновлена'
  1112.      end else begin
  1113.         INSERT into as_forms ([code],[title],[subtitle],[resultMessage],[successURL],[makeup]
  1114.             ,[hideFormAfterSubmit],[buttonText],[requestGetItem],[requestCheckField],[requestSaveItem],[users],[roles])
  1115.         VALUES ('upd-getversion'
  1116.             , 'Получить SQL пакет версии'
  1117.             , ''
  1118.             , 'OK'
  1119.             , ''
  1120.             , ''
  1121.             , 1
  1122.             , 'OK'
  1123.             , 'upd-getversion'
  1124.             , ''
  1125.             , ''
  1126.             , ''
  1127.             , 'admin'
  1128.         );
  1129.         select @formID3299 = scope_identity();
  1130.         print N'Форма upd-getversion добавлена'
  1131.     end;
  1132. end try
  1133. begin catch
  1134.     set @errFRM3299 = N'ERROR ############################################## При обновлении\добавлении формы upd-getversion возникла ошибка:  '+ error_message()
  1135.     raiserror( @errFRM3299  , 11, 0)
  1136. end catch
  1137.  
  1138. begin try
  1139.     delete from as_formCols where as_formCols.formID = @formID3299;
  1140.     print N'Колонки формы upd-getversion удалены'
  1141. end try
  1142. begin catch
  1143.     set @errFRM3299 = N'ERROR ############################################## При удалении колонок формы upd-getversion возникла ошибка: '+ error_message()
  1144.     raiserror( @errFRM3299  , 11, 0)
  1145. end catch
  1146.  
  1147. begin try
  1148.     set @formDatatypeID3299 = null;
  1149.     select @formDatatypeID3299 = d.id from as_dataTypes as d where d.code = 'editorSQL';
  1150.     if(@formDatatypeID3299 is null) begin
  1151.         insert into dbo.as_dataTypes(code, name)
  1152.         values('editorSQL', 'editorSQL');
  1153.         set @formDatatypeID3299 = scope_identity();
  1154.         print 'Добавлен новый тип в as_datatypes editorSQL'
  1155.     end
  1156.     insert into as_formCols ([formID],[code],[title],[placeholder],[tooltip],[ord],[datatypeID]
  1157.         ,[isRequired],[sqlSource],[width],[dependentCols]) VALUES ( @formID3299,
  1158.             'text'
  1159.             , 'SQL пакет'
  1160.             , ''
  1161.             , ''
  1162.             , 1
  1163.             , @formDatatypeID3299
  1164.             , 0
  1165.             , ''
  1166.             , null
  1167.             , null
  1168.         );
  1169.     print N'Колонка text формы добавлена'
  1170. end try
  1171. begin catch
  1172.     set @errFRM3299 = N'ERROR ############################################## При добалении колонки text формы возникла ошибка:  '+error_message()
  1173.     raiserror( @errFRM3299  , 11, 0)
  1174. end catch
  1175.  
  1176.  
  1177.  
  1178. print  N'НАЧАЛО PROCS fm_upd-getversion[_]-------------------- '
  1179. print N'Попытка удаления хранимых процедур'
  1180. declare @name3299 nvarchar(256), @sqlExpec3299 nvarchar(max);
  1181. declare cur3299 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'fm_upd-getversion[_]%' AND type in (N'P', N'PC')
  1182. open cur3299 fetch next from cur3299 into @name3299
  1183. while @@FETCH_STATUS = 0 BEGIN
  1184.     begin try
  1185.         set @sqlExpec3299 = 'drop procedure [' + @name3299+']'
  1186.         exec sp_executesql @sqlExpec3299
  1187.         print N'Удалена хранимая процедура ' + @name3299
  1188.     end try
  1189.     begin catch
  1190.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name3299 + ': '+ error_message()
  1191.     end catch
  1192.     fetch next from cur3299 into @name3299
  1193. END
  1194. close cur3299 deallocate cur3299
  1195.  
  1196. begin try
  1197.     exec sp_executesql N'CREATE PROCEDURE [dbo].[fm_upd-getversion_checkItem]
  1198.   @username nvarchar(256),
  1199.   @itemID nvarchar(256),
  1200.    @parameters ExtendedDictionaryParameter READONLY
  1201. AS
  1202. BEGIN
  1203.     select 1 Result, '''' Msg
  1204. END
  1205.  
  1206. '
  1207.     print N'Добавлена хранимая процедура fm_upd-getversion_checkItem'
  1208. end try
  1209. begin catch
  1210.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры fm_upd-getversion_checkItem: '+ error_message()
  1211. end catch
  1212.  
  1213.  
  1214. begin try
  1215.     exec sp_executesql N'CREATE PROCEDURE [dbo].[fm_upd-getversion_getItem]
  1216.     @itemID nvarchar(256), 
  1217.     @username nvarchar(256),
  1218.     @parameters ExtendedDictionaryParameter readonly
  1219. AS
  1220. BEGIN
  1221.     declare @json nvarchar(max) = (select value2 from @parameters where [key]=''upd-getversion'')
  1222.  
  1223.    
  1224.    --print @json
  1225.    declare @text nvarchar(max),@created date, @note nvarchar(max) ,
  1226.         @result nvarchar(128), @msg nvarchar(max)
  1227.  
  1228.     SELECT
  1229.      @result = result,
  1230.      @msg = msg
  1231.    FROM OPENJSON(@json, ''$'')
  1232.    WITH (
  1233.            result nvarchar(max) ''$.result'',
  1234.            msg nvarchar(max) ''$.msg''
  1235.        )
  1236.  
  1237.    if(lower(@result) = ''true'') begin
  1238.         SELECT @text=[text] , @created = created, @note= note  FROM OPENJSON(@json, ''$.data'')
  1239.         WITH (
  1240.            [text] nvarchar(max) ''$.text'',
  1241.            [created] date ''$.created'',
  1242.            [note] nvarchar(max) ''$.note''
  1243.  
  1244.        )
  1245.  
  1246.  
  1247.        -- SELECT 1
  1248.        select isnull(@text, ''Пришел пустой sql скрипт'') [text]
  1249.  
  1250.        -- SELECT 2
  1251.        select 1 LineLabel,
  1252.        ''<div class="alert alert-info">''+
  1253.        ''<span class="badge badge-info mr-3" title="Создан">'' + convert(nvarchar(10), @created, 120) + ''</span>'' +
  1254.        iif(len(@note)>0, @note, '''') +
  1255.        ''</div>''+
  1256.        ''<p class="small text-muted">Скопируйте скрипт SQL и выполните его на своей базе в MS SQL Management Studio</p'' Subtitle
  1257.  
  1258.    end else begin
  1259.         -- SELECT 1
  1260.        select 1
  1261.        select ''{"title": "Ошибка получения пакета", "text": "''+isnull(replace(@msg, ''"'', '' ''), ''Произошла ошибка получения пакета SQL по API getversion'')+''", "type": "danger"}'' noForm
  1262.  
  1263.    end
  1264. END
  1265.  
  1266. '
  1267.     print N'Добавлена хранимая процедура fm_upd-getversion_getItem'
  1268. end try
  1269. begin catch
  1270.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры fm_upd-getversion_getItem: '+ error_message()
  1271. end catch
  1272.  
  1273.  
  1274. begin try
  1275.     exec sp_executesql N'CREATE PROCEDURE [dbo].[fm_upd-getversion_saveItem]
  1276.   @username nvarchar(256),
  1277.   @itemID nvarchar(256),
  1278.    @parameters ExtendedDictionaryParameter READONLY
  1279. AS
  1280. BEGIN
  1281. --declare @text nvarchar(max) = (select Value2 from @parameters where [key]=''text'')
  1282. --   EXECUTE  sp_executesql @text
  1283.    
  1284.     -- SELECT 1
  1285.     select 1 Result, ''Скрипт выполнен'' Msg
  1286.  
  1287. END
  1288.  
  1289. '
  1290.     print N'Добавлена хранимая процедура fm_upd-getversion_saveItem'
  1291. end try
  1292. begin catch
  1293.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры fm_upd-getversion_saveItem: '+ error_message()
  1294. end catch
  1295.  
  1296.  
  1297. go
  1298.  
  1299. print  N'КОНЕЦ PROCS fm_upd-getversion[_]--------------------  '
  1300.  
  1301.  
  1302. --КОНЕЦ PROCS fm_upd-getversion[_]--------------------
  1303. go
  1304. print  N'КОНЕЦ FORM upd-getversion----------------------------------------------------------------------------------------------------  '
  1305. --КОНЕЦ FORM upd-getversion----------------------------------------------------------------------------------------------------
  1306.  
  1307.  
  1308.  
  1309.  
  1310.  
  1311. ----------------OTHER COMPONENTS --------------
  1312.  
  1313. ----------------OTHER apirequest:upd-getcomps--------------
  1314. print  N'НАЧАЛО API REQUEST upd-getcomps---------------------------------------------------------------------------------------------------- '
  1315. print N'Создание/обновление структуры DB TABLE  as_api_requests-------------------- '
  1316. IF NOT EXISTS (SELECT * FROM sysobjects WHERE name= 'as_api_requests' and xtype='U') BEGIN
  1317.     CREATE TABLE [dbo].[as_api_requests]
  1318.     (
  1319.      [id] [int] IDENTITY(1,1) NOT NULL
  1320.      CONSTRAINT [PK_as_api_requests] PRIMARY KEY CLUSTERED ( [id] ASC )
  1321.     ) ON [PRIMARY]
  1322.     print 'Создана таблица as_api_requests '
  1323. END
  1324. GO
  1325. IF COL_LENGTH( 'as_api_requests', 'code') IS NULL BEGIN
  1326.     ALTER TABLE as_api_requests
  1327.     ADD [code] nvarchar (64) NULL  
  1328. END
  1329. IF COL_LENGTH( 'as_api_requests', 'title') IS NULL BEGIN
  1330.     ALTER TABLE as_api_requests
  1331.     ADD [title] nvarchar (128) NULL  
  1332. END
  1333. IF COL_LENGTH( 'as_api_requests', 'outputFormat') IS NULL BEGIN
  1334.     ALTER TABLE as_api_requests
  1335.     ADD [outputFormat] nvarchar (16) NULL  
  1336. END
  1337. IF COL_LENGTH( 'as_api_requests', 'method') IS NULL BEGIN
  1338.     ALTER TABLE as_api_requests
  1339.     ADD [method] nvarchar (16) NULL  
  1340. END
  1341.  
  1342. -- Внешние ключи таблицы as_api_requests
  1343. -- ВАЖНО Параметры ключа delete / update ОБРАБАТЫВАЮТСЯ
  1344.  
  1345. go
  1346. print N'Конец функции DBTABLE  as_api_requests-------------------- '
  1347.  
  1348. -- Конец функции DB Table as_api_requests--------------------
  1349.  
  1350. GO
  1351.  
  1352. GO
  1353. declare @itemID2541 int, @err2541 nvarchar(max); set @itemID2541 = null;
  1354. select top 1 @itemID2541 = b.id from as_api_requests as b where lower(b.code) = lower('upd-getcomps') order by b.id;
  1355. begin try
  1356. if @itemID2541 > 0 begin
  1357. update as_api_requests set [code] = 'upd-getcomps'
  1358. ,[title] = 'upd-getcomps'
  1359. ,[outputFormat] = 'json'
  1360. ,[method] = 'get'
  1361.  where id = @itemID2541;
  1362. print N'API Request upd-getcomps обновлен'
  1363.  end else begin
  1364.  insert into as_api_requests ([code], [title],[outputFormat],[method]) VALUES (
  1365. 'upd-getcomps', 'upd-getcomps'
  1366. , 'json'
  1367. , 'get'
  1368. );
  1369. select @itemID2541 = scope_identity();
  1370. print N'API Request upd-getcomps добавлен'
  1371. end;
  1372. end try
  1373. begin catch
  1374. set @err2541 =N'ERROR ############################################## При обновлении\добавлении API Request upd-getcomps возникла ошибка: ' + error_message()
  1375. raiserror( @err2541  , 11, 0)
  1376. end catch
  1377.  
  1378.  
  1379.  
  1380. print  N'НАЧАЛО PROCS api_upd-getcomps_request-------------------- '
  1381. print N'Попытка удаления хранимых процедур'
  1382. declare @name2541 nvarchar(256), @sqlExpec2541 nvarchar(max);
  1383. declare cur2541 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'api_upd-getcomps_request%' AND type in (N'P', N'PC')
  1384. open cur2541 fetch next from cur2541 into @name2541
  1385. while @@FETCH_STATUS = 0 BEGIN
  1386.     begin try
  1387.         set @sqlExpec2541 = 'drop procedure [' + @name2541+']'
  1388.         exec sp_executesql @sqlExpec2541
  1389.         print N'Удалена хранимая процедура ' + @name2541
  1390.     end try
  1391.     begin catch
  1392.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name2541 + ': '+ error_message()
  1393.     end catch
  1394.     fetch next from cur2541 into @name2541
  1395. END
  1396. close cur2541 deallocate cur2541
  1397.  
  1398. begin try
  1399.     exec sp_executesql N'CREATE PROCEDURE [dbo].[api_upd-getcomps_request]
  1400.     @parameters ExtendedDictionaryParameter READONLY,  -- входящие параметры для внутренней обработки (используйте Key, Value2)
  1401.     @username nvarchar(32)  -- текущий пользователь.
  1402. AS
  1403. BEGIN
  1404.     declare @name nvarchar(128) = dbo.as_setting(''falconApiName'', '''')
  1405.     declare @p nvarchar(128) = dbo.as_setting(''falconApiPassword'', '''')
  1406.     -- SELECT 1  Msg, Result, Url (адрес, куда будет идти запрос)
  1407.     select '''' Msg, 1 Result, ''https://falconspace.ru/api/action/upd-getcomps?name=''+@name+''&p=''+ @p Url
  1408.  
  1409.     -- SELECT 2 PARAMETERS - параметры, которые будут передаваться во внешний источник
  1410.     --select ''Auth'' name, ''Token xxxxxx'' value, ''header'' [type] -- form (в форме передается), header (в http headers), get запросы передавайте прямо в URL
  1411. END
  1412.  
  1413.  
  1414. '
  1415.     print N'Добавлена хранимая процедура api_upd-getcomps_request'
  1416. end try
  1417. begin catch
  1418.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры api_upd-getcomps_request: '+ error_message()
  1419. end catch
  1420.  
  1421.  
  1422. go
  1423.  
  1424. print  N'КОНЕЦ PROCS api_upd-getcomps_request--------------------  '
  1425.  
  1426.  
  1427. --КОНЕЦ PROCS api_upd-getcomps_request--------------------
  1428.  
  1429.  
  1430. print  N'НАЧАЛО PROCS api_upd-getcomps_response-------------------- '
  1431. print N'Попытка удаления хранимых процедур'
  1432. declare @name2541 nvarchar(256), @sqlExpec2541 nvarchar(max);
  1433. declare cur2541 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'api_upd-getcomps_response%' AND type in (N'P', N'PC')
  1434. open cur2541 fetch next from cur2541 into @name2541
  1435. while @@FETCH_STATUS = 0 BEGIN
  1436.     begin try
  1437.         set @sqlExpec2541 = 'drop procedure [' + @name2541+']'
  1438.         exec sp_executesql @sqlExpec2541
  1439.         print N'Удалена хранимая процедура ' + @name2541
  1440.     end try
  1441.     begin catch
  1442.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name2541 + ': '+ error_message()
  1443.     end catch
  1444.     fetch next from cur2541 into @name2541
  1445. END
  1446. close cur2541 deallocate cur2541
  1447.  
  1448. begin try
  1449.     exec sp_executesql N'CREATE PROCEDURE [dbo].[api_upd-getcomps_response]
  1450.     @response nvarchar(max),
  1451.     @parameters ExtendedDictionaryParameter READONLY,  -- входящие параметры для внутренней обработки (используйте Key, Value2 - те же что и на request)
  1452.    
  1453.     @username nvarchar(32)
  1454. AS
  1455. BEGIN
  1456.     -- SELECT 1
  1457.     select '''' Msg, 1 Result, @response Response
  1458.  
  1459.     -- SELECT 2 Внешние действия
  1460.  
  1461. END
  1462.  
  1463. '
  1464.     print N'Добавлена хранимая процедура api_upd-getcomps_response'
  1465. end try
  1466. begin catch
  1467.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры api_upd-getcomps_response: '+ error_message()
  1468. end catch
  1469.  
  1470.  
  1471. go
  1472.  
  1473. print  N'КОНЕЦ PROCS api_upd-getcomps_response--------------------  '
  1474.  
  1475.  
  1476. --КОНЕЦ PROCS api_upd-getcomps_response--------------------
  1477. go
  1478. print  N'КОНЕЦ API REQUEST upd-getcomps----------------------------------------------------------------------------------------------------  '
  1479.  
  1480.  
  1481. --КОНЕЦ API REQUEST upd-getcomps----------------------------------------------------------------------------------------------------
  1482.  
  1483. ----------------OTHER apirequest:upd-getversion--------------
  1484. print  N'НАЧАЛО API REQUEST upd-getversion---------------------------------------------------------------------------------------------------- '
  1485. print N'Создание/обновление структуры DB TABLE  as_api_requests-------------------- '
  1486. IF NOT EXISTS (SELECT * FROM sysobjects WHERE name= 'as_api_requests' and xtype='U') BEGIN
  1487.     CREATE TABLE [dbo].[as_api_requests]
  1488.     (
  1489.      [id] [int] IDENTITY(1,1) NOT NULL
  1490.      CONSTRAINT [PK_as_api_requests] PRIMARY KEY CLUSTERED ( [id] ASC )
  1491.     ) ON [PRIMARY]
  1492.     print 'Создана таблица as_api_requests '
  1493. END
  1494. GO
  1495. IF COL_LENGTH( 'as_api_requests', 'code') IS NULL BEGIN
  1496.     ALTER TABLE as_api_requests
  1497.     ADD [code] nvarchar (64) NULL  
  1498. END
  1499. IF COL_LENGTH( 'as_api_requests', 'title') IS NULL BEGIN
  1500.     ALTER TABLE as_api_requests
  1501.     ADD [title] nvarchar (128) NULL  
  1502. END
  1503. IF COL_LENGTH( 'as_api_requests', 'outputFormat') IS NULL BEGIN
  1504.     ALTER TABLE as_api_requests
  1505.     ADD [outputFormat] nvarchar (16) NULL  
  1506. END
  1507. IF COL_LENGTH( 'as_api_requests', 'method') IS NULL BEGIN
  1508.     ALTER TABLE as_api_requests
  1509.     ADD [method] nvarchar (16) NULL  
  1510. END
  1511.  
  1512. -- Внешние ключи таблицы as_api_requests
  1513. -- ВАЖНО Параметры ключа delete / update ОБРАБАТЫВАЮТСЯ
  1514.  
  1515. go
  1516. print N'Конец функции DBTABLE  as_api_requests-------------------- '
  1517.  
  1518. -- Конец функции DB Table as_api_requests--------------------
  1519.  
  1520. GO
  1521.  
  1522. GO
  1523. declare @itemID2301 int, @err2301 nvarchar(max); set @itemID2301 = null;
  1524. select top 1 @itemID2301 = b.id from as_api_requests as b where lower(b.code) = lower('upd-getversion') order by b.id;
  1525. begin try
  1526. if @itemID2301 > 0 begin
  1527. update as_api_requests set [code] = 'upd-getversion'
  1528. ,[title] = 'upd-getversion'
  1529. ,[outputFormat] = 'json'
  1530. ,[method] = 'get'
  1531.  where id = @itemID2301;
  1532. print N'API Request upd-getversion обновлен'
  1533.  end else begin
  1534.  insert into as_api_requests ([code], [title],[outputFormat],[method]) VALUES (
  1535. 'upd-getversion', 'upd-getversion'
  1536. , 'json'
  1537. , 'get'
  1538. );
  1539. select @itemID2301 = scope_identity();
  1540. print N'API Request upd-getversion добавлен'
  1541. end;
  1542. end try
  1543. begin catch
  1544. set @err2301 =N'ERROR ############################################## При обновлении\добавлении API Request upd-getversion возникла ошибка: ' + error_message()
  1545. raiserror( @err2301  , 11, 0)
  1546. end catch
  1547.  
  1548.  
  1549.  
  1550. print  N'НАЧАЛО PROCS api_upd-getversion_request-------------------- '
  1551. print N'Попытка удаления хранимых процедур'
  1552. declare @name2301 nvarchar(256), @sqlExpec2301 nvarchar(max);
  1553. declare cur2301 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'api_upd-getversion_request%' AND type in (N'P', N'PC')
  1554. open cur2301 fetch next from cur2301 into @name2301
  1555. while @@FETCH_STATUS = 0 BEGIN
  1556.     begin try
  1557.         set @sqlExpec2301 = 'drop procedure [' + @name2301+']'
  1558.         exec sp_executesql @sqlExpec2301
  1559.         print N'Удалена хранимая процедура ' + @name2301
  1560.     end try
  1561.     begin catch
  1562.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name2301 + ': '+ error_message()
  1563.     end catch
  1564.     fetch next from cur2301 into @name2301
  1565. END
  1566. close cur2301 deallocate cur2301
  1567.  
  1568. begin try
  1569.     exec sp_executesql N'CREATE PROCEDURE [dbo].[api_upd-getversion_request]
  1570.     @parameters ExtendedDictionaryParameter READONLY,  -- входящие параметры для внутренней обработки (используйте Key, Value2)
  1571.     @username nvarchar(32)  -- текущий пользователь.
  1572. AS
  1573. BEGIN
  1574.     --https://falcon.web-automation.ru/api/action/upd-getversion?comp=manageAPI__1.0.0
  1575.     -- SELECT 1  Msg, Result, Url (адрес, куда будет идти запрос)
  1576.    declare @itemID nvarchar(256) = (select value2 from @parameters where [key]=''itemID'')
  1577.    declare @name nvarchar(128) = dbo.as_setting(''falconApiName'', '''')
  1578.     declare @p nvarchar(128) = dbo.as_setting(''falconApiPassword'', '''')
  1579.    
  1580.     select '''' Msg, 1 Result, ''https://falconspace.ru/api/action/upd-getversion?name=''+@name+''&p=''+@p+''&comp=''+ @itemID Url
  1581.  
  1582.     -- SELECT 2 PARAMETERS - параметры, которые будут передаваться во внешний источник
  1583. --  select ''Auth'' name, ''XXXXX'' value, ''header'' [type] -- form (в форме передается), header (в http headers), get запросы передавайте прямо в URL
  1584. END
  1585.  
  1586.  
  1587. '
  1588.     print N'Добавлена хранимая процедура api_upd-getversion_request'
  1589. end try
  1590. begin catch
  1591.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры api_upd-getversion_request: '+ error_message()
  1592. end catch
  1593.  
  1594.  
  1595. go
  1596.  
  1597. print  N'КОНЕЦ PROCS api_upd-getversion_request--------------------  '
  1598.  
  1599.  
  1600. --КОНЕЦ PROCS api_upd-getversion_request--------------------
  1601.  
  1602.  
  1603. print  N'НАЧАЛО PROCS api_upd-getversion_response-------------------- '
  1604. print N'Попытка удаления хранимых процедур'
  1605. declare @name2301 nvarchar(256), @sqlExpec2301 nvarchar(max);
  1606. declare cur2301 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'api_upd-getversion_response%' AND type in (N'P', N'PC')
  1607. open cur2301 fetch next from cur2301 into @name2301
  1608. while @@FETCH_STATUS = 0 BEGIN
  1609.     begin try
  1610.         set @sqlExpec2301 = 'drop procedure [' + @name2301+']'
  1611.         exec sp_executesql @sqlExpec2301
  1612.         print N'Удалена хранимая процедура ' + @name2301
  1613.     end try
  1614.     begin catch
  1615.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name2301 + ': '+ error_message()
  1616.     end catch
  1617.     fetch next from cur2301 into @name2301
  1618. END
  1619. close cur2301 deallocate cur2301
  1620.  
  1621. begin try
  1622.     exec sp_executesql N'CREATE PROCEDURE [dbo].[api_upd-getversion_response]
  1623.     @response nvarchar(max),
  1624.     @parameters ExtendedDictionaryParameter READONLY,  -- входящие параметры для внутренней обработки (используйте Key, Value2 - те же что и на request)
  1625.    
  1626.     @username nvarchar(32)
  1627. AS
  1628. BEGIN
  1629.     -- SELECT 1
  1630.     select '''' Msg, 1 Result, @response Response
  1631.  
  1632.     -- SELECT 2 Внешние действия
  1633.  
  1634. END
  1635.  
  1636. '
  1637.     print N'Добавлена хранимая процедура api_upd-getversion_response'
  1638. end try
  1639. begin catch
  1640.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры api_upd-getversion_response: '+ error_message()
  1641. end catch
  1642.  
  1643.  
  1644. go
  1645.  
  1646. print  N'КОНЕЦ PROCS api_upd-getversion_response--------------------  '
  1647.  
  1648.  
  1649. --КОНЕЦ PROCS api_upd-getversion_response--------------------
  1650. go
  1651. print  N'КОНЕЦ API REQUEST upd-getversion----------------------------------------------------------------------------------------------------  '
  1652.  
  1653.  
  1654. --КОНЕЦ API REQUEST upd-getversion----------------------------------------------------------------------------------------------------
  1655.  
  1656. ----------------OTHER apirequest:upd-getversions--------------
  1657. print  N'НАЧАЛО API REQUEST upd-getversions---------------------------------------------------------------------------------------------------- '
  1658. print N'Создание/обновление структуры DB TABLE  as_api_requests-------------------- '
  1659. IF NOT EXISTS (SELECT * FROM sysobjects WHERE name= 'as_api_requests' and xtype='U') BEGIN
  1660.     CREATE TABLE [dbo].[as_api_requests]
  1661.     (
  1662.      [id] [int] IDENTITY(1,1) NOT NULL
  1663.      CONSTRAINT [PK_as_api_requests] PRIMARY KEY CLUSTERED ( [id] ASC )
  1664.     ) ON [PRIMARY]
  1665.     print 'Создана таблица as_api_requests '
  1666. END
  1667. GO
  1668. IF COL_LENGTH( 'as_api_requests', 'code') IS NULL BEGIN
  1669.     ALTER TABLE as_api_requests
  1670.     ADD [code] nvarchar (64) NULL  
  1671. END
  1672. IF COL_LENGTH( 'as_api_requests', 'title') IS NULL BEGIN
  1673.     ALTER TABLE as_api_requests
  1674.     ADD [title] nvarchar (128) NULL  
  1675. END
  1676. IF COL_LENGTH( 'as_api_requests', 'outputFormat') IS NULL BEGIN
  1677.     ALTER TABLE as_api_requests
  1678.     ADD [outputFormat] nvarchar (16) NULL  
  1679. END
  1680. IF COL_LENGTH( 'as_api_requests', 'method') IS NULL BEGIN
  1681.     ALTER TABLE as_api_requests
  1682.     ADD [method] nvarchar (16) NULL  
  1683. END
  1684.  
  1685. -- Внешние ключи таблицы as_api_requests
  1686. -- ВАЖНО Параметры ключа delete / update ОБРАБАТЫВАЮТСЯ
  1687.  
  1688. go
  1689. print N'Конец функции DBTABLE  as_api_requests-------------------- '
  1690.  
  1691. -- Конец функции DB Table as_api_requests--------------------
  1692.  
  1693. GO
  1694.  
  1695. GO
  1696. declare @itemID2443 int, @err2443 nvarchar(max); set @itemID2443 = null;
  1697. select top 1 @itemID2443 = b.id from as_api_requests as b where lower(b.code) = lower('upd-getversions') order by b.id;
  1698. begin try
  1699. if @itemID2443 > 0 begin
  1700. update as_api_requests set [code] = 'upd-getversions'
  1701. ,[title] = 'upd-getversions'
  1702. ,[outputFormat] = 'json'
  1703. ,[method] = 'get'
  1704.  where id = @itemID2443;
  1705. print N'API Request upd-getversions обновлен'
  1706.  end else begin
  1707.  insert into as_api_requests ([code], [title],[outputFormat],[method]) VALUES (
  1708. 'upd-getversions', 'upd-getversions'
  1709. , 'json'
  1710. , 'get'
  1711. );
  1712. select @itemID2443 = scope_identity();
  1713. print N'API Request upd-getversions добавлен'
  1714. end;
  1715. end try
  1716. begin catch
  1717. set @err2443 =N'ERROR ############################################## При обновлении\добавлении API Request upd-getversions возникла ошибка: ' + error_message()
  1718. raiserror( @err2443  , 11, 0)
  1719. end catch
  1720.  
  1721.  
  1722.  
  1723. print  N'НАЧАЛО PROCS api_upd-getversions_request-------------------- '
  1724. print N'Попытка удаления хранимых процедур'
  1725. declare @name2443 nvarchar(256), @sqlExpec2443 nvarchar(max);
  1726. declare cur2443 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'api_upd-getversions_request%' AND type in (N'P', N'PC')
  1727. open cur2443 fetch next from cur2443 into @name2443
  1728. while @@FETCH_STATUS = 0 BEGIN
  1729.     begin try
  1730.         set @sqlExpec2443 = 'drop procedure [' + @name2443+']'
  1731.         exec sp_executesql @sqlExpec2443
  1732.         print N'Удалена хранимая процедура ' + @name2443
  1733.     end try
  1734.     begin catch
  1735.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name2443 + ': '+ error_message()
  1736.     end catch
  1737.     fetch next from cur2443 into @name2443
  1738. END
  1739. close cur2443 deallocate cur2443
  1740.  
  1741. begin try
  1742.     exec sp_executesql N'CREATE PROCEDURE [dbo].[api_upd-getversions_request]
  1743.     @parameters ExtendedDictionaryParameter READONLY,  -- входящие параметры для внутренней обработки (используйте Key, Value2)
  1744.     @username nvarchar(32)  -- текущий пользователь.
  1745. AS
  1746. BEGIN
  1747.     declare @comp nvarchar(256) = (select value2 from @parameters where [key]=''itemID'')
  1748.  
  1749.     declare @name nvarchar(128) = dbo.as_setting(''falconApiName'', '''')
  1750.     declare @p nvarchar(128) = dbo.as_setting(''falconApiPassword'', '''')
  1751.     -- SELECT 1  Msg, Result, Url (адрес, куда будет идти запрос)
  1752.     select '''' Msg, 1 Result, ''https://falconspace.ru/api/action/upd-getversions?name=''+@name+''&p=''+ @p + ''&comp=''+ isnull(@comp, '''') Url
  1753. END
  1754.  
  1755.  
  1756. '
  1757.     print N'Добавлена хранимая процедура api_upd-getversions_request'
  1758. end try
  1759. begin catch
  1760.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры api_upd-getversions_request: '+ error_message()
  1761. end catch
  1762.  
  1763.  
  1764. go
  1765.  
  1766. print  N'КОНЕЦ PROCS api_upd-getversions_request--------------------  '
  1767.  
  1768.  
  1769. --КОНЕЦ PROCS api_upd-getversions_request--------------------
  1770.  
  1771.  
  1772. print  N'НАЧАЛО PROCS api_upd-getversions_response-------------------- '
  1773. print N'Попытка удаления хранимых процедур'
  1774. declare @name2443 nvarchar(256), @sqlExpec2443 nvarchar(max);
  1775. declare cur2443 CURSOR LOCAL for select o.name from sys.objects as o where o.name like 'api_upd-getversions_response%' AND type in (N'P', N'PC')
  1776. open cur2443 fetch next from cur2443 into @name2443
  1777. while @@FETCH_STATUS = 0 BEGIN
  1778.     begin try
  1779.         set @sqlExpec2443 = 'drop procedure [' + @name2443+']'
  1780.         exec sp_executesql @sqlExpec2443
  1781.         print N'Удалена хранимая процедура ' + @name2443
  1782.     end try
  1783.     begin catch
  1784.         print N'ERROR ############################################## Ошибка при удалени хранимой процедуры ' + @name2443 + ': '+ error_message()
  1785.     end catch
  1786.     fetch next from cur2443 into @name2443
  1787. END
  1788. close cur2443 deallocate cur2443
  1789.  
  1790. begin try
  1791.     exec sp_executesql N'CREATE PROCEDURE [dbo].[api_upd-getversions_response]
  1792.     @response nvarchar(max),
  1793.     @parameters ExtendedDictionaryParameter READONLY,  -- входящие параметры для внутренней обработки (используйте Key, Value2 - те же что и на request)
  1794.    
  1795.     @username nvarchar(32)
  1796. AS
  1797. BEGIN
  1798.     -- SELECT 1
  1799.     select '''' Msg, 1 Result, @response Response
  1800.  
  1801.     -- SELECT 2 Внешние действия
  1802.  
  1803. END
  1804.  
  1805. '
  1806.     print N'Добавлена хранимая процедура api_upd-getversions_response'
  1807. end try
  1808. begin catch
  1809.     print N'ERROR ############################################## Ошибка при добавлении хранимой процедуры api_upd-getversions_response: '+ error_message()
  1810. end catch
  1811.  
  1812.  
  1813. go
  1814.  
  1815. print  N'КОНЕЦ PROCS api_upd-getversions_response--------------------  '
  1816.  
  1817.  
  1818. --КОНЕЦ PROCS api_upd-getversions_response--------------------
  1819. go
  1820. print  N'КОНЕЦ API REQUEST upd-getversions----------------------------------------------------------------------------------------------------  '
  1821.  
  1822.  
  1823. --КОНЕЦ API REQUEST upd-getversions----------------------------------------------------------------------------------------------------
  1824.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement