Index: APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml	(revision 59667)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.CommunicatieService">
+<Super>APPS.TRANSP.impl.CommunicatieService</Super>
+
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerLevering">
+<FormalSpec>RitID:%String,LeveringID:%String</FormalSpec>
+<Implementation><![CDATA[
+	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)
+	do RegistreerLevering.VoerUit()
+]]></Implementation>
+</Method>
+
+<Method name="AnnuleerLevering">
+<FormalSpec>RitID:%String,LeveringID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	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)
+	do AnnuleerLevering.VoerUit()
+]]></Implementation>
+</Method>
+
+<Method name="BevestigRit">
+<FormalSpec>RitID:%String</FormalSpec>
+</Method>
+
+<Method name="ControleerRitVoorBevestiging">
+<FormalSpec>RitID:%String</FormalSpec>
+<Implementation><![CDATA[
+	/*
+	#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID)
+	#dim itLeveringID As TECH.ListIterator = Rit.GeefLeveringIDIterator()
+
+	Set StatusControleur = ##class(APPS.TRANSP.GLS.impl.StatusControleurDistributeurDataVisitor).%New()		
+	while itLeveringID.HasNext() {
+		#dim Levering As DOM.TRANSP.Levering = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(RitID,itLeveringID.Next())
+		Set DistributeurDataIt = ##class(TECH.ListIterator).%New(Levering.GeefDistributeurDataLijst())
+		While DistributeurDataIt.HasNext(){
+			#dim DistributeurData As DOM.TRANSP.DistributeurData = DistributeurDataIt.Next()
+			Do DistributeurData.Accept(StatusControleur)	
+		}
+	}
+
+	If 'StatusControleur.ZijnAlleStatussenInOrde() {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New("Rit '"_RitID_"': "_StatusControleur.GeefInfo()))
+	}
+	*/
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(revision 59667)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.CommunicatieService.RegistreerLevering">
+<Super>APPS.TRANSP.Transsmart.impl.CommunicatieService.Template</Super>
+
+<Method name="VoerUit">
+<Implementation><![CDATA[
+	quit:$$$Not(..IsActief())	
+	
+	#dim Request as WS.Transsmart.tns.doBooking = ..RequestBouwer.MaakdoBookingRequest(..LeveringInfo,..Rit) // moet de reference gaan bepalen.
+	do ..ControleerLevering()
+	
+	do ..VerwerkRequest(Request)
+	
+	Do ..PrintEtiketten(..Levering)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRequest">
+<FormalSpec>Request:WS.Transsmart.tns.doBooking</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Transsmart.data.VerzendData</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendData As APPS.TRANSP.Transsmart.data.VerzendData = ..GeefVerzendData(Request.GeefVerzendDataID())
+	
+	#dim IsNieuweVerzendData As %Boolean = ( VerzendData.%Id() = "" )
+	if IsNieuweVerzendData {
+		set VerzendData.Reference = ..BepaalReference(Request)
+		set VerzendData.Carrier = ..BepaalCarrier(Request)
+	}
+	
+	set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Registratie()
+	set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Started()
+	do VerzendData.Save()
+		
+	if IsNieuweVerzendData Do ..VerwerkVerzendDataID(VerzendData.%Id())
+	
+	Try {
+		#dim Response As WS.Transsmart.tns.getStatusResponse = ..VerzendBericht(Request)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New("Transsmart").ErrorMail("VerwerkRequest","Verzenden bericht mislukt."_$C(13,10)_$C(13,10)_Exception.ToString())
+		Set Error =##class(APPS.TRANSP.Transsmart.Error).%New("VH99",Exception.GeefOmschrijving())
+		do ..ThrowError(Error,VerzendData)
+	}
+
+	set VerzendData.Response = Response
+	
+	If ..ResponseControleur.ResponseBevatFout(Response) {
+		set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Failed()
+		do VerzendData.Save()
+		Set Error = ..ResponseControleur.GeefFoutInResponse(Response)
+		do ..ThrowError(Error, VerzendData)
+	}
+	
+	Set VerzendData.TrackAndTraceUrl = ..BepaalTrackAndTraceUrl(Response)	
+	Set VerzendData.TrackAndTraceID = ..BepaalTrackAndTraceID(Response)
+	
+	set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Finished()
+	do VerzendData.Save()
+	quit VerzendData
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLevering">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..Levering.GeefDistributeurDataIDs().Count() > 0 {
+		#dim Bericht As %String = "Levering '"_..Levering.GeefID()_"' is al geregistreerd voor rit '"_..Rit.GeefID()_"'"
+		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(Bericht))
+	}
+	If ..Levering.GeefNettoGewicht() <= 0 {
+	 	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(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."
+		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht))
+	}
+	*/
+]]></Implementation>
+</Method>
+
+<Method name="PrintEtiketten">
+<FormalSpec>Levering:DOM.TRANSP.Levering</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set EtiketService = ##class(APPS.TRANSP.Transsmart.impl.EtiketService).%New()
+	Do EtiketService.PrintEtikettenVoorLevering(Levering)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml	(revision 59667)
@@ -0,0 +1,203 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.BerichtVerzenderTemplate">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TranssmartWSClient">
+<Type>WS.Transsmart.TboxServicePort</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RequestBouwer">
+<Type>APPS.TRANSP.Transsmart.RequestDataBouwer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResponseControleur">
+<Type>APPS.TRANSP.Transsmart.impl.ResponseControleur</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=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).Instance())
+	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+
+	If ..ConfigMgr.GeefOmgeving()="PROD" {
+		Set ..TranssmartWSClient = $$$Inject(TranssmartWSClient,##class(WS.Transsmart.impl.TboxServicePort).%New())
+		Do ..TranssmartWSClient.ZetLocationVoorOmgeving(..ConfigMgr.GeefOmgeving())
+	}
+	else {
+		if ..ProjectSettingsAPI.GebruikTranssmartAcceptOmgeving()
+		{ 
+			Set ..TranssmartWSClient = $$$Inject(TranssmartWSClient,##class(WS.Transsmart.impl.TboxServicePort).%New())
+			Do ..TranssmartWSClient.ZetLocationVoorOmgeving(..ConfigMgr.GeefOmgeving())
+		} else {		
+			Set ..TranssmartWSClient=##class(WS.Transsmart.impl.LoggingTboxServicePort).%New()		
+		}
+	}
+	Do ..SetSSLConfiguration("Transsmart")
+	Do ..ZetAuthenticationHeader()
+	Set ..RequestBouwer = $$$Inject(RequestBouwer,##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New())
+	Set ..ResponseControleur = $$$Inject(ResponseControleur,##class(APPS.TRANSP.Transsmart.impl.ResponseControleur).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVerzendDataID">
+<Abstract>1</Abstract>
+<FormalSpec>VerzendDataID:%String</FormalSpec>
+</Method>
+
+<Method name="IsActief">
+<Implementation><![CDATA[	Quit ..ProjectSettingsAPI.IsTranssmartActive()
+]]></Implementation>
+</Method>
+
+<Method name="ZetAuthenticationHeader">
+<Implementation><![CDATA[	Do ..TranssmartWSClient.HeadersOut.SetAt( ..TranssmartWSClient.GeefAuthenticationHeader(),1)
+]]></Implementation>
+</Method>
+
+<Method name="SetSSLConfiguration">
+<FormalSpec>SSLConfiguration:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..TranssmartWSClient.SSLConfiguration = SSLConfiguration
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRequest">
+<Abstract>1</Abstract>
+<FormalSpec>Request:WS.Transsmart.tns.RequestBase</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Transsmart.data.VerzendData</ReturnType>
+</Method>
+
+<Method name="ThrowError">
+<Final>1</Final>
+<FormalSpec>Error:WS.Transsmart.tns.getStatusResponse,VerzendData:APPS.TRANSP.Transsmart.data.VerzendData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BerichtVoorGebruiker As %String = ""
+	#dim Calling As %List = ##class(TECH.ClassUtils).GetCallingMethod()
+	#dim CallingMethod As %String = $listget(Calling,1)_" -> "_$listget(Calling,2)
+    
+	If (Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).Waarschuwing()) {
+		
+		Set BerichtVoorGebruiker = Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_"Gelieve zelf of via OV actie te ondernemen."
+		Do ##class(vhLib.Logger).%New("Transsmart").Warning(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+	/*		
+	}ElseIf(Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker()){
+
+		Set BerichtVoorGebruiker = Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_"Gelieve zelf of via OV actie te ondernemen."
+		Do ##class(vhLib.Logger).%New("GLS").Warning(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+		
+	}ElseIf(Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).InterneWaarschuwing()){
+		
+		Set BerichtVoorGebruiker = Error.Niveau_$C(13,10)_"Dit is enkel een waarschuwing. Code en data zijn correct."
+		Do ##class(vhLib.Logger).%New("GLS").WarningMail(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+		
+	}ElseIf(Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).PleaseRetryError()){
+		
+		Set BerichtVoorGebruiker = "Niet gelukt. Gelieve opnieuw te proberen."
+		Do ##class(vhLib.Logger).%New("GLS").WarningMail(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+	*/	
+	}Else{
+		Set BerichtVoorGebruiker = Error.Niveau_$$$CRLF_"Dit probleem moet door ICT opgelost worden."		
+		Do ##class(vhLib.Logger).%New("Transsmart").ErrorMail(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+	}
+	
+	If (Error.Niveau '= ##class(TECH.Exceptions.enu.Niveau).InterneWaarschuwing()){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(BerichtVoorGebruiker))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerzendBericht">
+<Final>1</Final>
+<FormalSpec>Request:WS.Transsmart.tns.RequestBase</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
+<Implementation><![CDATA[
+	do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,Request.%ClassName(1))
+	Quit:(Request.%ClassName(1) = "WS.Transsmart.tns.doBooking") ..TranssmartWSClient.doBooking(Request)
+	Quit:(Request.%ClassName(1) = "WS.Transsmart.tns.doDelete") ..TranssmartWSClient.doDelete(Request)
+	;invalid requesttype
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendData">
+<Final>1</Final>
+<FormalSpec>ID:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Transsmart.data.VerzendData</ReturnType>
+<Implementation><![CDATA[
+	#Dim VerzendData As APPS.TRANSP.Transsmart.data.VerzendData
+	if $length(ID) {
+	  	set VerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).OpenId(ID)
+	} else {
+	  	set VerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).%New()		
+	}
+	Quit VerzendData
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerichtVoorICT">
+<FormalSpec>Error:APPS.TRANSP.Transsmart.Error</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim BerichtVoorICT As %String = $$$CRLF_Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_$$$CRLF
+	Quit BerichtVoorICT
+]]></Implementation>
+</Method>
+
+<Method name="BepaalReference">
+<FormalSpec>Request:WS.Transsmart.tns.doBooking</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Request.shipmentInfo.reference
+]]></Implementation>
+</Method>
+
+<Method name="BepaalCarrier">
+<FormalSpec>Request:WS.Transsmart.tns.doBooking</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Request.bookingInfo.carrier
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTrackAndTraceUrl">
+<FormalSpec>Response:WS.Transsmart.tns.getStatusResponse</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Response.shipmentInfo.trackingUrl
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTrackAndTraceID">
+<FormalSpec>Response:WS.Transsmart.tns.getStatusResponse</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Response.shipmentInfo.awb
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/Template.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/Template.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/Template.cls.xml	(revision 59667)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.CommunicatieService.Template">
+<Super>APPS.TRANSP.Transsmart.impl.BerichtVerzenderTemplate</Super>
+
+<Property name="Rit">
+<Type>DOM.TRANSP.Rit</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Levering">
+<Type>DOM.TRANSP.Levering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeveringInfo">
+<Type>APPS.TRANSP.dto.LeveringInfo</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerzendDataLijst">
+<Type>APPS.TRANSP.GLS.dto.VerzendDataLijst</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>
+<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())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVerzendDataID">
+<FormalSpec>VerzendDataID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..Levering.VoegToeEnBewaarDistributeurDataID(VerzendDataID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/AnnuleerLevering.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/AnnuleerLevering.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/AnnuleerLevering.cls.xml	(revision 59667)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.CommunicatieService.AnnuleerLevering">
+<Super>APPS.TRANSP.Transsmart.impl.CommunicatieService.Template</Super>
+
+<Method name="VoerUit">
+<Implementation><![CDATA[
+	quit:$$$Not(..IsActief())	
+		
+	set itLijstVerzendData = ##class(TECH.ListIterator).%New(..VerzendDataLijst)
+	Do ##class(Tools.Wlip).%New(207).String("count ..VerzendDataLijst " _ ..VerzendDataLijst.Count())
+	while itLijstVerzendData.HasNext() {
+		#dim VerzendData As APPS.TRANSP.Transsmart.data.VerzendData = itLijstVerzendData.Next()
+		Do ##class(Tools.Wlip).%New(207).String(VerzendData)
+		#dim Request as WS.Transsmart.tns.doDeleteBooking = ..RequestBouwer.MaakdoDeleteRequest(VerzendData) // moet de reference gaan bepalen.
+		
+		do ..VerwerkRequest(Request)
+
+		Do ..Levering.VerwijderEnBewaarDistributeurDataID(VerzendData.ID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRequest">
+<FormalSpec>Request:WS.Transsmart.tns.doDelete</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Transsmart.data.VerzendData</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendData As APPS.TRANSP.Transsmart.data.VerzendData = ..GeefVerzendData(Request.GeefVerzendDataID())
+	set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Annulatie()
+	set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Started()
+	do VerzendData.Save()
+
+	Try {
+		#dim Response As WS.Transsmart.tns.getStatusResponse = ..VerzendBericht(Request)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New("Transsmart").ErrorMail("VerwerkRequest","Verzenden bericht mislukt."_$C(13,10)_$C(13,10)_Exception.ToString())
+		Set Error =##class(APPS.TRANSP.Transsmart.Error).%New("VH99",Exception.GeefOmschrijving())
+		do ..ThrowError(Error,VerzendData)
+	}
+
+	set VerzendData.Response = Response
+	
+	If ..ResponseControleur.ResponseBevatFout(Response) {
+		set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Failed()
+		do VerzendData.Save()
+		Set Error = ..ResponseControleur.GeefFoutInResponse(Response)
+		do ..ThrowError(Error, VerzendData)
+	}
+		
+	set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Finished()
+	do VerzendData.Save()
+	quit VerzendData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>