Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml
===================================================================
diff -u -r34022 -r34027
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 34022)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 34027)
@@ -11,7 +11,7 @@
 	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()
+	#dim RequestDummy As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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)
@@ -36,7 +36,7 @@
 	#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())
+	#dim DummyResponse As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest())
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/rate/RateResponse.cls.xml
===================================================================
diff -u -r34016 -r34027
--- vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/rate/RateResponse.cls.xml	(.../UPS/impl/Rate/Service/rate/RateResponse.cls.xml)	(revision 34016)
+++ vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/rate/RateResponse.cls.xml	(.../Offerte/impl/UPS/Rate/Service/rate/RateResponse.cls.xml)	(revision 34027)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Utils.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse">
+<Class name="vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse">
 <Super>%RegisteredObject</Super>
 
 <Method name="GeefResponse">
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseConverteerder/Test.cls.xml
===================================================================
diff -u -r34022 -r34027
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 34022)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 34027)
@@ -6,7 +6,7 @@
 <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 Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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()
 
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseValidator/Test.cls.xml
===================================================================
diff -u -r34022 -r34027
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 34022)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 34027)
@@ -7,7 +7,7 @@
 <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 Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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))
@@ -19,8 +19,8 @@
 <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 Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponseMetVerkeerdeStatus()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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))
@@ -32,8 +32,8 @@
 <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 Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponseMetVerkeerdeReferentie()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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))
@@ -45,8 +45,8 @@
 <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 Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponseMetAlternatiefAdres()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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))
@@ -58,8 +58,8 @@
 <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()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse).GeefResponse()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
 	
 	Do ResponseValideerder.Valideer(Response, Request)
 	
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseValidator/Test.cls.xml
===================================================================
diff -u -r34022 -r34027
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 34022)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 34027)
@@ -9,7 +9,7 @@
 	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())
+	Do ResponseValidator.Valideer("", ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest).GeefRequest())
 ]]></Implementation>
 </Method>
 
@@ -18,11 +18,11 @@
 	#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()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse).GeefResponse()
 	Set Response.Response.TransactionReference.CustomerContext = "2"
 	Set Response.Response.TransactionReference.TransactionIdentifier = "2"
 
@@ -36,23 +36,23 @@
 	#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()
+	#dim Request As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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()
+	#dim Response As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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())
+	Do ResponseValidator.Valideer(Response, ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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 ResponseValidator.Valideer(##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse).GeefResponse(), ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest).GeefRequest())
 	
 	Do $$$AssertTrue(1)
 ]]></Implementation>
FishEye: Tag 34027 refers to a dead (removed) revision in file `vhTest/Utils/APPS/TRANSP/UPS/impl/Rate/Service/rate/RateResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/tnt/TimeInTransitResponse.cls.xml
===================================================================
diff -u -r34016 -r34027
--- vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/tnt/TimeInTransitResponse.cls.xml	(.../UPS/impl/TimeInTransit/Service/tnt/TimeInTransitResponse.cls.xml)	(revision 34016)
+++ vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/tnt/TimeInTransitResponse.cls.xml	(.../Offerte/impl/UPS/TimeInTransit/Service/tnt/TimeInTransitResponse.cls.xml)	(revision 34027)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Utils.APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse">
+<Class name="vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitResponse">
 <Super>%RegisteredObject</Super>
 
 <Method name="GeefResponse">
Index: vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/rate/RateRequest.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/rate/RateRequest.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/Rate/Service/rate/RateRequest.cls.xml	(revision 34027)
@@ -0,0 +1,186 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest">
+<Super>%RegisteredObject</Super>
+
+<Method name="GeefRequest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest</ReturnType>
+<Implementation><![CDATA[
+	Set Request = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest).%New()
+
+	Do Request.Request.RequestOption.Insert("Shop")
+	Set Request.Request.TransactionReference.CustomerContext = "1"
+	Set Request.Request.TransactionReference.TransactionIdentifier = "1"
+
+	Set Request.Shipment.Shipper.ShipperNumber = "A566R9"
+	Set Request.Shipment.Shipper.Address.StateProvinceCode = ""
+	Set Request.Shipment.Shipper.Address.City = "Sint-Niklaas" 
+	Set Request.Shipment.Shipper.Address.CountryCode = "BE" 
+	Set Request.Shipment.Shipper.Address.PostalCode = "9100" 
+	
+	Set Request.Shipment.ShipTo.Address.StateProvinceCode = ""
+	Set Request.Shipment.ShipTo.Address.City = "Olpe" 
+	Set Request.Shipment.ShipTo.Address.CountryCode = "DE" 
+	Set Request.Shipment.ShipTo.Address.PostalCode = "57462" 
+	
+	Set PackageItem1 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem1.Dimensions.Height = 500
+	Set PackageItem1.Dimensions.Width = 10
+	Set PackageItem1.Dimensions.Length = 100
+	Set PackageItem1.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem1.PackageWeight.Weight = 5
+	Set PackageItem1.PackagingType.Code = "02"
+	Set PackageItem1.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem1)
+
+	Set PackageItem2 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem2.Dimensions.Height = 1000
+	Set PackageItem2.Dimensions.Width = 20
+	Set PackageItem2.Dimensions.Length = 200
+	Set PackageItem2.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem2.PackageWeight.Weight = 10
+	Set PackageItem2.PackagingType.Code = "02"
+	Set PackageItem2.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem2)
+	
+	Set PackageItem3 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem3.Dimensions.Height = 1500
+	Set PackageItem3.Dimensions.Width = 30
+	Set PackageItem3.Dimensions.Length = 300
+	Set PackageItem3.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem3.PackageWeight.Weight = 15
+	Set PackageItem3.PackagingType.Code = "02"
+	Set PackageItem3.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem3)
+
+	Set PackageItem4 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem4.Dimensions.Height = 2000
+	Set PackageItem4.Dimensions.Width = 40
+	Set PackageItem4.Dimensions.Length = 400
+	Set PackageItem4.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem4.PackageWeight.Weight = 20
+	Set PackageItem4.PackagingType.Code = "02"
+	Set PackageItem4.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem4)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 25
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 30
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 35
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 51
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 72
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 100
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 133
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 172
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 219
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 274
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+	Set PackageItem5 = ##class(APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.PackageType).%New()
+	Set PackageItem5.Dimensions.Height = 2500
+	Set PackageItem5.Dimensions.Width = 50
+	Set PackageItem5.Dimensions.Length = 500
+	Set PackageItem5.PackageWeight.UnitOfMeasurement.Code = "KGS"
+	Set PackageItem5.PackageWeight.Weight = 337
+	Set PackageItem5.PackagingType.Code = "02"
+	Set PackageItem5.PackagingType.Description = "Package/customer supplied"
+	Do Request.Shipment.Package.Insert(PackageItem5)
+
+
+	Set Request.Shipment.ShipmentServiceOptions.UPScarbonneutralIndicator = ""
+	
+	Quit Request
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/tnt/TimeInTransitRequest.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/tnt/TimeInTransitRequest.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/Service/tnt/TimeInTransitRequest.cls.xml	(revision 34027)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest">
+<Super>%RegisteredObject</Super>
+
+<Method name="GeefRequest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest</ReturnType>
+<Implementation><![CDATA[
+	Set Request = ##class(APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest).%New()
+	
+	Set Request.Request.TransactionReference.CustomerContext = "1"
+	Set Request.Request.TransactionReference.TransactionIdentifier = "1"
+
+	Set Request.ShipFrom.Address.City = "Sint-Niklaas" 
+	Set Request.ShipFrom.Address.StateProvinceCode = "" 
+	Set Request.ShipFrom.Address.CountryCode = "BE" 
+	Set Request.ShipFrom.Address.PostalCode = "9100" 
+	
+	Set Request.ShipTo.Address.City = "Olpe" 
+	Set Request.ShipTo.Address.StateProvinceCode = "" 
+	Set Request.ShipTo.Address.CountryCode = "DE" 
+	Set Request.ShipTo.Address.PostalCode = "57462" 
+	
+	Set Request.Pickup.Date = ..GeefGeldigeDatum()
+	Set Request.Pickup.Time = ""
+	
+	Set Request.ShipmentWeight.UnitOfMeasurement.Code = "KGS"
+	Set Request.ShipmentWeight.Weight = "275"
+
+	Set Request.TotalPackagesInShipment = "15"
+
+	Set Request.InvoiceLineTotal.CurrencyCode = "EUR"
+	Set Request.InvoiceLineTotal.MonetaryValue = "1200"
+	
+	Set Request.MaximumListSize = "50"
+
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeldigeDatum">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10, ##class(TECH.enu.DatePart).Dag())
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeDatum">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 34027 refers to a dead (removed) revision in file `vhTest/Utils/APPS/TRANSP/UPS/impl/TimeInTransit/Service/tnt/TimeInTransitResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder/Test.cls.xml
===================================================================
diff -u -r34022 -r34027
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 34022)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 34027)
@@ -8,7 +8,7 @@
 	#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()
+	#dim TestRequest As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateRequest).GeefRequest()
 
 	Do $$$AssertObject(Request.Shipment.Shipper.Address , TestRequest.Shipment.Shipper.Address)
 	Do $$$AssertObject(Request.Request.TransactionReference  , TestRequest.Request.TransactionReference)
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder/Test.cls.xml
===================================================================
diff -u -r34022 -r34027
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 34022)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 34027)
@@ -8,7 +8,7 @@
 	#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()
+	#dim TestRequest As APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.Service.tnt.TimeInTransitRequest).GeefRequest()
 
 	Do $$$AssertObject(Request.Pickup, TestRequest.Pickup)
 	Do $$$AssertObject(Request.ShipFrom.Address , TestRequest.ShipFrom.Address)
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseConverteerder/Test.cls.xml
===================================================================
diff -u -r34022 -r34027
--- vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 34022)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/UPS/Rate/ResponseConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 34027)
@@ -6,7 +6,7 @@
 <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 Response As APPS.TRANSP.Offerte.impl.UPS.Rate.Service.rate.RateResponse = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.UPS.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()