Foros Club Delphi - ayuda con este query

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- MS SQL Server (https://www.clubdelphi.com/foros/forumdisplay.php?f=23)

- - ayuda con este query (https://www.clubdelphi.com/foros/showthread.php?t=66750)

ayuda con este query

Holas amigos de este foro:

Tengo dos tablas (DetalleB, DetalleBS) relacionadas entre si (uno a mucho) por iddetalle.
Necesito eliminar de la tabla DetalleB el registro que cumplan que idfactura = 15361, pero primero debo eliminar los registros de la tabla DetalleBS que esten relacionados.

Esta consulta:

Código SQL [-]select iddetalle from DetalleBS
where idfactura = 15361

me devuelve : varios registros

ejemplo:
iddetalle 12,13,14 ...
Necesito eliminar de la tabla DetalleBS todos esos registros, por ejemplo:

Código SQL [-]delete from DetalleBS
where iddetalle  = 12

Pero intento buscar una forma donde me lo elimine todos automaticamante. sin tener que ponérselo yo uno por uno, pensé en:

Código SQL [-]delete from DetalleBS
where iddetalle  = (select iddetalle from DetalleB
where idfactura = 15361)

Pero me da el error:

Cita:

Subquery returned more than 1 value. This is not permitted when the subquery follows =, !=, <, <= , >, >= or when the subquery is used as an expression.

Podrían ayudarme

Hola Ledian_Fdez, la consulta sería esta para borrar el detalle:

Código SQL [-]Delete from DetalleBS
where idfactura = 15361

Saluditos

Esto es un procedimiento que intento hacer para una aplicacion que por algun error me genera documentos dobles y necesito eliminarlos todos.

Código SQL [-]craate procedure EliminaDocumentoGeneradosDobles
@FactNo varchar(30)
as

declare 
  @FactId int,
  @FDet int

--para saber el idfactura conociendo su numero
select @FactId = idfactura from fac_factura
where NumCons = @FactNo

  --para saber el iddetalle conociendo su idfactura
  select @FDet = iddetalle from Fac_DetalleB
  where idfactura = @FactId 

 /* Ese Select me devuelve por ejemplo 3 registros y en @FDet solo se guarda      el ultimo*/
 
begin tran  

  delete from Fac_DetalleBS
  where iddetalle = @FDet

  /* aqui me jenera un error porque solo se elimino en la tabla Fac_DetalleBS el ultimo registro que contenia*/

  delete from Fac_DetalleB
  where idfactura = @FactId

  if @@error <> 0 
    begin
      RollBack
      raiserror ( 'Error al eliminar factura.', 16, -1)
    end
  else
    Commit

Por eso es que intentaba buscar otra solución tal como:

Código SQL [-]delete from Fac_DetalleBS
where iddetalle  = (select iddetalle from Fac_DetalleB
where idfactura = 15361)

No se si me hago entender.

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

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.

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

Cita:

Empezado por Ledian_Fdez (Mensaje 356425)

Código SQL [-]delete from DetalleBS
where iddetalle  = (select iddetalle from DetalleB
where idfactura = 15361)

¿Has probado con poner "IN" en lugar de "="?
Lo digo porque el mensaje te lo dice claramente, se devuelven muchas filas donde se esperaba sólo una...

Código SQL [-]delete from DetalleBS
where iddetalle  in (select iddetalle from DetalleB
where idfactura = 15361)

Un saludo