ayuda con este query

[afunez2007]

Esta situacion se parece mucho a las utilidades que uo paso haciendo.

Por ejemplo eventualmente un cliente me dice que elimine las facturas anteriores al año 2005, entonces el asunto es que estan las cabeceras y los detalles.

Como lo resuelvo yo? La respuesta es hacer una utilidad que primero te permita seleccionar el rango de facturas que eliminaras podria ser una qry de la siguiente forma:

Código Delphi [-]
qryConsulta.Active:=False;
qryConsulta.Sql.Text:='SELECT *FROM CABECERA WHERE FECHA < '+QuotedStr('31/12/2006');
qryConsulta.Active:=True;

Seguidamente una vez que tengo en la pantalla una consulta con las facturas que deso borrar, hago un ciclo de la siguiente manera:

Código Delphi [-]
qryConsulta.First;
While not qryConsulta.Eof do 
begin
    qryDelete.Sql.Clear;
    qryDelete.Sql.Text:='DELETE FROM DETALLE WHERE NOFACTURA='+QuotedStr(qryConsulta.FieldByName('NOFACTURA').Text);
    qryDelete.ExecSql;
    qryConsulta.Next;
end;

//Una vez terminado el ciclo que borra los Detalles, borramos las cabeceras que se quedaron solas
qryConsulta.Active:=False;
qryDelete.Sql.Clear;
qryDelete.Sql.Text:='DELETE FROM CABECERA WHERE FECHA<'+QuotedStr('31/12/2006');
qryDelete.ExecSql;

Bueno esto es lo que yo suelo hacer, ojala te sirva

Saludos

[Ledian_Fdez]

Eso esta muy bueno, pero en mi caso solo puse una parte del código, me pasa con muchas mas tablas y pensé que con un procedimiento almacenado lo podría resolver.

Gracias de todas formas y es muy valida tu ayuda, lo tendré en cuanta para otras ocasiones.

Aun estoy en espera de mas ideas. Aunque me encanta trabajar con SQL.

[sinalocarlos]

A mi entender lo correcto seria manejar la propiedad de "cascade" en los foreign key para el delete entre las tablas detalles, asi cuando borrases un detalle en la tabla de Fac_DetalleB se eliminaria de la tabla de Fac_DetalleBS sin tener que tirar codigo de tu parte.

sin embargo el mundo no es tan bello como quisieramos y existen ocaciones en donde el borrado de los detalles de las tablas secundarias es en base a validaciones y es ahi donde nos metemos en problemas al usar un delete on cascade y casi casi nos vemos forsados a ejecutar procedimientos.

en tu caso el borrado de las tablas quedaria:

Código SQL [-]
delete from Fac_DetalleBS
from Fac_DetalleBS inner join Fac_DetalleB on 
Fac_DetalleBS.iddetalle =  Fac_DetalleB.iddetalle
inner join fac_factura on Fac_DetalleB.idfactura =  fac_factura.idfactura
where fac_factura.NumCons = @FactNo

y con eso te ahorras la consulta para sacar el id de la factura, para eliminar los detalles de la tabla Fac_DetalleB se usaria la misma logica:

Código SQL [-]
delete from Fac_DetalleB
from Fac_DetalleB inner join fac_factura on 
Fac_DetalleB.idfactura =  fac_factura.idfactura
where fac_factura.NumCons = @FactNo

y listo.

incluso existe una tercera opcion:

usando un trigger instead of delete en la tabla Fac_DetalleB

Código SQL [-]
create trigger trg_fac_detalleb
on fac_detalleb
instead of delete
as
begin
    delete from fac_detallebs
    from fac_detallebs inner join deleted on 
    fac_detalleb.iddetalle = deleted.iddetalle 
    
    delete from fac_detalleb
    from fac_detalleb inner join deleted on 
    fac_detalleb.iddetalle = deleted.iddetalle 
    

end

y asi la eliminacion de los detalles se haria automatico con el borrado.

tu decides.

por cierto, si detectas algun error en sintaxis el problema es que no tengo SQL la mano y lo teclee todo en notepad