Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseValidator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseValidator/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseValidator/Test.cls.xml	(revision 34022)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Controle van de foutmelding bij lege response ">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator).%New()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ""
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS TransitTime ")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+
+	Do ResponseValideerder.Valideer(Response, Request)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder - Response verkeerde status">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator).%New()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponseMetVerkeerdeStatus()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("UPS response verwacht status 1 voor ref : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+
+	Do ResponseValideerder.Valideer(Response, Request)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder - Response verkeerde referentie">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator).%New()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponseMetVerkeerdeReferentie()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verkeerde referentie ontvangen van UPS : 2")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+
+	Do ResponseValideerder.Valideer(Response, Request)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder - Response met alternatief adres">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator).%New()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponseMetAlternatiefAdres()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("UPS stelt alternative adressen voor ref : 1")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+
+	Do ResponseValideerder.Valideer(Response, Request)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder">
+<Implementation><![CDATA[
+	#dim ResponseValideerder As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseValidator).%New()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponse()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
+	
+	Do ResponseValideerder.Valideer(Response, Request)
+	
+	Do $$$AssertTrue(1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 34022 refers to a dead (removed) revision in file `vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r34016 -r34022
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/Test.cls.xml	(.../UPS/impl/OfferteBerekenaar/Test.cls.xml)	(revision 34016)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/Test.cls.xml	(.../Offerte/impl/UPS/OfferteBerekenaar/Test.cls.xml)	(revision 34022)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.APPS.TRANSP.UPS.impl.OfferteBerekenaar.Test">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.OfferteBerekenaar.Test">
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="Test: Geef transportofferte voor BerekenInput ">
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(revision 34022)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.TimeInTransitPort.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Controle van de gegenereerde soaprequest ">
+<Implementation><![CDATA[
+	#dim Response As %String = "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/""><soapenv:Header/><soapenv:Body><tnt:TimeInTransitResponse xmlns:tnt=""http://www.ups.com/XMLSchema/XOLTWS/tnt/v1.0""></tnt:TimeInTransitResponse></soapenv:Body></soapenv:Envelope>"
+	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New(Response)
+
+	Set TimeInTransitService = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.TimeInTransitPort).%New()
+	Set TimeInTransitService.Transport = TransportSpy
+	
+	#dim RequestDummy As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
+	Set RequestDummy.Pickup.Date = 64025
+	
+	#dim DummyResponse As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(RequestDummy)
+	
+	do $$$AssertEquals(TransportSpy.Action,"http://onlinetools.ups.com/webservices/TimeInTransitBinding/v1.0")
+	do $$$AssertEquals(TransportSpy.OneWay,$$$false)
+	
+	do ..DataExporteerder.ExporteerStream(##class(TECH.StreamUtils).FormateerXmlStream(TransportSpy.RequestStream),"Response.xml")
+	
+	do $$$AssertReferentieBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Controle van de foutmelding bij foutieve response ">
+<Implementation><![CDATA[
+	#dim Response As %String = ""
+	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New(Response)
+
+	Set TimeInTransitService = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.TimeInTransitPort).%New()
+	Set TimeInTransitService.Transport = TransportSpy
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS TransitTime ")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.CommunicationErrorException",Substrings))
+
+	#dim DummyResponse As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/KCA/TestZendingDetails.cls.xml
===================================================================
diff -u
--- zTryout/KCA/TestZendingDetails.cls.xml	(revision 0)
+++ zTryout/KCA/TestZendingDetails.cls.xml	(revision 34022)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.TestZendingDetails">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="GeefZendingDetails">
+<Implementation><![CDATA[
+	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New()
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(vhTest.Dummy.APPS.TRANSP.OfferteService.dto.BerekenInput).%New().GeefBerekenInput()
+
+	Set BerekenInput.GewensteLeverDatum = ##class(TECH.DateTime).TextToDate("11/05/2016")
+	Set BerekenInput.VroegsteAfhaalDatum = ##class(TECH.DateTime).TextToDate("10/05/2016")
+	Set BerekenInput.LeverAdres.LandCode = "DE"
+	Set BerekenInput.LeverAdres.Postcode = "57462"
+	Set BerekenInput.LeverAdres.Woonplaats = "Olpe"
+	
+	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	
+	write ZendingDetails
+]]></Implementation>
+</Method>
+
+<Method name="TestCommuniceerMetUPS">
+<ReturnType>APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim Connection As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.TimeInTransitPort = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.TimeInTransitPort).%New()
+	
+	#dim Header As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.upss.UPSSecurity = ..GeefHeader()
+	#dim Body As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ..GeefBody()
+	
+	Do Connection.HeadersOut.SetAt(Header,"v1")
+	Set Connection.SSLConfiguration = "UPS"
+
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ""
+	
+	try {
+		Set Response = Connection.Process(Body)
+	} catch {
+		do ..Fail(##class(TECH.ExceptionHandler).Catch().GeefOmschrijving())
+		do ..Fail(%objlasterror)
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="GeefBody">
+<ReturnType>APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim Body As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest).%New()
+	
+	Set Body.Request.TransactionReference.CustomerContext = "jskqlfsdf"
+	Set Body.Request.TransactionReference.TransactionIdentifier = "?"
+
+	Set Body.ShipFrom.Address.City = "Sint-Niklaas" 
+	Set Body.ShipFrom.Address.CountryCode = "BE" 
+	Set Body.ShipFrom.Address.PostalCode = "9100" 
+	
+	Set Body.ShipTo.Address.City = "Sint-Niklaas" 
+	Set Body.ShipTo.Address.CountryCode = "BE" 
+	Set Body.ShipTo.Address.PostalCode = "9100" 
+	
+	Set Body.Pickup.Date = "20160122"
+	Set Body.Pickup.Time = "1700"
+	
+	Set Body.ShipmentWeight.UnitOfMeasurement.Code = "KGS"
+	Set Body.ShipmentWeight.Weight = "11.5"
+
+	Set Body.TotalPackagesInShipment = "2"
+
+	Set Body.InvoiceLineTotal.CurrencyCode = "EUR"
+	Set Body.InvoiceLineTotal.MonetaryValue = "200.00"
+	
+	Set Body.MaximumListSize = "50"
+	
+	quit Body
+]]></Implementation>
+</Method>
+
+<Method name="GeefHeader">
+<ReturnType>APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.upss.UPSSecurity</ReturnType>
+<Implementation><![CDATA[
+	#dim Header As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.upss.UPSSecurity = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.upss.UPSSecurity).%New()
+	Set Header.ServiceAccessToken.AccessLicenseNumber = "BD0247306226EBF8"
+	Set Header.UsernameToken.Username = "VanHoeckeAPI" 
+	Set Header.UsernameToken.Password = "123ABC@@@"
+	Set Header.mustUnderstand = 1
+	quit Header
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml
===================================================================
diff -u -r34016 -r34022
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml	(.../UPS/impl/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml)	(revision 34016)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml	(.../Offerte/impl/UPS/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml)	(revision 34022)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.APPS.TRANSP.UPS.impl.Rate.Service.RatePort.WebmethodLeegResultaat">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.RatePort.WebmethodLeegResultaat">
 <IncludeCode>vhLib.Macro</IncludeCode>
 <Super>APPS.TRANSP.Offerte.impl.UPS.Rate.Service.RatePort</Super>
 
FishEye: Tag 34022 refers to a dead (removed) revision in file `vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder/Test.cls.xml	(revision 34022)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.Rate.BerekenInputConverteerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: UPS BerekenInput converteerder">
+<Implementation><![CDATA[
+	#dim BerekenInputConverteerder As APPS.TRANSP.Offerte.impl.UPS.Rate.BerekenInputConverteerder = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.BerekenInputConverteerder).%New()
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputGeldigAdres()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest = BerekenInputConverteerder.Converteer(BerekenInput)
+	#dim TestRequest As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRequest()
+
+	Do $$$AssertObject(Request.Shipment.Shipper.Address , TestRequest.Shipment.Shipper.Address)
+	Do $$$AssertObject(Request.Request.TransactionReference  , TestRequest.Request.TransactionReference)
+	Do $$$AssertObject(Request.Shipment.ShipTo.Address , TestRequest.Shipment.ShipTo.Address)
+	Do $$$AssertEquals(Request.Shipment.Package.Count(),TestRequest.Shipment.Package.Count())
+	
+	For Item=1:1:Request.Shipment.Package.Count() {
+		#dim Package As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType = Request.Shipment.Package.GetAt(Item)
+		#dim TestPackage As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType = TestRequest.Shipment.Package.GetAt(Item)
+
+		Do $$$AssertObject(Package.PackagingType , TestPackage.PackagingType  )
+
+		Do $$$AssertEquals(Package.PackageWeight.Weight , TestPackage.PackageWeight.Weight)
+		Do $$$AssertEquals(Package.PackageWeight.UnitOfMeasurement.Code , TestPackage.PackageWeight.UnitOfMeasurement.Code)
+		
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseConverteerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseConverteerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseConverteerder/Test.cls.xml	(revision 34022)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseConverteerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: UPS Response converteerder">
+<Implementation><![CDATA[
+	#dim ResponseConverteerder As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseConverteerder = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.ResponseConverteerder).%New()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponse()
+	#dim TransportOfferte As APPS.TRANSP.OfferteService.dto.OfferteData = ResponseConverteerder.Converteer(Response)
+	#dim TestTransportOfferte As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefTransportOfferteZonderPrijs()
+
+	Do $$$AssertEquals(TransportOfferte.Items.Count(), TestTransportOfferte.Items.Count())
+	
+	For Item=1:1:TransportOfferte.Items.Count() {
+		Do $$$AssertObject(TransportOfferte.Items.GetAt(Item), TestTransportOfferte.Items.GetAt(Item))
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseConverteerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseConverteerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseConverteerder/Test.cls.xml	(revision 34022)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseConverteerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: UPS Response converteerder">
+<Implementation><![CDATA[
+	#dim ResponseConverteerder As APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseConverteerder = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseConverteerder).%New()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse).GeefResponse()
+	#dim TransportOfferte As APPS.TRANSP.OfferteService.dto.OfferteData = ResponseConverteerder.Converteer(Response)
+	#dim TestTransportOfferte As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefTransportOfferteMet15Items()
+	
+	#dim a As TECH.Integer
+	
+	Do $$$AssertEquals(TransportOfferte.Items.Count(), TestTransportOfferte.Items.Count())
+	
+	For Item=1:1:TransportOfferte.Items.Count() {
+		Do $$$AssertObject(TransportOfferte.Items.GetAt(Item), TestTransportOfferte.Items.GetAt(Item))
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/OfferteBerekenaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/OfferteBerekenaar/Test.cls.xml	(revision 34022)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.Rate.OfferteBerekenaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geef mogelijke leverdagen voor BerekenInput ">
+<Implementation><![CDATA[
+	#dim FakeWebClient As vhTest.Fake.APPS.TRANSP.UPS.impl.Rate.Service.RatePort = ##class(vhTest.Fake.APPS.TRANSP.UPS.impl.Rate.Service.RatePort).%New()
+	
+	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.UPS.Rate.OfferteBerekenaar = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.OfferteBerekenaar).%New(FakeWebClient)
+	
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputGeldigAdres()
+
+	#dim TransportOfferte As APPS.TRANSP.OfferteService.dto.OfferteData = OfferteBerekenaar.Bereken(BerekenInput)
+	
+	#dim TestTransportOfferte As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefTransportOfferteMet15Items()
+	
+	Do $$$AssertEquals(TransportOfferte.Items.Count(), TestTransportOfferte.Items.Count())
+	
+	For Item=1:1:TransportOfferte.Items.Count() {
+		Do $$$AssertObject(TransportOfferte.Items.GetAt(Item), TestTransportOfferte.Items.GetAt(Item))
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml	(revision 34022)
@@ -0,0 +1,241 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.OfferteBerekenaar.BerekenInputValidator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: UPS BerekenInput Valideerder - BerekenInput zonder lijnen ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekenInputZonderLijnen()
+	
+	try{
+		Do BerekenInputValideerder.Valideer(BerekenInput)
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "Er zijn geen teverzenditems meegegeven.\TeVerzendenItems\0")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Adressen ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+	Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputGeldigAdres())
+	Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputCapanago())
+	Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputStanley())
+
+	Do $$$AssertTrue(1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Belgisch adres (niet toegelaten) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputBelgischAdres())
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "Dit is geen geldige landcode.\LandCode\BE")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Nederlands adres (niet toegelaten) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputNederlandsAdres())
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "Dit is geen geldige landcode.\LandCode\NL")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Luxemburgs adres (niet toegelaten) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputLuxemburgsAdres())
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "Dit is geen geldige landcode.\LandCode\LU")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Foutief adres (Woonplaats leeg) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputWoonplaatsLeeg())
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "Er is geen woonplaats meegegeven.\Woonplaats\")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Foutief adres (Postcode leeg) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputPostcodeLeeg())
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "Er is geen postcode meegegeven.\Postcode\")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Foutief adres (Landcode leeg) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputLandcodeLeeg())
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "Er is geen landcode meegegeven.\LandCode\")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Foutief adres (Provinciecode leeg) ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputProcinviecodeLeeg())
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "De provinciecode vereist voor landcode US of CA.\ProvincieCode\")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Geldige Datum ">
+<Implementation><![CDATA[
+	#dim HuidigeDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	#dim Willekeurigedatum As %Date = ##class(TECH.DateTime).DatumBereken(HuidigeDatum,10, ##class(TECH.enu.DatePart).Dag())
+
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+	Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputMetDatum(Willekeurigedatum))
+
+	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.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputMetDatum(##class(TECH.DateTime).TextToDate("11/03/2015")))
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "De gewenste leverdatum kan niet zo vroeg plaatsvinden.\GewensteLeverDatum\11.03.15")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gewenste leverdatum is gelijk aan de maximum toegelaten termijn ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputMetDatum(..GeefMaximumToegelatenDatum(0)))
+	
+	Do $$$AssertTrue(1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gewenste leverdatum ligt binnen de maximum toegelaten termijn">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputMetDatum(..GeefMaximumToegelatenDatum(-1)))
+	
+	Do $$$AssertTrue(1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gewenste leverdatum is groter dan de maximum toegelaten termijn">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+	
+	#dim TestDatum As %Date = ..GeefMaximumToegelatenDatum(+1)
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputMetDatum(TestDatum))
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "De gewenste leverdatum kan niet zo ver in de toekomst plaatsvinden.\GewensteLeverDatum\" _ ##class(TECH.DateTime).GeefDatumInPuntNotatie(TestDatum))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaximumToegelatenDatum">
+<FormalSpec>Afwijking:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim UitersteDatum As %Date
+	
+	#dim MaximumAantalDagen As %Integer = ##class(APPS.TRANSP.Offerte.impl.UPS.Settings).#MaximumAantalDagenInDeToekomst + Afwijking
+	
+	Set UitersteDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),MaximumAantalDagen, ##class(TECH.enu.DatePart).Dag())
+
+	Quit UitersteDatum
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS BerekenInput Valideerder - Gewenste leverdatum leeg ">
+<Implementation><![CDATA[
+	#dim BerekenInputValideerder As APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.BerekenInputValidator).%New()
+
+	try{
+		Do BerekenInputValideerder.Valideer(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputMetDatum(""))
+		Do $$$AssertFalse(1)
+	} catch {
+		#dim Exceptie As TECH.Exception.TemplateBaseException = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefExceptionCode(),##class(TECH.enu.ExceptionCode).InvalidInput())
+		Do $$$AssertEquals(Exceptie.ToString(), "Er is geen gewenste leverdatum meegegeven;.\GewensteLeverDatum\")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 34022 refers to a dead (removed) revision in file `vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/RatePort/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/RatePort/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/RatePort/Test.cls.xml	(revision 34022)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.RatePort.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Controle van de gegenereerde soaprequest">
+<Implementation><![CDATA[
+	#dim Response As %String = "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/""><soapenv:Header/><soapenv:Body><rate:RateResponse xmlns:rate=""http://www.ups.com/XMLSchema/XOLTWS/Rate/v1.1""></rate:RateResponse></soapenv:Body></soapenv:Envelope>"
+	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New(Response)
+	
+	Set RateService = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.RatePort).%New()
+	Set RateService.Transport = TransportSpy
+	
+	#dim DummyResponse As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse = RateService.Process(##class(vhTest.Dummy.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRateRequest())
+	
+	do $$$AssertEquals(TransportSpy.Action,"http://onlinetools.ups.com/webservices/RateBinding/v1.1")
+	do $$$AssertEquals(TransportSpy.OneWay,$$$false)
+	
+	do ..DataExporteerder.ExporteerStream(##class(TECH.StreamUtils).FormateerXmlStream(TransportSpy.RequestStream),"Response.xml")
+	
+	do $$$AssertReferentieBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Controle van de foutmelding bij foutieve response ">
+<Implementation><![CDATA[
+	#dim Response As %String = ""
+	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New(Response)
+
+	Set RateService = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.RatePort).%New()
+	Set RateService.Transport = TransportSpy
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS Rate")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.CommunicationErrorException",Substrings))
+
+	#dim DummyResponse As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse = RateService.Process(##class(vhTest.Dummy.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRateRequest())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml
===================================================================
diff -u -r34016 -r34022
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml	(.../UPS/impl/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml)	(revision 34016)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml	(.../Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml)	(revision 34022)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort.WebmethodLeegResultaat">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.TimeInTransitPort.WebmethodLeegResultaat">
 <IncludeCode>vhLib.Macro</IncludeCode>
 <Super>APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.TimeInTransitPort</Super>
 
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/OfferteBerekenaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/OfferteBerekenaar/Test.cls.xml	(revision 34022)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.OfferteBerekenaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geef mogelijke TransportOfferte voor BerekenInput ">
+<Implementation><![CDATA[
+	#dim FakeWebClient As vhTest.Fake.APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort = ##class(vhTest.Fake.APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort).%New()
+	
+	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.OfferteBerekenaar = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.OfferteBerekenaar).%New(FakeWebClient)
+	
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(vhTest.Dummy.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekenInput()
+	
+	#dim TransportOfferte As APPS.TRANSP.OfferteService.dto.OfferteData = OfferteBerekenaar.Bereken(BerekenInput)
+	
+	#dim TestTransportOfferte As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Dummy.APPS.TRANSP.OfferteService.dto.OfferteData).GeefTransportOfferte()
+	
+	Do $$$AssertEquals(TransportOfferte.Items.Count(), TestTransportOfferte.Items.Count())
+	
+	For Item=1:1:TransportOfferte.Items.Count() {
+		Do $$$AssertObject(TransportOfferte.Items.GetAt(Item), TestTransportOfferte.Items.GetAt(Item))
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder/Test.cls.xml	(revision 34022)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.BerekenInputConverteerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: UPS BerekenInput converteerder">
+<Implementation><![CDATA[
+	#dim BerekenInputConverteerder As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.BerekenInputConverteerder = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.BerekenInputConverteerder).%New()
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput).GeefBerekeningInputGeldigAdres()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = BerekenInputConverteerder.Converteer(BerekenInput)
+	#dim TestRequest As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
+
+	Do $$$AssertObject(Request.Pickup, TestRequest.Pickup)
+	Do $$$AssertObject(Request.ShipFrom.Address , TestRequest.ShipFrom.Address)
+	Do $$$AssertObject(Request.Request.TransactionReference , TestRequest.Request.TransactionReference)
+	Do $$$AssertObject(Request.ShipTo.Address , TestRequest.ShipTo.Address)
+	Do $$$AssertObject(Request.ShipmentWeight.UnitOfMeasurement , TestRequest.ShipmentWeight.UnitOfMeasurement)
+	Do $$$AssertEquals(Request.ShipmentWeight.Weight ,1498)
+	Do $$$AssertObject(Request.Request.TransactionReference , TestRequest.Request.TransactionReference)
+	Do $$$AssertObject(Request.InvoiceLineTotal , TestRequest.InvoiceLineTotal)
+	
+	Do $$$AssertEquals(Request.TotalPackagesInShipment , TestRequest.TotalPackagesInShipment)
+	Do $$$AssertEquals(Request.TotalPackagesInShipment , TestRequest.TotalPackagesInShipment)
+	Do $$$AssertEquals(Request.MaximumListSize,TestRequest.MaximumListSize)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseValidator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseValidator/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseValidator/Test.cls.xml	(revision 34022)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Controle van de foutmelding bij lege response ">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS Rate")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+
+	#dim ResponseValidator As APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator).%New()
+	Do ResponseValidator.Valideer("", ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRequest())
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder - Response met verkeerde referentie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("UPS response heeft verkeerde referentie : 2")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+	
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRequest()
+	Set Request.Request.TransactionReference.CustomerContext = "1"
+	Set Request.Request.TransactionReference.TransactionIdentifier = "1"
+	
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse).GeefResponse()
+	Set Response.Response.TransactionReference.CustomerContext = "2"
+	Set Response.Response.TransactionReference.TransactionIdentifier = "2"
+
+	#dim ResponseValidator As APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator).%New()
+	Do ResponseValidator.Valideer(Response, Request)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder - Response met verkeerde status">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("UPS response verwacht 1 als status voor ref : 1")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings))
+	
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRequest()
+	Set Request.Request.TransactionReference.CustomerContext = "1"
+	Set Request.Request.TransactionReference.TransactionIdentifier = "1"
+	
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse = ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse).GeefResponse()
+	Set Response.Response.ResponseStatus.Code = "2"
+	Set Response.Response.ResponseStatus.Description = "Failed"
+	
+	#dim ResponseValidator As APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator).%New()
+	Do ResponseValidator.Valideer(Response, ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRequest())
+]]></Implementation>
+</Method>
+
+<Method name="Test: UPS Response Valideerder">
+<Implementation><![CDATA[
+	#dim ResponseValidator As APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.ResponseValidator).%New()
+	Do ResponseValidator.Valideer(##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse).GeefResponse(), ##class(vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRequest())
+	
+	Do $$$AssertTrue(1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>