Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml
===================================================================
diff -u -r60003 -r60393
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 60003)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 60393)
@@ -3,6 +3,24 @@
 <Class name="APPS.TRANSP.Transsmart.impl.CommunicatieService.RegistreerLevering">
 <Super>APPS.TRANSP.Transsmart.impl.CommunicatieService.Template</Super>
 
+<Property name="EtiketService">
+<Type>APPS.TRANSP.Transsmart.impl.EtiketService</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="",VerzendDataRepository:APPS.TRANSP.Transsmart.data.VerzendDataRepository="",VerzendWijzeBepaler:APPS.TRANSP.Transsmart.VerzendWijzeBepaler="",Rit:DOM.TRANSP.Rit,Levering:DOM.TRANSP.Levering,EtiketService:APPS.TRANSP.Transsmart.impl.EtiketService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(ConfigMgr,ProjectSettingsAPI,TranssmartWSClient,RequestBouwer,ResponseControleur,VerzendDataRepository,VerzendWijzeBepaler,Rit,Levering)
+	Set ..EtiketService = $$$Inject(EtiketService,##class(APPS.TRANSP.Transsmart.impl.EtiketService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VoerUit">
 <Implementation><![CDATA[
 	quit:$$$Not(..IsActief())	
@@ -24,17 +42,17 @@
 	#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)
+	If IsNieuweVerzendData {
+		Set VerzendData.Reference = ..BepaalReference(Request)
+		Set VerzendData.Carrier = ..BepaalCarrier(Request)
 		Set VerzendData.UnitID = VerzendData.Reference
-		set VerzendData.VerzendWijze = ..VerzendWijze
+		Set VerzendData.VerzendWijze = ..VerzendWijze
 	}
 	
-	set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Registratie()
-	set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Started()
+	Set VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.Transsmart.enu.RequestType).Registratie()
+	Set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Started()
 	Do Request.XMLExportToStream(VerzendData.RequestAsStream)
-	do VerzendData.Save()
+	Do ..VerzendDataRepository.Bewaar(VerzendData)
 		
 	if IsNieuweVerzendData Do ..VerwerkVerzendDataID(VerzendData.%Id())
 	
@@ -55,7 +73,7 @@
 	
 	If ..ResponseControleur.ResponseBevatFout(Response) {
 		set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Failed()
-		do VerzendData.Save()
+		Do ..VerzendDataRepository.Bewaar(VerzendData)
 		Set Error = ..ResponseControleur.GeefFoutInResponse(Response)
 		do ..ThrowError(Error, VerzendData)
 	}
@@ -64,7 +82,7 @@
 	Set VerzendData.TrackAndTraceID = ..BepaalTrackAndTraceID(Response)
 	
 	set VerzendData.Status = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Finished()
-	do VerzendData.Save()
+	Do ..VerzendDataRepository.Bewaar(VerzendData)
 	quit VerzendData
 ]]></Implementation>
 </Method>
@@ -100,9 +118,7 @@
 <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><![CDATA[	Do ..EtiketService.PrintEtikettenVoorLevering(Levering)
 ]]></Implementation>
 </Method>