Artikelauflistung ohne Historie

mit einem Gruß zum neuen Jahr folgende Frage:
habe ich im Artikelstamm die Möglichkeit (evtl. über die erweiterte Artikelsuche) die Artikel aufgelistet zu bekommen,
die keinen Historie-Eintrag haben um sie zu löschen?

Hallo,
nimm das hier mal als Basis,
eventuell die UmsMge und die Quellen anpassen.

Code: Alles auswählen

/* Pennerliste nach Warengruppe und Artikel
   Lagernde Artikel ohne Umsätze in den letzten 2 Jahren
   www.foxdata.at (Wilhelm Fuchs) 2015/01 */
select
  WG.NAME as WGR,
  A.ARTNUM as Artikel,
  A.KURZNAME as Bezeichnung,
  A.MENGE_AKT as Lager,
  A.MENGE_AKT*A.EK_PREIS as LagWert,
/* Gesamtumsatzmenge */
  sum(JP.MENGE) as "UmsMge",
  ME.BEZEICHNUNG as MEh
from ARTIKEL A
 left join JOURNALPOS JP on JP.ARTIKEL_ID = A.REC_ID
       and JP.QUELLE in (3, 4)
 left join JOURNAL J on JP.JOURNAL_ID = J.REC_ID
       and J.STADIUM <> 127 and YEAR(J.RDATUM) in
       (YEAR(CURDATE()), YEAR(CURDATE())-1, YEAR(CURDATE())-2)
 left join WARENGRUPPEN WG on A.WARENGRUPPE = WG.ID
 left join MENGENEINHEIT ME on A.ME_ID = ME.REC_ID
/* Artikel ohne Bewegung */
where A.ARTIKELTYP in ("N", "S")
  and A.MENGE_AKT > 0
group by A.WARENGRUPPE, A.ARTNUM
  having UmsMge is null or UmsMge <=0
order by A.WARENGRUPPE, A.ARTNUM

hallo willi,
vielen dank dafür. ich komme aber erst in ein paar tagen dazu, bin eben noch
unterwegs.

Kurzes Update meinereits. Das Script berücksichtigt die Preis-Einheit nicht. Müsste lauten:

Code: Alles auswählen

A.MENGE_AKT*A.EK_PREIS/A.PR_EINHEIT as LagWert

Helmut

Danke,
als ich das 2015 programmiert habe war ich noch jung und unerfahren...