sql
use bo


-- Trägt bei einem Barzahler Bemerkung ein, dass es sich um einen Barzahler handelt
insert into dBemerkung (a.AdressId,b.BestellID,von,vonKW,Bemerkung,Ereignis) _
Select a.AdressId,b.BestellID,'10-11-08','46-08','Zahlt Bar!','FBAbstell' _
From adresse a Join dBestellung b On a.Adressid = b.Adressid Left Join Bank ba On a.Adressid = ba.Adressid _
where (ba.info not like '%&L%' and ba.Bank = 'Bar') and a.Typ like '%K%' and not Exists _
(Select Bemerkung from dbemerkung where bestellid = b.Bestellid and Ereignis = 'FBAbstell')

-- Falls es bereits eine Bemerkung gibt wird diese ergänzt.
update bm Set bm.Bemerkung = bm.Bemerkung + 'Zahlt Bar!' _
From dBemerkung bm Join dBestellung b  On bm.Bestellid = b.Bestellid Left Join Bank ba On ba.Adressid = b.Adressid _
Join Adresse a On a.Adressid = b.Adressid _
Where (ba.info not like '%&L%' and Bank = 'Bar') and bm.Ereignis = 'FBAbstell' and _
charindex('Zahlt Bar!',bm.Bemerkung) = 0 and a.Typ like '%K%'

-- Zahlt bar! Bemerkung wird gelöscht, wenn der Kunde eine gültige Bankverbindung hat
delete from bm _ 
From dBemerkung bm Join dBestellung b  On bm.Bestellid = b.Bestellid Join Bank ba On ba.Adressid = b.Adressid _
Join Adresse a On a.Adressid = b.Adressid _
Where (ba.info like '%&L%') and bm.Ereignis = 'FBAbstell' and _
'Zahlt Bar!'=bm.Bemerkung and a.Typ like '%K%'

-- Löcht den Teil der Bemerkung der darauf hinweist, dass es sich um einen Barzahler handelt.
update bm Set bm.Bemerkung = replace(bm.Bemerkung,'Zahlt Bar!','') _
From dBemerkung bm Join dBestellung b  On bm.Bestellid = b.Bestellid Join Bank ba On ba.Adressid = b.Adressid _
Join Adresse a On a.Adressid = b.Adressid _
Where ba.info like '%&L%' and bm.Ereignis = 'FBAbstell' and _
charindex('Zahlt Bar!',bm.Bemerkung) > 0 and a.Typ like '%K%'