Base De Datos

Fn_Sgte_Consecutivo

CREATE FUNCTION Fn_Sgte_Consecutivo
( @Tabla varchar(15) )
RETURNS int
AS
BEGIN
DECLARE @Consecutivo int

IF @Tabla = 'Juzgados'
SELECT @Consecutivo = ( SELECT MAX(Id_Juzgado ) + 1 FROM Juzgados )
ELSE
SELECT @Consecutivo = ( SELECT MAX( Consecutivo ) + 1 FROM Notificaciones )

IF @Consecutivo IS NULL
SET @Consecutivo = 1

RETURN @ConsecutivoEND



pa_JuzgadosInsert

CREATE PROCEDURE pa_JuzgadosInsert
-- Parametros
@Nomb_Juzgado varchar(100)

AS
BEGIN
SET NOCOUNT ON;

DECLARE
@Id_Juzgado smallint

BEGIN TRANSACTIONSET @Id_Juzgado = dbo.Fn_Sgte_Consecutivo('Juzgados')
INSERT Juzgados VALUES( @Id_Juzgado , @Nomb_Juzgado )
IF @@ERROR = 0
COMMIT TRANSACTION
ELSE
BEGIN
SET @Id_Juzgado = -1 -- paraindicar que SI hubo errores
ROLLBACK TRANSACTION
END

SELECT @Id_Juzgado
END



pa_ExpedientesInsert

CREATE PROCEDURE pa_ExpedientesInsert
-- Parametros
@Expediente varchar(20) ,@Id_Juzgado smallint ,
@Partes_Involucradas varchar(100)

AS
BEGIN
SET NOCOUNT ON;

BEGIN TRANSACTION
INSERT Expedientes VALUES( @Expediente , @Id_Juzgado , @Partes_Involucradas , 0 , 0 )IF @@ERROR = 0
COMMIT TRANSACTION
ELSE
ROLLBACK TRANSACTION
END


pa_NotificacionesInsert

CREATE PROCEDURE pa_NotificacionesInsert
-- Parametros
@Expediente varchar(20) ,@Resolucion varchar(20)

AS
BEGIN
SET NOCOUNT ON;
DECLARE
@Consecutivo int ,
@Fecha_Ingreso smalldatatime ,
@Errores int

BEGIN TRANSACTION
SET @Errores = 0
SET@Consecutivo = dbo.Fn_Sgte_Consecutivo('Notificaciones')
IF @Consecutivo IS NULL
SET @Consecutivo = 1
SET @Fecha_Ingreso = ( SELECT GETDATE() )
INSERT Notificaciones VALUES(@Consecutivo , @Expediente , @Fecha_Ingreso , @Resolucion )
IF @@ERROR 0
SET @Errores = 1
UPDATE Expedientes SET Cant_Notificaciones = Cant_Notificaciones + 1
WHERE Expediente...