Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r35945 -r35946
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 35945)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 35946)
@@ -62,27 +62,36 @@
 
 <Method name="VerwerkHaefeleBE">
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..ToonNietGeimplementeerd(HaefeleBEPersonality)
+]]></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>
+</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("VerwerkHaefeleBE nog niet geïmplementeerd."))
+		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("Haefele")
-		do Mail.VoegToeOntvanger("ict_sysop@vanhoecke.be")
-		do MailAPI.VerstuurMail(Mail)
+		Do Mail.ZetVerzender($$$SystemMail("Unimplemented"))
+		Do Mail.ZetOnderwerp(Personality.GeefNaam())
+		Do Mail.VoegToeOntvanger("ict_sysop@vanhoecke.be")
+		
+		Do MailAPI.VerstuurMail(Mail)
 	}
 ]]></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>
-</Method>
-
 <Method name="VerwittigHandelOfferteBesteld">
 <Implementation><![CDATA[
 	#dim Rapporteur As APPS.EC.Rapporteur.Rapporteur = ##class(APPS.EC.Rapporteur.impl.HandelRapporteur).%New(..Offerte)