Guest User

Untitled

a guest
Jun 21st, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.84 KB | None | 0 0
  1. create or replace PROCEDURE AGREGAR_SERVICIO
  2. (NUMERO_SERV IN SERVICIO.NUMERO_SERVICIO%type,
  3. DESCRIPCION IN SERVICIO.DESCRIPCION%type,
  4. TIPO IN SERVICIO.TIPO%type)
  5. IS
  6. BEGIN
  7. INSERT INTO SERVICIO VALUES (NUMERO_SERV, DESCRIPCION,TIPO);
  8. DBMS_OUTPUT.PUT_LINE('SE HA AGREGADO EL SERVICIO CON EXITO.');
  9. END AGREGAR_SERVICIO;
  10.  
  11. create or replace PROCEDURE AGREGAR_SALA_EXPO
  12. (NUMERO_SALA IN SALA_EXPOSICION.NUMERO_SALA%type,
  13. NUMERO_EXPO IN SALA_EXPOSICION.NUMERO_EXPOSICION%type,
  14. HORARIO_INI IN SALA_EXPOSICION.HORARIO_INICIO%type,
  15. HORARIO_FIN IN SALA_EXPOSICION.HORARIO_FIN%type,
  16. COSTO IN SALA_EXPOSICION.COSTO%type)
  17. IS
  18. BEGIN
  19. INSERT INTO SALA_EXPOSICION VALUES (NUMERO_SALA, NUMERO_EXPO,HORARIO_INI,HORARIO_FIN,COSTO);
  20. DBMS_OUTPUT.PUT_LINE('SE HA AGREGADO LA RELACION CON EXITO.');
  21. END AGREGAR_SALA_EXPO;
  22.  
  23. create or replace PROCEDURE AGREGAR_SALA
  24. (NUMERO_SALA IN SALA.NUMERO_SALA%type,
  25. DIMENSION IN SALA.DIMENSION%type,
  26. NOMBRE IN SALA.NOMBRE%type,
  27. NUMERO_PIS IN SALA.NUMERO_PIS%type)
  28. IS
  29. BEGIN
  30. INSERT INTO SALA VALUES (NUMERO_SALA, DIMENSION, nombre, numero_pis);
  31. DBMS_OUTPUT.PUT_LINE('SE HA AGREGADO LA SALA CON EXITO.');
  32. END AGREGAR_SALA;
  33.  
  34. create or replace PROCEDURE AGREGAR_POP_EXPO
  35. (NUMERO_MAT IN POP_EXPOSICION.NUMERO_MATERIAL%type,
  36. NUMERO_EXPO IN POP_EXPOSICION.NUMERO_EXPOSICION%type)
  37. IS
  38. BEGIN
  39. INSERT INTO POP_EXPOSICION VALUES (NUMERO_MAT, NUMERO_EXPO);
  40. DBMS_OUTPUT.PUT_LINE('SE HA AGREGADO LA RELACION CON EXITO.');
  41. END AGREGAR_POP_EXPO;
  42.  
  43. create or replace PROCEDURE AGREGAR_POP
  44. (NUMERO_MAT IN POP.NUMERO_MATERIAL%type,
  45. TIPO IN POP.TIPO%type,
  46. ESP IN POP.ESPECIFICACION%type,
  47. FOTO IN POP.FOTO%type,
  48. NOMBRE IN POP.NOMBRE%type)
  49. IS
  50. BEGIN
  51. INSERT INTO POP VALUES (NUMERO_MAT, TIPO, ESP,FOTO,NOMBRE);
  52. DBMS_OUTPUT.PUT_LINE('SE HA AGREGADO EL POP CON EXITO.');
  53. END AGREGAR_POP;
  54.  
  55.  
  56. create or replace PROCEDURE AGREGAR_PISO_SERVICIO
  57. (UBIC IN PISO_SERVICIO.UBICACION%type,
  58. NUMERO_PISO IN PISO_SERVICIO.NUMERO_PISO%type,
  59. NUMERO_SERV IN PISO_SERVICIO.NUMERO_SERVICIO%type)
  60. IS
  61. BEGIN
  62. INSERT INTO PISO_SERVICIO VALUES (ubic, numero_piso, numero_serv);
  63. DBMS_OUTPUT.PUT_LINE('SE HA AGREGADO LA RELACION CON EXITO.');
  64. END AGREGAR_PISO_SERVICIO;
  65.  
  66.  
  67. create or replace PROCEDURE AGREGAR_PISO_ADMIN
  68. ( NUMERO IN PISO_ADMINISTRADOR.NUMERO_PISO%type,
  69. DNI IN PISO_ADMINISTRADOR.DNI%type,
  70. HORARIO_INI IN PISO_ADMINISTRADOR.HORARIO_INICIO%type,
  71. HORARIO_FIN IN PISO_ADMINISTRADOR.HORARIO_FIN%type,
  72. FECHA IN PISO_ADMINISTRADOR.FECHA%type)
  73. IS
  74. BEGIN
  75. INSERT INTO PISO_ADMINISTRADOR VALUES (NUMERO, dni, horario_ini, horario_fin, fecha);
  76. DBMS_OUTPUT.PUT_LINE('SE HA AGREGADO LA RELACION CON EXITO.');
  77. END AGREGAR_PISO_ADMIN;
  78.  
  79. create or replace PROCEDURE AGREGAR_PISO
  80. ( NUMERO IN PISO.NUMERO_PISO%type,
  81. NOMBRE IN PISO.NOMBRE%type)
  82. IS
  83. BEGIN
  84. INSERT INTO PISO VALUES (NUMERO, NOMBRE);
  85. DBMS_OUTPUT.PUT_LINE('SE HA AGREGADO EL PISO CON EXITO.');
  86. END AGREGAR_PISO;
Add Comment
Please, Sign In to add comment