-- Prüfung auf aktive Konten trotz Endedatum in Buchhaltungsstammdaten


-- Variablendeklaration
declare  @sachgebiet_von decimal
declare  @sachgebiet_bis decimal
declare  @buchstamm_bis decimal
declare  @beteiligtenartjm decimal

-- Nachfolgende Einstellungen ggf. anpassen

-- Sachgebiet (Standard ist 1 für BPV, 2 für UVG, 3 für WiHi)
set      @sachgebiet_von = 1
set      @sachgebiet_bis = 3

-- Vörgänge nicht anzeigen mit einem Endedatum vor [xxx] Tagen
set      @buchstamm_bis = 90

-- Nummer Beteiligtenart Junger Mensch (Standard ist 7)
set      @beteiligtenartjm = 7


select convert(varchar(10),h2.datbis,104) as Buchstamm_Bis,

-- ASCII 69     	E	Empfänger aktiv
-- ASCII 85     	U	Pflichtiger aktiv
-- ASCII 101    	e	Empfänger inaktiv
-- ASCII 117    	u	Pflichtiger inaktiv

        (case
              when ascii(h2.typ) = 69 then 'Empfänger - Konto aktiv'
              when ascii(h2.typ) = 85 then 'Pflichtiger - Konto aktiv'
              when ascii(h2.typ) = 101 then 'Empfänger - Konto inaktiv'
              when ascii(h2.typ) = 117 then 'Pflichtiger - Konto inaktiv'
              else h2.typ
         end) as [Status Konto],

         v.bereich,
         y.bb Bereichsname,
         v.aktenzeichen,
         a0.nachname Nachname_JM,
         a0.vorname Vorname_JM,
         convert(varchar(10),p.geburtsdatum,104) as Gebdatum_JM,

         a2.nachname as Nachname_Beteil,
         a2.vorname as Vorname_Beteil,
         a2.strasse as Straße_Beteil,
         a2.plz as PLZ_Beteil,
         a2.ort as Ort_Beteil,

         ha.bez AS [Hilfeart],
         h2.lnr AS [hebuch.lnr],
         h2.typ [hebuch.typ]

from n_vorgang v
        left join n_vorgbeteiligte b ON v.vorgangsnummer = b.vorgang
        left join n_adressen a0 ON b.adresse = a0.adressnummer
        left join n_personendaten p ON b.adresse = p.zuordnungsnummer
        left join hebuch h2 ON h2.mnr = v.muendelnr_alt and h2.bereich = v.bereich
        left join hilfeart ha ON ha.lnr = h2.hifanr
        left join hebet t2 ON h2.betnr = t2.lnr and t2.mnr = h2.mnr
        left join n_adrbezugalt x2 ON t2.adrnr = x2.adrnr_alt
        left join n_adressen a2 ON x2.adrnr_neu = a2.adressnummer
        left join bere y ON v.bereich = y.brs
        left outer join fewe u on h2.fwnr = u.fwnr

where y.bsg between @sachgebiet_von and @sachgebiet_bis
and      b.beteiligtenart = @beteiligtenartjm

-- nur aktive Konten
and      (ascii(h2.typ) = 69 OR (ascii(h2.typ) = 85))

-- Endedatum in den Buchhaltuungsstammdaten vor [...] Tagen
and datbis < (getdate ()- @buchstamm_bis)

order by v.bereich,
        v.aktenzeichen,
        datbis