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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-09-04 18:47:18 -07:00
parent 3094994c5f
commit d7b4e0cdb1
1 changed files with 16 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
App_Code/ClsContPAQi.vb
View File

@@ -9972,33 +9972,22 @@ Public Class ClsContPAQi
StrSQL.Clear()
'StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_GetCounter] ")
'StrSQL.Append(" ( ")
'StrSQL.Append(" @TipoCounter VARCHAR(200) ")
'StrSQL.Append(" ) ")
'StrSQL.Append(" RETURNS INT ")
'StrSQL.Append(" AS ")
'StrSQL.Append(" BEGIN ")
'StrSQL.Append(" ")
'StrSQL.Append(" DECLARE @Id INT; ")
'StrSQL.Append(" ")
'StrSQL.Append(" SELECT @Id = C.Next ")
'StrSQL.Append(" FROM Counters C ")
'StrSQL.Append(" WHERE C.Name = @TipoCounter; ")
'StrSQL.Append(" ")
'StrSQL.Append(" RETURN @Id; ")
'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")
StrSQL.Append(" CREATE OR ALTER FUNCTION [dbo].[FNC_GetCounter] ")
StrSQL.Append(" ( ")
StrSQL.Append(" @TipoCounter VARCHAR(200) ")
StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS INT ")
StrSQL.Append(" AS ")
StrSQL.Append(" BEGIN ")
StrSQL.Append(" ")
StrSQL.Append(" DECLARE @Id INT; ")
StrSQL.Append(" ")
StrSQL.Append(" SELECT @Id = C.Next ")
StrSQL.Append(" FROM Counters C ")
StrSQL.Append(" WHERE C.Name = @TipoCounter; ")
StrSQL.Append(" ")
StrSQL.Append(" RETURN @Id; ")
StrSQL.Append(" END; ")