Index: vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterORGALUX.cls.xml
===================================================================
diff -u -r29059 -r29065
--- vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterORGALUX.cls.xml	(.../TestVolgensLijnFilterORGALUX.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterORGALUX.cls.xml	(.../TestVolgensLijnFilterORGALUX.cls.xml)	(revision 29065)
@@ -110,6 +110,8 @@
 	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..#OrderIDMetGewoonProductEnOrgaluxProduct)
 	Do $$$AssertEquals(Order.GeefKlantID(),"K||1000")
 	Do $$$AssertEquals(Order.GeefOrderReferentie(),"TEST")
+	Do $$$AssertEquals(Order.GeefLeveringVoorwaarde(),"60")
+	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"EX;1`EX;3`EX;5")
 	
 	#dim OrderLijnIt As TECH.Iterator = Order.GeefOrderLijnIterator()
 	If $$$AssertTrue($IsObject(OrderLijnIt),"Er is een OrderLijnIterator") {
Index: APPS/VKP/impl/OrderSplitserVolgensLijnFilter.cls.xml
===================================================================
diff -u -r29059 -r29065
--- APPS/VKP/impl/OrderSplitserVolgensLijnFilter.cls.xml	(.../OrderSplitserVolgensLijnFilter.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/OrderSplitserVolgensLijnFilter.cls.xml	(.../OrderSplitserVolgensLijnFilter.cls.xml)	(revision 29065)
@@ -165,12 +165,18 @@
 	Do NieuwDocRef.Save()
 	
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
-	#dim NieuwOrder As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().MaakNieuwOrder(KlantID)
-	Do NieuwOrder.ZetCreatieDatum(Order.GeefCreatieDatum())
-	Do NieuwOrder.ZetIngegevenDoor(Order.GeefIngegevenDoor())
-	Do NieuwOrder.ZetOrderType(Order.GeefOrderType())
+	#dim NieuwOrder As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().MaakNieuwOrder(KlantID)	
+	Do NieuwOrder.Save()
+	
+	Set ^KO1(NieuwOrder.GeefID(),"F") = KLNr_"\"
+	Set ^KOB(NieuwOrder.GeefID(),"F") = KLNr_"\"
+	Set ^KO2("F",KLNr,NieuwOrder.GeefID()) = ""
+	For I=0:1:4 {
+		Set ^KOD(KLNr,"F",NieuwOrder.GeefID(),I) = ^KOD(KLNr,"F",OrderID,I)
+	}
+	Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(NieuwOrder.GeefID())
+	
 	Do NieuwOrder.ZetDocumentReferenties(NieuwDocRef)
-	Do NieuwOrder.ZetAfleveradres(Order.GeefAfleveradres())
 	Do NieuwOrder.Save()
 	Quit NieuwOrder.GeefID()
 ]]></Implementation>