Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSFS.cls.xml
===================================================================
diff -u -r56130 -r56304
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSFS.cls.xml	(.../TestSFS.cls.xml)	(revision 56130)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSFS.cls.xml	(.../TestSFS.cls.xml)	(revision 56304)
@@ -6,33 +6,12 @@
 <Method name="Test: Een bestaand SFS order met Orderlijn wordt geupdatet en bewaard met juiste Tekstlijn">
 <Implementation><![CDATA[
 	#dim StandaardOrder As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrderMetProductLijn()
-	
-	Set OrderDocRefDummy = ##class(DOM.VKP.DocumentReferenties).%New()
 
-	#dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxInventTransId",StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).OrderLine.GetAt(1).InventTransId).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetMunt","EUR").DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetLeverdag", $$INTDATE^vhLib.DataTypes("19-07-2017")).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetEenheidPrijsExclBTW", 25).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTotaalNettoExclBTW", 250).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxConfigId", "").DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetAantal",10).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ConfirmBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging()).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProdCmdBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetProjectReferentie", "ProductionBody").DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetPakketReferentie", "ExternalItemId").DanDoeNiks()
+	#dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefProductOrderlijnMock(StandaardOrder)
 
-	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder()
-	Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$True)
-	Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(1)
-	Do OrderMock.VerwachtMethodCall("GeefOrderLijnViaAxInventTransId","000019541").DanReturn(ProductOrderlijnMock)
-	Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn(##class(DOM.VKP.enu.Klant).SFS())
-	Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000")
-
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(ProductOrderlijnMock)
 	
-	#dim ToeleveringServiceMock As vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New()
-	Do ToeleveringServiceMock.VerwachtMethodCall("VerwijderToeleveringenViaOrder" , OrderMock).ExactAantalKeer(1).DanDoeNiks()
+	#dim ToeleveringServiceMock As vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService = ..GeefToeleveringServiceMock(OrderMock)
 
 	Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,ToeleveringServiceMock,,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub())
 	Do SalesOrderConverter.Convert(StandaardOrder)
@@ -48,26 +27,9 @@
 	#dim StandaardOrder As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrderMetProductLijn()
 	Set StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).PackingSlipBody = "1234567890"
 
-	#dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxInventTransId",StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).OrderLine.GetAt(1).InventTransId).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetMunt","EUR").DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetLeverdag", $$INTDATE^vhLib.DataTypes("19-07-2017")).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetEenheidPrijsExclBTW", 25).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTotaalNettoExclBTW", 250).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxConfigId", "").DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetAantal",10).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ConfirmBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging()).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProdCmdBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetProjectReferentie", "ProductionBody").DanDoeNiks()
-	Do ProductOrderlijnMock.VerwachtMethodCall("ZetPakketReferentie", "ExternalItemId").DanDoeNiks()
+	#dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefProductOrderlijnMock(StandaardOrder)
 
-	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder()
-	Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$True)
-	Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(1)
-	Do OrderMock.VerwachtMethodCall("GeefOrderLijnViaAxInventTransId","000019541").DanReturn(ProductOrderlijnMock)
-	Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn(##class(DOM.VKP.enu.Klant).SFS())
-	Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000")
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(ProductOrderlijnMock)
 	Do OrderMock.VerwachtMethodCall("GeefTekstVoorAfdrukDocumentType","","").DanReturn("")
 	
 	Set TekstOrderLijnMockOpmerking = ##class(vhTest.Mock.DOM.VKP.TekstOrderlijn).%New()
@@ -82,8 +44,7 @@
 	Do TekstOrderLijnMockToeleveringOpmerking.VerwachtMethodCall("ZetTekstblokBehandeling",$$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.VerwachtMethodCall("MaakNieuweTekstLijn","ProdCmdBody").DanReturn(TekstOrderLijnMockToeleveringOpmerking)
 	
-	#dim ToeleveringServiceMock As vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New()
-	Do ToeleveringServiceMock.VerwachtMethodCall("VerwijderToeleveringenViaOrder" , OrderMock).ExactAantalKeer(1).DanDoeNiks()
+	#dim ToeleveringServiceMock As vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService = ..GeefToeleveringServiceMock(OrderMock)
 
 	Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,ToeleveringServiceMock,,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub())
 	Do SalesOrderConverter.Convert(StandaardOrder)
@@ -102,6 +63,29 @@
 	#dim StandaardOrder As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrderMetProductLijn()
 	Set StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).PackingSlipBody = "1234567890"
 
+	#dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefProductOrderlijnMock(StandaardOrder)
+
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(ProductOrderlijnMock)
+	Do OrderMock.VerwachtMethodCall("GeefTekstVoorAfdrukDocumentType","","").DanReturn("Opmerking:"_ $$$CRLF _ "1234567890")
+	Do OrderMock.VerwachtMethodCall("MaakNieuweTekstLijn","Opmerking:").Nooit()
+	Do OrderMock.VerwachtMethodCall("MaakNieuweTekstLijn","1234567890").Nooit()
+	
+	#dim ToeleveringServiceMock As vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService = ..GeefToeleveringServiceMock(OrderMock)
+
+	Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,ToeleveringServiceMock,,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub())
+	Do SalesOrderConverter.Convert(StandaardOrder)
+	
+	Do OrderMock.Verifieer()
+	Do ProductOrderlijnMock.Verifieer()
+	Do ToeleveringServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderlijnMock">
+<FormalSpec>StandaardOrder:AXif.Dynamics.SalesOrderIn.Envelope</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
 	#dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
 	Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxInventTransId",StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).OrderLine.GetAt(1).InventTransId).DanDoeNiks()
 	Do ProductOrderlijnMock.VerwachtMethodCall("ZetMunt","EUR").DanDoeNiks()
@@ -115,26 +99,36 @@
 	Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProdCmdBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
 	Do ProductOrderlijnMock.VerwachtMethodCall("ZetProjectReferentie", "ProductionBody").DanDoeNiks()
 	Do ProductOrderlijnMock.VerwachtMethodCall("ZetPakketReferentie", "ExternalItemId").DanDoeNiks()
+	
+	Quit ProductOrderlijnMock
+]]></Implementation>
+</Method>
 
+<Method name="GeefOrderMock">
+<FormalSpec>ProductOrderlijnMock:vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
 	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder()
 	Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$True)
 	Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(1)
 	Do OrderMock.VerwachtMethodCall("GeefOrderLijnViaAxInventTransId","000019541").DanReturn(ProductOrderlijnMock)
 	Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn(##class(DOM.VKP.enu.Klant).SFS())
 	Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000")
-	Do OrderMock.VerwachtMethodCall("GeefTekstVoorAfdrukDocumentType","","").DanReturn("Opmerking:"_ $$$CRLF _ "1234567890")
-	Do OrderMock.VerwachtMethodCall("MaakNieuweTekstLijn","Opmerking:").Nooit()
-	Do OrderMock.VerwachtMethodCall("MaakNieuweTekstLijn","1234567890").Nooit()
 	
+	Quit OrderMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringServiceMock">
+<FormalSpec>OrderMock:vhTest.Mock.DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService</ReturnType>
+<Implementation><![CDATA[
 	#dim ToeleveringServiceMock As vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("VerwijderToeleveringenViaOrder" , OrderMock).ExactAantalKeer(1).DanDoeNiks()
-
-	Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,ToeleveringServiceMock,,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub())
-	Do SalesOrderConverter.Convert(StandaardOrder)
 	
-	Do OrderMock.Verifieer()
-	Do ProductOrderlijnMock.Verifieer()
-	Do ToeleveringServiceMock.Verifieer()
+	Quit ToeleveringServiceMock
 ]]></Implementation>
 </Method>
 </Class>