Suggestion Form

----------------FORM suggestion--------------
DECLARE @formID INT, @errFRM nvarchar(MAX), @formDatatypeID INT; SET @formID = NULL;
SELECT top 1 @formID = f.id FROM as_forms AS f WHERE f.code = 'suggestion' ORDER BY f.id;
BEGIN try
IF @formID > 0 BEGIN
UPDATE as_forms SET [code] = 'suggestion'
,[title] = 'Найдена ошибка или есть идея?'
,[subtitle] = ''
,[resultMessage] = 'Сохранено'
,[successURL] = ''
,[makeup] = '{form-title}
{collabel-type}
{colcontrol-type}
{colexample-type}

<label class='as-form-cap '>text</label>
{colcontrol-text}

{colcontrol-data}'
,[hideFormAfterSubmit] = 1,[buttonText] = 'Сохранить'
,[users] = ''
,[roles] = 'all'
 WHERE id = @formID;
print N'Форма suggestion обновлена'
 END; ELSE BEGIN
 INSERT INTO as_forms ([code],[title],[subtitle],[resultMessage],[successURL],[makeup]
,[hideFormAfterSubmit],[buttonText],[users],[roles]) VALUES (
'suggestion', 'Найдена ошибка или есть идея?'
, '', 'Сохранено', ''
, '{form-title}
{collabel-type}
{colcontrol-type}
{colexample-type}

<label class='as-form-cap '>text</label>
{colcontrol-text}

{colcontrol-data}', 1, 'Сохранить'
, ''
, 'all'
);
SELECT @formID = scope_identity();
print N'Форма suggestion добавлена'
END;
END try
BEGIN catch
SET @errFRM = N'ERROR При обновлении\добавлении формы suggestion возникла ошибка:  '+ error_message()
raiserror( @errFRM  , 11, 0)
END catch

BEGIN try
DELETE FROM as_formCols WHERE as_formCols.formID = @formID;
print N'Колонки формы suggestion удалены'
END try
BEGIN catch
SET @errFRM = N'ERROR При удалении колонок формы suggestion возникла ошибка: '+ error_message()
raiserror( @errFRM  , 11, 0)
END catch

BEGIN try
SET @formDatatypeID = NULL;
SELECT @formDatatypeID = d.id FROM as_dataTypes AS d WHERE d.code = 'string';
 INSERT INTO as_formCols ([formID],[code],[title],[placeholder],[tooltip],[ord],[datatypeID]
,[isRequired],[sqlSource],[width],[dependentCols]) VALUES ( @formID,
'type', 'Тип'
, ''
, ''
, 0, @formDatatypeID, 0, ''
, NULL
, NULL
);
print N'Колонка type формы добавлена'
END try
BEGIN catch
SET @errFRM = N'ERROR При добалении колонки type формы возникла ошибка:  '+error_message()
raiserror( @errFRM  , 11, 0)
END catch

BEGIN try
SET @formDatatypeID = NULL;
SELECT @formDatatypeID = d.id FROM as_dataTypes AS d WHERE d.code = 'text';
 INSERT INTO as_formCols ([formID],[code],[title],[placeholder],[tooltip],[ord],[datatypeID]
,[isRequired],[sqlSource],[width],[dependentCols]) VALUES ( @formID,
'text', 'Комментарий'
, 'Если возможно - укажите ссылку на скрин'
, ''
, 0, @formDatatypeID, 0, ''
, NULL
, NULL
);
print N'Колонка text формы добавлена'
END try
BEGIN catch
SET @errFRM = N'ERROR При добалении колонки text формы возникла ошибка:  '+error_message()
raiserror( @errFRM  , 11, 0)
END catch

BEGIN try
SET @formDatatypeID = NULL;
SELECT @formDatatypeID = d.id FROM as_dataTypes AS d WHERE d.code = 'sessionStorage';
 INSERT INTO as_formCols ([formID],[code],[title],[placeholder],[tooltip],[ord],[datatypeID]
,[isRequired],[sqlSource],[width],[dependentCols]) VALUES ( @formID,
'data', 'Данные'
, ''
, ''
, 0, @formDatatypeID, 0, ''
, NULL
, NULL
);
print N'Колонка data формы добавлена'
END try
BEGIN catch
SET @errFRM = N'ERROR При добалении колонки data формы возникла ошибка:  '+error_message()
raiserror( @errFRM  , 11, 0)
END catch



print N'Попытка удаления хранимых процедур'
DECLARE @name nvarchar(256), @sqlExpec nvarchar(MAX);
DECLARE cur CURSOR LOCAL FOR SELECT o.name FROM sys.objects AS o WHERE o.name LIKE 'fm_suggestion[_]%' AND TYPE IN (N'P', N'PC')
OPEN cur fetch NEXT FROM cur INTO @name
while @@FETCH_STATUS = 0 BEGIN
BEGIN try
SET @sqlExpec = 'drop procedure [' + @name+']'
EXEC sp_executesql @sqlExpec
print N'Удалена хранимая процедура ' + @name
END try
BEGIN catch
print N'Ошибка при удалени хранимой процедуры ' + @name + ': '+ error_message()
END catch
fetch NEXT FROM cur INTO @name END
close cur deallocate cur

BEGIN try
EXEC sp_executesql N'CREATE PROCEDURE [dbo].[fm_suggestion_checkItem]
@username nvarchar(256),
@itemID int,
@parameters ExtendedDictionaryParameter READONLY
-- либо перечислить все поля в форме (@fieldcode и т.д.)
AS
BEGIN
    select 1 Result, '''' Msg
END

--ru 16.06.2021 21:02:56
--ru 16.06.2021 21:03:06
'
print N'Добавлена хранимая процедура fm_suggestion_checkItem'
END try
BEGIN catch
print N'ERROR Ошибка при добавлении хранимой процедуры fm_suggestion_checkItem: '+ error_message()
END catch


BEGIN try
EXEC sp_executesql N'CREATE PROCEDURE [dbo].[fm_suggestion_getItem]
@itemID int,
    @username nvarchar(256)

AS
BEGIN
    -- инициализация формы данными. Названия вывода 1 SELECT должны совпадать с элементами формы
    select ''Баг||Предложение||Неточность в контенте||Неудобно'' example_type, ''falconEnvironment'' data
END

--ru 16.06.2021 20:56:29
--ru 16.06.2021 20:57:01
--ru 16.06.2021 21:38:29
'
print N'Добавлена хранимая процедура fm_suggestion_getItem'
END try
BEGIN catch
print N'ERROR Ошибка при добавлении хранимой процедуры fm_suggestion_getItem: '+ error_message()
END catch


BEGIN try
EXEC sp_executesql N'CREATE PROCEDURE [dbo].[fm_suggestion_saveItem]
@username nvarchar(256),
@itemID int,
@parameters ExtendedDictionaryParameter READONLY
-- либо перечислить все поля в форме (@fieldcode и т.д.)
AS
BEGIN
    declare @ptype nvarchar(max)
    select @ptype = Value2 from @parameters where [key]=''type''
    declare @ptext nvarchar(max)
    select @ptext = Value2 from @parameters where [key]=''text''
    declare @pdata nvarchar(max)
    select @pdata = Value2 from @parameters where [key]=''data''

    declare @header nvarchar(max) = isnull(@ptype, '''')

    declare @text nvarchar(max) = isnull(@ptext, '''') + ''<br>-----------<br>'' + isnull(@pdata, '''')
    insert into as_trace(header, text, code, created, username)
values (@header, @text, ''suggestion'', getdate(), @username)


    -- SELECT 1 (Result, Msg, SuccessUrl, HideFormAfterSubmit, RefreshContainer)
    select 1 Result, ''Спасибо, ваше сообщение принято в обработку'' Msg, '''' SuccessUrl, 1 HideFormAfterSubmit, '''' RefreshContainer


    -- SELECT 2 Вызов внешнего действия

    select ''email'' type,
    ''MY_EMAIL'' [to], ''Новое предложение на сайте - '' + @header subject, @text  body   ---EMAIL

END

'
print N'Добавлена хранимая процедура fm_suggestion_saveItem'
END try
BEGIN catch
print N'ERROR Ошибка при добавлении хранимой процедуры fm_suggestion_saveItem: '+ error_message()
END catch


--Конец
GO
--Конец скрипта