Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml
===================================================================
diff -u -r32882 -r33602
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml	(.../Test.cls.xml)	(revision 32882)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml	(.../Test.cls.xml)	(revision 33602)
@@ -11,7 +11,7 @@
 	Set RateService = ##class(APPS.TRANSP.UPS.impl.Rate.Service.RatePort).%New()
 	Set RateService.Transport = TransportSpy
 	
-	#dim DummyResponse As APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse = RateService.Process(..GeefRateRequest())
+	#dim DummyResponse As APPS.TRANSP.UPS.impl.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)
@@ -33,52 +33,9 @@
 	#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.UPS.impl.Rate.Service.rate.RateResponse = RateService.Process(..GeefRateRequest())
+	#dim DummyResponse As APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse = RateService.Process(##class(vhTest.Dummy.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).GeefRateRequest())
 ]]></Implementation>
 </Method>
-
-<Method name="GeefRateRequest">
-<Private>1</Private>
-<ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest</ReturnType>
-<Implementation><![CDATA[
-	Set RateRequest = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).%New()
-	
-	Set RateRequest.Request.TransactionReference.CustomerContext = "jskqlfsdf"
-	Set RateRequest.Request.TransactionReference.TransactionIdentifier = "?"
-
-	Do RateRequest.Request.RequestOption.Insert("Shop")
-	
-	Set RateRequest.Shipment.Shipper.Name = "Van Hoecke"
-	Set RateRequest.Shipment.Shipper.ShipperNumber = "A566R9"
-	Set RateRequest.Shipment.Shipper.Address.AddressLine = "Europark-Noord 9"
-	Set RateRequest.Shipment.Shipper.Address.City = "Sint-Niklaas"
-	Set RateRequest.Shipment.Shipper.Address.PostalCode = "9100"
-	Set RateRequest.Shipment.Shipper.Address.CountryCode = "BE"
-	
-	Set RateRequest.Shipment.ShipTo.Name = "Test klant"
-	Set RateRequest.Shipment.ShipTo.Address.AddressLine = "Kemzekestraat 6"
-	Set RateRequest.Shipment.ShipTo.Address.City = "Sint-Gillis-Waas"
-	Set RateRequest.Shipment.ShipTo.Address.PostalCode = "9170"
-	Set RateRequest.Shipment.ShipTo.Address.CountryCode = "BE"
-	Set RateRequest.Shipment.ShipTo.Address.StateProvinceCode = ""
-	
-	For Item=1:1:5 {
-		Set Package = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
-
-		Set Package.PackageWeight.UnitOfMeasurement.Code = "KGS"
-		Set Package.PackageWeight.Weight = 10 * Item
-		Set Package.PackagingType.Code = "02"
-		Set Package.PackagingType.Description = "Package/customer supplied"
-		
-		Do RateRequest.Shipment.Package.Insert(Package)
-	}
-	
-	Set RateRequest.Shipment.ShipmentServiceOptions.UPScarbonneutralIndicator = ""
-	Set RateRequest.Shipment.ShipmentRatingOptions.NegotiatedRatesIndicator = ""
-	
-	quit RateRequest
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Dummy/APPS/TRANSP/UPS/impl/Rate/Service/rate/RateRequest.cls.xml
===================================================================
diff -u
--- vhTest/Dummy/APPS/TRANSP/UPS/impl/Rate/Service/rate/RateRequest.cls.xml	(revision 0)
+++ vhTest/Dummy/APPS/TRANSP/UPS/impl/Rate/Service/rate/RateRequest.cls.xml	(revision 33602)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Dummy.APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefRateRequest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest</ReturnType>
+<Implementation><![CDATA[
+	Set RateRequest = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.RateRequest).%New()
+	
+	Set RateRequest.Request.TransactionReference.CustomerContext = "jskqlfsdf"
+	Set RateRequest.Request.TransactionReference.TransactionIdentifier = "?"
+
+	Do RateRequest.Request.RequestOption.Insert("Shop")
+	
+	Set RateRequest.Shipment.Shipper.Name = "Van Hoecke"
+	Set RateRequest.Shipment.Shipper.ShipperNumber = "A566R9"
+	Set RateRequest.Shipment.Shipper.Address.AddressLine = "Europark-Noord 9"
+	Set RateRequest.Shipment.Shipper.Address.City = "Sint-Niklaas"
+	Set RateRequest.Shipment.Shipper.Address.PostalCode = "9100"
+	Set RateRequest.Shipment.Shipper.Address.CountryCode = "BE"
+	
+	Set RateRequest.Shipment.ShipTo.Name = "Test klant"
+	Set RateRequest.Shipment.ShipTo.Address.AddressLine = "Kemzekestraat 6"
+	Set RateRequest.Shipment.ShipTo.Address.City = "Sint-Gillis-Waas"
+	Set RateRequest.Shipment.ShipTo.Address.PostalCode = "9170"
+	Set RateRequest.Shipment.ShipTo.Address.CountryCode = "BE"
+	Set RateRequest.Shipment.ShipTo.Address.StateProvinceCode = ""
+	
+	For Item=1:1:5 {
+		Set Package = ##class(APPS.TRANSP.UPS.impl.Rate.Service.rate.PackageType).%New()
+
+		Set Package.PackageWeight.UnitOfMeasurement.Code = "KGS"
+		Set Package.PackageWeight.Weight = 10 * Item
+		Set Package.PackagingType.Code = "02"
+		Set Package.PackagingType.Description = "Package/customer supplied"
+		
+		Do RateRequest.Shipment.Package.Insert(Package)
+	}
+	
+	Set RateRequest.Shipment.ShipmentServiceOptions.UPScarbonneutralIndicator = ""
+	Set RateRequest.Shipment.ShipmentRatingOptions.NegotiatedRatesIndicator = ""
+	
+	quit RateRequest
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>