INSERT INTO TBMENU (DESCRICAO, CONTROLE, GRUPO, SUBGRUPO, TIPO, URL)
            VALUES ('CADASTRO DE FORMAS DE PAGAMENTO', 20180, 'FIN', 'FIN', '1   ', '');
            
CREATE trigger tTBPAGAMENTO_FORMA_b01i for TBPAGAMENTO_FORMA
active before insert position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    HISTORICO = HISTORICO||' Registro Incluido';


    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBPAGAMENTO_FORMA',NEW.CODIGO, HISTORICO);
    END
end;

CREATE trigger tTBPAGAMENTO_FORMA_b01u for TBPAGAMENTO_FORMA
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    IF ( OLD.descricao <> NEW.descricao) THEN
    BEGIN
        HISTORICO = HISTORICO||'Descricao:'|| OLD.descricao||'->'||NEW.descricao;
    END
	
	IF ( OLD.CONFIRMACAO_PEDIDO <> NEW.CONFIRMACAO_PEDIDO) THEN
    BEGIN
        HISTORICO = HISTORICO||'Conf. Pedido:'|| OLD.CONFIRMACAO_PEDIDO||'->'||NEW.CONFIRMACAO_PEDIDO;
    END
	
	IF ( OLD.COBRANCA_ID <> NEW.COBRANCA_ID) THEN
    BEGIN
        HISTORICO = HISTORICO||'Vinc. Cobran.:'|| OLD.COBRANCA_ID||'->'||NEW.COBRANCA_ID;
    END
    
	IF ( OLD.STATUSEXCLUSAO <> NEW.STATUSEXCLUSAO and new.STATUSEXCLUSAO = 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'Registro excluido.';
    END
	
	IF ( OLD.STATUSEXCLUSAO <> NEW.STATUSEXCLUSAO and new.STATUSEXCLUSAO = 1) THEN
    BEGIN
        HISTORICO = HISTORICO||'Exclusao desfeita.';
    END
	
    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBPAGAMENTO_FORMA', NEW.CODIGO, HISTORICO);
    END
end;

CREATE OR ALTER trigger tTBPAGAMENTO_FORMA_b01d for TBPAGAMENTO_FORMA
active before delete position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    HISTORICO = HISTORICO||'Registro Excluido';

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBPAGAMENTO_FORMA', OLD.CODIGO, HISTORICO);
    END
end;
