Deletar registros de v�rias tabelas usando execute block

03/02/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...
Desde j� agrade�o a quem possa me ajudar!

Itamar Monteiro

Curtir t�pico + 0

Responder

Posts

04/02/2013

Rafael Cunha

Tenta conforme abaixo, caso o seu relacionamento com VENDAITENS for Delete Cascate ao deletar uma venda o mesmo ir� deleta os itens da venda.

EXECUTE BLOCK(
DATA1 DATE = :DATA1,
DATA2 DATE = :DATA2
)
AS
BEGIN
DELETE FROM VENDAS
VENDAS.DATA BETWEEN :DATA1 AND :DATA2 AND VENDAS.COO IS NULL

DELETE FROM LANCAMENTOS WHERE DATA BETWEEN :DATA1 AND :DATA2;

DELETE FROM CTAPAGAS WHERE DATA BETWEEN :DATA1 AND :DATA2;
END

Responder

Gostei + 0

05/02/2013

Itamar Monteiro

Ent�o Rafael, na tabela de venda e vendasitens eu tinha esse relacionamento, mas o problema � que quando eu exclu�a com esse relacionamento demorava mais ainda.... por essa raz�o eu tirei a foreign key, dessa forma eu deleto primeiro os itens e depois a venda, entendeu?

Responder

Gostei + 0