/*===============*/
/* Versão: 1.58  */
/*==============================================================*/
/* Table: CLASS_FISCAL                                          */
/*==============================================================*/
create table CLASS_FISCAL (
COD_FISCAL           VARCHAR(10)                    not null,
DESCRICAO            VARCHAR(100),
PERC_BASE            NUMERIC(9,4),
constraint PK_CLASS_FISCAL primary key (COD_FISCAL)
);

COMMIT WORK;

INSERT INTO CLASS_FISCAL
  (COD_FISCAL,DESCRICAO,PERC_BASE)
VALUES
  ('73121010','CORDAS E CABOS,DE FIOS ACO,REVEST.BRONZE/LATAO,P/ELETR.',0.0);
INSERT INTO CLASS_FISCAL
  (COD_FISCAL,DESCRICAO,PERC_BASE)
VALUES
  ('85441100','FIOS DE COBRE P/BOBINAR,ISOLADOS P/USO ELETR.',0.0);

COMMIT WORK;
/*==============================================================*/
/* Table: PRODUTOS                                              */
/*==============================================================*/
ALTER TABLE PRODUTOS ADD COD_FISCAL VARCHAR(10);

COMMIT WORK;

alter table PRODUTOS
   add constraint FK_PRODUTOS_CLASS_FISCAL foreign key (COD_FISCAL) references CLASS_FISCAL(COD_FISCAL);

COMMIT WORK;

/*===============*/
/* Versão: 1.59  */
/*==============================================================*/
/* Trigger: TG_UPDATE_ROMANEIOS                                 */
/*==============================================================*/

SET TERM ^;

ALTER TRIGGER TG_UPDATE_ROMANEIOS
ACTIVE AFTER UPDATE POSITION 0
AS
BEGIN
    IF (NEW.SITUACAO = 'L') THEN
    BEGIN
        UPDATE ITENS_ROMANEIOS SET ESTADO_ITEM = 'V'
        WHERE COD_EMPRESA = NEW.COD_EMPRESA AND
              TIPO_CONTROL = NEW.TIPO_CONTROL AND
              NRO_ROMANEIO = NEW.NRO_ROMANEIO AND
              ESTADO_ITEM = 'C';
    END
    IF (NEW.SITUACAO = 'A') THEN
    BEGIN
        UPDATE ITENS_ROMANEIOS SET ESTADO_ITEM = 'C'
        WHERE COD_EMPRESA = NEW.COD_EMPRESA AND
              TIPO_CONTROL = NEW.TIPO_CONTROL AND
              NRO_ROMANEIO = NEW.NRO_ROMANEIO AND
              ESTADO_ITEM = 'V';
    END
    IF (NEW.SITUACAO = 'E') THEN
    BEGIN
        UPDATE ITENS_ROMANEIOS SET ESTADO_ITEM = 'E'
        WHERE COD_EMPRESA = NEW.COD_EMPRESA AND
              TIPO_CONTROL = NEW.TIPO_CONTROL AND
              NRO_ROMANEIO = NEW.NRO_ROMANEIO AND
              ESTADO_ITEM = 'C';
    END
END^
SET TERM ;^ 

COMMIT WORK;

/*==============================================================*/
/* Table: ROMANEIOS                                             */
/*==============================================================*/
UPDATE ROMANEIOS SET SITUACAO = 'E' WHERE SITUACAO = 'E';

COMMIT WORK;