Finalizacion del R6(Error Surgido)

 Hoy estuve trabajando durante todo el dia en este requerimiento fueron 4 horas de trabajo, el SP considero que tuvo un nivel mayor a los que hice anteriormente parecido al nivel del SP de login, ademas de que la conexion con el python fue la mas complicada que tuve que realizar. Además de que se presento un problema con respecto a la descripcion de la bitacora de eventos. Esto se ocasionó debido a que la tabla de bitácora el tamaño de descripción tenía un tamaño de VARCHAR(64) y no tenía espacio suficiente porque se tuvo que hacer un ALTER para modificar ese tamaño. 


Material utilizado: SQL - INSERT INTO Statement - W3Schools.com







El SP elaborado fue el siguiente

CREATE PROCEDURE dbo.procInsertarMovimiento
    @inUsername VARCHAR(64)
    ,@inValorDocumentoIdentidad VARCHAR(64)
    ,@inTipoMovimiento VARCHAR(64)
    ,@inMonto MONEY
    ,@inPostInIP VARCHAR(64)
    ,@outResultCode INT OUTPUT
AS
BEGIN
    SET NOCOUNT ON
    DECLARE @IdUsuario INT
    DECLARE @IdEmpleado INT
    DECLARE @NombreEmpleado VARCHAR(64)
    DECLARE @IdTipoMovimiento INT
    DECLARE @IdTipoEvento INT
    DECLARE @DescripcionEvento VARCHAR(256)
    DECLARE @saldoActual MONEY
    DECLARE @saldoNuevo MONEY
    DECLARE @TipoAccion VARCHAR(64)
    SET @outResultCode = 0

    BEGIN TRY

    SELECT @IdUsuario = u.Id -- Selecciona el id del usuario
    FROM dbo.Usuario AS u
    WHERE (u.Username = @inUsername)

    SELECT @IdEmpleado = e.Id -- Selecciona el ID, nombre y saldo actual del empleado
        ,@NombreEmpleado = e.Nombre
        ,@saldoActual = e.SaldoVacaciones
    FROM dbo.Empleado as e
    WHERE (e.ValorDocumentoIdentidad = @inValorDocumentoIdentidad)

    SELECT @IdTipoMovimiento = m.Id -- Selecciona el ID y el tipo de accion del movimiento
        ,@TipoAccion = m.TipoAccion
    FROM dbo.TipoMovimiento as m
    WHERE (m.Nombre = @inTipoMovimiento)

    IF(@TipoAccion = 'Credito') -- Si es credito suma, si es debito resta
    BEGIN
        SET @saldoNuevo = @saldoActual + @inMonto
    END
    ELSE
    BEGIN
        SET @saldoNuevo = @saldoActual - @inMonto
    END
    IF(@saldoNuevo < 0) -- Si el saldoNuevo da negativo salta error
    BEGIN
        SET @outResultCode = 50011
        SET @IdTipoEvento = 13
        SET @DescripcionEvento = 'Monto del movimiento rechazado pues si se aplica, el saldo seria negativo, ' + @inValorDocumentoIdentidad + ', ' + @NombreEmpleado + ', ' + CAST(@saldoActual AS VARCHAR) + ', ' + @inTipoMovimiento + ', ' + CAST(@inMonto AS VARCHAR)
    END
    ELSE
    BEGIN -- Caso exitoso
        SET @outResultCode = 0
        SET @IdTipoEvento = 14
        SET @DescripcionEvento = @inValorDocumentoIdentidad + ', ' + @NombreEmpleado + ', ' + CAST(@saldoNuevo AS VARCHAR) + ', ' + @inTipoMovimiento + ', ' + CAST(@inMonto AS VARCHAR)
    END
        BEGIN TRANSACTION
        IF(@outResultCode = 0) -- Si el caso es exitoso hace el insert a la tabla
        BEGIN
            INSERT INTO dbo.Movimiento(
                IdEmpleado
                ,IdTipoMovimiento
                ,Fecha
                ,Monto
                ,NuevoSaldo
                ,IdPostByUser
                ,PostInIP
                ,PostTime
            )
            Values (
                @IdEmpleado
                ,@IdTipoMovimiento
                ,GETDATE()
                ,@inMonto
                ,@saldoNuevo
                ,@IdUsuario
                ,@inPostInIP
                ,GETDATE()
            )

            UPDATE dbo.Empleado
            SET SaldoVacaciones = @saldoNuevo
            WHERE (Id = @IdEmpleado)

            INSERT INTO dbo.BitacoraEvento(
                IdTipoEvento
                ,Descripcion
                ,IdPostByUser
                ,PostInIP
                ,PostTIME
            )
            Values (
                @IdTipoEvento
                ,@DescripcionEvento
                ,@IdUsuario
                ,@inPostInIP
                ,GETDATE()
            )
        END
        ELSE
        BEGIN -- En caso contrario hace un insert a la bitacora de eventos
            INSERT INTO dbo.BitacoraEvento (
                IdTipoEvento
                ,Descripcion
                ,IdPostByUser
                ,PostInIP
                ,PostTime
                )
            VALUES (
                @IdTipoEvento
                ,@DescripcionEvento
                ,@IdUsuario
                ,@inPostInIP
                ,GETDATE()
                )
        END
        COMMIT TRANSACTION
    END TRY

    BEGIN CATCH
        INSERT INTO dbo.DBError(
             UserName
            ,Number
            ,State
            ,Severity
            ,Line
            ,[Procedure]
            ,Message
            ,DateTime
        )
        VALUES(
             @inUsername
            ,ERROR_NUMBER()
            ,ERROR_STATE()
            ,ERROR_SEVERITY()
            ,ERROR_LINE()
            ,ERROR_PROCEDURE()
            ,ERROR_MESSAGE()
            ,GETDATE()
        )
        SET @outResultCode = 50008;
    END CATCH
END;


Comments

Post a Comment

Popular posts from this blog

Modificacion del ingreso de datos y finaiizacion de documentacion

El día de hoy se trabajó en el trabajo escrito y la modificación de la carga de datos, agregando un proceso iterativo en la inserción de movimientos de empleados, se utilizó una tabla variable para crear esta función. Además, se terminó la documentación. El trabajo fue de 2 horas. -- 7. Movimiento  DECLARE @TempMov TABLE (    -- Se usa tabla variable para recorrer los movimientos uno por uno     Fila INT IDENTITY(1,1)     ,ValorDocId VARCHAR(64)     ,TipoMov VARCHAR(64)     ,Fecha DATE     ,Monto MONEY     ,PostByUser VARCHAR(64)     ,PostInIP VARCHAR(64)     ,PostTime DATETIME ) -- Carga los movimientos del XML ordenados por fecha ascendente INSERT INTO @TempMov (ValorDocId, TipoMov, Fecha, Monto, PostByUser, PostInIP, PostTime) SELECT     x.value('@ValorDocId', 'VARCHAR(64)')     ,x.value('@TipoMov',   'VARCHAR(64)')     ,x.value('@Fecha',   ...
Read more

Avance en el R3 Insertar empleado

Image
Horas trabajadas: 3 aprox  Se hizo el apartado del frontend con el archivo insertar_empleado.html También se trabajó en el apartado del SP InsertarEmpleado, por ahora solo llevo las entradas y salidas, las verificaciones con sus respectivas modificaciones del @outResultCode dependiendo del tipo de error que se encuentre dentro del xml del documento. Aún queda la parte de BEGIN TRANSACTION y los CATCH He usado como referencia este video: https://youtu.be/QpHNUVbB9JA?si=Y0bCHNfjPq7SFkos CREATE PROCEDURE dbo . procInsertarEmpleado      @inValorDocumentoIdentidad VARCHAR ( 64 )     ,@inNombre VARCHAR ( 64 )     ,@inIdPuesto INT     ,@outResultCode INT OUTPUT AS BEGIN     SET NOCOUNT ON     DECLARE @ValorID VARCHAR ( 64 )     DECLARE @Nombre VARCHAR ( 64 )     SET @outResultCode = 0     BEGIN TRY         SELECT @ValorID = e . ValorDocumentoIdentidad  ...
Read more

SP insertar empleado terminado

Hoy terminé el SP de insertar empleado con ajustes para que cumplan con el R7 y R8, además de los TRANSACTION y del CATCH pendiente. Aproximadamente me tardé unas 3 horas CREATE PROCEDURE dbo . procInsertarEmpleado      @inValorDocumentoIdentidad VARCHAR ( 64 )     ,@inNombre VARCHAR ( 64 )     ,@inIdPuesto INT     ,@outResultCode INT OUTPUT     ,@inUsername VARCHAR ( 64 ) -- Username del usuario que intenta hacer la inserción     ,@inPostInIP VARCHAR ( 64 ) -- IP del usuario que intenta hacer la inserción AS BEGIN     SET NOCOUNT ON     DECLARE @IdUsuario INT     DECLARE @ValorID VARCHAR ( 64 )     DECLARE @Nombre VARCHAR ( 64 )     DECLARE @NombrePuesto VARCHAR ( 64 )     DECLARE @DescError VARCHAR ( 256 )     SET @outResultCode = 0     BEGIN TRY         -- Verifica que TODOS los caracteres sean numéricos ...
Read more