Index: vhUnitTest/APPS/OV/impl/TrackAndTraceService/TestGlsUrls.cls.xml
===================================================================
diff -u -r59732 -r61272
--- vhUnitTest/APPS/OV/impl/TrackAndTraceService/TestGlsUrls.cls.xml	(.../TestGlsUrls.cls.xml)	(revision 59732)
+++ vhUnitTest/APPS/OV/impl/TrackAndTraceService/TestGlsUrls.cls.xml	(.../TestGlsUrls.cls.xml)	(revision 61272)
@@ -21,6 +21,10 @@
 <Type>APPS.TRANSP.Transsmart.data.VerzendData</Type>
 </Property>
 
+<Property name="TranssmartHamannVerzendData">
+<Type>APPS.TRANSP.Transsmart.data.VerzendData</Type>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
@@ -70,7 +74,6 @@
 	Set ^KU1(BonID,"F")="1000\"_BonID
 	Set Levering= ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(VervoerRef,BonID)
 	Set ..TranssmartDhlVerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).%New()
-	//Set ..ParcelDistributeurDataID = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).%New()
 	#dim IsNieuweVerzendData As %Boolean = ( ..TranssmartDhlVerzendData.%Id() = "" )
 	if IsNieuweVerzendData {
 		set ..TranssmartDhlVerzendData.Reference = "referenceDHL"
@@ -90,8 +93,7 @@
 	Set ^TRANSP("D",VervoerRef) = "5803\T\2804.8\\\\\58725,31224\1005\58725,31224\58725,31224\58725,31224\\5\\\\"
 	Set ^KUL(1000,"F",BonID,1)	= "\21.09.11\\\\1008\DI1 #Distributeur 1 - GLS\"_VervoerRef_";"_BonID_";5803\#\\\\10.91#1#26.0332\\\\\EUR\\\60\1\\###\\\\F\\\\\\1114#62354,37391\\\\TP7691\\\\OD1;62354;465883;80585\60719\\62353,50231\\\1071\62353,50237"
 	Set ^KU1(BonID,"F")="1000\"_BonID
-	Set LeveringVrd = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(VervoerRef,BonID)
-	;Set ..FreightDistributeurDataID = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).%New()
+	Set Levering = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(VervoerRef,BonID)
 	Set ..TranssmartVrdVerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).%New()
 	Set IsNieuweVerzendData = ( ..TranssmartVrdVerzendData.%Id() = "" )
 	if IsNieuweVerzendData {
@@ -105,7 +107,11 @@
 	Set ..TranssmartVrdVerzendData.UnitID = "UTWillekeurig"
 	Set ..TranssmartVrdVerzendData.VerzendWijze = "Freight"
 	Do ..TranssmartVrdVerzendData.Save()
-	Do LeveringVrd.VoegToeEnBewaarDistributeurDataID(..TranssmartVrdVerzendData.%Id())
+	Do Levering.VoegToeEnBewaarDistributeurDataID(..TranssmartVrdVerzendData.%Id())
+
+
+
+
 		
 	Quit $$$OK
 ]]></Implementation>
@@ -237,15 +243,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest Geen Publiek">
+<Method name="Test Geen Publiek">
 <Implementation><![CDATA[
 	Set TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
 	
 	#dim BonID As %String = "2"			
 	#Dim TeVerwachtenURL As %String = ""
 	
-	#dim PrivateTrackAndTraceURL As %String = TrackAndTraceService.GeefPubliekeTrackAndTraceURL(BonID)
-	Do $$$AssertEquals(TeVerwachtenURL,PrivateTrackAndTraceURL,"Er is geen url voor publiek.")
+	Do $$$AssertEquals(TeVerwachtenURL,TrackAndTraceService.GeefPubliekeTrackAndTraceURL(BonID),"Er is geen url voor publiek.")
 ]]></Implementation>
 </Method>
 
@@ -256,11 +261,7 @@
 	#dim BonID As %String = "5"
 	#Dim TeVerwachtenURL As %String = ..TranssmartDhlVerzendData.TrackAndTraceUrl
 	
-	#dim PrivateTrackAndTraceURL As %String = TrackAndTraceService.GeefPrivateTrackAndTraceURL(BonID)
-	
-	If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsTranssmartActive()){	
-		Do $$$AssertEquals(TeVerwachtenURL,PrivateTrackAndTraceURL,"URL is teruggeven voor Transsmart")
-	}
+	Do $$$AssertEquals(TeVerwachtenURL,TrackAndTraceService.GeefPrivateTrackAndTraceURL(BonID),"URL is teruggeven voor Transsmart")
 ]]></Implementation>
 </Method>
 
@@ -269,13 +270,9 @@
 	Set TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
 	
 	#dim BonID As %String = "6"		
-	#Dim TeVerwachtenURL As %String = ..TranssmartVrdVerzendData.TrackAndTraceUrl_"/"_..TranssmartVrdVerzendData.TrackAndTraceID
+	#Dim TeVerwachtenURL As %String = ..TranssmartVrdVerzendData.TrackAndTraceUrl
 	
-	#dim PrivateTrackAndTraceURL As %String = TrackAndTraceService.GeefPrivateTrackAndTraceURL(BonID)
-	
-	If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsTranssmartActive()){
-		Do $$$AssertEquals(TeVerwachtenURL,PrivateTrackAndTraceURL,"URL is teruggeven voor Transsmart.")
-	}
+	Do $$$AssertEquals(TeVerwachtenURL,TrackAndTraceService.GeefPrivateTrackAndTraceURL(BonID),"URL is teruggeven voor Transsmart.")
 ]]></Implementation>
 </Method>
 
@@ -286,11 +283,7 @@
 	#dim BonID As %String = "5"
 	#Dim TeVerwachtenURL As %String = ..TranssmartDhlVerzendData.TrackAndTraceUrl
 	
-	#dim PrivateTrackAndTraceURL As %String = TrackAndTraceService.GeefPubliekeTrackAndTraceURL(BonID)
-	
-	If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsTranssmartActive()){
-		Do $$$AssertEquals(TeVerwachtenURL,PrivateTrackAndTraceURL,"URL is teruggeven voor Transsmart")
-	}
+	Do $$$AssertEquals(TeVerwachtenURL,TrackAndTraceService.GeefPubliekeTrackAndTraceURL(BonID),"URL is teruggeven voor Transsmart")
 ]]></Implementation>
 </Method>
 
@@ -299,13 +292,9 @@
 	Set TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
 	
 	#dim BonID As %String = "6"		
-	#Dim TeVerwachtenURL As %String = ..TranssmartVrdVerzendData.TrackAndTraceUrl_"/"_..TranssmartVrdVerzendData.TrackAndTraceID
-	
-	#dim PrivateTrackAndTraceURL As %String = TrackAndTraceService.GeefPubliekeTrackAndTraceURL(BonID)
-	
-	If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsTranssmartActive()){
-		Do $$$AssertEquals(TeVerwachtenURL,PrivateTrackAndTraceURL,"URL is teruggeven voor Transsmart.")
-	}
+	#Dim TeVerwachtenURL As %String = ..TranssmartVrdVerzendData.TrackAndTraceUrl
+
+	Do $$$AssertEquals(TeVerwachtenURL,TrackAndTraceService.GeefPubliekeTrackAndTraceURL(BonID),"URL is teruggeven voor Transsmart.")
 ]]></Implementation>
 </Method>
 </Class>