[jaimeh]

Muchas gracias a todos por contestarme

Pensaba que ya se había acabado el hilo y por eso no volví a mirarlo.

Lo de Axel si funciona , yo había pensado algo por el estilo pero no sabía como implementarlo. Lo que si, es que es mas lento que haciéndolo sólo
con delphi. He hecho algo como lo siguiente porque
podrían ser para 100 códigos o más

Código Delphi [-]

  list := TStringList.Create;
  list.Add('1');
  list.Add('3');
  list.Add('5');



   qrySeleccion.SQL.Clear;
   qrySeleccion.SQL.Add(
     'SELECT DISTINCT Tique ' +
     'FROM CODIGOSFIN A ' +
     'WHERE EXISTS ' +
       ' (SELECT TIQUE FROM CODIGOSFIN B WHERE A.TIQUE=B.TIQUE ' +
       ' AND CODIGO= ' + list[0] + ' ) ');

   for i := 1 to list.Count -1 do
     qrySeleccion.SQL.Add(
      ' AND EXISTS ' +
        ' (SELECT TIQUE FROM CODIGOSFIN B WHERE A.TIQUE=B.TIQUE ' +
        ' AND CODIGO= ' + list[i] + ' ) ');


     qrySeleccion.SQL.Add('ORDER BY TIQUE, CODIGO');

     qrySeleccion.Open;

Lo de tuAmigo lo he probado aunque no lo entiendo muy bien y para
mas de 100 códigos se podría complicar la cosa.

Código SQL [-]
     'Select distinct Tiques from CodigosFin cf ' +
     ' Where Codigo in(1,3,5) ' +
     ' and (Select count(cf.Tique) from CodigosFin aux ' +
        ' where cf.Tique=aux.Tique)>=3 ';

Me da un error:
Cannot use un aggregate function in a where clause, use habing instead


Y lo que hice yo tiene un pequeño bug que lo he solucionado

Código Delphi [-]
  tblCodigosFin.First;
  while not tblCodigosFin.Eof do
  begin

    Tique := tblCodigosFin.FieldByName('Tique').AsString;
    Codigo := tblCodigosFin.FieldByName('Codigo').AsInteger;

    if Tique <> TiqueAnterior then
    begin
//       TiqueAnterior := Tique;

       if listSeleccionado.Count =
          list.Count then
       begin

         tblSeleccion.Append;
         tblSeleccion.FieldByName('Tique').AsString := TiqueAnterior;
//       tblSeleccion.FieldByName('Codigo').AsInteger := Codigo;
         tblSeleccion.Post;

       end;

       listSeleccionado.Clear;
       TiqueAnterior := Tique;

    end;

       if list.IndexOf(IntToStr(Codigo)) >= 0 then
         if listSeleccionado.IndexOf(IntToStr(Codigo)) < 0 then
           listSeleccionado.Add(IntToStr(Codigo));


    tblCodigosFin.next;
  end;

        if listSeleccionado.Count =
          list.Count then
       begin

         tblSeleccion.Append;
         tblSeleccion.FieldByName('Tique').AsString := TiqueAnterior;
//       tblSeleccion.FieldByName('Codigo').AsInteger := Codigo;
         tblSeleccion.Post;

       end;

ahora si me da bien y es bastante rápido

Muchas gracias a todos y pido disculpas por no haber contestado antes