Index: vhUnitTest/APPS/OV/impl/TrackAndTraceService/TestGlsUrls.cls.xml
===================================================================
diff -u -r59721 -r59732
--- vhUnitTest/APPS/OV/impl/TrackAndTraceService/TestGlsUrls.cls.xml	(.../TestGlsUrls.cls.xml)	(revision 59721)
+++ vhUnitTest/APPS/OV/impl/TrackAndTraceService/TestGlsUrls.cls.xml	(.../TestGlsUrls.cls.xml)	(revision 59732)
@@ -13,6 +13,14 @@
 <Type>APPS.TRANSP.GLS.GLSv1.data.VerzendData</Type>
 </Property>
 
+<Property name="TranssmartDhlVerzendData">
+<Type>APPS.TRANSP.Transsmart.data.VerzendData</Type>
+</Property>
+
+<Property name="TranssmartVrdVerzendData">
+<Type>APPS.TRANSP.Transsmart.data.VerzendData</Type>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
@@ -54,6 +62,50 @@
 	Set ..FreightDistributeurDataID.TrackAndTraceID = "TrackAndTraceID"
 	Do ..FreightDistributeurDataID.Save()
 	Do Levering.VoegToeEnBewaarDistributeurDataID(..FreightDistributeurDataID.GeefID())
+	
+	Set VervoerRef = 5 // DHL
+	Set BonID = 5
+	Set ^TRANSP("D",VervoerRef) = "6960\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_";6960\#\\\\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 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"
+		set ..TranssmartDhlVerzendData.Carrier = "carrierDHL"
+	}	
+	Set ..TranssmartDhlVerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Registratie()
+	Set ..TranssmartDhlVerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Started()
+	Set ..TranssmartDhlVerzendData.TrackAndTraceID = "DHLTrackAndTraceID"
+	Set ..TranssmartDhlVerzendData.TrackAndTraceUrl = "www.DHL.be/fakeUrl/"_..TranssmartDhlVerzendData.TrackAndTraceID
+	Set ..TranssmartDhlVerzendData.UnitID = "UTWillekeurig"
+	Set ..TranssmartDhlVerzendData.VerzendWijze = "Parcel"
+	Do ..TranssmartDhlVerzendData.Save()
+	Do Levering.VoegToeEnBewaarDistributeurDataID(..TranssmartDhlVerzendData.%Id())
+	
+	Set VervoerRef = 6 // VRD
+	Set BonID = 6
+	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 ..TranssmartVrdVerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).%New()
+	Set IsNieuweVerzendData = ( ..TranssmartVrdVerzendData.%Id() = "" )
+	if IsNieuweVerzendData {
+		set ..TranssmartVrdVerzendData.Reference = "referenceVRD"
+		set ..TranssmartVrdVerzendData.Carrier = "carrierVRD"
+	}	
+	Set ..TranssmartVrdVerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Registratie()
+	Set ..TranssmartVrdVerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Started()
+	Set ..TranssmartVrdVerzendData.TrackAndTraceUrl = "https://vrd-live-webportal.go4tms.net/User/Verzending/ToBeConfirmed"
+	Set ..TranssmartVrdVerzendData.TrackAndTraceID = "VRDTrackAndTraceID"
+	Set ..TranssmartVrdVerzendData.UnitID = "UTWillekeurig"
+	Set ..TranssmartVrdVerzendData.VerzendWijze = "Freight"
+	Do ..TranssmartVrdVerzendData.Save()
+	Do LeveringVrd.VoegToeEnBewaarDistributeurDataID(..TranssmartVrdVerzendData.%Id())
 		
 	Quit $$$OK
 ]]></Implementation>
@@ -62,16 +114,18 @@
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
 	#dim VervoerRef As %Integer
-	For VervoerRef=1:1:4{
+	For VervoerRef=1:1:6{
 		Kill ^TRANSP("D",VervoerRef)
 	}
 	#dim BonID As %Integer
-	For BonID=1:1:4{
+	For BonID=1:1:6{
 		Kill ^KUL(1000,"F",BonID)
 		Kill ^KU1(BonID)
 	}		
 	Do ..ParcelDistributeurDataID.Delete()
 	Do ..FreightDistributeurDataID.Delete()
+	Do ..TranssmartVrdVerzendData.Delete()
+	Do ..TranssmartDhlVerzendData.Delete()
 	Do ##super()
 ]]></Implementation>
 </Method>
@@ -183,7 +237,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Geen Publiek">
+<Method name="aTest Geen Publiek">
 <Implementation><![CDATA[
 	Set TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
 	
@@ -194,6 +248,66 @@
 	Do $$$AssertEquals(TeVerwachtenURL,PrivateTrackAndTraceURL,"Er is geen url voor publiek.")
 ]]></Implementation>
 </Method>
+
+<Method name="Test Transsmart Privaat Parcel - DHL">
+<Implementation><![CDATA[
+	Set TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+	
+	#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")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test Transsmart Privaat Freight - VRD">
+<Implementation><![CDATA[
+	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.GeefPrivateTrackAndTraceURL(BonID)
+	
+	If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsTranssmartActive()){
+		Do $$$AssertEquals(TeVerwachtenURL,PrivateTrackAndTraceURL,"URL is teruggeven voor Transsmart.")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test Transsmart Publieke Parcel - DHL">
+<Implementation><![CDATA[
+	Set TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+	
+	#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")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test Transsmart Publieke Freight - VRD">
+<Implementation><![CDATA[
+	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.")
+	}
+]]></Implementation>
+</Method>
 </Class>