/*------ 10/04/2016 00:19:19 --------*/

SET TERM ^ ;

CREATE TRIGGER MESAS_BI FOR MESAS
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.CODMESA IS NULL OR NEW.CODMESA=0) THEN
      NEW.CODMESA = GEN_ID(GEN_MESAS,1);
END
^

SET TERM ; ^




/*------ 10/04/2016 00:27:50 --------*/

SET TERM ^ ;

create procedure SPMESAS
returns (
CODMESA INTEGER,
DESCRICAO VARCHAR (10),
STATUS CHAR(1))
as
begin
  FOR SELECT M.codmesa, M.descricao, M.status FROM MESAS M
  INTO :CODMESA, :DESCRICAO, :STATUS
  DO
  BEGIN

    suspend;
  END
end;
^

SET TERM ; ^




/*------ 10/04/2016 00:39:58 --------*/

SET TERM ^ ;

ALTER procedure SPMESAS
returns (
CODMESA INTEGER,
DESCRICAO VARCHAR (10),
STATUS CHAR(1),
TOTAL FLOAT)
as
begin
  FOR SELECT M.codmesa, M.descricao, M.status FROM MESAS M
  INTO :CODMESA, :DESCRICAO, :STATUS
  DO
  BEGIN
    TOTAL = 0;
    suspend;
  END
end;
^

SET TERM ; ^




/*------ 10/04/2016 02:43:19 --------*/

update RDB$RELATION_FIELDS set
RDB$FIELD_SOURCE = 'INTEIRO_NULL'
where (RDB$FIELD_NAME = 'DESCRICAO') and
(RDB$RELATION_NAME = 'MESAS')
;


/*------ 10/04/2016 02:43:45 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPMESAS
RETURNS (
    CODMESA INTEGER,
    DESCRICAO INTEGER,
    STATUS CHAR(1),
    TOTAL FLOAT)
AS
begin
  FOR SELECT M.codmesa, M.descricao, M.status FROM MESAS M
  INTO :CODMESA, :DESCRICAO, :STATUS
  DO
  BEGIN
    TOTAL = 0;
    suspend;
  END
end
^

SET TERM ; ^




/*------ 12/04/2016 01:10:41 --------*/

ALTER TABLE GRUPO
ADD IMG FOTO;


/*------ 12/04/2016 13:30:22 --------*/

ALTER TABLE MESAS
ADD CODMOVIMENTO INTEIRO_NULL;


/*------ 12/04/2016 13:38:52 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPMESAS
RETURNS (
    CODMESA INTEGER,
    DESCRICAO INTEGER,
    CODMOVIMENTO INTEGER,
    STATUS CHAR(1),
    TOTAL FLOAT)
AS
begin
  FOR SELECT M.codmesa, M.descricao, M.status, M.codmovimento FROM MESAS M
  INTO :CODMESA, :DESCRICAO, :STATUS, :CODMOVIMENTO
  DO
  BEGIN
    TOTAL = 0;
    suspend;
  END
end
^

SET TERM ; ^




/*------ 13/04/2016 02:41:49 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPMESAS
RETURNS (
    CODMESA INTEGER,
    DESCRICAO INTEGER,
    CODMOVIMENTO INTEGER,
    STATUS CHAR(1),
    TOTAL FLOAT)
AS
begin
  FOR SELECT M.codmesa, M.descricao, M.status, M.codmovimento FROM MESAS M
  INTO :CODMESA, :DESCRICAO, :STATUS, :CODMOVIMENTO
  DO
  BEGIN
    TOTAL = 0;
    if (CODMOVIMENTO>0) then
    begin
        select TOTALGERAL from totalmov(:CODMOVIMENTO)
        INTO :TOTAL;
    end
    suspend;
  END
end
^

SET TERM ; ^