Index: APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml
===================================================================
diff -u -r32719 -r32804
--- APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml	(.../BerekenInputValidator.cls.xml)	(revision 32719)
+++ APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml	(.../BerekenInputValidator.cls.xml)	(revision 32804)
@@ -3,57 +3,64 @@
 <Class name="APPS.TRANSP.UPS.impl.BerekenInputValidator">
 <Super>APPS.TRANSP.UPS.BerekenInputValidator</Super>
 
+<Property name="Exceptie">
+<Type>TECH.Exception.TemplateBaseException</Type>
+</Property>
+
 <Method name="Valideer">
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <Implementation><![CDATA[
 	If ($$$Not($IsObject(BerekenInput.LeverAdres))) {
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ongeldig leveradres ontvangen in berekenInput : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("LeverAdres")
 	}
 	
 	If ((BerekenInput.LeverAdres.LandCode = "US") || (BerekenInput.LeverAdres.LandCode = "CA")) && (BerekenInput.LeverAdres.ProvincieCode = "")
 	{
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Provinciecode is niet ingevuld : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("ProvincieCode")
 	}
 	
 	If (BerekenInput.LeverAdres.LandCode = "") 
 	{
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Landcode is niet ingevuld : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("LandCode")
 	}
 
 	If (BerekenInput.LeverAdres.Postcode = "") 
 	{
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Postcode is niet ingevuld : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("Postcode")
 	}
 
 	If (BerekenInput.LeverAdres.Woonplaats = "") 
 	{
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Woonplaats is niet ingevuld : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("Woonplaats")
 	}
 
 	If (BerekenInput.GewensteLeverDatum = "") 
 	{
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Gewenste leverdatum mag niet leeg zijn : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("GewensteLeverDatum")
 	}
 
 	If (BerekenInput.GewensteLeverDatum < ..GeefDatumPlusProductieDagen()) 
 	{
-		#dim ProductieDagen As %Integer = ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("ProductieDagen")
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Gewenste leverdatum kan pas vanaf vandaag + " _ProductieDagen _" niet in het verleden zijn : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("GewensteLeverDatum")
 	}
 	
 	If (BerekenInput.GewensteLeverDatum > ..GeefUitersteDatum() ) 
 	{
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Gewenste leverdatum mag niet verder dan 60 dagen zijn : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("GewensteLeverDatum")
 	}
 	
-	If ($$$Not($IsObject(BerekenInput.TeVerzendenItems)) || (BerekenInput.TeVerzendenItems.Count() = 0)) {
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Er zijn geen detaillijnen in berekenInput : " _BerekenInput.Referentie)
+	If ($$$Not($IsObject(BerekenInput.TeVerzendenItems)) || (BerekenInput.TeVerzendenItems.Count() = 0)) 
+	{
+		Do ..RegistreerFoutmelding("TeVerzendenItems")
 	}
 	
 	If (..BerekenAantalPakjes(BerekenInput) > ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("MaximumTeVerzendenPakketten")) {
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Het maximum aantal pakjes is overschreden : " _BerekenInput.Referentie)
+		Do ..RegistreerFoutmelding("MaximumTeVerzendenPakketten")
 	}
 	
+	if $IsObject(..Exceptie) {
+		Do ##class(TECH.ExceptionHandler).Rethrow(..Exceptie)
+	}
 	quit
 ]]></Implementation>
 </Method>
@@ -108,6 +115,17 @@
 	Quit AantalPakjes
 ]]></Implementation>
 </Method>
+
+<Method name="RegistreerFoutmelding">
+<FormalSpec>PropertyNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	if ($IsObject(..Exceptie)) {
+		Do ..Exceptie.AddObject(PropertyNaam)
+	} else {
+		Set ..Exceptie= ##class(TECH.Exception.TemplateBaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(), PropertyNaam)
+	}
+]]></Implementation>
+</Method>
 </Class>