SET TERM ^ ;

CREATE trigger tbpdv_mov_antecipacao_a01d for tbpdv_movimento_antecipacao
active after delete position 1
AS
DECLARE VARIABLE CHECK_EXISTENTE INTEGER;
BEGIN
    IF(OLD.ID > 0) THEN
    BEGIN
        :CHECK_EXISTENTE = COALESCE((SELECT FIRST 1 T.ID FROM TBPDV_MOVIMENTO_ANTECIPACAO T WHERE T.AGRUPAMENTO_ID = OLD.AGRUPAMENTO_ID), 0);
        IF(:CHECK_EXISTENTE = 0) THEN
        BEGIN
            DELETE FROM TBADIANTAMENTO_PRE_PEDIDOS T WHERE T.ADIANTAMENTO_ID = OLD.AGRUPAMENTO_ID;
        END

    END
    
    
END
^

SET TERM ; ^

