/******************************************************************************/
/*           Generated by IBExpert                                            */
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES NONE;

CREATE DATABASE 'C:\...<Fijar la ruta del archivo>...\demos.gdb'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 16384
DEFAULT CHARACTER SET NONE;



/******************************************************************************/
/*                                 Generators                                 */
/******************************************************************************/

CREATE GENERATOR GEN_BANNERS_ID;
SET GENERATOR GEN_BANNERS_ID TO 4;



SET TERM ^ ; 



/******************************************************************************/
/*                             Stored Procedures                              */
/******************************************************************************/

CREATE PROCEDURE ELIMINARIMAGEN (
    IDBANNER INTEGER)
AS
BEGIN
  EXIT;
END^





CREATE PROCEDURE INSERTAIMAGEN (
    BANNER BLOB SUB_TYPE 0 SEGMENT SIZE 80)
RETURNS (
    IDBANNER INTEGER)
AS
BEGIN
  SUSPEND;
END^






SET TERM ; ^



/******************************************************************************/
/*                                   Tables                                   */
/******************************************************************************/



CREATE TABLE BANNERS (
    IDBANNER  INTEGER NOT NULL,
    BANNER    BLOB SUB_TYPE 0 SEGMENT SIZE 80
);



/******************************************************************************/
/*                                  Triggers                                  */
/******************************************************************************/


SET TERM ^ ;



/******************************************************************************/
/*                            Triggers for tables                             */
/******************************************************************************/



/* Trigger: BANNERS_BI */
CREATE TRIGGER BANNERS_BI FOR BANNERS
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.idbanner is null) then
    new.idbanner = gen_id(gen_banners_id,1);
end
^

SET TERM ; ^



/******************************************************************************/
/*                             Stored Procedures                              */
/******************************************************************************/


SET TERM ^ ;

ALTER PROCEDURE ELIMINARIMAGEN (
    IDBANNER INTEGER)
AS
begin
  delete from Banners where IDBanner = :IDBanner;
  suspend;
end^


ALTER PROCEDURE INSERTAIMAGEN (
    BANNER BLOB SUB_TYPE 0 SEGMENT SIZE 80)
RETURNS (
    IDBANNER INTEGER)
AS
begin
  idbanner = gen_id(gen_banners_id,1);
  insert into banners (idbanner, banner)
  values (:idbanner, :banner);
  suspend;
end^



SET TERM ; ^
