SET TERM ^ ;

CREATE trigger ttbadiant_pre_pedidos_b09i for tbadiantamento_pre_pedidos
active before insert position 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);

BEGIN
    HISTORICO = '';

    IF(NEW.ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'PRE PEDIDO '||NEW.PRE_PEDIDO_ID||' INCLUIDO NO ADIANTAMENTO '||NEW.ADIANTAMENTO_ID;
    END
    
    IF(HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBPDV_CONFERENCIA', NEW.PRE_PEDIDO_ID, HISTORICO);
    END
END
^

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER trigger ttbadiant_pre_pedidos_b09d for tbadiantamento_pre_pedidos
active before delete position 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);

BEGIN
    HISTORICO = '';

    IF(OLD.ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'PRE PEDIDO '||OLD.PRE_PEDIDO_ID||' REMOVIDO DO ADIANTAMENTO '||OLD.ADIANTAMENTO_ID;
    END
    
    IF(HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBPDV_CONFERENCIA', OLD.PRE_PEDIDO_ID, HISTORICO);
    END
END
^

SET TERM ; ^

SET TERM ^ ;

CREATE trigger ttbadiant_pre_pedidos_b09u for tbadiantamento_pre_pedidos
active before update position 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
     HISTORICO = '';

     IF(NEW.VALOR <> OLD.VALOR) THEN
     BEGIN
        HISTORICO = HISTORICO||'PRE PEDIDO '||NEW.PRE_PEDIDO_ID||' ALTERADO NO ADIANTAMENTO '||OLD.ADIANTAMENTO_ID||' - VALOR: '||OLD.VALOR||'->'||NEW.VALOR;
     END
    
     IF(HISTORICO <> '') THEN
     BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBPDV_CONFERENCIA', NEW.PRE_PEDIDO_ID, HISTORICO);
     END
    
END
^

SET TERM ; ^

