Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r46554 -r46555
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 46554)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 46555)
@@ -3,24 +3,42 @@
 <Class name="APPS.VKP.Offerte.impl.BesteldeOfferteMelder">
 <Super>DOM.common.PersonalityVisitor,APPS.VKP.Offerte.BesteldeOfferteMelder</Super>
 
-<Property name="Rapporteur">
-<Type>APPS.EC.Rapporteur.impl.HandelRapporteur</Type>
+<Property name="MailVerzenderHandel">
+<Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MailVerzenderVanHoecke">
+<Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HttpZenderSFS">
+<Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HttpZenderHaefele">
+<Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Offerte">
 <Type>APPS.VKP.Offerte</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Rapporteur:APPS.EC.Rapporteur.impl.HandelRapporteur</FormalSpec>
+<FormalSpec>MailVerzenderHandel:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..Rapporteur = $$$Inject(Rapporteur,##class(APPS.EC.Rapporteur.impl.HandelRapporteur).%New())
+	set ..MailVerzenderHandel = $$$Inject(MailVerzenderHandel,##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel).%New())
+	set ..MailVerzenderVanHoecke = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke).%New()
+	set ..HttpZenderSFS = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS).%New()
+	set ..HttpZenderHaefele = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -37,93 +55,73 @@
 
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
-<Implementation><![CDATA[	Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke).%New().Verzend(..Offerte)
+<Implementation><![CDATA[	Do ..MailVerzenderVanHoecke.Verzend(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDestil">
 <FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..Rapporteur.Rapporteer(..Offerte)
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..Rapporteur.Rapporteer(..Offerte)
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..Rapporteur.Rapporteer(..Offerte)
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanRaemdonck">
 <FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..Rapporteur.Rapporteer(..Offerte)
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..Rapporteur.Rapporteer(..Offerte)
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS).%New().Verzend(..Offerte)
+<Implementation><![CDATA[	Do ..HttpZenderSFS.Verzend(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleBE">
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
 <Implementation><![CDATA[
-	Do ..Rapporteur.Rapporteer(..Offerte)
-	Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New().Verzend(..Offerte)
+	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+	Do ..HttpZenderHaefele.Verzend(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleNL">
 <FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
 <Implementation><![CDATA[
-	Do ..Rapporteur.Rapporteer(..Offerte)
-	Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New().Verzend(..Offerte)
+	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+	Do ..HttpZenderHaefele.Verzend(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..Rapporteur.Rapporteer(..Offerte)
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanHoeckeVoorHalux">
 <FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bestelde Offerte voor personality ""VanHoeckeVoorHaluxPersonality"" is niet mogelijk."))
+<Implementation><![CDATA[	Do ##class(TECH.Exceptions.InvalidInputException).Throw("Bestelde Offerte voor personality ""VanHoeckeVoorHaluxPersonality"" is niet mogelijk.")
 ]]></Implementation>
 </Method>
-
-<Method name="ToonNietGeimplementeerd">
-<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Try {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Verwerk" _ Personality.GeefNaam() _ " nog niet geïmplementeerd."))
-	} Catch {
-		#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
-		#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail()
-		
-		Do Mail.ZetInhoud(##class(TECH.ExceptionHandler).Catch().GeefOmschrijving())
-		Do Mail.ZetVerzender($$$SystemMail("Unimplemented"))
-		Do Mail.ZetOnderwerp(Personality.GeefNaam())
-		Do Mail.VoegToeOntvanger("ict_sysop@vanhoecke.be")
-		
-		Do MailAPI.VerstuurMail(Mail)
-	}
-]]></Implementation>
-</Method>
 </Class>