Abfrage: Kund hat Artikel X aber nicht Y gekauft

[Delphi.Narium]

Noch ein Versuch:

SQL-Code:

select kdnr
from (
  select 
    kdnr, 
    Sum(HatX) as HatX, /* Wie oft kommt der Artikel X vor? */
    Sum(HatY) as HatY  /* Wie oft kommt der Artikel Y vor? */
  from (
    select 
      k1.kdnr, 
      case when p1.artikel = 'X' then 1 else 0 end as HatX, /* Jeder Artikel X zählt. */
      case when p1.artikel = 'Y' then 1 else 0 end as HatY  /* Jeder Artikel Y zählt. */
    from   kunden k1, rechnungen r1, positionen p1
    where  k1.kdnr = r1.kdnr
    and    r1.renr = p1.renr
    and    p1.artikel in ('X','Y') /* Alle Kunden, die irgendwo Artikel X oder Y erworben haben. */
  )
  group by kdnr
)
where HatY = 0; /* Nur die, bei denen Artikel Y nicht vorkommt. */