CREATE TABLE TBLOTE_CONFERENCIA (
    ID INTEGER,
    DATA_HORA TIMESTAMP);

COMMENT ON TABLE TBLOTE_CONFERENCIA IS 'tabela com lotes de conferencia';

CREATE SEQUENCE GTBLOTE_CONFERENCIA;

create trigger ttblote_conferencia_b01i for tblote_conferencia
active before insert position 0
as
begin
  if (new.id is null) then
    new.id = gen_id(gtblote_conferencia,1);
end;

CREATE TABLE TBLOTE_CONFERENCIA_DETALHE (
    ID INTEGER NOT NULL,
    ESTOUE_ID INTEGER,
    LOTE_ID INTEGER);

ALTER TABLE TBLOTE_CONFERENCIA_DETALHE
ADD CONSTRAINT PK_TBLOTE_CONFERENCIA_DETALHE
PRIMARY KEY (ID);

COMMENT ON TABLE TBLOTE_CONFERENCIA_DETALHE IS 'tabela com os itens do lote de conferencia';

CREATE SEQUENCE GTBLOTE_CONFERENCIA_DETALHE;

create trigger ttblote_conf_detalhe_b01i for tblote_conferencia_detalhe
active before insert position 0
as
begin
  if (new.id is null) then
    new.id = gen_id(gtblote_conferencia_detalhe,1);
end;

create or alter procedure spi_lote_conferencia (
    operador_lote integer)
returns (
    lote_id integer)
as
begin
  :LOTE_ID = gen_id(gtblote_conferencia,1);
  insert into tblote_conferencia (ID, DATA_HORA, OPERADOR_LOTE) values(:LOTE_ID, current_timestamp, :OPERADOR_LOTE);
  suspend;
end;

ALTER TABLE TBLOTE_CONFERENCIA_DETALHE
    ALTER ESTOUE_ID TYPE VARCHAR(500);