Index: APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml
===================================================================
diff -u -r32673 -r32716
--- APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml	(.../BerekenInputValidator.cls.xml)	(revision 32673)
+++ APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml	(.../BerekenInputValidator.cls.xml)	(revision 32716)
@@ -9,23 +9,71 @@
 	If ($$$Not($IsObject(BerekenInput.LeverAdres))) {
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ongeldig leveradres ontvangen in berekenInput : " _BerekenInput.Referentie)
 	}
-	If ((BerekenInput.LeverAdres.LandCode = "US" || BerekenInput.LeverAdres.LandCode = "CA") && 
-		(BerekenInput.LeverAdres.ProvincieCode = "" || $$$Not($IsObject(BerekenInput.LeverAdres.ProvincieCode)))
-		) {
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("De provincieCode ontbreekt in leveradres van berekenInput : " _BerekenInput.Referentie)
+	
+	If ((BerekenInput.LeverAdres.LandCode = "US") || (BerekenInput.LeverAdres.LandCode = "CA")) && (BerekenInput.LeverAdres.ProvincieCode = "")
+	{
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Provinciecode is niet ingevuld : " _BerekenInput.Referentie)
 	}
+	
+	If (BerekenInput.LeverAdres.LandCode = "") 
+	{
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Landcode is niet ingevuld : " _BerekenInput.Referentie)
+	}
+
+	If (BerekenInput.LeverAdres.Postcode = "") 
+	{
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Postcode is niet ingevuld : " _BerekenInput.Referentie)
+	}
+
+	If (BerekenInput.LeverAdres.Woonplaats = "") 
+	{
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Woonplaats is niet ingevuld : " _BerekenInput.Referentie)
+	}
+
+	If (BerekenInput.GewensteLeverDatum < ..GeefHuidigeDatum()) 
+	{
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Gewenste leverdatum mag niet in het verleden zijn : " _BerekenInput.Referentie)
+	}
+	
+	If (BerekenInput.GewensteLeverDatum > ..GeefUitersteDatum() ) 
+	{
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Gewenste leverdatum mag niet verder dan 60 dagen zijn : " _BerekenInput.Referentie)
+	}
+	
 	If ($$$Not($IsObject(BerekenInput.TeVerzendenItems)) || (BerekenInput.TeVerzendenItems.Count() = 0)) {
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Er zijn geen detaillijnen in berekenInput : " _BerekenInput.Referentie)
 	}
-
-	If (..BerekenAantalPakjes(BerekenInput) > 50) {
+	
+	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)
 	}
 	
 	quit
 ]]></Implementation>
 </Method>
 
+<Method name="GeefUitersteDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim UitersteDatum As %Date
+	
+	#dim MaximumAantalDagen As %Integer = ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("MaximumAantalDagenInDeToekomst")
+	
+	Set UitersteDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),MaximumAantalDagen, ##class(TECH.enu.DatePart).Dag())
+
+	Quit UitersteDatum
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
+
 <Method name="BerekenAantalPakjes">
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <Private>1</Private>
Index: APPS/TRANSP/UPS/impl/Settings.cls.xml
===================================================================
diff -u -r32672 -r32716
--- APPS/TRANSP/UPS/impl/Settings.cls.xml	(.../Settings.cls.xml)	(revision 32672)
+++ APPS/TRANSP/UPS/impl/Settings.cls.xml	(.../Settings.cls.xml)	(revision 32716)
@@ -7,6 +7,11 @@
 <Type>%Integer</Type>
 <Default>50</Default>
 </Parameter>
+
+<Parameter name="MaximumAantalDagenInDeToekomst">
+<Type>%Integer</Type>
+<Default>60</Default>
+</Parameter>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml
===================================================================
diff -u -r32701 -r32716
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 32716)
@@ -15,30 +15,222 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: UPS BerekenInput Valideerder">
+<Method name="Test: UPS BerekenInput Valideerder - Adressen ">
 <Implementation><![CDATA[
 	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
-	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ..GeefBerekenInput()
-	
-	Do BerekenInputValideerder.Valideer(BerekenInput)
-	
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputSintNiklaas())
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputCapanago())
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputStanley())
+
 	Do $$$AssertTrue(1)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: UPS BerekenInput Valideerder - Geldige Datum ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputMetDatum( ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate() ))
+
+	Do $$$AssertTrue(1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Foutief adres (Woonplaats leeg) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Woonplaats is niet ingevuld : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputWoonplaatsLeeg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Foutief adres (Postcode leeg) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Postcode is niet ingevuld : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputPostcodeLeeg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Foutief adres (Landcode leeg) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Landcode is niet ingevuld : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputLandcodeLeeg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Foutief adres (Provinciecode leeg) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Provinciecode is niet ingevuld : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputProcinviecodeLeeg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Gewenste leverdatum ongeldig (Datum in het verleden) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Gewenste leverdatum mag niet in het verleden zijn : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputMetDatum(##class(TECH.DateTime).TextToDate("11/03/2015")))
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Gewenste leverdatum ongeldig (Datum verder dan 60 dan in de toekomst) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Gewenste leverdatum mag niet verder dan 60 dagen zijn : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputMetDatum(##class(TECH.DateTime).TextToDate("29/11/2035")))
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputProcinviecodeLeeg">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "US"
+	Set LeverAdres.Postcode = "28164"
+	Set LeverAdres.Woonplaats = "Stanley"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputLandcodeLeeg">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = ""
+	Set LeverAdres.Postcode = "20867"
+	Set LeverAdres.Woonplaats = "Caponaga"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputPostcodeLeeg">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "IT"
+	Set LeverAdres.Postcode = ""
+	Set LeverAdres.Woonplaats = "Caponaga"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputWoonplaatsLeeg">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "IT"
+	Set LeverAdres.Postcode = "20867"
+	Set LeverAdres.Woonplaats = ""
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputStanley">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = "NC"
+	Set LeverAdres.LandCode = "US"
+	Set LeverAdres.Postcode = "28164"
+	Set LeverAdres.Woonplaats = "Stanley"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputSintNiklaas">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "BE"
+	Set LeverAdres.Postcode = "9100"
+	Set LeverAdres.Woonplaats = "Sint-Niklaas"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputCapanago">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "IT"
+	Set LeverAdres.Postcode = "20867"
+	Set LeverAdres.Woonplaats = "Capanago"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekenInput">
+<FormalSpec>LeverAdres:APPS.TRANSP.dto.InternationaalAdres</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
 <Implementation><![CDATA[
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ##class(TECH.DateTime).TextToDate("11/03/2016")
+	Set BerekenInput.LeverAdres = LeverAdres
+	
+	Do ..VoegDetailLijnenToe(BerekenInput)
+	
+	Quit BerekenInput
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputMetDatum">
+<FormalSpec>GewensteLeverDatum:%Date</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = "1"
+	Set BerekenInput.GewensteLeverDatum = GewensteLeverDatum
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "BE"
 	Set BerekenInput.LeverAdres.Postcode = "9100"
 	Set BerekenInput.LeverAdres.Woonplaats = "Sint-Niklaas"
 	
+	Do ..VoegDetailLijnenToe(BerekenInput)
+	
+	Quit BerekenInput
+]]></Implementation>
+</Method>
+
+<Method name="VoegDetailLijnenToe">
+<FormalSpec><![CDATA[&BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput]]></FormalSpec>
+<Implementation><![CDATA[
 	For Item=1:1:10 {
 		#dim TeverzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
 		Set TeverzendItem.ProductID = Item
@@ -49,8 +241,6 @@
 		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
-	
-	Quit BerekenInput
 ]]></Implementation>
 </Method>