Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml
===================================================================
diff -u -r59667 -r59728
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 59667)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 59728)
@@ -27,6 +27,8 @@
 	if IsNieuweVerzendData {
 		set VerzendData.Reference = ..BepaalReference(Request)
 		set VerzendData.Carrier = ..BepaalCarrier(Request)
+		Set VerzendData.UnitID = VerzendData.Reference
+		set VerzendData.VerzendWijze = ..VerzendWijze
 	}
 	
 	set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Registratie()
@@ -73,18 +75,16 @@
 	 	Set Bericht = "Levering '"_..Levering.GeefID()_"' moet een gewicht hebben om te kunnen verzenden."
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(Bericht))
 	}
-	
-	/* ;weet niet of dit van toepassing is.
-	If (..IsFreightVerzendWijze())&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumParcel()) {
-	 	Set Bericht = "Deze Freight levering '"_..Levering.GeefID()_"' mag niet verzonden worden via GLS Parcel transport."
+	Do ##class(Tools.Wlip).%New(207).String("Verzendwijze " _ ..VerzendWijze)
+	If (..IsFreightVerzendWijze())&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).DHL()) {
+	 	Set Bericht = "Deze Freight levering '"_..Levering.GeefID()_"' mag niet verzonden worden via DHL."
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht))
 	}
     
-	If (..IsParcelVerzendWijze())&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight()) {
-	 	Set Bericht = "Deze Parcel levering '"_..Levering.GeefID()_"' mag niet verzonden worden via GLS Freight transport."
+	If (..IsParcelVerzendWijze())&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).VRD()) {
+	 	Set Bericht = "Deze Parcel levering '"_..Levering.GeefID()_"' mag niet verzonden worden via VRD."
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht))
 	}
-	*/
 ]]></Implementation>
 </Method>
 
@@ -96,6 +96,24 @@
 	Do EtiketService.PrintEtikettenVoorLevering(Levering)
 ]]></Implementation>
 </Method>
+
+<Method name="IsFreightVerzendWijze">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsFreightVerzendWijze As %Boolean = (..VerzendWijze = ##class(APPS.TRANSP.Transsmart.enu.VerzendWijze).Freight())
+	Quit IsFreightVerzendWijze
+]]></Implementation>
+</Method>
+
+<Method name="IsParcelVerzendWijze">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsParcelVerzendWijze As %Boolean = (..VerzendWijze = ##class(APPS.TRANSP.Transsmart.enu.VerzendWijze).Parcel())
+	Quit IsParcelVerzendWijze
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r59667 -r59728
--- APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 59667)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 59728)
@@ -27,7 +27,7 @@
 	do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,"RitID " _ RitID _ " LeveringID " _ LeveringID)
 	#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID)
 	#dim Levering As DOM.TRANSP.Levering = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(RitID,LeveringID)
-	set RegistreerLevering = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.RegistreerLevering).%New(,,,,,Rit,Levering)
+	set RegistreerLevering = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.RegistreerLevering).%New(,,,,,,Rit,Levering)
 	do RegistreerLevering.VoerUit()
 ]]></Implementation>
 </Method>
@@ -39,7 +39,7 @@
 	do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,"RitID " _ RitID _ " LeveringID " _ LeveringID)
 	#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID)
 	#dim Levering As DOM.TRANSP.Levering = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(RitID,LeveringID)
-	set AnnuleerLevering = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.AnnuleerLevering).%New(,,,,, Rit,Levering)
+	set AnnuleerLevering = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.AnnuleerLevering).%New(,,,,,,Rit,Levering)
 	do AnnuleerLevering.VoerUit()
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/Template.cls.xml
===================================================================
diff -u -r59667 -r59728
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/Template.cls.xml	(.../Template.cls.xml)	(revision 59667)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/Template.cls.xml	(.../Template.cls.xml)	(revision 59728)
@@ -18,31 +18,43 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerzendWijze">
+<Type>APPS.TRANSP.Transsmart.enu.VerzendWijze</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerzendDataLijst">
 <Type>APPS.TRANSP.GLS.dto.VerzendDataLijst</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="VerzendWijzeBepaler">
+<Type>APPS.TRANSP.Transsmart.VerzendWijzeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ConfigMgr:TECH.Config.ConfigMgr="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",TranssmartWSClient:WS.Transsmart.TboxServicePort="",RequestBouwer:APPS.TRANSP.Transsmart.RequestDataBouwer="",ResponseControleur:APPS.TRANSP.Transsmart.impl.ResponseControleur="",Rit:DOM.TRANSP.Rit,Levering:DOM.TRANSP.Levering</FormalSpec>
+<FormalSpec>ConfigMgr:TECH.Config.ConfigMgr="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",TranssmartWSClient:WS.Transsmart.TboxServicePort="",RequestBouwer:APPS.TRANSP.Transsmart.RequestDataBouwer="",ResponseControleur:APPS.TRANSP.Transsmart.impl.ResponseControleur="",VerzendWijzeBepaler:APPS.TRANSP.Transsmart.VerzendWijzeBepaler="",Rit:DOM.TRANSP.Rit,Levering:DOM.TRANSP.Levering</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##super(ConfigMgr,ProjectSettingsAPI,TranssmartWSClient,RequestBouwer,ResponseControleur)
-	set ..Rit = Rit
-	set ..Levering = Levering
-	set ..LeveringInfo = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefTransportService().GeefLeveringInfo(Rit.GeefID(),Levering.GeefID())	
-	set ..VerzendDataLijst = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefTransportService().GeefVerzendDataLijst(Rit.GeefID(),Levering.GeefID())
+	Set ..VerzendWijzeBepaler = $$$Inject(VerzendWijzeBepaler,##class(APPS.TRANSP.Transsmart.impl.VerzendWijzeBepaler).%New())
+	Set ..Rit = Rit
+	Set ..Levering = Levering
+	Set ..LeveringInfo = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefTransportService().GeefLeveringInfo(Rit.GeefID(),Levering.GeefID())
+	Set ..VerzendWijze = ..VerzendWijzeBepaler.GeefVerzendWijze(..LeveringInfo)
+	Set ..VerzendDataLijst = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefTransportService().GeefVerzendDataLijst(Rit.GeefID(),Levering.GeefID())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkVerzendDataID">
 <FormalSpec>VerzendDataID:%String</FormalSpec>
-<Implementation><![CDATA[	do ..Levering.VoegToeEnBewaarDistributeurDataID(VerzendDataID)
+<Implementation><![CDATA[	Do ..Levering.VoegToeEnBewaarDistributeurDataID(VerzendDataID)
 ]]></Implementation>
 </Method>
 </Class>