Index: APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml
===================================================================
diff -u -r33055 -r33140
--- APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml	(.../BerekenInputValidator.cls.xml)	(revision 33055)
+++ APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml	(.../BerekenInputValidator.cls.xml)	(revision 33140)
@@ -27,56 +27,80 @@
 <Method name="Valideer">
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <Implementation><![CDATA[
-	If ($$$Not($IsObject(BerekenInput.LeverAdres))) {
-		Do ..RegistreerFoutmelding("Er is geen leveradres meegegeven.", "LeverAdres", BerekenInput.LeverAdres)
-	}
+	Do ..ValideerLeverAdres(BerekenInput.LeverAdres)
+
+	Do ..ValideerLeverDatum(BerekenInput.GewensteLeverDatum, ..GeefVroegsteAfhaalDatum(BerekenInput))
 	
-	If ((BerekenInput.LeverAdres.LandCode = "US") || (BerekenInput.LeverAdres.LandCode = "CA")) && (BerekenInput.LeverAdres.ProvincieCode = "")
-	{
-		Do ..RegistreerFoutmelding("De provinciecode vereist voor landcode US of CA.", "ProvincieCode", BerekenInput.LeverAdres.ProvincieCode)
-	}
+	Do ..ValideerAantalPakjes(BerekenInput.TeVerzendenItems)
 	
-	If (BerekenInput.LeverAdres.LandCode = "") 
-	{
-		Do ..RegistreerFoutmelding("Er is geen landcode meegegeven.", "LandCode",BerekenInput.LeverAdres.LandCode)
+	if $IsObject(..Exceptie) {
+		Do ##class(TECH.ExceptionHandler).Rethrow(..Exceptie)
 	}
+	quit
+]]></Implementation>
+</Method>
 
-	If (BerekenInput.LeverAdres.Postcode = "") 
+<Method name="ValideerAantalPakjes">
+<FormalSpec>TeVerzendenItems:%ListOfObjects,AantalPakjes:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($$$Not($IsObject(TeVerzendenItems)) || (TeVerzendenItems.Count() = 0)) 
 	{
-		Do ..RegistreerFoutmelding("Er is geen postcode meegegeven.","Postcode", BerekenInput.LeverAdres.Postcode)
+		Do ..RegistreerFoutmelding("Er zijn geen teverzenditems meegegeven.","TeVerzendenItems", TeVerzendenItems.Count())
 	}
-
-	If (BerekenInput.LeverAdres.Woonplaats = "") 
-	{
-		Do ..RegistreerFoutmelding("Er is geen woonplaats meegegeven.","Woonplaats",BerekenInput.LeverAdres.Woonplaats)
+	
+	If (..BerekenAantalPakjes(TeVerzendenItems) > ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("MaximumTeVerzendenPakketten")) {
+		Do ..RegistreerFoutmelding("Het maximum aantal pakketen is overschreden","MaximumTeVerzendenPakketten",..BerekenAantalPakjes(TeVerzendenItems))
 	}
+]]></Implementation>
+</Method>
 
-	#dim GewensteLeverDatum As %String = ##class(TECH.DateTime).GeefDatumInPuntNotatie(BerekenInput.GewensteLeverDatum)
+<Method name="ValideerLeverDatum">
+<FormalSpec>GewensteLeverDatum:%Date,VroegsteLeverDatum:%Date</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim GewensteLeverDatumTekst As %String = ##class(TECH.DateTime).GeefDatumInPuntNotatie(GewensteLeverDatum)
 
-	If (BerekenInput.GewensteLeverDatum = "") 
+	If (GewensteLeverDatum = "") 
 	{
 		Do ..RegistreerFoutmelding("Er is geen gewenste leverdatum meegegeven;.","GewensteLeverDatum", "")
-	} elseIf (BerekenInput.GewensteLeverDatum < ..GeefVroegsteAfhaalDatum(BerekenInput)) 
+	} elseIf (GewensteLeverDatum < VroegsteLeverDatum) 
 	{
-		Do ..RegistreerFoutmelding("De gewenste leverdatum kan niet zo vroeg plaatsvinden.","GewensteLeverDatum",GewensteLeverDatum)
-	} elseIf (BerekenInput.GewensteLeverDatum > ..GeefUitersteDatum()) 
+		Do ..RegistreerFoutmelding("De gewenste leverdatum kan niet zo vroeg plaatsvinden.","GewensteLeverDatum",GewensteLeverDatumTekst)
+	} elseIf (GewensteLeverDatum > ..GeefUitersteDatum()) 
 	{
-		Do ..RegistreerFoutmelding("De gewenste leverdatum kan niet zo ver in de toekomst plaatsvinden.","GewensteLeverDatum",GewensteLeverDatum)
+		Do ..RegistreerFoutmelding("De gewenste leverdatum kan niet zo ver in de toekomst plaatsvinden.","GewensteLeverDatum",GewensteLeverDatumTekst)
 	}
+]]></Implementation>
+</Method>
+
+<Method name="ValideerLeverAdres">
+<FormalSpec>LeverAdres:APPS.TRANSP.dto.InternationaalAdres</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($$$Not($IsObject(LeverAdres))) {
+		Do ..RegistreerFoutmelding("Er is geen leveradres meegegeven.", "LeverAdres", LeverAdres)
+	}
 	
-	If ($$$Not($IsObject(BerekenInput.TeVerzendenItems)) || (BerekenInput.TeVerzendenItems.Count() = 0)) 
+	If ((LeverAdres.LandCode = "US") || (LeverAdres.LandCode = "CA")) && (LeverAdres.ProvincieCode = "")
 	{
-		Do ..RegistreerFoutmelding("Er zijn geen teverzenditems meegegeven.","TeVerzendenItems", BerekenInput.TeVerzendenItems.Count())
+		Do ..RegistreerFoutmelding("De provinciecode vereist voor landcode US of CA.", "ProvincieCode", LeverAdres.ProvincieCode)
 	}
 	
-	If (..BerekenAantalPakjes(BerekenInput) > ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("MaximumTeVerzendenPakketten")) {
-		Do ..RegistreerFoutmelding("Het maximum aantal pakketen is overschreden","MaximumTeVerzendenPakketten",..BerekenAantalPakjes(BerekenInput))
+	If (LeverAdres.LandCode = "") 
+	{
+		Do ..RegistreerFoutmelding("Er is geen landcode meegegeven.", "LandCode",LeverAdres.LandCode)
 	}
-	
-	if $IsObject(..Exceptie) {
-		Do ##class(TECH.ExceptionHandler).Rethrow(..Exceptie)
+
+	If (LeverAdres.Postcode = "") 
+	{
+		Do ..RegistreerFoutmelding("Er is geen postcode meegegeven.","Postcode", LeverAdres.Postcode)
 	}
-	quit
+
+	If (LeverAdres.Woonplaats = "") 
+	{
+		Do ..RegistreerFoutmelding("Er is geen woonplaats meegegeven.","Woonplaats",LeverAdres.Woonplaats)
+	}
 ]]></Implementation>
 </Method>
 
@@ -103,12 +127,12 @@
 </Method>
 
 <Method name="BerekenAantalPakjes">
-<FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
+<FormalSpec>TeVerzendenItems:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim AantalPakjes As TECH.Integer = 0
-	Set TeverzendItemIterator = ##class(TECH.ListIterator).%New(BerekenInput.TeVerzendenItems)
+	Set TeverzendItemIterator = ##class(TECH.ListIterator).%New(TeVerzendenItems)
 	While TeverzendItemIterator.HasNext() {
 		#dim TeverzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = TeverzendItemIterator.Next()
 		Set AantalPakjes = AantalPakjes + TeverzendItem.Aantal
@@ -119,6 +143,7 @@
 
 <Method name="RegistreerFoutmelding">
 <FormalSpec>Melding:%String,ObjectNaam:%String,Waarde:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Omschrijving As TECH.Exceptions.TemplateBaseExcception.Description = ##class(TECH.Exceptions.TemplateBaseExcception.Description).%New(Melding, ObjectNaam, Waarde)
 	if ($IsObject(..Exceptie)) {