Index: APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/TestZendingDetails.cls.xml
===================================================================
diff -u -r34365 -r34391
--- APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/TestZendingDetails.cls.xml	(.../vhUnitTest/zTryout/KCA/TestZendingDetails.cls.xml)	(revision 34365)
+++ APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/TestZendingDetails.cls.xml	(.../APPS/TRANSP/Offerte/impl/UPS/TimeInTransit/TestVerbinding.cls.xml)	(revision 34391)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.zTryout.KCA.TestZendingDetails">
-<Super>vhUnitTest.TestCase</Super>
+<Class name="APPS.TRANSP.Offerte.impl.UPS.TimeInTransit.TestVerbinding">
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="GeefZendingDetails">
 <Implementation><![CDATA[
@@ -20,7 +20,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="NietUitvoerenTestCommuniceerMetUPS">
+<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()
@@ -36,15 +36,17 @@
 	try {
 		Set Response = Connection.Process(Body)
 	} catch {
-		do ..Fail(##class(TECH.ExceptionHandler).Catch().GeefOmschrijving())
-		do ..Fail(%objlasterror)
+		write !, ##class(TECH.ExceptionHandler).Catch().GeefOmschrijving()
+		write !, %objlasterror
 	}
 	
+	write !, Response 
 	Quit Response
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBody">
+<Private>1</Private>
 <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()
@@ -78,6 +80,7 @@
 </Method>
 
 <Method name="GeefHeader">
+<Private>1</Private>
 <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()
FishEye: Tag 34391 refers to a dead (removed) revision in file `vhUnitTest/zTryout/KCA/TestZendingDetails.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?