Index: APPS/common/impl/Validator.cls.xml
===================================================================
diff -u -r45351 -r45436
--- APPS/common/impl/Validator.cls.xml	(.../Validator.cls.xml)	(revision 45351)
+++ APPS/common/impl/Validator.cls.xml	(.../Validator.cls.xml)	(revision 45436)
@@ -22,39 +22,17 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
-<Method name="GeefFoutmelding">
+<Method name="GeefExceptie">
 <Abstract>1</Abstract>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>TECH.Exceptions.Exception</ReturnType>
 </Method>
 
 <Method name="ThrowError">
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim Foutmelding As %String = ..GeefFoutmelding()
-	If ..IsMeldingVoorOfferteReedsBesteld(Foutmelding) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.VKP.Offerte.impl.OfferteReedsBesteldException).%New(Foutmelding))
-	} ElseIf ..IsMeldingPrijzenZijnVervallen(Foutmelding) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.VKP.Offerte.impl.OfferteNietMeerGeldigException).%New(Foutmelding))
-	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Foutmelding))
-	}
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(..GeefExceptie())
 ]]></Implementation>
 </Method>
-
-<Method name="IsMeldingVoorOfferteReedsBesteld">
-<FormalSpec>Foutmelding:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	Quit (Foutmelding="Order already confirmed")||(Foutmelding?1(1"De offerte '".E1"' is reeds besteld."))
-]]></Implementation>
-</Method>
-
-<Method name="IsMeldingPrijzenZijnVervallen">
-<FormalSpec>Foutmelding:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	Quit (Foutmelding?1(1"De offerte '".E1"' is niet meer geldig!"))
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/CRM/impl/KlantIDValidator.cls.xml
===================================================================
diff -u -r29059 -r45436
--- APPS/CRM/impl/KlantIDValidator.cls.xml	(.../KlantIDValidator.cls.xml)	(revision 29059)
+++ APPS/CRM/impl/KlantIDValidator.cls.xml	(.../KlantIDValidator.cls.xml)	(revision 45436)
@@ -44,10 +44,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFoutmelding">
+<Method name="GeefExceptie">
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "KlantID '"_..KlantID_"' is niet geldig voor "_##class(DOM.common.enu.Personality).LogicalToDisplay(..PersonalityID)
+<ReturnType>TECH.Exceptions.Exception</ReturnType>
+<Implementation><![CDATA[
+	#dim Foutmelding As %String = "KlantID '"_..KlantID_"' is niet geldig voor "_##class(DOM.common.enu.Personality).LogicalToDisplay(..PersonalityID)
+	Quit ##class(TECH.Exceptions.InvalidInputException).%New(Foutmelding)
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/impl/WebshopSessieBestelValidator.cls.xml
===================================================================
diff -u -r29059 -r45436
--- APPS/EC/impl/WebshopSessieBestelValidator.cls.xml	(.../WebshopSessieBestelValidator.cls.xml)	(revision 29059)
+++ APPS/EC/impl/WebshopSessieBestelValidator.cls.xml	(.../WebshopSessieBestelValidator.cls.xml)	(revision 45436)
@@ -55,10 +55,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFoutmelding">
+<Method name="GeefExceptie">
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "In modus '"_..WebshopModus_"' kan u niet bestellen."
+<ReturnType>TECH.Exceptions.Exception</ReturnType>
+<Implementation><![CDATA[
+	#dim Foutmelding As %String = "In modus '"_..WebshopModus_"' kan u niet bestellen."
+	Quit ##class(TECH.Exceptions.InvalidUserInputException).%New(Foutmelding)
 ]]></Implementation>
 </Method>
 
@@ -71,12 +73,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="ThrowError">
-<Private>1</Private>
-<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New(..GeefFoutmelding()))
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r45327 -r45436
--- APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 45327)
+++ APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 45436)
@@ -24,7 +24,7 @@
 </Property>
 
 <Property name="Meldingen">
-<Type>%ListOfDataTypes</Type>
+<Type>%ListOfObjects</Type>
 <Private>1</Private>
 </Property>
 
@@ -52,7 +52,7 @@
 	Set ..KlantID = KlantID
 	Set ..Offerte = Offerte
 	Set ..PersonalityID = PersonalityID
-	Set ..Meldingen = ##class(%ListOfDataTypes).%New()
+	Set ..Meldingen = ##class(%ListOfObjects).%New()
 	
 	#Dim Personality AS DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)	
 	Do Personality.Accept($this)
@@ -70,9 +70,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFoutmelding">
+<Method name="GeefExceptie">
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>TECH.Exceptions.Exception</ReturnType>
 <Implementation><![CDATA[	Quit ..Meldingen.GetAt(1)
 ]]></Implementation>
 </Method>
@@ -84,7 +84,9 @@
 	Do ..ControleerToegangEnPrijzen()
 	If (..IsStandaardTransport(VanHoeckePersonality) && (..Offerte.GeefLeverDatum()="") && $$$Not(..IsAsap()))
 	{
-		Do ..Meldingen.Insert("De leverdatum is niet ingevuld voor deze bestelde offerte (ID: "_..Offerte.GeefID()_")")
+		#Dim Foutmelding As %String = "De leverdatum is niet ingevuld voor deze bestelde offerte (ID: "_..Offerte.GeefID()_")"
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.Exceptions.InvalidInputException).%New(Foutmelding)
+		Do ..Meldingen.Insert(Exception)
 	}
 ]]></Implementation>
 </Method>
@@ -106,7 +108,11 @@
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
 <Implementation><![CDATA[
-	Do:..Offerte.IsBesteld() ..Meldingen.Insert("Order already confirmed")
+	If ..Offerte.IsBesteld() {
+		#Dim Foutmelding As %String = "Order already confirmed"
+		#Dim Exception As TECH.Exceptions.Exception = ##class(APPS.VKP.Offerte.impl.OfferteReedsBesteldException).%New(Foutmelding)
+		Do ..Meldingen.Insert(Exception)
+	}
 	Do ..ControleerToegangEnPrijzen()
 ]]></Implementation>
 </Method>
@@ -191,7 +197,12 @@
 
 <Method name="ControleerReedsBesteld">
 <Private>1</Private>
-<Implementation><![CDATA[	Do:..Offerte.IsBesteld() ..Meldingen.Insert("De offerte '"_..Offerte.GeefID()_"' is reeds besteld.")
+<Implementation><![CDATA[
+	If ..Offerte.IsBesteld() {
+		#Dim Foutmelding As %String = "De offerte '"_..Offerte.GeefID()_"' is reeds besteld."
+		#Dim Exception As TECH.Exceptions.Exception = ##class(APPS.VKP.Offerte.impl.OfferteReedsBesteldException).%New(Foutmelding)
+		Do ..Meldingen.Insert(Exception)
+	}
 ]]></Implementation>
 </Method>
 
@@ -201,15 +212,31 @@
 	#dim HeeftMaatwerklijnen As %Boolean = $$$False
 	Set:$Length(..Offerte.GeefWinkelkarID()) HeeftMaatwerklijnen = (..WinkelkarService.GeefMaatwerkLijnen(..Offerte.GeefWinkelkarID()).Count()>0)
 
-	Do:(HeeftMaatwerklijnen&&..Offerte.ZijnPrijzenVervallen()) ..Meldingen.Insert("De offerte '"_..Offerte.GeefID()_"' is niet meer geldig!")
+	If (HeeftMaatwerklijnen&&..Offerte.ZijnPrijzenVervallen()) 
+	{
+		#Dim Foutmelding As %String = "De offerte '"_..Offerte.GeefID()_"' is niet meer geldig!"
+		#Dim Exception As TECH.Exceptions.Exception = ##class(APPS.VKP.Offerte.impl.OfferteNietMeerGeldigException).%New(Foutmelding)
+		Do ..Meldingen.Insert(Exception)
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="ControleerHeeftToegangTotOfferte">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do:($L(..Offerte.GeefKlantID()) && (..Offerte.GeefKlantID()'=..KlantID)) ..Meldingen.Insert("De klantID, "_..KlantID_", is niet geldig voor deze offerte (ID: "_..Offerte.GeefID()_")")
-	Do:..Offerte.GeefPersonalityID()'=..PersonalityID ..Meldingen.Insert("De PersonalityID, "_..PersonalityID_", is niet geldig voor deze offerte (ID: "_..Offerte.GeefID()_")")
+	#Dim Foutmelding As %String = ""
+	#Dim Exception As TECH.Exceptions.Exception = ""
+	
+	If ($L(..Offerte.GeefKlantID()) && $$$Not(..Offerte.GeefKlantID()=..KlantID)) {
+		Set Foutmelding = "De klantID, "_..KlantID_", is niet geldig voor deze offerte (ID: "_..Offerte.GeefID()_")"
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(Foutmelding)
+		Do ..Meldingen.Insert(Exception)
+	}
+	If $$$Not(..Offerte.GeefPersonalityID()=..PersonalityID) {
+		Set Foutmelding = "De PersonalityID, "_..PersonalityID_", is niet geldig voor deze offerte (ID: "_..Offerte.GeefID()_")"
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(Foutmelding)
+		Do ..Meldingen.Insert(Exception)
+	}
 ]]></Implementation>
 </Method>
 </Class>