Berreinigungsskript

-- Rechnungen die bei einer Nebenadresse sind zur Hauptadresse umhängen.
-- dies kann zum Beispiel passieren, wenn man Hierarchie Bilden verwendet
-- und eine Hauptadresse dabei zur Nebenadresse wird.
print 'Rechnungen von Nebenadressen zur Hauptadresse umhängen'
update View_Belege
set SuperId = a.VNummer
from
View_Belege b, View_Adressen a
where a.id = b.SuperId and a.Haupt = 'N' and b.Belegart = 'Ausgangsrechnung'
 
print 'Bei Tickets, die bei Nebenadressen sind die Nebenadresse als Ansprechpartner setzen'
update View_Tickets
set [Kunde Ansprechpartner] = Kunde
from
View_Tickets t, View_Adressen a
where a.id = t.Kunde and a.Haupt = 'N' and t.[Kunde Ansprechpartner] is null
 
print 'Tickets von Nebenadressen zur Hauptadresse umhängen'
update View_Tickets
set Kunde = a.VNummer
from
View_Tickets t, View_Adressen a
where a.id = t.Kunde and a.Haupt = 'N'
 
-- Betreut von zu den Hauptadressen umhängen
print 'Betreut von Partner von Nebenadressen zur Hauptadresse umhängen'
update View_Adressen
    set [Betreut von Partner] = p.VNummer
from
    View_Adressen, View_Adressen p
where
    View_Adressen.[Betreut von Partner] = p.ID and p.Haupt = 'N'
 
print 'Betreut von Distributor von Nebenadressen zur Hauptadresse umhängen'
update View_Adressen
    set [Betreut von Distributor] = d.VNummer
from
    View_Adressen, View_Adressen d
where
    View_Adressen.[Betreut von Distributor] = d.ID and d.Haupt = 'N'
 
-- Gibt es Leistungen die beim Kunden, als Partner oder Distri nicht bei der Hauptadresse
-- sondern beim Ansprechpartner liegen?
-- dies kann zum Beispiel passieren, wenn man Hierarchie Bilden verwendet
-- und eine Hauptadresse dabei zur Nebenadresse wird.
print 'Leistung von Nebenadressen zur Hauptadresse umhängen'
update View_Leistung
set superid = a.VNummer
from
View_Leistung l, View_Adressen a
where a.id = l.SuperId and a.Haupt = 'N'
 
print 'Leistungspartner von Nebenadressen zur Hauptadresse umhängen'
update View_Leistung
set Partner = a.VNummer
from
View_Leistung l, View_Adressen a
where a.id = l.Partner and a.Haupt = 'N'
 
print 'Leistungsdistributor von Nebenadressen zur Hauptadresse umhängen'
update View_Leistung
set Distributor = a.VNummer
from
View_Leistung l, View_Adressen a
where a.id = l.Distributor and a.Haupt = 'N'

select * from View_TicketBudgetPositionen where not TicketAngebot in (select id from View_Tickets)
select * from View_TicketBeobachter where not Ticket in (select id from View_Tickets)
select * from View_TicketDokumente where not Ticket in (select id from View_Tickets)
select * from View_TicketKommentare where not Ticket in (select id from View_Tickets)
select * from View_Zeitbuchung where not Ticket in (select id from View_Tickets)
 
-- Doppelte Beobachter löschen
delete from View_TicketBeobachter where id in
(
    select min(id) from View_TicketBeobachter group by Benutzer, Ticket having count(*) > 1
)