INSERT INTO TBMENU (DESCRICAO, CONTROLE, GRUPO, SUBGRUPO, TIPO, URL)
            VALUES ('CADASTRO DE CONDIÇOES DE PAGAMENTO', 20160, 'FIN', 'FIN', '1   ', '');

UPDATE TBPAGAMENTO_CONDICAO SET STATUSEXCLUSAO = 1;
			
CREATE trigger tTBPAGAMENTO_CONDICAO_b01i for TBPAGAMENTO_CONDICAO
active before insert position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    IF ( NEW.codigo > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' Registro Incluido';
    END

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

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

    HISTORICO = '';

    IF ( OLD.descricao <> NEW.descricao) THEN
    BEGIN
        HISTORICO = HISTORICO||'Cond. Pagamento:'|| OLD.descricao||'->'||NEW.descricao;
    END
	
	IF ( OLD.Status <> NEW.Status) THEN
    BEGIN
        HISTORICO = HISTORICO||', Status:'|| OLD.Status||'->'||NEW.Status;
    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_CONDICAO',NEW.codigo, HISTORICO);
    END
end;

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

    HISTORICO = '';

    IF ( OLD.codigo > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'Registro Excluido';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBPAGAMENTO_CONDICAO',old.codigo, HISTORICO);
    END
end;


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

    HISTORICO = '';

	IF ( OLD.PRAZO <> NEW.PRAZO) THEN
    BEGIN
        HISTORICO = HISTORICO||' Dias:'|| OLD.PRAZO||'->'||NEW.PRAZO;
    END
	
	IF ( OLD.QUOTA <> NEW.QUOTA) THEN
    BEGIN
        HISTORICO = HISTORICO||'Prazo:'||old.PRAZO||' Quota:'|| OLD.QUOTA||'->'||NEW.QUOTA;
    END

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

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

    HISTORICO = '';

    IF ( OLD.CONDICAOPAGAMENTO_CODIGO > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'Prazo:'||old.PRAZO||' excluido';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBPAGAMENTO_CONDICAO',old.CONDICAOPAGAMENTO_CODIGO, HISTORICO);
    END
end;
