use Bo
--alle Kunden, deren Nachname "delete" heißt, werden gelöscht.
--Steht in Zusatz eine Adressid, werden die Kontaktdaten auf die alten KundenId übertragen.
--Hier wird auch die Bestellung vom Bestandskunden gelöscht und die aktuelle Bestellung übertragen.
--ACHTUNG: Die Bestellhistorie in BioDeliver geht verloren!



-- Bisherige eMail umbenennen
update k Set k.Text = 'eMail2' From Kontakt k Join Adresse a _
On ltrim(rtrim(a.Zusatz)) = k.Adressid where k.Text = 'eMail' and a.Nachname = 'delete'
-- eMail des Neukunden verschieben
update k Set k.Adressid = a.Zusatz From Kontakt k Join Adresse a _
On a.Adressid = k.Adressid and a.Nachname = 'delete' and 1 = isnumeric(a.Zusatz)
-- Bemerkung des Neukunden verschieben
update k Set k.Adressid = a.Zusatz From dBemerkung k Join Adresse a _
On a.Adressid = k.Adressid and a.Nachname = 'delete' and 1 = isnumeric(a.Zusatz)
-- Password des Neukunden übertragen 
update a Set a.Password = a1.Password From Adresse a Join Adresse a1 _
On a.Adressid = a1.zusatz where a1.Nachname = 'delete'
-- Bestellung des Neukunden verschieben (wird auf eine Bestellung verschoben!)
update bp Set bp.Bestellid = b1.Bestellid From Join Adresse a Join dBestellung b On a.Adressid = b.Adressid _
Join dBestellpos bp On b.Bestellid = bp.Bestellid Join dBestellung b1 On a.Zusatz = b1.Adressid _ 
Where a.Nachname = 'delete' and 1 = isnumeric(a.Zusatz)

--Löschen der Neukunden
Delete from bp from dBestellung b Join Adresse a On a.Adressid = b.Adressid _
Join dBestellpos bp On b.Bestellid = bp.Bestellid _
where a.Nachname = 'Delete'
Delete from bp from dBestellung b Join Adresse a On a.Adressid = b.Adressid _
Join dLiBesonderheit bp On b.Bestellid = bp.Bestellid _
where a.Nachname = 'Delete'
Delete from bp from dBestellung b Join Adresse a On a.Adressid = b.Adressid _
Join dTour bp On b.Bestellid = bp.Bestellid _
where bp.TourNr = b.Tournr and a.Nachname = 'Delete'

use boart

Delete from bp from bo..dBestellung b Join bo..Adresse a On a.Adressid = b.Adressid _
Join dAuftrag bp On b.Bestellid = bp.Bestellid _
where a.Nachname = 'Delete'

use bo
Delete from b from dBestellung b Join Adresse a On a.Adressid = b.Adressid _
where a.Nachname = 'Delete'
Delete from b from dBemerkung b Join Adresse a On a.Adressid = b.Adressid _
where a.Nachname = 'Delete'
Delete from b from Bank b Join Adresse a On a.Adressid = b.Adressid _
where a.Nachname = 'Delete'
Delete from b from Kontakt b Join Adresse a On a.Adressid = b.Adressid _
where a.Nachname = 'Delete'
Delete from b from dPreferenz b Join Adresse a On a.Adressid = b.Adressid _
where a.Nachname = 'Delete'

Delete from Adresse where Nachname = 'Delete'