Index: vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml
===================================================================
diff -u -r47541 -r48199
--- vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 47541)
+++ vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 48199)
@@ -20,14 +20,23 @@
 	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
 	Do OrderApiStub.IndienMethodCall("GeefOrder",OrderId).DanReturn(OrderStub)
 	
-	Set Converter = ##class(AXimpl.Dynamics.SalesLineStatusOut.Converter.SalesLineStatusUpdateConverter).%New(OrderApiStub)
+	Set SalesOrderLineStatus = ##class(AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusData).%New()
+
+	Set SalesOrderLineStatusRepository = ##class(vhTest.Mock.AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New()
+	Do SalesOrderLineStatusRepository.VerwachtMethodCall("BestaatViaAxInvenTransId", "AxInventTransId").ExactAantalKeer(1).DanReturn($$$False)
+	Do SalesOrderLineStatusRepository.VerwachtMethodCall("Maak").ExactAantalKeer(1).DanReturn(SalesOrderLineStatus)
+	Do SalesOrderLineStatusRepository.VerwachtMethodCall("Bewaar", SalesOrderLineStatus).ExactAantalKeer(1).DanDoeNiks()
 	
+	Set Converter = ##class(AXimpl.Dynamics.SalesLineStatusOut.Converter.SalesLineStatusUpdateConverter).%New(OrderApiStub, SalesOrderLineStatusRepository)
+	
 	#dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}"
 	#dim Response As AXif.Dynamics.SalesLineStatusOut.MessageParts = Converter.Convert(Request,GUID)
 	
 	Do $$$AssertEquals(Response.MessagePart.SalesLineUpd.GetAt(1).InventTransId,"AxInventTransId")
 	Do $$$AssertEquals(Response.MessagePart.SalesLineUpd.GetAt(1).OrderStatusId,"NieuweStatus")
 	Do $$$AssertEquals(Response.MessagePart.SalesLineUpd.GetAt(1).MessageId,GUID)
+	
+	Do SalesOrderLineStatusRepository.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -56,6 +65,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaardgedrag update SalesOrderLineStatus indien er reeds een status bestaat">
+<Implementation><![CDATA[
+	#dim OrderId As %String = "1000"
+	#dim OrderlijnId As %String = "105"
+	
+	Set Request = ##class(AXimpl.Request).%New("SalesLineStatus/Update", OrderId_"_"_OrderlijnId, $$$DummyString)
+	Set Request.Message = "NieuweStatus"
+	
+	Set ProductOrderlijn = ##class(vhTest.Fake.DOM.VKP.ProductOrderlijn).%New(OrderlijnId)
+	Do ProductOrderlijn.ZetAxInventTransId("AxInventTransId")
+	
+	#dim OrderStub As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
+	Do OrderStub.IndienMethodCall("GeefOrderLijn",OrderlijnId).DanReturn(ProductOrderlijn)
+	
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefOrder",OrderId).DanReturn(OrderStub)
+	
+	Set SalesOrderLineStatus = ##class(AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusData).%New()
+
+	Set SalesOrderLineStatusRepository = ##class(vhTest.Mock.AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New()
+	Do SalesOrderLineStatusRepository.VerwachtMethodCall("BestaatViaAxInvenTransId", "AxInventTransId").ExactAantalKeer(1).DanReturn($$$True)
+	Do SalesOrderLineStatusRepository.VerwachtMethodCall("GeefViaAxInvenTransId", "AxInventTransId").ExactAantalKeer(1).DanReturn(SalesOrderLineStatus)
+	Do SalesOrderLineStatusRepository.VerwachtMethodCall("Bewaar", SalesOrderLineStatus).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set Converter = ##class(AXimpl.Dynamics.SalesLineStatusOut.Converter.SalesLineStatusUpdateConverter).%New(OrderApiStub, SalesOrderLineStatusRepository)
+	
+	#dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}"
+	Do Converter.Convert(Request,GUID)
+	
+	Do SalesOrderLineStatusRepository.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Indien geen OrderID -&gt; error raisen">
 <Implementation><![CDATA[
 	#dim OrderId As %String = ""
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>