Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml
===================================================================
diff -u -r32826 -r32828
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 32826)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 32828)
@@ -11,7 +11,7 @@
 	Set TimeInTransitService = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort).%New()
 	Set TimeInTransitService.Transport = TransportSpy
 
-	#dim DummyResponse As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(..GeefBody())
+	#dim DummyResponse As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(..GeefTransitInTimeRequest())
 	
 	do $$$AssertEquals(TransportSpy.Action,"http://onlinetools.ups.com/webservices/TimeInTransitBinding/v1.0")
 	do $$$AssertEquals(TransportSpy.OneWay,$$$false)
@@ -33,7 +33,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS TransitTime")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
-	#dim DummyResponse As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(..GeefBody())
+	#dim DummyResponse As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(..GeefTransitInTimeRequest())
 ]]></Implementation>
 </Method>
 
@@ -54,37 +54,37 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBody">
+<Method name="GeefTransitInTimeRequest">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest</ReturnType>
 <Implementation><![CDATA[
-	Set Body = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).%New()
+	Set TransitInTimeRequest = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest).%New()
 	
-	Set Body.Request.TransactionReference.CustomerContext = "jskqlfsdf"
-	Set Body.Request.TransactionReference.TransactionIdentifier = "?"
+	Set TransitInTimeRequest.Request.TransactionReference.CustomerContext = "jskqlfsdf"
+	Set TransitInTimeRequest.Request.TransactionReference.TransactionIdentifier = "?"
 
-	Set Body.ShipFrom.Address.City = "Sint-Niklaas" 
-	Set Body.ShipFrom.Address.CountryCode = "BE" 
-	Set Body.ShipFrom.Address.PostalCode = "9100" 
+	Set TransitInTimeRequest.ShipFrom.Address.City = "Sint-Niklaas" 
+	Set TransitInTimeRequest.ShipFrom.Address.CountryCode = "BE" 
+	Set TransitInTimeRequest.ShipFrom.Address.PostalCode = "9100" 
 	
-	Set Body.ShipTo.Address.City = "Sint-Niklaas" 
-	Set Body.ShipTo.Address.CountryCode = "BE" 
-	Set Body.ShipTo.Address.PostalCode = "9100" 
+	Set TransitInTimeRequest.ShipTo.Address.City = "Sint-Niklaas" 
+	Set TransitInTimeRequest.ShipTo.Address.CountryCode = "BE" 
+	Set TransitInTimeRequest.ShipTo.Address.PostalCode = "9100" 
 	
-	Set Body.Pickup.Date = "20160122"
-	Set Body.Pickup.Time = "1700"
+	Set TransitInTimeRequest.Pickup.Date = "20160122"
+	Set TransitInTimeRequest.Pickup.Time = "1700"
 	
-	Set Body.ShipmentWeight.UnitOfMeasurement.Code = "KGS"
-	Set Body.ShipmentWeight.Weight = "11.5"
+	Set TransitInTimeRequest.ShipmentWeight.UnitOfMeasurement.Code = "KGS"
+	Set TransitInTimeRequest.ShipmentWeight.Weight = "11.5"
 
-	Set Body.TotalPackagesInShipment = "2"
+	Set TransitInTimeRequest.TotalPackagesInShipment = "2"
 
-	Set Body.InvoiceLineTotal.CurrencyCode = "EUR"
-	Set Body.InvoiceLineTotal.MonetaryValue = "200.00"
+	Set TransitInTimeRequest.InvoiceLineTotal.CurrencyCode = "EUR"
+	Set TransitInTimeRequest.InvoiceLineTotal.MonetaryValue = "200.00"
 	
-	Set Body.MaximumListSize = "50"
+	Set TransitInTimeRequest.MaximumListSize = "50"
 	
-	quit Body
+	quit TransitInTimeRequest
 ]]></Implementation>
 </Method>
 </Class>