Index: AXimpl/Admin/VKP/OrderLevenCyclus.cls.xml
===================================================================
diff -u -r43230 -r43296
--- AXimpl/Admin/VKP/OrderLevenCyclus.cls.xml	(.../OrderLevenCyclus.cls.xml)	(revision 43230)
+++ AXimpl/Admin/VKP/OrderLevenCyclus.cls.xml	(.../OrderLevenCyclus.cls.xml)	(revision 43296)
@@ -3,10 +3,38 @@
 <Class name="AXimpl.Admin.VKP.OrderLevenCyclus">
 <Super>TECH.Mockable</Super>
 
+<Property name="KlantLookup">
+<Type>AXimpl.Admin.VKP.KlantLookup</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLevenCyclusService">
+<Type>APPS.VKP.OrderLevenCyclusService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantLookup:AXimpl.Admin.VKP.KlantLookup,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantLookup = $$$Inject(KlantLookup,##class(AXimpl.Admin.VKP.KlantLookup).%New())
+	Set ..OrderLevenCyclusService = $$$Inject(OrderLevenCyclusService,##class(APPS.VKP.OrderLevenCyclusService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GenereerOrder">
 <FormalSpec>AxCustomerId:%String,AxSalesId:%String</FormalSpec>
 <ReturnType>DOM.VKP.Order</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[
+	#Dim Order as DOM.VKP.Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(..KlantLookup.GeefKlantId(AxCustomerId))
+	Do Order.ZetAxSalesId(AxSalesId)
+	Do Order.Save()
+	
+	Quit Order
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/AXimpl/Admin/VKP/OrderLevenCyclus/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/VKP/OrderLevenCyclus/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/VKP/OrderLevenCyclus/Test.cls.xml	(revision 43296)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.VKP.OrderLevenCyclus.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test GenereerOrder vraagt om order aan te maken, zet de AxSalesId en bewaart het order">
+<Implementation><![CDATA[
+	Set KlantLookupMock = ##class(vhTest.Mock.AXimpl.Admin.VKP.KlantLookup).%New()
+	Do KlantLookupMock.VerwachtMethodCall("GeefKlantId","01234").DanReturn("K||1234")
+	
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("ZetAxSalesId","AxSalesId").DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("Save").DanDoeNiks()
+
+	Set OrderLevenCyclusMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
+	Do OrderLevenCyclusMock.VerwachtMethodCall("MaakOrderMetKlantGegevens","K||1234","").DanReturn(OrderMock)
+		
+	set OrderLevenCyclus = ##class(AXimpl.Admin.VKP.OrderLevenCyclus).%New(KlantLookupMock,OrderLevenCyclusMock)
+	
+	#dim Order as DOM.VKP.Order = OrderLevenCyclus.GenereerOrder("01234","AxSalesId")
+
+	Do KlantLookupMock.Verifieer()
+	Do OrderLevenCyclusMock.Verifieer()
+	Do OrderMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>