Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml
===================================================================
diff -u -r48044 -r48086
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 48044)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 48086)
@@ -228,6 +228,49 @@
 	Do OrderSluiterMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Zet orderlijnisreedsverwerkt indicatie &apos;KOM&apos; op de Orderlijn indien &apos;$#KOM#$&apos; tag meegegeven wordt in Packingslipbody">
+<Implementation><![CDATA[
+	Set OrderDocRef = ##class(DOM.VKP.DocumentReferenties).%New()
+	
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder()
+
+	#dim OrderAPIMock As vhTest.Mock.DOM.VKP.OrderAPI = ..GeefOrderApi(OrderMock)
+	Do OrderMock.IndienMethodCall("BestaatOrderLijnViaAxInventTransId",$$$ElkeWaarde).DanReturn($$$False)
+
+	Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
+	Do DocumentReferentiesRepositoryMock.IndienMethodCall("Maak").DanReturn(OrderDocRef)
+	Do DocumentReferentiesRepositoryMock.IndienMethodCall("Bewaar", $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim StandaardOrderMetProductLijn As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrderMetProductLijn()
+	Set StandaardOrderMetProductLijn.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).OrderLine.GetAt(1).PackingSlipBody = "$#KOM#$" _ "PackingSlipBodyTekst"
+
+	#dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
+	Do ProductOrderlijnMock.IndienMethodCall("ZetAxInventTransId",$$$ElkeWaarde).DanDoeNiks()
+	Do ProductOrderlijnMock.IndienMethodCall("ZetMunt",$$$ElkeWaarde).DanDoeNiks()
+	Do ProductOrderlijnMock.IndienMethodCall("ZetLeverdag", $$$ElkeWaarde).DanDoeNiks()
+	Do ProductOrderlijnMock.IndienMethodCall("ZetEenheidPrijsExclBTW", $$$ElkeWaarde).DanDoeNiks()
+	Do ProductOrderlijnMock.IndienMethodCall("ZetTotaalNettoExclBTW", $$$ElkeWaarde).DanDoeNiks()
+	Do ProductOrderlijnMock.IndienMethodCall("ZetAxConfigId", $$$ElkeWaarde).DanDoeNiks()
+
+	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTextVoorAfdrukDocumentType", "PackingSlipBodyTekst", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
+	Do ProductOrderlijnMock.VerwachtMethodCall("ZetToeleveringLijnID", "KOM").DanDoeNiks()
+	Do ProductOrderlijnMock.VerwachtMethodCall("ZetToeleveringID", "").DanDoeNiks()
+
+	Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
+	Do OrderLevenCyclusServiceMock.IndienMethodCall("MaakOrderMetKlantGegevens", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(OrderMock)
+	Do OrderLevenCyclusServiceMock.IndienMethodCall("VoegToeProductVoorKlant",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(ProductOrderlijnMock)
+
+	
+	Set OrderLijnenSorteerderMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New()
+	Do OrderLijnenSorteerderMock.IndienMethodCall("SorteerGepersisteerdeOrderLijnen", OrderMock).DanDoeNiks()
+	
+	Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock, , ..GeefToeleveringService())
+	Do SalesOrderConverter.Convert(StandaardOrderMetProductLijn)
+	
+	Do ProductOrderlijnMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>