Entrada Final

Se logró crear la base de datos en base al modelo conceptual realizado en clase, sin embargo este tuvo que ser modificado para mejorar el modelo (ver Modelo Fisico). Se lograron crear los Stored Procedures necesarios para la manipulación y el mantenimiento de la base de datos.

También se logró cargar correctamente los datos del XML provisto a la base de datos con la respectiva simulación de los datos y realizar pruebas sobre estos datos.

En cuanto a la capa lógica (sitio web), debido a que se tuvieron muchos problemas con la simulación, no se tuvo tiempo suficiente para debugear las consultas, por lo que esto está programada una idea, sin embargo no arroja los datos correctos. Lo mismo sucede con la capa lógica. La simulación consumió el tiempo de trabajo y no permitió probar y debuggear la capa lógica, por lo que esta solo enseña los datos y no logra actualizarlos ni crearlos.

Modelo Fisico

Tiempo total aproximado: 17 horas

Fecha Inicial : .19/06/2018 
Fecha Final :  .19/06/2018
Hora Inicio: . 2:25 PM
Hora Final: . 3:35 PM
Horas invertidas(Minutos): 70 minutos 
Colaboradores: José David Rodríguez , Wilson Lopez
Tipo de labor: Compartido


Actividad: Consultas y modificación de tablas Operación y MovimientoAcciones.
Se realizaron cambios en las tabla Operación y MovimientoAcciones. Los cambios que se realizaron fue que había un FK_Movimiento en la tabla Operacion. Ese campo se eliminó y en lugar de ese campo, se puso en MovimientoAcciones un campo FK_Operacion (ver Tabla MovimientoAcciones y Tabla Operacion).
Al realizar estos cambios en las tablas, deben modificarse las consultas 1 y 3. (Ver Consulta 1, Consulta 3)

Imágenes:

Tabla MovimientoAcciones

Tabla Operacion

Consulta 1

Consulta 3

Apéndice:

• Codigo Tablas modificadas

CREATE TABLE Operacion(

     ID INT PRIMARY KEY identity(1,1),

FK_TipoOperacion INT NOT NULL FOREIGN KEY REFERENCES TipoOperacion(ID),

     FK_Agente INT NOT NULL FOREIGN KEY REFERENCES Agente(ID),

     FK_ClienteCompra INT NOT NULL FOREIGN KEY REFERENCES Cliente(ID),

     FK_ClienteVenta INT NOT NULL FOREIGN KEY REFERENCES Cliente(ID),

Fecha DATE NOT NULL,

     QAcciones INT NOT NULL,

Total int not null,

Comision int not null,

GananciaVendedor int not null default 0,

     Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

create table MovimientoAcciones(

ID INT PRIMARY KEY identity(1,1),

FK_ClienteEmisor int not null foreign key references ClienteXEmisor(ID),

    FK_Accion int not null foreign key references Accion(ID),

    FK_Operacion int not null foreign key references Operacion(ID),

Cantidad int not null default 0,

Precio money not null default 0

)

• Version 1.2 - Consultas - Consulta 1

CREATE PROCEDURE Consulta_1

@emisorDocID int,

@fechaInicio date,

@fechaFin date

AS

BEGIN

IF EXISTS (SELECT * FROM Emisor E, Operacion OP WHERE DocID = @emisorDocID and Op.Fecha>=@fechaInicio and Op.Fecha <= @fechaFin)

BEGIN 

SELECT E.Nombre, A.ID, A.PrecioActual,AVG(MA.Precio),COUNT(MA.ID) 

FROM Accion A INNER JOIN MovimientoAcciones MA 

ON A.ID = MA.FK_Accion INNER JOIN Operacion Op 

ON Op.ID = MA.FK_Operacion and A.ID = MA.FK_Accion and Op.Fecha>=@fechaInicio and Op.Fecha <= @fechaFin  INNER JOIN Emisor E

ON E.DocID = @emisorDocID and A.FK_Emisor = E.ID

GROUP BY E.Nombre, A.ID, A.PrecioActual

ORDER BY A.PrecioActual

END

ELSE

BEGIN

RETURN -50001 --Alguno de los parámetros no está registrado en la base de datos

END

END

GO

• Versión 3.1 - Consultas - Consulta 3

CREATE PROCEDURE Consulta_3

@fechaInicio date,

@fechaFin date

AS

BEGIN

IF EXISTS (SELECT * FROM Operacion WHERE Fecha>=@fechaInicio and Fecha <= @fechaFin)

BEGIN

SELECT A.NombreEmpresa,A.Codigo,SUM(Op.GananciaVendedor) AS Ganancia

FROM Accion A

INNER JOIN MovimientoAcciones MA ON A.ID = MA.FK_Accion 

INNER JOIN Operacion Op ON OP.ID = MA.FK_Operacion and OP.Fecha>=@fechaInicio and Op.Fecha <= @fechaFin

GROUP BY A.NombreEmpresa,A.Codigo

ORDER BY Ganancia DESC

END

END

GO

Fuente:

 Conocimiento adquirido

Fecha Inicial : .20/06/2018 
Fecha Final :  .20/06/2018
Hora Inicio: . 1:00 PM
Hora Final: . 2:20 PM 
Horas invertidas(Minutos): 80 minutos
Colaboradores: José David Rodríguez , Óscar Cortés
Tipo de labor: Compartido


Actividad: CRUD
Se tiene un programa en Python que se encarga de generar los crud para las tablas(ver Imagen Python). Este programa recibe como parámetro el script de las tablas. El resultado es el script con los crud (ver Imagen Resultado). Luego, estas tablas necesitan retoques para acomodarlas bien para por último obtener los crud finales (ver Imagen Final).


Imágenes:

Imagen Python

Imagen Resultado

Imagen Final

Apéndice:

• Programa en Python

def fix_xml(pXml):

    respXML = ""

    i = 0

    

    while (i < len(pXml)):

        if pXml[i:i+2] == "ID":

            respXML += pXml[i:i+4] 

            n = ""

            i += 4

            while (pXml[i] != '"'):

                n += pXml[i]

                i+=1

            respXML += str( int(n) + 1) + '"'

        else:

            respXML += pXml[i]

            

        i+=1

    print(respXML)

def createHardcoreCRUDE(script):

    """Crea cuatro funciones por cada tabla, además

    de agregar a la tabla 'eventos' los cambios de cada tabla."""

    print("Hello world")

    

    tempo = ""

    jump = False

    for i in range(len(script)-1):

        if (script[i] != "\t"):

            tempo += script[i]

    

    tablas = []

    tabla = None

    

    for t in tempo.split("\n"):

        if len(t) == 0:

            continue

        

        if (t[-1] == "("):

            tabla = Tabla(t.split(" ")[2][:-1])

            tablas.append(tabla)

            

        elif (t[0] != ")" and tabla != None):

            tt = t.split(" ")

            tabla.agregarDato(tt[0], tt[1])

    for t in tablas:

        print("-- Tabla: " + t.nombre)

        t.CRUD_Create()

        print("\n\n")

        t.CRUD_Read()

        t.CRUD_Update()

        print("--" + "#" *32,"--\n\n\n")

class Tabla:

    nombre = ""

    columnas = []

    tipos = []

    parametros = []

    def __init__(self, pNombre):

        self.nombre = pNombre

        self.columnas = []

        self.tipos = []

        self.parametros = []

    def agregarDato(self, pNombre, pTipo):

        self.columnas.append(pNombre)

        intial = pNombre[0].upper()

        self.parametros.append("@p" + intial + pNombre[1:])

        self.tipos.append(pTipo)

    def toString(self):

        print(self.nombre)

        print(self.columnas)

        print(self.tipos)

        print(self.parametros)

    def toCRUD(self):

        self.CRUD_Create()

        self.CRUD_Delete()

        self.CRUD_Read()

        self.CRUD_Update()

        

        pass

    

    def CRUD_Create(self):

        #Create

        print("Create Procedure SPC_"+self.nombre)

        for i in range(1, len(self.parametros) - 1):

            if (i == len(self.parametros) - 2):

                print("\t"+self.parametros[i] + " " + self.tipos[i])

            else:

                print("\t"+self.parametros[i] + " " + self.tipos[i] + ", ")

        print("""as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from """+ self.nombre + """ for XML auto, type)

    """)

        

        insertTable = "\tinsert into " + self.nombre + "("

        for i in range(1, len(self.parametros) - 1):

            insertTable += self.columnas[i] + ", "

        insertTable = insertTable[:-2] + ")"

        print(insertTable)

        values = "\t\tvalues ("

        

        for i in range(1, len(self.parametros) - 1):

            values += self.parametros[i] + ", "

        values = values[:-2] + ")"

        print(values)

        print("\n\tdeclare @XmlDespues XML = (select * from " + self.nombre + " for XML auto, type)")

        print("\n\texec SPC_EventoMantenimiento """ + self.nombre + ", 'insertar', null, @XmlAntes, @XmlDespues ")

        print("\tcommit\n\nend try")

        print("""

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

""")

    def CRUD_Delete(self):

        #Delete

        print("Create Procedure SPD_"+self.nombre)

        print("\t@pID int")

        print("""as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from """+ self.nombre + """ for XML auto, type)

    """)

        

        print("\tUpdate  " + self.nombre)

        print("\tSet Visible = 'n'")

        print("\tWhere @pId = ID")

        

        print("\n\tdeclare @XmlDespues XML = (select * from " + self.nombre + " for XML auto, type)")

        print("""

        exec SPC_EventoMantenimiento """ + self.nombre + """, 'borrado', null, @XmlAntes, @XmlDespues 

        """)

        print("\tcommit\nend try")

        print("""

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

""")

    def CRUD_Update(self):

        

        #Update

        print("Create Procedure SPU_"+self.nombre)

        print("\t@pID int,")

        for i in range(1, len(self.parametros) - 1):

            if (i == len(self.parametros) - 2):

                print("\t"+self.parametros[i] + " " + self.tipos[i] + " = null")

            else:

                print("\t"+self.parametros[i] + " " + self.tipos[i] + " = null, ")

        print("""as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from """+ self.nombre + """ for XML auto, type)

    """)

        

        print("\tUpdate  " + self.nombre)

        

        updates = "\tSet "

        for i in range(1, len(self.parametros) - 1):

            updates += self.columnas[i] + " = isNull(" + self.parametros[i] + ", " + self.columnas[i] + "), "

        print(updates[:-2])

        print("\tWhere @pId = ID")

        

        print("\n\tdeclare @XmlDespues XML = (select * from " + self.nombre + " for XML auto, type)")

        print("""

        exec SPC_EventoMantenimiento """ + self.nombre + """, 'actualizacion', null, @XmlAntes, @XmlDespues 

        """)

        print("\tcommit\nend try")

        print("""

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

""")

    def CRUD_Read(self):

        

        #Read

        print("Alter Procedure SPR_"+self.nombre)

        print("\t@pID int = null,")

        for i in range(1, len(self.parametros) - 1):

            if (i == len(self.parametros) - 2):

                print("\t"+self.parametros[i] + " " + self.tipos[i] + " = null")

            else:

                print("\t"+self.parametros[i] + " " + self.tipos[i] + " = null, ")

        print("""as

begin

begin try

    begin tran

    """)

        

        print ("Select *")

        #for i in range(1, len(self.parametros) - 1):

        #    select += self.columnas[i] + ", "

        #print(select[:-2])

        print("From " + self.nombre)

        where = "\tWhere ID = isnull(@pID, ID) "

        for i in range(1, len(self.parametros) - 1):

            where += " and " + self.columnas[i] + " = isNull(" + self.parametros[i] + ", " + self.columnas[i] + ")"

            

        where += " and Visible = 'y'"

        print(where)

        

        print("\tcommit\nend try")

        print("""

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

""")

        

createHardcoreCRUDE("""

CREATE TABLE TipoCliente(

ID INT PRIMARY KEY identity(1,1),

Descripcion varchar(30) NOT NULL,

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

CREATE TABLE Cliente(

ID INT PRIMARY KEY identity(1,1),

Nombre varchar(30) NOT NULL,

DocID INT NOT NULL,

FK_Tipo_Cliente INT NOT NULL FOREIGN KEY REFERENCES TipoCliente(ID),

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

CREATE TABLE Emisor(

ID INT PRIMARY KEY identity(1,1),

DocID INT NOT NULL,

Nombre varchar(30) NOT NULL,

QAcciones INT NOT NULL,

PrecioInicial MONEY NOT NULL,

Variacion INT NOT NULL,

Comision INT NOT NULL,

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

CREATE TABLE ClienteDeEmpresa(

ID INT PRIMARY KEY identity(1,1),

FK_Emisor int not null foreign key references Emisor(ID),

FK_Cliente int not null foreign key references Cliente(ID)

)

CREATE TABLE ClienteXEmisor(

ID INT PRIMARY KEY identity(1,1),

FK_Emisor int not null foreign key references Emisor(ID),

FK_Cliente int not null foreign key references Cliente(ID),

QAcciones int not null

)

CREATE TABLE Accion(

ID INT PRIMARY KEY identity(1,1),

FK_Emisor INT not null foreign key references Emisor(ID),

NombreEmpresa VARCHAR(30) NOT NULL,

Codigo INT NOT NULL,

PrecioActual MONEY NOT NULL,

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

create table MovimientoAcciones(

ID INT PRIMARY KEY identity(1,1),

FK_ClienteEmisor int not null foreign key references ClienteXEmisor(ID),

FK_Accion int not null foreign key references Accion(ID),

Cantidad int not null default 0,

Precio money not null default 0

)

CREATE TABLE Agente(

ID INT PRIMARY KEY identity(1,1),

Nombre varchar(30) NOT NULL,

Saldo INT NOT NULL,

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

CREATE TABLE TipoOperacion(

ID INT PRIMARY KEY identity(1,1),

Descripcion varchar(30) NOT NULL,

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

CREATE TABLE Operacion(

ID INT PRIMARY KEY identity(1,1),

FK_TipoOperacion INT NOT NULL FOREIGN KEY REFERENCES TipoOperacion(ID),

FK_Agente INT NOT NULL FOREIGN KEY REFERENCES Agente(ID),

FK_ClienteCompra INT NOT NULL FOREIGN KEY REFERENCES Cliente(ID),

FK_ClienteVenta INT NOT NULL FOREIGN KEY REFERENCES Cliente(ID),

FK_Movimiento int not null foreign key references MovimientoAcciones(ID),

Fecha DATE NOT NULL,

QAcciones INT NOT NULL,

Total int not null,

Comision int not null,

GananciaVendedor int not null default 0,

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

CREATE TABLE TipoMovimiento(

ID INT PRIMARY KEY identity(1,1),

Descripcion varchar(30) NOT NULL,

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

CREATE TABLE MovimientoComision(

ID INT PRIMARY KEY identity(1,1),

FK_Agente INT NOT NULL FOREIGN KEY REFERENCES Agente(ID),

FK_Tipo_Movimiento INT NOT NULL FOREIGN KEY REFERENCES TipoMovimiento(ID),

FK_Operacion INT NOT NULL FOREIGN KEY REFERENCES Operacion(ID),

Fecha DATE NOT NULL,

Monto MONEY NOT NULL,

Visible CHAR NOT NULL default 'y', CHECK (Visible = 'y' OR Visible = 'n')

)

CREATE TABLE EventoMantenimiento(

ID INT identity(1,1) primary key,

Tabla NVARCHAR(50) NOT NULL,

Antes XML NOT NULL,

Despues XML NOT NULL,

Fecha DATE NOT NULL default (getDate())

)

""")

• Código de los CRUD

Create procedure [dbo].[SPC_EventoMantenimiento]

  @pTabla nvarchar(50),

  @pEvento nvarchar(50),

  @pFecha datetime = null,

  @pAntes XML,

  @pDespues XML

as

begin

begin tran

  insert into EventoMantenimiento (Tabla, Evento, Fecha, Antes, Despues)

  values (@pTabla, @pEvento, isnull(@pFecha, GETDATE()), @pAntes, @pDespues)

commit

end

-- Tabla: TipoCliente

Create Procedure SPU_TipoCliente

@pID int,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoCliente for XML auto, type)

    

Update  TipoCliente

Set Descripcion = isNull(@pDescripcion, Descripcion)

Where @pId = ID

declare @XmlDespues XML = (select * from TipoCliente for XML auto, type)

        exec SPC_EventoMantenimiento TipoCliente, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

-- Tabla: Cliente

Create Procedure SPU_Cliente

@pID int,

@pNombre varchar(30) = null, 

@pDocID INT = null, 

@pFK_Tipo_Cliente INT = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Cliente for XML auto, type)

    

Update  Cliente

Set Nombre = isNull(@pNombre, Nombre), DocID = isNull(@pDocID, DocID), FK_Tipo_Cliente = isNull(@pFK_Tipo_Cliente, FK_Tipo_Cliente)

Where @pId = ID

declare @XmlDespues XML = (select * from Cliente for XML auto, type)

        exec SPC_EventoMantenimiento Cliente, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Emisor

Create Procedure SPU_Emisor

@pID int,

@pDocID INT = null, 

@pNombre varchar(30) = null, 

@pQAcciones INT = null, 

@pPrecioInicial MONEY = null, 

@pVariacion INT = null, 

@pComision INT = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Emisor for XML auto, type)

    

Update  Emisor

Set DocID = isNull(@pDocID, DocID), Nombre = isNull(@pNombre, Nombre), QAcciones = isNull(@pQAcciones, QAcciones), PrecioInicial = isNull(@pPrecioInicial, PrecioInicial), Variacion = isNull(@pVariacion, Variacion), Comision = isNull(@pComision, Comision)

Where @pId = ID

declare @XmlDespues XML = (select * from Emisor for XML auto, type)

        exec SPC_EventoMantenimiento Emisor, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: ClienteDeEmpresa

Create Procedure SPU_ClienteDeEmpresa

@pID int,

@pFK_Emisor int = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from ClienteDeEmpresa for XML auto, type)

    

Update  ClienteDeEmpresa

Set FK_Emisor = isNull(@pFK_Emisor, FK_Emisor)

Where @pId = ID

declare @XmlDespues XML = (select * from ClienteDeEmpresa for XML auto, type)

        exec SPC_EventoMantenimiento ClienteDeEmpresa, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: ClienteXEmisor

Create Procedure SPU_ClienteXEmisor

@pID int,

@pFK_Emisor int = null, 

@pFK_Cliente int = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from ClienteXEmisor for XML auto, type)

    

Update  ClienteXEmisor

Set FK_Emisor = isNull(@pFK_Emisor, FK_Emisor), FK_Cliente = isNull(@pFK_Cliente, FK_Cliente)

Where @pId = ID

declare @XmlDespues XML = (select * from ClienteXEmisor for XML auto, type)

        exec SPC_EventoMantenimiento ClienteXEmisor, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Accion

Create Procedure SPU_Accion

@pID int,

@pFK_Emisor INT = null, 

@pNombreEmpresa VARCHAR(30) = null, 

@pCodigo INT = null, 

@pPrecioActual MONEY = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Accion for XML auto, type)

    

Update  Accion

Set FK_Emisor = isNull(@pFK_Emisor, FK_Emisor), NombreEmpresa = isNull(@pNombreEmpresa, NombreEmpresa), Codigo = isNull(@pCodigo, Codigo), PrecioActual = isNull(@pPrecioActual, PrecioActual)

Where @pId = ID

declare @XmlDespues XML = (select * from Accion for XML auto, type)

        exec SPC_EventoMantenimiento Accion, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: MovimientoAcciones

Alter Procedure SPU_MovimientoAcciones

@pID int,

@pFK_ClienteEmisor int = null, 

@pFK_Accion int = null, 

@pFK_Operacion int = null, 

@pCantidad int = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from MovimientoAcciones for XML auto, type)

    

Update  MovimientoAcciones

Set FK_ClienteEmisor = isNull(@pFK_ClienteEmisor, FK_ClienteEmisor), FK_Accion = isNull(@pFK_Accion, FK_Accion),FK_Operacion = isNull(@pFK_Accion, FK_Accion), Cantidad = isNull(@pCantidad, Cantidad)

Where @pId = ID

declare @XmlDespues XML = (select * from MovimientoAcciones for XML auto, type)

        exec SPC_EventoMantenimiento MovimientoAcciones, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Agente

Create Procedure SPU_Agente

@pID int,

@pNombre varchar(30) = null, 

@pSaldo INT = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Agente for XML auto, type)

    

Update  Agente

Set Nombre = isNull(@pNombre, Nombre), Saldo = isNull(@pSaldo, Saldo)

Where @pId = ID

declare @XmlDespues XML = (select * from Agente for XML auto, type)

        exec SPC_EventoMantenimiento Agente, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: TipoOperacion

Create Procedure SPU_TipoOperacion

@pID int,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoOperacion for XML auto, type)

    

Update  TipoOperacion

Set Descripcion = isNull(@pDescripcion, Descripcion)

Where @pId = ID

declare @XmlDespues XML = (select * from TipoOperacion for XML auto, type)

        exec SPC_EventoMantenimiento TipoOperacion, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Operacion

Alter Procedure SPU_Operacion

@pID int,

@pFK_TipoOperacion INT = null, 

@pFK_Agente INT = null, 

@pFK_ClienteCompra INT = null, 

@pFK_ClienteVenta INT = null, 

@pFecha DATE = null, 

@pQAcciones INT = null, 

@pTotal int = null, 

@pComision int = null, 

@pGananciaVendedor int = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Operacion for XML auto, type)

    

Update  Operacion

Set FK_TipoOperacion = isNull(@pFK_TipoOperacion, FK_TipoOperacion), FK_Agente = isNull(@pFK_Agente, FK_Agente), FK_ClienteCompra = isNull(@pFK_ClienteCompra, FK_ClienteCompra), FK_ClienteVenta = isNull(@pFK_ClienteVenta, FK_ClienteVenta), Fecha = isNull(@pFecha, Fecha), QAcciones = isNull(@pQAcciones, QAcciones), Total = isNull(@pTotal, Total), Comision = isNull(@pComision, Comision), GananciaVendedor = isNull(@pGananciaVendedor, GananciaVendedor)

Where @pId = ID

declare @XmlDespues XML = (select * from Operacion for XML auto, type)

        exec SPC_EventoMantenimiento Operacion, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: TipoMovimiento

Create Procedure SPU_TipoMovimiento

@pID int,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoMovimiento for XML auto, type)

    

Update  TipoMovimiento

Set Descripcion = isNull(@pDescripcion, Descripcion)

Where @pId = ID

declare @XmlDespues XML = (select * from TipoMovimiento for XML auto, type)

        exec SPC_EventoMantenimiento TipoMovimiento, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: MovimientoComision

Create Procedure SPU_MovimientoComision

@pID int,

@pFK_Agente INT = null, 

@pFK_Tipo_Movimiento INT = null, 

@pFK_Operacion INT = null, 

@pFecha DATE = null, 

@pMonto MONEY = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from MovimientoComision for XML auto, type)

    

Update  MovimientoComision

Set FK_Agente = isNull(@pFK_Agente, FK_Agente), FK_Tipo_Movimiento = isNull(@pFK_Tipo_Movimiento, FK_Tipo_Movimiento), FK_Operacion = isNull(@pFK_Operacion, FK_Operacion), Fecha = isNull(@pFecha, Fecha), Monto = isNull(@pMonto, Monto)

Where @pId = ID

declare @XmlDespues XML = (select * from MovimientoComision for XML auto, type)

        exec SPC_EventoMantenimiento MovimientoComision, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: EventoMantenimiento

Create Procedure SPU_EventoMantenimiento

@pID int,

@pTabla NVARCHAR(50) = null, 

@pAntes XML = null, 

@pDespues XML = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from EventoMantenimiento for XML auto, type)

    

Update  EventoMantenimiento

Set Tabla = isNull(@pTabla, Tabla), Antes = isNull(@pAntes, Antes), Despues = isNull(@pDespues, Despues)

Where @pId = ID

declare @XmlDespues XML = (select * from EventoMantenimiento for XML auto, type)

        exec SPC_EventoMantenimiento EventoMantenimiento, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

>>> 

-- Tabla: TipoCliente

Create Procedure SPC_TipoCliente

@pDescripcion varchar(30)

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoCliente for XML auto, type)

    

insert into TipoCliente(Descripcion)

values (@pDescripcion)

declare @XmlDespues XML = (select * from TipoCliente for XML auto, type)

exec SPC_EventoMantenimiento TipoCliente, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_TipoCliente

@pID int = null,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    

Select *

From TipoCliente

Where ID = isnull(@pID, ID)  and Descripcion = isNull(@pDescripcion, Descripcion) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_TipoCliente

@pID int,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoCliente for XML auto, type)

    

Update  TipoCliente

Set Descripcion = isNull(@pDescripcion, Descripcion)

Where @pId = ID

declare @XmlDespues XML = (select * from TipoCliente for XML auto, type)

        exec SPC_EventoMantenimiento TipoCliente, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Cliente

Create Procedure SPC_Cliente

@pNombre varchar(30), 

@pDocID INT, 

@pFK_Tipo_Cliente INT

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Cliente for XML auto, type)

    

insert into Cliente(Nombre, DocID, FK_Tipo_Cliente)

values (@pNombre, @pDocID, @pFK_Tipo_Cliente)

declare @XmlDespues XML = (select * from Cliente for XML auto, type)

exec SPC_EventoMantenimiento Cliente, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_Cliente

@pID int = null,

@pNombre varchar(30) = null, 

@pDocID INT = null, 

@pFK_Tipo_Cliente INT = null

as

begin

begin try

    begin tran

    

Select *

From Cliente

Where ID = isnull(@pID, ID)  and Nombre = isNull(@pNombre, Nombre) and DocID = isNull(@pDocID, DocID) and FK_Tipo_Cliente = isNull(@pFK_Tipo_Cliente, FK_Tipo_Cliente) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_Cliente

@pID int,

@pNombre varchar(30) = null, 

@pDocID INT = null, 

@pFK_Tipo_Cliente INT = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Cliente for XML auto, type)

    

Update  Cliente

Set Nombre = isNull(@pNombre, Nombre), DocID = isNull(@pDocID, DocID), FK_Tipo_Cliente = isNull(@pFK_Tipo_Cliente, FK_Tipo_Cliente)

Where @pId = ID

declare @XmlDespues XML = (select * from Cliente for XML auto, type)

        exec SPC_EventoMantenimiento Cliente, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Emisor

Create Procedure SPC_Emisor

@pDocID INT, 

@pNombre varchar(30), 

@pQAcciones INT, 

@pPrecioInicial MONEY, 

@pVariacion INT, 

@pComision INT

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Emisor for XML auto, type)

    

insert into Emisor(DocID, Nombre, QAcciones, PrecioInicial, Variacion, Comision)

values (@pDocID, @pNombre, @pQAcciones, @pPrecioInicial, @pVariacion, @pComision)

declare @XmlDespues XML = (select * from Emisor for XML auto, type)

exec SPC_EventoMantenimiento Emisor, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_Emisor

@pID int = null,

@pDocID INT = null, 

@pNombre varchar(30) = null, 

@pQAcciones INT = null, 

@pPrecioInicial MONEY = null, 

@pVariacion INT = null, 

@pComision INT = null

as

begin

begin try

    begin tran

    

Select *

From Emisor

Where ID = isnull(@pID, ID)  and DocID = isNull(@pDocID, DocID) and Nombre = isNull(@pNombre, Nombre) and QAcciones = isNull(@pQAcciones, QAcciones) and PrecioInicial = isNull(@pPrecioInicial, PrecioInicial) and Variacion = isNull(@pVariacion, Variacion) and Comision = isNull(@pComision, Comision) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_Emisor

@pID int,

@pDocID INT = null, 

@pNombre varchar(30) = null, 

@pQAcciones INT = null, 

@pPrecioInicial MONEY = null, 

@pVariacion INT = null, 

@pComision INT = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Emisor for XML auto, type)

    

Update  Emisor

Set DocID = isNull(@pDocID, DocID), Nombre = isNull(@pNombre, Nombre), QAcciones = isNull(@pQAcciones, QAcciones), PrecioInicial = isNull(@pPrecioInicial, PrecioInicial), Variacion = isNull(@pVariacion, Variacion), Comision = isNull(@pComision, Comision)

Where @pId = ID

declare @XmlDespues XML = (select * from Emisor for XML auto, type)

        exec SPC_EventoMantenimiento Emisor, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: ClienteDeEmpresa

Create Procedure SPC_ClienteDeEmpresa

@pFK_Emisor int

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from ClienteDeEmpresa for XML auto, type)

    

insert into ClienteDeEmpresa(FK_Emisor)

values (@pFK_Emisor)

declare @XmlDespues XML = (select * from ClienteDeEmpresa for XML auto, type)

exec SPC_EventoMantenimiento ClienteDeEmpresa, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_ClienteDeEmpresa

@pID int = null,

@pFK_Emisor int = null

as

begin

begin try

    begin tran

    

Select *

From ClienteDeEmpresa

Where ID = isnull(@pID, ID)  and FK_Emisor = isNull(@pFK_Emisor, FK_Emisor)

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_ClienteDeEmpresa

@pID int,

@pFK_Emisor int = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from ClienteDeEmpresa for XML auto, type)

    

Update  ClienteDeEmpresa

Set FK_Emisor = isNull(@pFK_Emisor, FK_Emisor)

Where @pId = ID

declare @XmlDespues XML = (select * from ClienteDeEmpresa for XML auto, type)

        exec SPC_EventoMantenimiento ClienteDeEmpresa, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: ClienteXEmisor

Create Procedure SPC_ClienteXEmisor

@pFK_Emisor int, 

@pFK_Cliente int

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from ClienteXEmisor for XML auto, type)

    

insert into ClienteXEmisor(FK_Emisor, FK_Cliente)

values (@pFK_Emisor, @pFK_Cliente)

declare @XmlDespues XML = (select * from ClienteXEmisor for XML auto, type)

exec SPC_EventoMantenimiento ClienteXEmisor, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_ClienteXEmisor

@pID int = null,

@pFK_Emisor int = null, 

@pFK_Cliente int = null

as

begin

begin try

    begin tran

    

Select *

From ClienteXEmisor

Where ID = isnull(@pID, ID)  and FK_Emisor = isNull(@pFK_Emisor, FK_Emisor) and FK_Cliente = isNull(@pFK_Cliente, FK_Cliente)

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_ClienteXEmisor

@pID int,

@pFK_Emisor int = null, 

@pFK_Cliente int = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from ClienteXEmisor for XML auto, type)

    

Update  ClienteXEmisor

Set FK_Emisor = isNull(@pFK_Emisor, FK_Emisor), FK_Cliente = isNull(@pFK_Cliente, FK_Cliente)

Where @pId = ID

declare @XmlDespues XML = (select * from ClienteXEmisor for XML auto, type)

        exec SPC_EventoMantenimiento ClienteXEmisor, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Accion

Create Procedure SPC_Accion

@pFK_Emisor INT, 

@pNombreEmpresa VARCHAR(30), 

@pCodigo INT, 

@pPrecioActual MONEY

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Accion for XML auto, type)

    

insert into Accion(FK_Emisor, NombreEmpresa, Codigo, PrecioActual)

values (@pFK_Emisor, @pNombreEmpresa, @pCodigo, @pPrecioActual)

declare @XmlDespues XML = (select * from Accion for XML auto, type)

exec SPC_EventoMantenimiento Accion, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_Accion

@pID int = null,

@pFK_Emisor INT = null, 

@pNombreEmpresa VARCHAR(30) = null, 

@pCodigo INT = null, 

@pPrecioActual MONEY = null

as

begin

begin try

    begin tran

    

Select *

From Accion

Where ID = isnull(@pID, ID)  and FK_Emisor = isNull(@pFK_Emisor, FK_Emisor) and NombreEmpresa = isNull(@pNombreEmpresa, NombreEmpresa) and Codigo = isNull(@pCodigo, Codigo) and PrecioActual = isNull(@pPrecioActual, PrecioActual) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_Accion

@pID int,

@pFK_Emisor INT = null, 

@pNombreEmpresa VARCHAR(30) = null, 

@pCodigo INT = null, 

@pPrecioActual MONEY = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Accion for XML auto, type)

    

Update  Accion

Set FK_Emisor = isNull(@pFK_Emisor, FK_Emisor), NombreEmpresa = isNull(@pNombreEmpresa, NombreEmpresa), Codigo = isNull(@pCodigo, Codigo), PrecioActual = isNull(@pPrecioActual, PrecioActual)

Where @pId = ID

declare @XmlDespues XML = (select * from Accion for XML auto, type)

        exec SPC_EventoMantenimiento Accion, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: MovimientoAcciones

Alter Procedure SPC_MovimientoAcciones

@pFK_ClienteEmisor int, 

@pFK_Accion int, 

@pFK_Operacion int,

@pCantidad int

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from MovimientoAcciones for XML auto, type)

    

insert into MovimientoAcciones(FK_ClienteEmisor, FK_Accion,FK_Operacion, Cantidad)

values (@pFK_ClienteEmisor, @pFK_Accion, @pFK_Operacion, @pCantidad)

declare @XmlDespues XML = (select * from MovimientoAcciones for XML auto, type)

exec SPC_EventoMantenimiento MovimientoAcciones, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_MovimientoAcciones

@pID int = null,

@pFK_ClienteEmisor int = null, 

@pFK_Accion int = null, 

@pFK_Operacion int = null, 

@pCantidad int = null

as

begin

begin try

    begin tran

    

Select *

From MovimientoAcciones

Where ID = isnull(@pID, ID)  and FK_ClienteEmisor = isNull(@pFK_ClienteEmisor, FK_ClienteEmisor) and FK_Accion = isNull(@pFK_Accion, FK_Accion) and FK_Operacion = isNull(@pFK_Operacion, FK_Operacion) and Cantidad = isNull(@pCantidad, Cantidad)

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

alter Procedure SPU_MovimientoAcciones

@pID int,

@pFK_ClienteEmisor int = null, 

@pFK_Accion int = null, 

@pFK_Operacion int = null, 

@pCantidad int = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from MovimientoAcciones for XML auto, type)

    

Update  MovimientoAcciones

Set FK_ClienteEmisor = isNull(@pFK_ClienteEmisor, FK_ClienteEmisor), FK_Accion = isNull(@pFK_Accion, FK_Accion), FK_Operacion = isNull(@pFK_Operacion, FK_Operacion), Cantidad = isNull(@pCantidad, Cantidad)

Where @pId = ID

declare @XmlDespues XML = (select * from MovimientoAcciones for XML auto, type)

        exec SPC_EventoMantenimiento MovimientoAcciones, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Agente

Create Procedure SPC_Agente

@pNombre varchar(30), 

@pSaldo INT

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Agente for XML auto, type)

    

insert into Agente(Nombre, Saldo)

values (@pNombre, @pSaldo)

declare @XmlDespues XML = (select * from Agente for XML auto, type)

exec SPC_EventoMantenimiento Agente, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_Agente

@pID int = null,

@pNombre varchar(30) = null, 

@pSaldo INT = null

as

begin

begin try

    begin tran

    

Select *

From Agente

Where ID = isnull(@pID, ID)  and Nombre = isNull(@pNombre, Nombre) and Saldo = isNull(@pSaldo, Saldo) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_Agente

@pID int,

@pNombre varchar(30) = null, 

@pSaldo INT = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Agente for XML auto, type)

    

Update  Agente

Set Nombre = isNull(@pNombre, Nombre), Saldo = isNull(@pSaldo, Saldo)

Where @pId = ID

declare @XmlDespues XML = (select * from Agente for XML auto, type)

        exec SPC_EventoMantenimiento Agente, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: TipoOperacion

Create Procedure SPC_TipoOperacion

@pDescripcion varchar(30)

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoOperacion for XML auto, type)

    

insert into TipoOperacion(Descripcion)

values (@pDescripcion)

declare @XmlDespues XML = (select * from TipoOperacion for XML auto, type)

exec SPC_EventoMantenimiento TipoOperacion, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_TipoOperacion

@pID int = null,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    

Select *

From TipoOperacion

Where ID = isnull(@pID, ID)  and Descripcion = isNull(@pDescripcion, Descripcion) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_TipoOperacion

@pID int,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoOperacion for XML auto, type)

    

Update  TipoOperacion

Set Descripcion = isNull(@pDescripcion, Descripcion)

Where @pId = ID

declare @XmlDespues XML = (select * from TipoOperacion for XML auto, type)

        exec SPC_EventoMantenimiento TipoOperacion, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: Operacion

Alter Procedure SPC_Operacion

@pFK_TipoOperacion INT, 

@pFK_Agente INT, 

@pFK_ClienteCompra INT, 

@pFK_ClienteVenta INT,  

@pFecha DATE, 

@pQAcciones INT, 

@pTotal int, 

@pComision int, 

@pGananciaVendedor int

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Operacion for XML auto, type)

    

insert into Operacion(FK_TipoOperacion, FK_Agente, FK_ClienteCompra, FK_ClienteVenta, Fecha, QAcciones, Total, Comision, GananciaVendedor)

values (@pFK_TipoOperacion, @pFK_Agente, @pFK_ClienteCompra, @pFK_ClienteVenta, @pFecha, @pQAcciones, @pTotal, @pComision, @pGananciaVendedor)

declare @XmlDespues XML = (select * from Operacion for XML auto, type)

exec SPC_EventoMantenimiento Operacion, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Alter Procedure SPR_Operacion

@pID int = null,

@pFK_TipoOperacion INT = null, 

@pFK_Agente INT = null, 

@pFK_ClienteCompra INT = null, 

@pFK_ClienteVenta INT = null, 

@pFecha DATE = null, 

@pQAcciones INT = null, 

@pTotal int = null, 

@pComision int = null, 

@pGananciaVendedor int = null

as

begin

begin try

    begin tran

    

Select *

From Operacion

Where ID = isnull(@pID, ID)  and FK_TipoOperacion = isNull(@pFK_TipoOperacion, FK_TipoOperacion) and FK_Agente = isNull(@pFK_Agente, FK_Agente) and FK_ClienteCompra = isNull(@pFK_ClienteCompra, FK_ClienteCompra) and FK_ClienteVenta = isNull(@pFK_ClienteVenta, FK_ClienteVenta) and Fecha = isNull(@pFecha, Fecha) and QAcciones = isNull(@pQAcciones, QAcciones) and Total = isNull(@pTotal, Total) and Comision = isNull(@pComision, Comision) and GananciaVendedor = isNull(@pGananciaVendedor, GananciaVendedor) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Alter Procedure SPU_Operacion

@pID int,

@pFK_TipoOperacion INT = null, 

@pFK_Agente INT = null, 

@pFK_ClienteCompra INT = null, 

@pFK_ClienteVenta INT = null, 

@pFecha DATE = null, 

@pQAcciones INT = null, 

@pTotal int = null, 

@pComision int = null, 

@pGananciaVendedor int = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from Operacion for XML auto, type)

    

Update  Operacion

Set FK_TipoOperacion = isNull(@pFK_TipoOperacion, FK_TipoOperacion), FK_Agente = isNull(@pFK_Agente, FK_Agente), FK_ClienteCompra = isNull(@pFK_ClienteCompra, FK_ClienteCompra), FK_ClienteVenta = isNull(@pFK_ClienteVenta, FK_ClienteVenta), Fecha = isNull(@pFecha, Fecha), QAcciones = isNull(@pQAcciones, QAcciones), Total = isNull(@pTotal, Total), Comision = isNull(@pComision, Comision), GananciaVendedor = isNull(@pGananciaVendedor, GananciaVendedor)

Where @pId = ID

declare @XmlDespues XML = (select * from Operacion for XML auto, type)

        exec SPC_EventoMantenimiento Operacion, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: TipoMovimiento

Create Procedure SPC_TipoMovimiento

@pDescripcion varchar(30)

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoMovimiento for XML auto, type)

    

insert into TipoMovimiento(Descripcion)

values (@pDescripcion)

declare @XmlDespues XML = (select * from TipoMovimiento for XML auto, type)

exec SPC_EventoMantenimiento TipoMovimiento, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_TipoMovimiento

@pID int = null,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    

Select *

From TipoMovimiento

Where ID = isnull(@pID, ID)  and Descripcion = isNull(@pDescripcion, Descripcion) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_TipoMovimiento

@pID int,

@pDescripcion varchar(30) = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from TipoMovimiento for XML auto, type)

    

Update  TipoMovimiento

Set Descripcion = isNull(@pDescripcion, Descripcion)

Where @pId = ID

declare @XmlDespues XML = (select * from TipoMovimiento for XML auto, type)

        exec SPC_EventoMantenimiento TipoMovimiento, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

--################################ --

-- Tabla: MovimientoComision

Create Procedure SPC_MovimientoComision

@pFK_Agente INT, 

@pFK_Tipo_Movimiento INT, 

@pFK_Operacion INT, 

@pFecha DATE, 

@pMonto MONEY

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from MovimientoComision for XML auto, type)

    

insert into MovimientoComision(FK_Agente, FK_Tipo_Movimiento, FK_Operacion, Fecha, Monto)

values (@pFK_Agente, @pFK_Tipo_Movimiento, @pFK_Operacion, @pFecha, @pMonto)

declare @XmlDespues XML = (select * from MovimientoComision for XML auto, type)

exec SPC_EventoMantenimiento MovimientoComision, 'insertar', null, @XmlAntes, @XmlDespues 

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_MovimientoComision

@pID int = null,

@pFK_Agente INT = null, 

@pFK_Tipo_Movimiento INT = null, 

@pFK_Operacion INT = null, 

@pFecha DATE = null, 

@pMonto MONEY = null

as

begin

begin try

    begin tran

    

Select *

From MovimientoComision

Where ID = isnull(@pID, ID)  and FK_Agente = isNull(@pFK_Agente, FK_Agente) and FK_Tipo_Movimiento = isNull(@pFK_Tipo_Movimiento, FK_Tipo_Movimiento) and FK_Operacion = isNull(@pFK_Operacion, FK_Operacion) and Fecha = isNull(@pFecha, Fecha) and Monto = isNull(@pMonto, Monto) and Visible = 'y'

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPU_MovimientoComision

@pID int,

@pFK_Agente INT = null, 

@pFK_Tipo_Movimiento INT = null, 

@pFK_Operacion INT = null, 

@pFecha DATE = null, 

@pMonto MONEY = null

as

begin

begin try

    begin tran

    declare @XmlAntes XML = (select * from MovimientoComision for XML auto, type)

    

Update  MovimientoComision

Set FK_Agente = isNull(@pFK_Agente, FK_Agente), FK_Tipo_Movimiento = isNull(@pFK_Tipo_Movimiento, FK_Tipo_Movimiento), FK_Operacion = isNull(@pFK_Operacion, FK_Operacion), Fecha = isNull(@pFecha, Fecha), Monto = isNull(@pMonto, Monto)

Where @pId = ID

declare @XmlDespues XML = (select * from MovimientoComision for XML auto, type)

        exec SPC_EventoMantenimiento MovimientoComision, 'actualizacion', null, @XmlAntes, @XmlDespues 

        

commit

end try

begin catch

    if (@@TRANCOUNT > 0)

rollback

end catch

end

go

Create Procedure SPR_EventoMantenimiento

@pID int = null,

@pTabla NVARCHAR(50) = null, 

@pAntes XML = null, 

@pDespues XML = null

as

begin

Select *From EventoMantenimiento

end

go

--################################ --

Fuente:

 Conocimiento adquirido
 Proyectos anteriores