/* Kreis Lippe, Jörg Burzeja - ohne Gewähr
   Buchhaltungsstammdaten beim Beteiligten wurden beendet
   Routine prüft, in welchem Umfang Konten weiter aktiv sind */

select CASE WHEN GROUPING (Jahr) = 1 THEN 'Summe' ELSE Jahr END AS 'Buchstamm_Bis',
       SUM(CASE WHEN ascii (typ) = 69  THEN 1 ELSE 0 END) AS 'Empfänger aktiv (prüfen)',
       SUM(CASE WHEN ascii (typ) = 101  THEN 1 ELSE 0 END) AS 'Empfänger inaktiv',
       SUM(CASE WHEN ascii (typ) = 85  THEN 1 ELSE 0 END) AS 'Pflichtige aktiv (prüfen)',
       SUM(CASE WHEN ascii (typ) = 117  THEN 1 ELSE 0 END) AS 'Pflichtige inaktiv',
       SUM(CASE WHEN ascii (typ) IN (69, 85, 101, 117) THEN 1 ELSE 0 END) AS 'Summe' from (
 SELECT typ,(CAST(year (datbis) AS varchar(4))) AS Jahr
 FROM hebuch
        WHERE bereich between 1000 and 3999
        and ascii (typ) IN (69,85,101,117)

-- Fälle mit Endedatum  in der Vergangenheit in den Buchhaltungsstammdaten
       and datbis < getdate ()

) AS hb group by jahr

with cube

order by jahr desc