AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FNC_GetCounter

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-09-04 18:36:27 -07:00
parent fe9a78c547
commit 44b98fe67b
1 changed files with 35 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
App_Code/ClsContPAQi.vb
View File

@@ -9960,34 +9960,45 @@ Public Class ClsContPAQi
Public Function FNC_GetCounter() As Boolean Public Function FNC_GetCounter() As Boolean
Dim Retorno = False Dim Retorno = False
StrSQL.Clear() 'StrSQL.Clear()
StrSQL.Append(" IF OBJECT_ID ('FNC_GetCounter') IS NOT NULL DROP FUNCTION FNC_GetCounter") 'StrSQL.Append(" IF OBJECT_ID ('FNC_GetCounter') IS NOT NULL DROP FUNCTION FNC_GetCounter")
SqlDataAdapter(StrSQL.ToString, CommandType.Text) 'SqlDataAdapter(StrSQL.ToString, CommandType.Text)
Try 'Try
SqlAdapter.SelectCommand.ExecuteNonQuery() ' SqlAdapter.SelectCommand.ExecuteNonQuery()
Catch ex As Exception 'Catch ex As Exception
Me.OnError("Ocurrió un error al eliminar la funcion FNC_GetCounter", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' Me.OnError("Ocurrió un error al eliminar la funcion FNC_GetCounter", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try 'End Try
StrSQL.Clear() StrSQL.Clear()
StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_GetCounter] ") 'StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_GetCounter] ")
StrSQL.Append(" ( ") 'StrSQL.Append(" ( ")
StrSQL.Append(" @TipoCounter VARCHAR(200) ") 'StrSQL.Append(" @TipoCounter VARCHAR(200) ")
StrSQL.Append(" ) ") 'StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS INT ") 'StrSQL.Append(" RETURNS INT ")
StrSQL.Append(" AS ") 'StrSQL.Append(" AS ")
StrSQL.Append(" BEGIN ") 'StrSQL.Append(" BEGIN ")
StrSQL.Append(" ") 'StrSQL.Append(" ")
StrSQL.Append(" DECLARE @Id INT; ") 'StrSQL.Append(" DECLARE @Id INT; ")
StrSQL.Append(" ") 'StrSQL.Append(" ")
StrSQL.Append(" SELECT @Id = C.Next ") 'StrSQL.Append(" SELECT @Id = C.Next ")
StrSQL.Append(" FROM Counters C ") 'StrSQL.Append(" FROM Counters C ")
StrSQL.Append(" WHERE C.Name = @TipoCounter; ") 'StrSQL.Append(" WHERE C.Name = @TipoCounter; ")
StrSQL.Append(" ") 'StrSQL.Append(" ")
StrSQL.Append(" RETURN @Id; ") 'StrSQL.Append(" RETURN @Id; ")
StrSQL.Append(" END; ") 'StrSQL.Append(" END; ")
StrSQL.AppendLine(" IF NOT EXISTS (SELECT 1 FROM sys.objects WHERE type = 'FN' AND name = 'FNC_GetCounter')")
StrSQL.AppendLine(" BEGIN")
StrSQL.AppendLine(" DECLARE @sql NVARCHAR(MAX);")
StrSQL.AppendLine(" SET @sql = N'CREATE FUNCTION [dbo].[FNC_GetCounter] ")
StrSQL.AppendLine(" (@TipoCounter VARCHAR(200))")
StrSQL.AppendLine(" RETURNS INT AS ")
StrSQL.AppendLine(" BEGIN ")
StrSQL.AppendLine(" DECLARE @Id INT;SELECT @Id = C.Next FROM Counters C WHERE C.Name = @TipoCounter;RETURN @Id; ")
StrSQL.AppendLine(" END;';")
StrSQL.AppendLine(" EXEC sp_executesql @sql;")
StrSQL.AppendLine(" END")