ALTER TABLE TBMEDICO
ADD TELEFONE VARCHAR(11) CHARACTER SET UTF8

CREATE OR ALTER TRIGGER TTBMEDICO_B9U FOR TBMEDICO
ACTIVE AFTER UPDATE POSITION 9
AS
--*****************************
--*       Registra log        *
--*       de alteracaoo        *
--*****************************
DECLARE VARIABLE HISTORICO VARCHAR(500);
begin

   HISTORICO = '';

   if (old.nome <> new.nome) then
       begin
       historico = historico||' Nome: '||OLD.Nome||'->'||NEW.Nome;
       end
   if (old.telefone <> new.telefone) then
       begin
       historico = historico||' Telefone: '||OLD.telefone||'->'||NEW.telefone;
       end
   if (old.registro_tipo <> new.registro_tipo) then
       begin
       historico = historico||' Tp.Registro: '||OLD.registro_tipo||'->'||NEW.registro_tipo;
       end
   if (old.registro_numero <> new.registro_numero) then
       begin
       historico = historico||' Nr.Registro: '||OLD.registro_numero||'->'||NEW.registro_numero;
       end
   if (old.registro_uf <> new.registro_uf) then
       begin
       historico = historico||' UF Registro: '||OLD.registro_uf||'->'||NEW.registro_uf;
       end

   if (HISTORICO <> '') Then
   Begin
        EXECUTE PROCEDURE SPI_HISTORICO('TBMEDICO',NEW.ID,:Historico);
   End
end