CLASE 01 08 2015 - GiselleE/basedatos2 GitHub Wiki

CREATE TABLE TARJETA(ID_TARJETA INTEGER, NOMBRE VARCHAR2(120),DIACORTE INTEGER, CONSTRAINT ID_TARJETA_PK PRIMARY KEY(ID_TARJETA));

CREATE TABLE GASTOS(ID_GASTOS INTEGER, ID_TARJETA INTEGER, CONCEPTO VARCHAR(120),CANTIDAD FLOAT,FECHA DATE, CONSTRAINT ID_GASTOS_PK PRIMARY KEY(ID_GASTOS), CONSTRAINT ID_TARJETA_FK FOREIGN KEY(ID_TARJETA) REFERENCES GASTOS(ID_GASTOS));

create sequence SEC_TARJETA start with 1 increment by 1 nomaxvalue;

create sequence SEC_GASTOS start with 1 increment by 1 nomaxvalue;

create or replace PROCEDURE GUARDAR_TARJETA( MY_ID_TARJETA OUT INTEGER, MY_NOMBRE IN VARCHAR2,MY_DIACORTE IN INTEGER) AS BEGIN SELECT SEC_TARJETA.NEXTVAL INTO MY_ID_TARJETA FROM DUAL; INSERT INTO TARJETA VALUES(MY_ID_TARJETA, MY_NOMBRE, MY_DIACORTE); END; /

create or replace PROCEDURE GUARDAR_GATOS( MY_ID_GASTOS OUT INTEGER,MY_ID_TARJETA IN INTEGER, MY_CONCEPTO IN VARCHAR2(120),MY_CONTABILIDAD IN FLOAT,MY_FECHA DATE) AS BEGIN SELECT SEC_GASTOS.NEXTVAL INTO MY_ID_GASTOS FROM DUAL; INSERT INTO GASTOS VALUES(MY_ID_GASTOS, MY_ID_TARJETA, MY_CONCEPTOS,MY_CANTIDAD, MY_FECHA); END; /