Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml
===================================================================
diff -u -r59827 -r59851
--- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 59827)
+++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 59851)
@@ -28,7 +28,8 @@
 	Do ##super(aTestname)
 	Do ##class(DOM.DomeinContext).Instance().PushPartijAPIClassName("vhUnitTest.APPS.TRANSP.PARTIJAPIMock")
 	Do ##class(DOM.DomeinContext).Instance().PushTransportAPIClassName("vhTest.Mock.DOM.TRANSP.TransportAPI")
-	Set ..ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Set ..ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
+	Do ..ProjectSettingsAPI.IndienMethodCall("IsTranssmartActive").DanReturn($$$False)
 ]]></Implementation>
 </Method>
 
@@ -48,6 +49,7 @@
 	
 	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartActive").DanReturn($$$False)
 	
+	
 	set VerpakkingEenheden = ##class(%ListOfObjects).%New()
 	do VerpakkingEenheden.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli()))
 	
@@ -67,7 +69,7 @@
 	set RitStub = ##class(vhUnitTest.APPS.TRANSP.TransportService.GeefLeveringInfo.RitMock).%New()
 	do RitStub.IndienMethodCall("GeefVoorzieneOphaalTimeStamp").DanReturn($$$VoorzieneOphaalTimeStamp)
 
-	#dim TransportStub As DOM.VKP.TransportAPI = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
+	#dim TransportStub As DOM.TRANSP.TransportAPI = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
 	do TransportStub.IndienMethodCall("GeefLevering",..#RitID,..#LeveringID).DanReturn(LeveringStub)
 	do TransportStub.IndienMethodCall("GeefRit",..#RitID).DanReturn(RitStub)
 
Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r59827 -r59851
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 59827)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 59851)
@@ -18,8 +18,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>EmailVoorBevestigingBepaler:APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler="",VerpakkingEenheidFactory:APPS.TRANSP.impl.VerpakkingEenheidFactory="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
+<FormalSpec>EmailVoorBevestigingBepaler:APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler="",VerpakkingEenheidFactory:APPS.TRANSP.impl.VerpakkingEenheidFactory="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",OrderAPI:DOM.VKP.OrderAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +33,7 @@
 	Set ..EmailVoorBevestigingBepaler = $$$Implementation(EmailVoorBevestigingBepaler,##class(APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler).%New())
 	Set ..VerpakkingEenheidFactory = $$$Inject(VerpakkingEenheidFactory, ##class(APPS.TRANSP.impl.VerpakkingEenheidFactory).%New())
 	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -84,12 +90,7 @@
 	Set LeveringInfo.OphaalTijdstip = Rit.GeefVoorzieneOphaalTimeStamp()
 	Set LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Levering.GeefGeleverdAanKlantID())
 	Set LeveringInfo.Telefoon = Levering.GeefAdres().GeefTelefoon()
-	
-	If ..ProjectSettingsAPI.IsTranssmartActive(){
-		Set LeveringInfo.Referentie = RitID _ $Extract(LeveringID,*-4,*)
-	} else {
-		Set LeveringInfo.Referentie = RitID _ "X" _ LeveringID
-	}
+	Set LeveringInfo.Referentie = ..BepaalReferentie(RitID,LeveringID)
 	Set LeveringInfo.EmailVoorBevestiging = ..EmailVoorBevestigingBepaler.GeefEmailVoorBevestiging(Levering.GeefGeleverdAanKlantID())
 	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = (Levering.GeefAantalColli() + Levering.GeefAantalEuroPalletten() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalBuitenmaatsPalletten() + Levering.GeefAantalLanggoed())
 	Set LeveringInfo.AantalVerpakkingEenhedenReedsVerdeeld = Levering.GeefAantalLanggoed()
@@ -116,6 +117,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalReferentie">
+<FormalSpec>RitID:%String,LeveringID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Referentie as %String = RitID _ "X" _ LeveringID
+	
+	If ..ProjectSettingsAPI.IsTranssmartActive(){
+		If ..OrderAPI.BestaatBon(LeveringID) {
+			#dim Bon as DOM.VKP.Bon = ..OrderAPI.GeefBon(LeveringID)
+			If Bon.GeefVerzendwijze() = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1() {
+				Set Referentie = RitID _ $Extract(LeveringID,*-4,*)
+			}
+		}
+	}
+
+	Quit Referentie
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeveringAdres">
 <FormalSpec>Adres:DOM.VKP.LeverAdres</FormalSpec>
 <ReturnType>APPS.TRANSP.dto.LeveringAdres</ReturnType>