Delete cascade com execute block

31/01/2013

Ol� amigos do f�rum
tenho um problema que j� est� me persiguindo h� alguns dias e talvez algu�m dos amigos do f�rum possa me ajudar.
tenho 4 tabelas Vendas(VENDAS), Itens da Venda(VENDAITENS), Lan�amentos do Caixa(LANCAMENTOS)e Contas Pagas(CTAPAGAS).Montei um execute block para zerar a movimenta��o dessas tabelas dado um per�odo inicial e final. O script � este abaixo:

EXECUTE BLOCK(
  DATA1 DATE = :DATA1,
  DATA2 DATE = :DATA2
)
AS
  DECLARE VARIABLE DATAVENDA DATE;
  DECLARE VARIABLE IDVENDA INTEGER=0;
BEGIN
  FOR SELECT
    VENDAS.DATA, VENDAS.IDVENDA FROM VENDAS
    WHERE
      VENDAS.DATA BETWEEN :DATA1 AND :DATA2 AND VENDAS.COO IS NULL
    INTO :DATAVENDA, :IDVENDA
    AS CURSOR CRVENDAS
  DO
    BEGIN
      DELETE FROM VENDAITENS WHERE VENDAITENS.IDVENDA = :IDVENDA;
      DELETE FROM VENDAS WHERE CURRENT OF CRVENDAS;
      DELETE FROM LANCAMENTOS WHERE DATA = :DATAVENDA;
      DELETE FROM CTAPAGAS WHERE DATA = :DATAVENDA;
    END
END

Dessa forma ele exclui, s� que para um per�odo de 2 dias exemplo: 10/01/2013 a 12/01/2013 ela demora cerca de 5 minutos para excluir, est� muito lento. Algum dos amigos conhece uma outra forma de otimizar essa opera��o ? Pq suponho o seguinte, se para excluir a movimenta��o de 2 dias demora 5 minutos imaginem para excluir 2 meses ent�o...
Obrigado

Itamar Monteiro

Curtir t�pico + 0

Responder