Iissi - 19-20 - Procedimientos SQL PDF

Preview

Summary

Download Iissi - 19-20 - Procedimientos SQL PDF

Description

IISSI 19-20 Generación de Procedimientos SQL – Vifitel

Juanillo62gm

CREATE OR REPLACE PROCEDURE INICIALIZAR_PRODUCTOSERVICIO IS BEGIN DELETE FROM PRODUCTOSERVICIO; END; / CREATE OR REPLACE PROCEDURE INSERTAR_PRODUCTOSERVICIO( P_IVA IN PRODUCTOSERVICIO.IVA%TYPE ) IS BEGIN INSERT INTO PRODUCTOSERVICIO(IVA,OID_PROSER) VALUES(P_IVA,SEC_PRODUCTOSERVICIO_OID.NEXTVAL); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_PRODUCTOSERVICIO ( P_IVA IN PRODUCTOSERVICIO.IVA%TYPE, P_OIDPROSER IN PRODUCTOSERVICIO.OID_PROSER%TYPE ) IS BEGIN UPDATE PRODUCTOSERVICIO SET IVA = P_IVA, OID_PROSER = P_OIDPROSER WHERE OID_PROSER = P_OIDPROSER; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_PRODUCTOSERVICIO(ID_PRODUCTOSERVICIO _ELIMINAR IN PRODUCTOSERVICIO.OID_PROSER%TYPE) IS BEGIN DELETE FROM PRODUCTOSERVICIO WHERE OID_PROSER = ID_PRODUCTOSERVICIO_E LIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_PROVEEDOR IS BEGIN DELETE FROM PROVEEDOR; END; / CREATE OR REPLACE PROCEDURE INSERTAR_PROVEEDOR( P_DIR IN PROVEEDOR.DIRECCION%TYPE, P_EMA IN PROVEEDOR.EMAIL%TYPE ) IS BEGIN INSERT INTO PROVEEDOR(DIRECCION,EMAIL,OID_PRO) VALUES(P_DIR,P_EMA,SEC_PROVEEDOR_OID.NEXTVAL); END; /

CREATE OR REPLACE PROCEDURE MODIFICAR_PROVEEDOR ( P_DIR IN PROVEEDOR.DIRECCION%TYPE, P_EMA IN PROVEEDOR.EMAIL%TYPE, P_OIDPRO IN PROVEEDOR.OID_PRO%TYPE ) IS BEGIN UPDATE PROVEEDOR SET DIRECCION = P_DIR, EMAIL = P_EMA, OID_PRO = P_OIDPRO WHERE OID_PRO = P_OIDPRO; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_PROVEEDOR(ID_PROVEEDOR_ELIMINAR IN P ROVEEDOR.OID_PRO%TYPE) IS BEGIN DELETE FROM PROVEEDOR WHERE OID_PRO = ID_PROVEEDOR_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_PEDIDO IS BEGIN DELETE FROM PEDIDO; END; / CREATE OR REPLACE PROCEDURE INSERTAR_PEDIDO( P_FEC IN PEDIDO.FECHA%TYPE, P_TOTPED IN PEDIDO.TOTALPEDIDO%TYPE, P_OIDPRO IN PEDIDO.OID_PRO%TYPE ) IS BEGIN INSERT INTO PEDIDO(FECHA,TOTALPEDIDO,OID_PED,OID_PRO) VALUES(P_FEC,P_TOTPED,SEC_PEDIDO_OID.NEXTVAL,P_OIDPRO); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_PEDIDO ( P_FEC IN PEDIDO.FECHA%TYPE, P_TOTPED IN PEDIDO.TOTALPEDIDO%TYPE, P_OIDPED IN PEDIDO.OID_PED%TYPE, P_OIDPRO IN PEDIDO.OID_PRO%TYPE ) IS BEGIN UPDATE PEDIDO SET FECHA = P_FEC, TOTALPEDIDO = P_TOTPED, OID_PED = P_OIDPED,

OID_PRO = P_OIDPRO WHERE OID_PED = P_OIDPED; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_PEDIDO(ID_PEDIDO_ELIMINAR IN PEDIDO. OID_PED%TYPE) IS BEGIN DELETE FROM PEDIDO WHERE OID_PED = ID_PEDIDO_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_SERVICIO IS BEGIN DELETE FROM SERVICIO; END; / CREATE OR REPLACE PROCEDURE INSERTAR_SERVICIO( P_NOM IN SERVICIO.NOMBRE%TYPE, P_PRE IN SERVICIO.PRECIO%TYPE, P_TIPSE IN SERVICIO.TIPOSERVICIO%TYPE, P_TIPES IN SERVICIO.TIPOESTADO%TYPE, P_OIDPROSER IN SERVICIO.OID_PROSER%TYPE ) IS BEGIN INSERT INTO SERVICIO(NOMBRE,PRECIO,TIPOSERVICIO,TIPOESTADO,OID_SER,OID_PR OSER) VALUES(P_NOM,P_PRE,P_TIPSE,P_TIPES,SEC_SERVICIO_OID.NEXTVAL,P_OIDPROSER); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_SERVICIO ( P_NOM IN SERVICIO.NOMBRE%TYPE, P_PRE IN SERVICIO.PRECIO%TYPE, P_TIPSE IN SERVICIO.TIPOSERVICIO%TYPE, P_TIPES IN SERVICIO.TIPOESTADO%TYPE, P_OIDSER IN SERVICIO.OID_SER%TYPE, P_OIDPROSER IN SERVICIO.OID_PROSER%TYPE ) IS BEGIN UPDATE SERVICIO SET NOMBRE = P_NOM, PRECIO = P_PRE, TIPOSERVICIO = P_TIPSE, TIPOESTADO = P_TIPES, OID_SER = P_OIDSER, OID_PROSER = P_OIDPROSER WHERE OID_SER = P_OIDSER;

END; / CREATE OR REPLACE PROCEDURE ELIMINAR_SERVICIO(ID_SERVICIO_ELIMINAR IN SER VICIO.OID_PROSER%TYPE) IS BEGIN DELETE FROM SERVICIO WHERE OID_PROSER = ID_SERVICIO_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_USUARIO IS BEGIN DELETE FROM USUARIO; END; / CREATE OR REPLACE PROCEDURE INSERTAR_USUARIO( P_NOM IN USUARIO.NOMBRE%TYPE, P_APE IN USUARIO.APELLIDOS%TYPE, P_TIPUSU IN USUARIO.TIPOUSUARIO%TYPE, P_ESJEF IN USUARIO.ESJEFE%TYPE, P_FEC IN USUARIO.FECHANAC%TYPE, P_MOV IN USUARIO.MOVIL%TYPE, P_EMA IN USUARIO.EMAIL%TYPE, P_PASS IN USUARIO.PASS%TYPE, P_DOM IN USUARIO.DOMICILIO%TYPE, P_CODPOS IN USUARIO.CODIGOPOSTAL%TYPE, P_SUEBRU IN USUARIO.SUELDOBRUTO%TYPE, P_TIEDEU IN USUARIO.TIENEDEUDAS%TYPE, P_DNI IN USUARIO.DNI%TYPE ) IS BEGIN INSERT INTO USUARIO(NOMBRE,APELLIDOS,TIPOUSUARIO,ESJEFE,FECHANAC,MOVIL,EM AIL,PASS,DOMICILIO,CODIGOPOSTAL,SUELDOBRUTO,TIENEDEUDAS,DNI) VALUES(P_NOM,P_APE,P_TIPUSU,P_ESJEF,P_FEC,P_MOV,P_EMA,P_PASS,P_DOM,P_CODP OS,P_SUEBRU,P_TIEDEU,P_DNI); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_USUARIO ( P_NOM IN USUARIO.NOMBRE%TYPE, P_APE IN USUARIO.APELLIDOS%TYPE, P_TIPUSU IN USUARIO.TIPOUSUARIO%TYPE, P_ESJEF IN USUARIO.ESJEFE%TYPE, P_FEC IN USUARIO.FECHANAC%TYPE, P_MOV IN USUARIO.MOVIL%TYPE, P_EMA IN USUARIO.EMAIL%TYPE, P_PASS IN USUARIO.PASS%TYPE, P_DOM IN USUARIO.DOMICILIO%TYPE,

P_CODPOS IN USUARIO.CODIGOPOSTAL%TYPE, P_SUEBRU IN USUARIO.SUELDOBRUTO%TYPE, P_TIEDEU IN USUARIO.TIENEDEUDAS%TYPE, P_DNI IN USUARIO.DNI%TYPE ) IS BEGIN UPDATE USUARIO SET NOMBRE = P_NOM, APELLIDOS = P_APE, TIPOUSUARIO = P_TIPUSU, ESJEFE = P_ESJEF, FECHANAC = P_FEC, MOVIL = P_MOV, EMAIL = P_EMA, PASS = P_PASS, DOMICILIO = P_DOM, CODIGOPOSTAL = P_CODPOS, SUELDOBRUTO = P_SUEBRU, TIENEDEUDAS = P_TIEDEU, DNI = P_DNI WHERE DNI = P_DNI; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_USUARIO(DNI_USUARIO_ELIMINAR IN USUA RIO.DNI%TYPE) IS BEGIN DELETE FROM USUARIO WHERE DNI = DNI_USUARIO_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_RESERVA IS BEGIN DELETE FROM RESERVA; END; / CREATE OR REPLACE PROCEDURE INSERTAR_RESERVA( P_FEC IN RESERVA.FECHA%TYPE, P_PAGCER IN RESERVA.PAGOCERRADO%TYPE, P_CAN IN RESERVA.CANCELADA%TYPE, P_DNI IN RESERVA.DNI%TYPE ) IS BEGIN INSERT INTO RESERVA(FECHA,PAGOCERRADO,CANCELADA,OID_RES,DNI) VALUES(P_FEC,P_PAGCER,P_CAN,SEC_RESERVA_OID.NEXTVAL,P_DNI); END; /

CREATE OR REPLACE PROCEDURE MODIFICAR_RESERVA ( P_FEC IN RESERVA.FECHA%TYPE, P_PAGCER IN RESERVA.PAGOCERRADO%TYPE, P_CAN IN RESERVA.CANCELADA%TYPE, P_OIDRES IN RESERVA.OID_RES%TYPE, P_DNI IN RESERVA.DNI%TYPE ) IS BEGIN UPDATE RESERVA SET FECHA = P_FEC, PAGOCERRADO = P_PAGCER, CANCELADA = P_CAN, OID_RES = P_OIDRES, DNI = P_DNI WHERE OID_RES = P_OIDRES; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_RESERVA(ID_RESERVA_ELIMINAR IN RESER VA.OID_RES%TYPE) IS BEGIN DELETE FROM RESERVA WHERE OID_RES = ID_RESERVA_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_VENTA IS BEGIN DELETE FROM VENTA; END; / CREATE OR REPLACE PROCEDURE INSERTAR_VENTA( P_FEC IN VENTA.FECHA%TYPE, P_OIDRES IN VENTA.OID_RES%TYPE, P_DNI IN VENTA.DNI%TYPE ) IS BEGIN INSERT INTO VENTA(FECHA,OID_VEN,OID_RES,DNI) VALUES(P_FEC,SEC_VENTA_OID.NEXTVAL,P_OIDRES,P_DNI); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_VENTA ( P_FEC IN VENTA.FECHA%TYPE, P_OIDVEN IN VENTA.OID_VEN%TYPE, P_OIDRES IN VENTA.OID_RES%TYPE, P_DNI IN VENTA.DNI%TYPE ) IS BEGIN

UPDATE VENTA SET FECHA = P_FEC, OID_VEN = P_OIDVEN, OID_RES = P_OIDRES, DNI = P_DNI WHERE OID_VEN = P_OIDVEN; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_VENTA(ID_VENTA_ELIMINAR IN VENTA.OID _VEN%TYPE) IS BEGIN DELETE FROM VENTA WHERE OID_VEN = ID_VENTA_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_FACTURA IS BEGIN DELETE FROM FACTURA; END; / CREATE OR REPLACE PROCEDURE INSERTAR_FACTURA( P_FEC IN FACTURA.FECHA%TYPE, P_CUA IN FACTURA.CUANTIA%TYPE, P_OIDVEN IN FACTURA.OID_VEN%TYPE ) IS BEGIN INSERT INTO FACTURA(FECHA,CUANTIA,OID_FAC,OID_VEN) VALUES(P_FEC,P_CUA,SEC_FACTURA_OID.NEXTVAL,P_OIDVEN); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_FACTURA ( P_FEC IN FACTURA.FECHA%TYPE, P_CUA IN FACTURA.CUANTIA%TYPE, P_OIDFAC IN FACTURA.OID_FAC%TYPE, P_OIDVEN IN FACTURA.OID_VEN%TYPE ) IS BEGIN UPDATE FACTURA SET FECHA = P_FEC, CUANTIA = P_CUA, OID_FAC = P_OIDFAC, OID_VEN = P_OIDVEN WHERE OID_FAC = P_OIDFAC; END; /

CREATE OR REPLACE PROCEDURE ELIMINAR_FACTURA(ID_FACTURA_ELIMINAR IN FACTU RA.OID_FAC%TYPE) IS BEGIN DELETE FROM FACTURA WHERE OID_FAC = ID_FACTURA_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_LOCALIZACION IS BEGIN DELETE FROM LOCALIZACION; END; / CREATE OR REPLACE PROCEDURE INSERTAR_LOCALIZACION( P_NOM IN LOCALIZACION.NOMBRE%TYPE, P_DIR IN LOCALIZACION.DIRECCION%TYPE, P_HOR IN LOCALIZACION.HORARIO%TYPE, P_TIPLOC IN LOCALIZACION.TIPOLOCALIZACION%TYPE, P_MINTRA IN LOCALIZACION.MINIMOTRABAJADORES%TYPE ) IS BEGIN INSERT INTO LOCALIZACION(NOMBRE,DIRECCION,HORARIO,TIPOLOCALIZACION,MINIMO TRABAJADORES,OID_LOC) VALUES(P_NOM,P_DIR,P_HOR,P_TIPLOC,P_MINTRA,SEC_LOCALIZACION_OID.NEXTVAL); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_LOCALIZACION ( P_NOM IN LOCALIZACION.NOMBRE%TYPE, P_DIR IN LOCALIZACION.DIRECCION%TYPE, P_HOR IN LOCALIZACION.HORARIO%TYPE, P_TIPLOC IN LOCALIZACION.TIPOLOCALIZACION%TYPE, P_OIDLOC IN LOCALIZACION.OID_LOC%TYPE, P_MINTRA IN LOCALIZACION.MINIMOTRABAJADORES%TYPE ) IS BEGIN UPDATE LOCALIZACION SET NOMBRE = P_NOM, DIRECCION = P_DIR, HORARIO = P_HOR, TIPOLOCALIZACION = P_TIPLOC, MINIMOTRABAJADORES = P_MINTRA, OID_LOC = P_OIDLOC WHERE OID_LOC = P_OIDLOC; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_LOCALIZACION(ID_LOCALIZACION_ELIMINA R IN LOCALIZACION.OID_LOC%TYPE) IS

BEGIN DELETE FROM LOCALIZACION WHERE OID_LOC = ID_LOCALIZACION_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_PRODUCTO IS BEGIN DELETE FROM PRODUCTO; END; / CREATE OR REPLACE PROCEDURE INSERTAR_PRODUCTO( P_NOM IN PRODUCTO.NOMBRE%TYPE, P_DES IN PRODUCTO.DESCRIPCION%TYPE, P_URL IN PRODUCTO.URLIMAGEN%TYPE, P_TIPRO IN PRODUCTO.TIPOPRODUCTO%TYPE, P_PRE IN PRODUCTO.PRECIOBASE%TYPE, P_STOMIN IN PRODUCTO.STOCKMINIMO%TYPE, P_OIDPROSER IN PRODUCTO.OID_PROSER%TYPE ) IS BEGIN INSERT INTO PRODUCTO(NOMBRE,DESCRIPCION,URLIMAGEN,TIPOPRODUCTO,PRECIOBASE ,STOCKMINIMO,OID_PROD,OID_PROSER) VALUES(P_NOM,P_DES,P_URL,P_TIPRO,P_PRE,P_STOMIN,SEC_PRODUCTO_OID.NEXTVAL, P_OIDPROSER); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_PRODUCTO( P_NOM IN PRODUCTO.NOMBRE%TYPE, P_DES IN PRODUCTO.DESCRIPCION%TYPE, P_URL IN PRODUCTO.URLIMAGEN%TYPE, P_TIPRO IN PRODUCTO.TIPOPRODUCTO%TYPE, P_PRE IN PRODUCTO.PRECIOBASE%TYPE, P_STOMIN IN PRODUCTO.STOCKMINIMO%TYPE, P_OIDPROD IN PRODUCTO.OID_PROD%TYPE, P_OIDPROSER IN PRODUCTO.OID_PROSER%TYPE ) IS BEGIN UPDATE PRODUCTO SET NOMBRE = P_NOM, DESCRIPCION = P_DES, URLIMAGEN = P_URL, TIPOPRODUCTO = P_TIPRO, PRECIOBASE = P_PRE, STOCKMINIMO = P_STOMIN, OID_PROD = P_OIDPROD, OID_PROSER = P_OIDPROSER

WHERE OID_PROD = P_OIDPROD; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_PRODUCTO(OID_PRODUCTO_ELIMINAR IN PR ODUCTO.OID_PROD%TYPE) IS BEGIN DELETE FROM PRODUCTO WHERE OID_PROD = OID_PRODUCTO_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_ASOCIACIONPRODLIST IS BEGIN DELETE FROM ASOCIACIONPRODLIST; END; / CREATE OR REPLACE PROCEDURE INSERTAR_ASOCIACIONPRODLIST( P_STO IN ASOCIACIONPRODLIST.STOCK%TYPE, P_OIDLOC IN ASOCIACIONPRODLIST.OID_LOC%TYPE, P_OIDPROD IN ASOCIACIONPRODLIST.OID_PROD%TYPE ) IS BEGIN INSERT INTO ASOCIACIONPRODLIST(STOCK,OID_APROLIS,OID_LOC,OID_PROD) VALUES(P_STO,SEC_ASOPROLIS_OID.NEXTVAL,P_OIDLOC,P_OIDPROD); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_ASOCIACIONPRODLIST( P_STO IN ASOCIACIONPRODLIST.STOCK%TYPE, P_OIDAPROLIS IN ASOCIACIONPRODLIST.OID_APROLIS%TYPE, P_OIDLOC IN ASOCIACIONPRODLIST.OID_LOC%TYPE, P_OIDPROD IN ASOCIACIONPRODLIST.OID_PROD%TYPE ) IS BEGIN UPDATE ASOCIACIONPRODLIST SET STOCK = P_STO, OID_APROLIS = P_OIDAPROLIS, OID_LOC = P_OIDLOC, OID_PROD = P_OIDPROD WHERE OID_APROLIS = P_OIDAPROLIS; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_ASOCIACIONPRODLIST(ID_ASOCIACIONPROD LIST_ELIMINAR IN ASOCIACIONPRODLIST.OID_APROLIS%TYPE) IS BEGIN DELETE FROM ASOCIACIONPRODLIST WHERE OID_APROLIS = ID_ASOCIACIONPRODL IST_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_ASOVENPROSER IS BEGIN DELETE FROM ASOCIACIONVENTAPRODSERV; END; / CREATE OR REPLACE PROCEDURE INSERTAR_ASOCVENTAPRODSERV( P_CAN IN ASOCIACIONVENTAPRODSERV.CANTIDAD%TYPE, P_PRE IN ASOCIACIONVENTAPRODSERV.PRECIO%TYPE, P_IVA IN ASOCIACIONVENTAPRODSERV.IVA%TYPE, P_OIDPROSER IN ASOCIACIONVENTAPRODSERV.OID_PROSER%TYPE, P_OIDVEN IN ASOCIACIONVENTAPRODSERV.OID_VEN%TYPE ) IS BEGIN INSERT INTO ASOCIACIONVENTAPRODSERV(CANTIDAD,PRECIO,IVA,OID_AVENPROSER,OI D_PROSER,OID_VEN) VALUES(P_CAN,P_PRE,P_IVA,SEC_ASOVENPROSER_OID.NEXTVAL,P_OIDPROSER,P_OIDVE N); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_ASOCIACIONPRODLIST( P_CAN IN ASOCIACIONVENTAPRODSERV.CANTIDAD%TYPE, P_PRE IN ASOCIACIONVENTAPRODSERV.PRECIO%TYPE, P_IVA IN ASOCIACIONVENTAPRODSERV.IVA%TYPE, P_OIDAVENPROSER IN ASOCIACIONVENTAPRODSERV.OID_AVENPROSER%TYPE, P_OIDPROSER IN ASOCIACIONVENTAPRODSERV.OID_PROSER%TYPE, P_OIDVEN IN ASOCIACIONVENTAPRODSERV.OID_VEN%TYPE ) IS BEGIN UPDATE ASOCIACIONVENTAPRODSERV SET CANTIDAD = P_CAN, PRECIO = P_PRE, IVA = P_IVA, OID_AVENPROSER = P_OIDAVENPROSER, OID_PROSER = P_OIDPROSER, OID_VEN = P_OIDVEN WHERE OID_AVENPROSER = P_OIDAVENPROSER; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_ASOVENPROSER(ID_ASOVENPROSER_ELIMINA R IN ASOCIACIONVENTAPRODSERV.OID_AVENPROSER%TYPE) IS BEGIN DELETE FROM ASOCIACIONVENTAPRODSERV WHERE OID_AVENPROSER = ID_ASOVENP ROSER_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_LISTARESERVA IS BEGIN DELETE FROM LISTARESERVA; END; / CREATE OR REPLACE PROCEDURE INSERTAR_LISTARESERVA( P_CAN IN LISTARESERVA.CANTIDAD%TYPE, P_PRE IN LISTARESERVA.PRECIO%TYPE, P_OIDPROSER IN LISTARESERVA.OID_PROSER%TYPE, P_OIDR IN LISTARESERVA.OID_RES%TYPE ) IS BEGIN INSERT INTO LISTARESERVA(CANTIDAD,PRECIO,OID_LISRES,OID_PROSER,OID_RES) VALUES(P_CAN,P_PRE,SEC_LISTARESERVA_OID.NEXTVAL,P_OIDPROSER,P_OIDR); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_ASOCIACIONPRODLIST( P_CAN IN LISTARESERVA.CANTIDAD%TYPE, P_PRE IN LISTARESERVA.PRECIO%TYPE, P_OIDLISRES IN LISTARESERVA.OID_LISRES%TYPE, P_OIDPROSER IN LISTARESERVA.OID_PROSER%TYPE, P_OIDR IN LISTARESERVA.OID_RES%TYPE ) IS BEGIN UPDATE LISTARESERVA SET CANTIDAD = P_CAN, PRECIO = P_PRE, OID_LISRES = P_OIDLISRES, OID_PROSER = P_OIDPROSER, OID_RES = P_OIDR WHERE OID_LISRES = P_OIDLISRES; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_LISTARESERVA(ID_LISTARESERVA_ELIMINA R IN LISTARESERVA.OID_LISRES%TYPE) IS BEGIN DELETE FROM LISTARESERVA WHERE OID_LISRES = ID_LISTARESERVA_ELIMINAR; END;

/

CREATE OR REPLACE PROCEDURE INICIALIZAR_LISTAPEDIDO IS BEGIN DELETE FROM LISTAPEDIDO;

END; / CREATE OR REPLACE PROCEDURE INSERTAR_LISTAPEDIDO( P_CAN IN LISTAPEDIDO.CANTIDAD%TYPE, P_PRE IN LISTAPEDIDO.PRECIO%TYPE, P_IVA IN LISTAPEDIDO.IVA%TYPE, P_OIDPROSER IN LISTAPEDIDO.OID_PROSER%TYPE, P_OIDRES IN LISTAPEDIDO.OID_PED%TYPE ) IS BEGIN INSERT INTO LISTAPEDIDO(CANTIDAD,PRECIO,IVA,OID_LISPED,OID_PROSER,OID_PED ) VALUES(P_CAN,P_PRE,P_IVA,SEC_LISTAPEDIDO_OID.NEXTVAL,P_OIDPROSER,P_OIDRES ); END; / CREATE OR REPLACE PROCEDURE MODIFICAR_LISTAPEDIDO( P_CAN IN LISTAPEDIDO.CANTIDAD%TYPE, P_PRE IN LISTAPEDIDO.PRECIO%TYPE, P_IVA IN LISTAPEDIDO.IVA%TYPE, P_OIDLISPED IN LISTAPEDIDO.OID_LISPED%TYPE, P_OIDPROSER IN LISTAPEDIDO.OID_PROSER%TYPE, P_OIDRES IN LISTAPEDIDO.OID_PED%TYPE ) IS BEGIN UPDATE LISTAPEDIDO SET CANTIDAD = P_CAN, PRECIO = P_PRE, IVA = P_IVA, OID_LISPED = P_OIDLISPED, OID_PROSER = P_OIDPROSER, OID_PED = P_OIDRES WHERE OID_LISPED = P_OIDLISPED; END; / CREATE OR REPLACE PROCEDURE ELIMINAR_LISTAPEDIDO(ID_LISTAPEDIDO_ELIMINAR IN LISTAPEDIDO.OID_LISPED%TYPE) IS BEGIN DELETE FROM LISTAPEDIDO WHERE OID_LISPED = ID_LISTAPEDIDO_ELIMINAR; END;...