--VSQL/HEAD[VERSION=0]
--VSQL/HEAD[TITLE=Anonymisierung innosolv Datenbank Rel. 2023]
IF (exists (  select 'x' 
          from basis.Parameter 
          where ID_Parameter = 216 /* Testsystem */
          and Wert = '1'
       )
)
BEGIN
--VSQL/SEGMENT/BEGIN[Orgeinheit anonymisieren]
update basis.Orgeinheit
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), ID_Orgeinheit), null)
where ID_Orgeinheit != 2;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Namensfragmente löschen]
delete from Basis.NAMEFRGM;
delete from Basis.NAMEFRGMZUORD;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Einwohner-Name anonymisieren]
update einwohner.NAME
set ID_Subjekt = null
where ID_Name in (
select n.ID_Name 
from einwohner.NAME n 
where n.ID_Subjekt is not null 
and not exists (select 'x' from basis.Subjekt s where s.ID_Subjekt = n.ID_Subjekt)
);
--VSQL/STMT/END
DISABLE TRIGGER einwohner.Name_TU ON einwohner.Name;  
--VSQL/STMT/END
update einwohner.NAME
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
LedigerName = IIF(LedigerName is not null, 'LedigerName' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Allianzname = IIF(Allianzname is not null, 'Allianzname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
AuslName = IIF(AuslName is not null, 'AuslName' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
AuslVorname = IIF(AuslVorname is not null, 'AuslVorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Aliasname = IIF(Aliasname is not null, 'Aliasname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Vornamen = IIF(Vornamen is not null, 'Vorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Rufname = IIF(Rufname is not null, 'Vorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
AndererName = IIF(AndererName is not null, 'AndererName' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
SuchName = IIF(SuchName is not null, 'Name' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
SuchVornamen = IIF(SuchVornamen is not null, 'Vorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
SuchAuslVorname = IIF(Allianzname is not null, 'AuslVorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Name_kpn = IIF(Name_kpn is not null, Basis.KoelnerPhonetik_F('Name' + convert(varchar(50), isnull(ID_Subjekt, ID_Name))), null),
Vornamen_kpn = IIF(Vornamen_kpn is not null, Basis.KoelnerPhonetik_F('Vorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name))), null),
AuslVorname_kpn = IIF(AuslVorname_kpn is not null, Basis.KoelnerPhonetik_F('AuslVorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name))), null);
--VSQL/STMT/END
ENABLE TRIGGER einwohner.Name_TU ON einwohner.Name;  
--VSQL/STMT/END
update einwmut._NAME
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
LedigerName = IIF(LedigerName is not null, 'LedigerName' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Allianzname = IIF(Allianzname is not null, 'Allianzname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
AuslName = IIF(AuslName is not null, 'AuslName' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
AuslVorname = IIF(AuslVorname is not null, 'AuslVorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Aliasname = IIF(Aliasname is not null, 'Aliasname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Vornamen = IIF(Vornamen is not null, 'Vorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
Rufname = IIF(Rufname is not null, 'Vorname' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null),
AndererName = IIF(AndererName is not null, 'AndererName' + convert(varchar(50), isnull(ID_Subjekt, ID_Name)), null);
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Betrieb-Name anonymisieren]
update einwohner.NAMEBETRIEB
set ID_Subjekt = null
where ID_NameBetrieb in (
select n.ID_NameBetrieb 
from einwohner.NAMEBETRIEB n 
where n.ID_Subjekt is not null 
and not exists (select 'x' from basis.Subjekt s where s.ID_Subjekt = n.ID_Subjekt)
);
--VSQL/STMT/END
DISABLE TRIGGER einwohner.NameBetrieb_TU ON einwohner.NameBetrieb;  
--VSQL/STMT/END
update einwohner.NAMEBETRIEB
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), isnull(ID_Subjekt, ID_NameBetrieb)), null),
ZusatzName = IIF(ZusatzName is not null, 'ZusatzName' + convert(varchar(50), isnull(ID_Subjekt, ID_NameBetrieb)), null),
NameHR = IIF(NameHR is not null, 'HR' + convert(varchar(50), isnull(ID_Subjekt, ID_NameBetrieb)), null);
--VSQL/STMT/END
ENABLE TRIGGER einwohner.NameBetrieb_TU ON einwohner.NameBetrieb;  
--VSQL/STMT/END
update einwmut._NAMEBETRIEB
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), isnull(ID_Subjekt, ID_NameBetrieb)), null),
ZusatzName = IIF(ZusatzName is not null, 'ZusatzName' + convert(varchar(50), isnull(ID_Subjekt, ID_NameBetrieb)), null),
NameHR = IIF(NameHR is not null, 'HR' + convert(varchar(50), isnull(ID_Subjekt, ID_NameBetrieb)), null);
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Einmaladresse anonymisieren]
DISABLE TRIGGER basis.Einmaladresse_TU ON basis.Einmaladresse;  
--VSQL/STMT/END
update basis.Einmaladresse
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), ID_Einmaladresse), null),
ZusatzName = IIF(ZusatzName is not null, 'ZusatzName' + convert(varchar(50), ID_Einmaladresse), null),
Vorname = IIF(Vorname is not null, 'Vorname' + convert(varchar(50), ID_Einmaladresse), null),
Strasse = IIF(Strasse is not null, 'Strasse' + + convert(varchar(50), ID_Einmaladresse), null),
Kontaktperson = IIF(Kontaktperson is not null, 'Kontaktperson' + + convert(varchar(50), ID_Einmaladresse), null),
AdressZusatz = null,
StrasseZusatz = null,
StrasseZusatzNachStrasse = null,
Telefon_Privat = null,
Telefax = null,
Mobil_Privat = null,
Email_Privat = null,
Verb_Name = IIF(Verb_Name is not null, 'Name' + convert(varchar(50), ID_Einmaladresse), null),
Verb_Vorname = IIF(Verb_Vorname is not null, 'Vorname' + convert(varchar(50), ID_Einmaladresse), null),
Name_kpn = IIF(Name_kpn is not null, Basis.KoelnerPhonetik_F('Name' + convert(varchar(50), ID_Subjekt)), null),
Vorname_kpn = IIF(Vorname_kpn is not null, Basis.KoelnerPhonetik_F('Vorname' + convert(varchar(50), ID_Subjekt)), null),
SuchName = IIF(SuchName is not null, 'Name' + convert(varchar(50), ID_Einmaladresse), null),
SuchVorname = IIF(SuchVorname is not null, 'Vorname' + convert(varchar(50), ID_Einmaladresse), null),
SuchZusatzname = IIF(SuchZusatzname is not null, 'ZusatzName' + convert(varchar(50), ID_Einmaladresse), null),
Verb_SuchName = IIF(Verb_SuchName is not null, 'Name' + convert(varchar(50), ID_Einmaladresse), null),
Verb_SuchVorname = IIF(Verb_SuchVorname is not null, 'Vorname' + convert(varchar(50), ID_Einmaladresse), null);
--VSQL/STMT/END
ENABLE TRIGGER basis.Einmaladresse_TU ON basis.Einmaladresse;  
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Subjekt anonymisieren]
DISABLE TRIGGER basis.Subjekt_TU ON basis.Subjekt;  
--VSQL/STMT/END
update basis.SUBJEKT
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), ID_Subjekt), null),
Vorname = IIF(Vorname is not null and SubjektArt = 1, 'Vorname' + convert(varchar(50), ID_Subjekt), null),
ZusatzName = IIF(ZusatzName is not null and SubjektArt != 1, 'Zusatzname' + convert(varchar(50), ID_Subjekt), null),
Kuerzel = IIF(Kuerzel is not null and SubjektArt = 1, 'Kuerzel' + convert(varchar(50), ID_Subjekt), null),
SuchName = IIF(SuchName is not null, 'Name' + convert(varchar(50), ID_Subjekt), null),
SuchVorname = IIF(SuchVorname is not null, 'Vorname' + convert(varchar(50), ID_Subjekt), null),
SuchKuerzel = IIF(SuchKuerzel is not null, 'Kuerzel' + convert(varchar(50), ID_Subjekt), null),
SuchZusatzname = IIF(SuchZusatzname is not null, 'Zusatzname' + convert(varchar(50), ID_Subjekt), null),
Name_kpn = IIF(Name_kpn is not null, Basis.KoelnerPhonetik_F('Name' + convert(varchar(50), ID_Subjekt)), null),
Vorname_kpn = IIF(Vorname_kpn is not null, Basis.KoelnerPhonetik_F('Vorname' + convert(varchar(50), ID_Subjekt)), null),
Kuerzel_kpn = IIF(Kuerzel_kpn is not null, Basis.KoelnerPhonetik_F('Kuerzel' + convert(varchar(50), ID_Subjekt)), null),
Zusatzname_kpn = IIF(Zusatzname_kpn is not null, Basis.KoelnerPhonetik_F('Zusatzname' + convert(varchar(50), ID_Subjekt)), null),
Versichertennummer = null,
ZARNr = null,
ZemisNr = null;
--VSQL/STMT/END
Enable TRIGGER basis.Subjekt_TU ON basis.Subjekt;  
--VSQL/STMT/END
update Einwmut._SUBJEKT
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), ID_Subjekt), null),
Vorname = IIF(Vorname is not null and SubjektArt = 1, 'Vorname' + convert(varchar(50), ID_Subjekt), null),
ZusatzName = IIF(ZusatzName is not null and SubjektArt != 1, 'Zusatzname' + convert(varchar(50), ID_Subjekt), null),
Kuerzel = IIF(Kuerzel is not null and SubjektArt = 1, 'Kuerzel' + convert(varchar(50), ID_Subjekt), null),
SuchName = IIF(SuchName is not null, 'Name' + convert(varchar(50), ID_Subjekt), null),
SuchVorname = IIF(SuchVorname is not null and SubjektArt = 1, 'Vorname' + convert(varchar(50), ID_Subjekt), null),
SuchKuerzel = IIF(SuchKuerzel is not null and SubjektArt = 1, 'Kuerzel' + convert(varchar(50), ID_Subjekt), null),
SuchZusatzName = IIF(SuchZusatzName is not null and SubjektArt != 1, 'Zusatzname' + convert(varchar(50), ID_Subjekt), null),
Versichertennummer = null,
ZARNr = null,
ZemisNr = null;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Namensfragmente generieren]
declare @ID_Subjekt int, @ID_Name int;
--VSQL/STMT/END
declare csr_NameFrgm Cursor for
select ID_Subjekt, null from basis.Subjekt
union
select ID_Subjekt, null from einwohner.NAMEBETRIEB
union
select ID_Subjekt, ID_Name from einwohner.NAME
--VSQL/STMT/END
Open csr_NameFrgm
--VSQL/STMT/END
Fetch next from csr_NameFrgm into @ID_Subjekt, @ID_Name
WHILE (@@FETCH_STATUS = 0
)
BEGIN
--VSQL/EXEC/BEGIN
EXECUTE Basis.Namefrgm_PF @ID_Subjekt = @ID_Subjekt, @ID_Name=@ID_Name
--VSQL/EXEC/END
Fetch next from csr_NameFrgm into @ID_Subjekt, @ID_Name
END
close csr_NameFrgm
--VSQL/STMT/END
deallocate csr_NameFrgm;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Beziehung anonymisieren]
DISABLE TRIGGER einwohner.Beziehung_TU ON einwohner.Beziehung;  
--VSQL/STMT/END
update einwohner.Beziehung
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), ID_Beziehung), null),
LedigerName = IIF(LedigerName is not null, 'LedigerName' + convert(varchar(50), ID_Beziehung), null),
Vorname = IIF(Vorname is not null, 'Vorname' + convert(varchar(50), ID_Beziehung), null),
SuchName = IIF(SuchName is not null, 'Name' + convert(varchar(50), ID_Beziehung), null),
SuchVorname = IIF(SuchVorname is not null, 'Vorname' + convert(varchar(50), ID_Beziehung), null),
SuchLedigerName = IIF(SuchLedigerName is not null, 'LedigerName' + convert(varchar(50), ID_Beziehung), null);
--VSQL/STMT/END
ENABLE TRIGGER einwohner.Beziehung_TU ON einwohner.Beziehung;  
--VSQL/STMT/END
update einwmut._Beziehung
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), ID_Beziehung), null),
LedigerName = IIF(LedigerName is not null, 'LedigerName' + convert(varchar(50), ID_Beziehung), null),
Vorname = IIF(Vorname is not null, 'Vorname' + convert(varchar(50), ID_Beziehung), null),
SuchName = IIF(SuchName is not null, 'Name' + convert(varchar(50), ID_Beziehung), null),
SuchVorname = IIF(SuchVorname is not null, 'Vorname' + convert(varchar(50), ID_Beziehung), null),
SuchLedigerName = IIF(SuchLedigerName is not null, 'LedigerName' + convert(varchar(50), ID_Beziehung), null);
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Arbeit anonymisieren]
DISABLE TRIGGER einwohner.Arbeit_TU ON einwohner.Arbeit;  
--VSQL/STMT/END
update einwohner.Arbeit
set Arbeitgebername = IIF(Arbeitgebername is not null, 'Arbeitgebername' + convert(varchar(50), ID_Arbeit), null),
SuchArbeitgebername = IIF(SuchArbeitgebername is not null, 'Arbeitgebername' + convert(varchar(50), ID_Arbeit), null);
--VSQL/STMT/END
ENABLE TRIGGER einwohner.Arbeit_TU ON einwohner.Arbeit;  
--VSQL/STMT/END
update einwmut._Arbeit
set Arbeitgebername = IIF(Arbeitgebername is not null, 'Arbeitgebername' + convert(varchar(50), ID_Arbeit), null),
SuchArbeitgebername = IIF(SuchArbeitgebername is not null, 'Arbeitgebername' + convert(varchar(50), ID_Arbeit), null);
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Strasse anonymisieren]
DISABLE TRIGGER basis.Strasse_TU ON basis.Strasse;
--VSQL/STMT/END
update basis.STRASSE
set Strassenname = IIF(Strassenname is not null, 'Strasse' + + convert(varchar(50), ID_Strasse), null),
StrassennameFremdsprachig = IIF(StrassennameFremdsprachig is not null, 'Strasse' + + convert(varchar(50), ID_Strasse), null),
StrassennameAlt = null;
--VSQL/STMT/END
ENABLE TRIGGER basis.Strasse_TU ON basis.Strasse;  
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Ort anonymisieren]
DISABLE TRIGGER basis.Ort_TU ON basis.Ort;
--VSQL/STMT/END
update Basis.ORT
Set Ortsname = IIF(Ortsname is not null, 'Innowil' + + convert(varchar(50), ID_Ort), null),
OrtsnamePost = IIF(OrtsnamePost is not null, 'Innowil' + + convert(varchar(50), ID_Ort), null),
Postleitzahl = 1234
where ID_Ort in (
select o.ID_Ort from Basis.Meldegemeinde m
join Basis.GEMEINDE g
on m.ID_Gemeinde = g.ID_Gemeinde
join Basis.ORT o
on o.ID_Gemeinde = g.ID_Gemeinde);
--VSQL/STMT/END
ENABLE TRIGGER basis.Ort_TU ON basis.Ort;  
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Gemeinde anonymisieren]
DISABLE TRIGGER basis.Gemeinde_TU ON basis.Gemeinde;
--VSQL/STMT/END
update Basis.GEMEINDE
Set Gemeindename = (select top 1 o.Ortsname from Basis.ORT o where o.ID_Ort = SitzID_Ort)
where ID_Gemeinde in (
select distinct g.ID_Gemeinde from Basis.Meldegemeinde m
join Basis.GEMEINDE g
on m.ID_Gemeinde = g.ID_Gemeinde);
--VSQL/STMT/END
ENABLE TRIGGER basis.Gemeinde_TU ON basis.Gemeinde;  
--VSQL/STMT/END
delete from objekt.ObjektstandortCache;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Adresse anonymisieren]
DISABLE TRIGGER basis.Adresse_TU ON basis.Adresse;  
--VSQL/STMT/END
update basis.Adresse
set Strasse = IIF(Strasse is not null, 'Strasse' + + convert(varchar(50), ID_Adresse), null),
AdressZusatz = null,
StrasseZusatz = null,
Notiz = null
where ID_Objekt is null;
--VSQL/STMT/END
update basis.adresse
set Strasse = s.Strassenname,
AdressZusatz = null,
StrasseZusatz = null,
Notiz = null
from 
basis.Adresse a
join objekt.OBJEKT o on o.ID_Objekt = a.ID_Objekt
join basis.STANDORT st on o.ID_Standort = st.ID_Standort
join basis.Ort o1 on st.ID_Ort = o1.ID_Ort
join basis.STRASSE s on st.ID_Strasse = s.ID_Strasse
where a.ID_Objekt is not null;
--VSQL/STMT/END
ENABLE TRIGGER basis.Adresse_TU ON basis.Adresse;  
--VSQL/STMT/END
update einwmut._adresse
set Strasse = IIF(Strasse is not null, 'Strasse' + + convert(varchar(50), ID_Adresse), null),
AdressZusatz = null,
StrasseZusatz = null,
Ortsname = o.Ortsname,
OrtsnamePost = o.OrtsnamePost,
Postleitzahl = o.Postleitzahl
from einwmut._adresse a
join basis.Ort o on a.ID_Ort = o.ID_Ort
where ID_Objekt is null;
--VSQL/STMT/END
update einwmut._adresse
set Strasse = s.Strassenname,
AdressZusatz = null,
StrasseZusatz = null,
Ortsname = o1.Ortsname,
OrtsnamePost = o1.OrtsnamePost,
Postleitzahl = o1.Postleitzahl
from 
einwmut._adresse a
join objekt.OBJEKT o on o.ID_Objekt = a.ID_Objekt
join basis.STANDORT st on o.ID_Standort = st.ID_Standort
join basis.Ort o1 on st.ID_Ort = o1.ID_Ort
join basis.STRASSE s on st.ID_Strasse = s.ID_Strasse
where a.ID_Objekt is not null;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Kommunikation löschen]
delete from basis.KOMMUNIKATION;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[AHV-Nummer löschen]
Truncate table einwohner.AHVNummer;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Notiz löschen]
truncate table basis.Notiz;
--VSQL/STMT/END
update Einwohner.Ausweis
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Ausweis), null);
--VSQL/STMT/END
update Einwohner.Massnahme
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Massnahme), null);
--VSQL/STMT/END
update Einwohner.Meldeverhaeltnis
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Meldeverhaeltnis), null);
--VSQL/STMT/END
update Einwohner.Kirchenereignis
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Kirchenereignis), null);
--VSQL/STMT/END
update Einwohner.Schriften
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Schriften), null);
--VSQL/STMT/END
update Einwohner.Schriftenausgang
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Schriften), null);
--VSQL/STMT/END
update Einwohner.Sperre
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Sperre), null);
--VSQL/STMT/END
update Einwmut._Ausweis
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Ausweis), null);
--VSQL/STMT/END
update Einwmut._Massnahme
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Massnahme), null);
--VSQL/STMT/END
update Einwmut._Meldeverhaeltnis
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Meldeverhaeltnis), null);
--VSQL/STMT/END
update Einwmut._Kirchenereignis
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Kirchenereignis), null);
--VSQL/STMT/END
update Einwmut._Schriften
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Schriften), null);
--VSQL/STMT/END
update Einwmut._Schriftenausgang
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Schriften), null);
--VSQL/STMT/END
update Einwmut._Sperre
set Notiz = IIF(Notiz is not null, 'Notiz' + + convert(varchar(50), ID_Sperre), null);
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Aktivität anonymisieren]
DISABLE TRIGGER basis.Aktivitaet_TU ON basis.Aktivitaet;  
--VSQL/STMT/END
update basis.Aktivitaet
set Betreff = IIF(Betreff is not null, 'Betreff' + + convert(varchar(50), ID_Aktivitaet), null);
--VSQL/STMT/END
ENABLE TRIGGER basis.Aktivitaet_TU ON basis.Aktivitaet;  
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Nachricht löschen]
delete from basis.NachrichtEmpfaenger;
delete from basis.NachrichtTaetigkeit;
delete from basis.Nachricht;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Dokument löschen]
DECLARE @ID INT;

DECLARE Dokumente CURSOR FOR
SELECT ID_Dokument
FROM dokument.DOKUMENT

OPEN Dokumente;

FETCH NEXT FROM Dokumente INTO @ID;

WHILE @@FETCH_STATUS = 0
BEGIN
    exec Dokument.Dokument_PD @ID_Dokument = @ID, @CalledFromClient = 1

    FETCH NEXT FROM Dokumente INTO @ID;
END;

CLOSE Dokumente;
DEALLOCATE Dokumente;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Jobs anonymisieren]
DISABLE TRIGGER schnittstelle.JobPos_TU ON schnittstelle.JobPos;  
--VSQL/STMT/END
update schnittstelle.JobPos
set Beschreibung = IIF(Beschreibung is not null, 'Beschreibung' + + convert(varchar(50), ID_JobPos), null);
--VSQL/STMT/END
ENABLE TRIGGER schnittstelle.JobPos_TU ON schnittstelle.JobPos;  
--VSQL/STMT/END
DISABLE TRIGGER schnittstelle.JobPos2_TU ON schnittstelle.JobPos2;  
--VSQL/STMT/END
update schnittstelle.JobPos2
set Beschreibung = IIF(Beschreibung is not null, 'Beschreibung' + + convert(varchar(50), ID_JobPos), null);
--VSQL/STMT/END
ENABLE TRIGGER schnittstelle.JobPos2_TU ON schnittstelle.JobPos2;  
--VSQL/STMT/END
update schnittstelle.JobPos_Log
set Beschreibung = IIF(Beschreibung is not null, 'Beschreibung' + + convert(varchar(50), ID_JobPos), null);
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[BrokerQueue löschen]
truncate table schnittstelle.BrokerQueue;
truncate table schnittstelle.BrokerQueueLog;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[RecordHistory löschen]
truncate table basis.recordhistory;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[SQLCmdQueue löschen]
truncate table schnittstelle.SQLCMDQUEUE;
--VSQL/STMT/END
truncate table schnittstelle.SQLCMDQUEUE_LOG;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[eCH löschen]
Truncate Table Schnittstelle.eCH_ADRESS
Truncate Table Schnittstelle.eCH_AHVDATA
Truncate Table Schnittstelle.eCH_AnfrageInfostar
Truncate Table Schnittstelle.eCH_AUSKUNFT
Truncate Table Schnittstelle.eCH_BasedOnLaw
Truncate Table Schnittstelle.eCH_BaseMessage
Truncate Table Schnittstelle.eCH_BESCHEINIGUNG
Truncate Table Schnittstelle.eCH_BurdenedProperty
Truncate Table Schnittstelle.eCH_CONTRACT
Truncate Table Schnittstelle.eCH_CORRECTDATA
Truncate Table Schnittstelle.eCH_COUNTRY
Truncate Table Schnittstelle.eCH_Dokument
Truncate Table Schnittstelle.eCH_EntitledPerson
Truncate Table Schnittstelle.eCH_EntitledProperty
Truncate Table Schnittstelle.eCH_KOMMUNICATION
Truncate Table Schnittstelle.eCH_MESSAGE
Truncate Table Schnittstelle.eCH_MUNICIPALITY
Truncate Table Schnittstelle.eCH_Mutation
Truncate Table Schnittstelle.eCH_OCCUPATION
Truncate Table Schnittstelle.eCH_OTHERPERSON_ID
Truncate Table Schnittstelle.eCH_OwnershipPart
Truncate Table Schnittstelle.eCH_PERSON_DATA
Truncate Table Schnittstelle.eCH_PETDATA
Truncate Table Schnittstelle.eCH_PLACEOFORIGIN
Truncate Table Schnittstelle.eCH_SemCardInformation
Truncate Table Schnittstelle.eCH_SemResidenceData
Truncate Table Schnittstelle.eCH_SemTravelDocumentId
Truncate Table Schnittstelle.eCH_SERVICEDATA
Truncate Table Schnittstelle.eCH_UNKNOWN

delete from Schnittstelle.eCH_Servitude
delete from Schnittstelle.eCH_RealEstateId
delete from Schnittstelle.eCH_Property
delete from Schnittstelle.eCH_RELATIONSHIP
delete from Schnittstelle.eCH_PERSON_ID
delete from Schnittstelle.eCH_BUSINESSCASE
delete from Schnittstelle.eCH_ORGANISATION

Truncate Table Schnittstelle.LOG_eCH_ADRESS
Truncate Table Schnittstelle.LOG_eCH_AUSKUNFT
Truncate Table Schnittstelle.LOG_eCH_BasedOnLaw
Truncate Table Schnittstelle.LOG_eCH_BaseMessage
Truncate Table Schnittstelle.LOG_eCH_BESCHEINIGUNG
Truncate Table Schnittstelle.LOG_eCH_BurdenedProperty
Truncate Table Schnittstelle.LOG_eCH_BUSINESSCASE
Truncate Table Schnittstelle.LOG_eCH_CONTRACT
Truncate Table Schnittstelle.LOG_eCH_CORRECTDATA
Truncate Table Schnittstelle.LOG_eCH_COUNTRY
Truncate Table Schnittstelle.LOG_eCH_Dokument
Truncate Table Schnittstelle.LOG_eCH_EntitledProperty
Truncate Table Schnittstelle.LOG_eCH_KOMMUNICATION
Truncate Table Schnittstelle.LOG_eCH_MESSAGE
Truncate Table Schnittstelle.LOG_eCH_MUNICIPALITY
Truncate Table Schnittstelle.LOG_eCH_OCCUPATION
Truncate Table Schnittstelle.LOG_eCH_ORGANISATION
Truncate Table Schnittstelle.LOG_eCH_OTHERPERSON_ID
Truncate Table Schnittstelle.LOG_eCH_OwnershipPart
Truncate Table Schnittstelle.LOG_eCH_PERSON_DATA
Truncate Table Schnittstelle.LOG_eCH_PERSON_ID
Truncate Table Schnittstelle.LOG_eCH_PETDATA
Truncate Table Schnittstelle.LOG_eCH_PLACEOFORIGIN
Truncate Table Schnittstelle.LOG_eCH_Property
Truncate Table Schnittstelle.LOG_eCH_RealEstateId
Truncate Table Schnittstelle.LOG_eCH_RELATIONSHIP
Truncate Table Schnittstelle.LOG_eCH_SemCardInformation
Truncate Table Schnittstelle.LOG_eCH_SemResidenceData
Truncate Table Schnittstelle.LOG_eCH_SemTravelDocumentId
Truncate Table Schnittstelle.LOG_eCH_SERVICEDATA
Truncate Table Schnittstelle.LOG_eCH_Servitude
Truncate Table Schnittstelle.LOG_eCH_UNKNOWN
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Druck löschen]
Truncate Table druck.DRUCKEINWOHNER1
--VSQL/STMT/END
Truncate Table druck.DRUCKEINWOHNER_MELDEVERHAELTNIS
--VSQL/STMT/END
Truncate Table druck.DRUCKEINWOHNER_OBJEKT
--VSQL/STMT/END
Truncate Table druck.DRUCKSTIMMREG
--VSQL/STMT/END
update druck.DRUCKSTIMMREG1
set Name = IIF(Name is not null, 'Name' + convert(varchar(50), ID_Subjekt), null),
Rufname = IIF(Rufname is not null, 'Vorname' + convert(varchar(50), ID_Subjekt), null),
NameSubjekt = IIF(NameSubjekt is not null, 'Name' + convert(varchar(50), ID_Subjekt), null),
VornameSubjekt = IIF(VornameSubjekt is not null, 'Vorname' + convert(varchar(50), ID_Subjekt), null),
Strasse = IIF(Strasse is not null, 'Strasse', null),
StrasseZusatz = null,
HausNrZusatz = null,
StrasseHaus = IIF(StrasseHaus is not null, 'Strasse', null),
Postleitzahl = '1234',
Ortsname = 'Ort',
RegionWeiler = null,
Anschrift = 'Anschrift',
Briefanrede = 'Anrede',
P_Briefanrede = null,
Zuzug_Ortsname = 'Ort',
Zuzug_Postleitzahl = IIF(Zuzug_Postleitzahl is not null, '1234', null),
Stimmgemeinde = 'Gemeinde'
--VSQL/STMT/END
Truncate Table druck.DRUCKSUBJEKT
--VSQL/STMT/END
Truncate Table druck.DRUCKSUBJEKTADRESSIERUNG
--VSQL/STMT/END
Truncate Table druck.DRUCKSUBJEKTADRESSIERUNGZUORD
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[DWH löschen]
exec datamart.FillDWHnest_PF @Param = 1
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[KampagnenschrittVersandArtEmpfaenger löschen]
delete from basis.KampagnenschrittVersandArtEmpfaenger;
--VSQL/STMT/END
/* Alte Tabelle vor Migration auf basis.KampagnenschrittVersandArtEmpfaenger */
delete from basis.KampagnenschrittMailingEmpfaenger;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Druckdaten löschen]
Truncate Table Druck.Rechpos_Layout;
--VSQL/STMT/END
Truncate Table Druck.Rechpos;
--VSQL/STMT/END
Truncate Table Druck.Rechkopf;
--VSQL/STMT/END
DISABLE TRIGGER Faktura.RECHVERSAND_TU ON Faktura.RECHVERSAND;  
--VSQL/STMT/END
Update
  Faktura.RECHVERSAND
Set
  Empfaenger_ID = null,
  Vermerk = null;
--VSQL/STMT/END
ENABLE TRIGGER Faktura.RECHVERSAND_TU ON Faktura.RECHVERSAND;  
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Rechnung_Extern anonymisieren]
Update
  Faktura.Rechnung_Extern
Set
  Faktura_Adresse = null
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Beleg anonymisieren]
Update
	Faktura.BELEG
Set
	Bemerkung = NULL,
	Belegreferenz = NULL,
	QR_Mitteilung = NULL
--VSQL/STMT/END
Update
	Faktura.ABA_BELEG
Set
	Fehler = NULL
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Belegpos anonymisieren]
Update
	Faktura.BELEGPOS
Set
	Positionstext = NULL
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[ERPBeleg löschen]
Truncate Table TableSchnittstelle.ERPBelegInfo;
--VSQL/STMT/END
Truncate Table Schnittstelle.ERPBelegpos;
--VSQL/STMT/END
Truncate Table Schnittstelle.ERPBeleg;
--VSQL/STMT/END
Truncate Table Schnittstelle.WorkBelegAbgleich;
--VSQL/STMT/END
Truncate Table Schnittstelle.Integrationsfehler;
--VSQL/SEGMENT/END
--VSQL/SEGMENT/BEGIN[Tabellen Navision Offline löschen]
Truncate Table Schnittstelle.Navision_DEBI_Debitorenstamm_D;
--VSQL/STMT/END
Truncate Table Schnittstelle.Navision_DEBI_Footer_D;
--VSQL/STMT/END
Truncate Table Schnittstelle.Navision_DEBI_Header_D;
--VSQL/STMT/END
Truncate Table Schnittstelle.Navision_DEBI_OffenePosten_P;
--VSQL/STMT/END
Truncate Table Schnittstelle.Navision_MwSTMapping;
--VSQL/STMT/END
Truncate Table Schnittstelle.Navision_Verkaufskopf;
--VSQL/STMT/END
Truncate Table Schnittstelle.Navision_Verkaufszeile;
--VSQL/SEGMENT/END
END
ELSE
BEGIN
--VSQL/SEGMENT/BEGIN[Fehlermeldung]
RAISERROR('Das Anonymisierungsskript darf nicht ausgeführt werden, da es sich um kein Testsystem handelt! (Parameter 216)', 16, 1)
--VSQL/SEGMENT/END
END