Index: AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter.cls.xml
===================================================================
diff -u -r47541 -r48199
--- AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter.cls.xml	(.../SalesLineStatusUpdateConverter.cls.xml)	(revision 47541)
+++ AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter.cls.xml	(.../SalesLineStatusUpdateConverter.cls.xml)	(revision 48199)
@@ -8,15 +8,28 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SalesOrderLineStatusRepository">
+<Type>AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
-	
+	Set ..SalesOrderLineStatusRepository = $$$Inject(SalesOrderLineStatusRepository, ##class(AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New())
+
+	Set ..Logger = ##class(vhLib.Logger).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -38,6 +51,8 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(AXimpl.NoConversionNeededException).%New(##this.%ClassName(),Command.SubjectId))	
 	}
 	
+	Do ..UpdateSalesOrderLineStatus(Orderlijn.GeefAxInventTransId(), Command.Message)
+	
 	Set AxdEntitySalesLineUpd = ##class(AXif.Dynamics.SalesLineStatusOut.MessageParts.AxdEntitySalesLineUpd).%New()
 	Set AxdEntitySalesLineUpd.class = "entity"
 	Set AxdEntitySalesLineUpd.InventTransId = Orderlijn.GeefAxInventTransId()
@@ -52,6 +67,42 @@
 	Quit MessageParts
 ]]></Implementation>
 </Method>
+
+<Method name="UpdateSalesOrderLineStatus">
+<FormalSpec>AxInventTransId:%String,Message:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		#dim SalesOrderLineStatus As AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusData = ""
+		
+		If ..SalesOrderLineStatusRepository.BestaatViaAxInvenTransId(AxInventTransId) {
+			Set SalesOrderLineStatus = ..SalesOrderLineStatusRepository.GeefViaAxInvenTransId(AxInventTransId)
+		} Else {
+			Set SalesOrderLineStatus = ..SalesOrderLineStatusRepository.Maak()
+			Set SalesOrderLineStatus.AxInventTransId = AxInventTransId
+		}
+		
+		If $IsObject(SalesOrderLineStatus) {
+			Set SalesOrderLineStatus.SalesOrderLineStatus = ..ConvertMessageToStatus(Message)
+			Do ..SalesOrderLineStatusRepository.Bewaar(SalesOrderLineStatus)
+		}
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Warning("Status update", "De status van orderLijn met AxInventTransId '" _AxInventTransId _"' kon niet gezet worden. " _Exception.GeefOmschrijving())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConvertMessageToStatus">
+<FormalSpec>Message:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:(Message="Doorgegeven") ##class(AXdata.Dynamics.SalesLineStatus.enu.SalesOrderLineStatus).InVerwerking()
+	Quit:(Message="Klaargezet") ##class(AXdata.Dynamics.SalesLineStatus.enu.SalesOrderLineStatus).InVerwerking()
+	Quit ##class(AXdata.Dynamics.SalesLineStatus.enu.SalesOrderLineStatus).Vrij()
+]]></Implementation>
+</Method>
 </Class>