Index: vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml	(revision 32721)
@@ -0,0 +1,290 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.UPS.impl.OfferteBerekenaar.BerekenInputValidator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: UPS BerekenInput Valideerder - BerekenInput zonder lijnen ">
+<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 = ..GeefBerekenInputZonderLijnen()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er zijn geen detaillijnen in berekenInput : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do BerekenInputValideerder.Valideer(BerekenInput)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Adressen ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputSintNiklaas())
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputCapanago())
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputStanley())
+
+	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 - Geldige Datum ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.UPS.impl.BerekenInputValidator = ##class(APPS.TRANSP.UPS.impl.BerekenInputValidator).%New()
+	
+	#dim HuidigeDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	 
+	#dim DatumPlusProductieDagen As %Date
+	
+	#dim ProductieDagen As %Integer = ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("ProductieDagen")
+	
+	Set DatumPlusProductieDagen = ##class(TECH.DateTime).DatumBereken(HuidigeDatum,ProductieDagen, ##class(TECH.enu.DatePart).Dag())
+	 
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputMetDatum( DatumPlusProductieDagen))
+
+	Do $$$AssertTrue(1)
+]]></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 ProductieDagen As %Integer = ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("ProductieDagen")
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Gewenste leverdatum kan pas vanaf vandaag + " _ProductieDagen _" 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="Test: UPS BerekenInput Valideerder - Gewenste leverdatum leeg ">
+<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 leeg zijn : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Do BerekenInputValideerder.Valideer(..GeefBerekeningInputMetDatum(""))
+]]></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
+		Set TeverzendItem.WaardeGoederen = Item * 10
+		Set TeverzendItem.Gewicht = Item * 5
+		Set TeverzendItem.Aantal = 1
+		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 )
+		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
+		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekenInputZonderLijnen">
+<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("01/03/2016")
+	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 BerekenInput.TeVerzendenItems.Clear()
+	
+	Quit BerekenInput
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 32721 refers to a dead (removed) revision in file `vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 32721 refers to a dead (removed) revision in file `vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputValidator/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?