Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(revision 2270)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.OrderUitvoering.TestOrderUitvoeringService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.OrderUitvoering.TestOrderUitvoeringService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestMaakReservatieStructuur">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).%New()
+	
+	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	Set Order = OrderAPI.GeefOrder(90000)
+	Set OrderLijn = Order.GeefOrderLijnIterator().Next()
+	
+	Set ReservatieStructuur = Service.MaakReservatieStructuur(Order, OrderLijn)
+	Do $$$AssertEquals(ReservatieStructuur.TransactieReferentie,90000,"Het ordernr")
+	Do $$$AssertEquals(ReservatieStructuur.TransactieLijnReferentie,101,"Het order lijn nr")
+	Do $$$AssertEquals(ReservatieStructuur.Bedrijf,##class(DOM.common.enu.Bedrijf).VanHoecke(),"Het bedrijf")
+	
+	Set MoederProductReservatie = ReservatieStructuur.Reservatie
+	Do $$$AssertEquals(MoederProductReservatie.ProductID,700,"Moederproduct ProductID")
+	Do $$$AssertEquals(MoederProductReservatie.DueOut,"2011-10-07 00:00:00","Moederproduct DueOut")
+	Do $$$AssertEquals(MoederProductReservatie.Aantal,2,"Moederproduct 2 stuks")
+	Do $$$AssertFalse(MoederProductReservatie.IsTransferReservatie,"Moederproduct geen transferreservatie")
+	
+	Set KindReservatie1 = MoederProductReservatie.KindReservaties.GetAt(1)
+	Do $$$AssertEquals(KindReservatie1.ProductID,353738,"KindReservatie1 ProductID")
+	Do $$$AssertEquals(KindReservatie1.DueOut,"2011-10-07 00:00:00","KindReservatie1 DueOut")
+	Do $$$AssertEquals(KindReservatie1.Aantal,2*1,"KindReservatie1 2 stuks")
+	Do $$$AssertFalse(KindReservatie1.IsTransferReservatie,"KindReservatie1 geen transferreservatie")
+	
+	Set KindReservatie2 = MoederProductReservatie.KindReservaties.GetAt(2)
+	Do $$$AssertEquals(KindReservatie2.ProductID,701,"KindReservatie2 ProductID")
+	Do $$$AssertEquals(KindReservatie2.DueOut,"2011-10-07 00:00:00","KindReservatie2 DueOut")
+	Do $$$AssertEquals(KindReservatie2.Aantal,2*2,"KindReservatie2 4 stuks")
+	Do $$$AssertFalse(KindReservatie2.IsTransferReservatie,"KindReservatie2 geen transferreservatie")
+	
+	Set KindVanKindReservatie2 = KindReservatie2.KindReservaties.GetAt(1)
+	Do $$$AssertEquals(KindVanKindReservatie2.ProductID,705,"KindVanKindReservatie2 ProductID")
+	Do $$$AssertEquals(KindVanKindReservatie2.DueOut,"2011-10-07 00:00:00","KindVanKindReservatie2 DueOut")
+	Do $$$AssertEquals(KindVanKindReservatie2.Aantal,2*2,"KindVanKindReservatie2 4 stuks")
+	Do $$$AssertFalse(KindVanKindReservatie2.IsTransferReservatie,"KindVanKindReservatie2 geen transferreservatie")
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ^KPR(700) = ""
+	Set ^KPR(701) = ""
+	Set ^KPR(702) = ""
+	Set ^KPR(703) = ""
+	Set ^KPR(704) = ""
+	Set ^KPR(705) = ""
+	Set ^KO1(90000,"F") = "1000"
+	Set ^KOD(1000,"F",90000) = ""
+	Set ^KOD(1000,"F",90000,0) = ""
+	Set ^KOD(1000,"F",90000,101) = "703000 \700\2\\\59.31\0#\8\59.31\59.31\703000 \L\\\100\59.31\KF0\\\\E1\EUR\\1\62371\\\\\\\\\\\\\\\\\\\\\1\\"
+	
+	Set ^PRBS("BS",700) = "MSK\OL"
+	Set ^PRBS("BS",700,"KIND.005") = "701\2\K\\\\\\\\PROD"
+	Set ^PRBS("BS",700,"SUR.001") = "\1\S\5.48\\\\\\100\SURP\\Inkorten toeslag + overdoos toeslag\\\0"
+	Set ^PRBS("BS",700,"TIJD.001") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Vouwen"
+	Set ^PRBS("BS",700,"TIJD.002") = "\1\T\\\\20\20\OLVERPAK\\VERPAK\\Inpakken"
+	Set ^PRBS("BS",700,"TIJD.003") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Afwerken"
+	Set ^PRBS("BS",700,"VPK.001") = "353738\1\H\\\\\\\999\optibox"
+	Set ^PRBS("BS",700,"VPK.001","D") = "1158\1158\1215"
+	Set ^PRBS("BS",700,"VPK.002") = "\1\T\\\\20\20\OL KARTON\999\optibox\\Snijden : OL WRAPAROUND"
+	Set ^PRBS("BS",700,"VPK.004") = "\1\T\\\\15\15\OL KARTON\999\optibox\\Snijden : OL SEPARATOR"
+	
+	Set ^PRBS("BS",701,"BSL.001" ) = "705\1\H\\\\\\\16\GROEP\\Omschrijving van het product\\\\\FabrGroep1\FabrPrep\\FabrGroep2"
+	Set ^PRBS("BS",701,"BSL.001","D") = "536\539\646.8"
+	Set ^PRBS("BS",701,"KST.001") = "\1\T\\\\35\35\GRPZAAG\1\GROEP\\Zaagwerk\\\1"
+	Set ^PRBS("BS",701,"MAT.002") = "\1\S\.045\\\\\\2\GROEP\\Zaagwerk surplus\\\1"
+	Set ^PRBS("BS",701,"MAT.003") = "\1\S\.04114293198830083566\\\\\\3\GROEP\\Algemene kost (1%)\\\1"
+	
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^KPR(700)
+	Kill ^KPR(701)
+	Kill ^KPR(702)
+	Kill ^KPR(703)
+	Kill ^KPR(704)
+	Kill ^KPR(705)
+	Kill ^KO1(90000,"F")
+	Kill ^KOD(1000,"F",90000)
+	Kill ^PRBS("BS",700)
+	Kill ^PRBS("BS",700)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/ProdRes/dto/ReservatieVoorVerwachteUitvoer.cls.xml
===================================================================
diff -u -r2135 -r2270
--- DOM/ProdRes/dto/ReservatieVoorVerwachteUitvoer.cls.xml	(.../ReservatieVoorVerwachteUitvoer.cls.xml)	(revision 2135)
+++ DOM/ProdRes/dto/ReservatieVoorVerwachteUitvoer.cls.xml	(.../ReservatieVoorVerwachteUitvoer.cls.xml)	(revision 2270)
@@ -2,7 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Reservatie">
 <Type>DOM.ProdRes.dto.Reservatie</Type>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r1948 -r2270
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 1948)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 2270)
@@ -62,6 +62,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKindBouwstenenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefKindBouwstenenIterator()
+]]></Implementation>
+</Method>
+
+<Method name="GeefHFBouwstenenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefHFBouwstenenIterator()
+]]></Implementation>
+</Method>
+
 <Method name="GeefKostBouwstenenIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ..Product.GeefKostBouwstenenIterator()
@@ -106,9 +118,7 @@
 
 <Method name="GeefMultiples">
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	
-	Quit ..Product.GeefMultiples()
+<Implementation><![CDATA[	Quit ..Product.GeefMultiples()
 ]]></Implementation>
 </Method>
 
Index: DOM/ProdRes/dto/Reservatie.cls.xml
===================================================================
diff -u -r2256 -r2270
--- DOM/ProdRes/dto/Reservatie.cls.xml	(.../Reservatie.cls.xml)	(revision 2256)
+++ DOM/ProdRes/dto/Reservatie.cls.xml	(.../Reservatie.cls.xml)	(revision 2270)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.ProdRes.dto.Reservatie">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ProductID">
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r1948 -r2270
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 1948)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 2270)
@@ -40,6 +40,16 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="GeefKindBouwstenenIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
+<Method name="GeefHFBouwstenenIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
 <Method name="GeefKostBouwstenenIterator">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Iterator</ReturnType>
Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml
===================================================================
diff -u
--- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(revision 0)
+++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(revision 2270)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="MaakReservatieStructuur">
+<Description>
+Internal private, maar zolang de data met de oude en nieuwe structuur moet in sync gehouden worden moet deze public staan.
+Deze hoort dus niet op de interface. Kan private worden als 'vhConsistency.Checks.InvoerUitvoerLinken' wordt uitgeschakeld.</Description>
+<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<ReturnType>DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer</ReturnType>
+<Implementation><![CDATA[
+	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer).%New()
+	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()	
+	Set Product = ProductOrderLijn.GeefProduct()
+	
+	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = Order.GeefOrderNr()
+	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = ProductOrderLijn.GeefLijnNr()
+	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
+	Set Reservatie.ProductID = Product.GeefPRNr()
+	Set Reservatie.DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
+	Set Reservatie.Aantal = ProductOrderLijn.GeefAantal()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Set ProductenStack = ##class(TECH.Stack).%New()
+	Set ReservatieStack = ##class(TECH.Stack).%New()
+	Do ProductenStack.Push(Product)
+	Do ReservatieStack.Push(Reservatie)
+	While ('ProductenStack.IsEmpty())
+	{
+		Set Product = ProductenStack.Pop()
+		Set Reservatie = ReservatieStack.Pop()
+		
+		Set HFBouwstenenIterator = Product.GeefHFBouwstenenIterator()
+		While (HFBouwstenenIterator.HasNext())
+		{
+			Set HFBouwsteen = HFBouwstenenIterator.Next()
+			Set HFProductID = HFBouwsteen.KindProductGetObjectId()
+			
+			Set KindReservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+			Set KindReservatie.ProductID = HFProductID
+			Set KindReservatie.DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
+			Set KindReservatie.Aantal = Reservatie.Aantal*HFBouwsteen.Aantal
+			Set KindReservatie.IsTransferReservatie = 0
+			Do Reservatie.KindReservaties.Insert(KindReservatie)
+		}
+		
+		Set KindBouwstenenIterator = Product.GeefKindBouwstenenIterator()
+		While (KindBouwstenenIterator.HasNext())
+		{
+			Set KindBouwsteen = KindBouwstenenIterator.Next()
+			Set KindProductID = KindBouwsteen.KindProductGetObjectId()
+			
+			Set KindReservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+			Set KindReservatie.ProductID = KindProductID
+			Set KindReservatie.DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
+			Set KindReservatie.Aantal = Reservatie.Aantal*KindBouwsteen.Aantal
+			Set KindReservatie.IsTransferReservatie = 0
+			Do Reservatie.KindReservaties.Insert(KindReservatie)
+			
+			Do ProductenStack.Push(ProductAPI.GeefProduct(KindProductID))
+			Do ReservatieStack.Push(KindReservatie)
+		}
+	}
+	
+	Quit ReservatieVoorVerwachteUitvoer
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC Reservaties.prj.xml
===================================================================
diff -u -r2237 -r2270
--- CSC Reservaties.prj.xml	(.../CSC Reservaties.prj.xml)	(revision 2237)
+++ CSC Reservaties.prj.xml	(.../CSC Reservaties.prj.xml)	(revision 2270)
@@ -1,9 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Reservaties" LastModified="2011-09-30 15:43:53">
+<Project name="CSC Reservaties" LastModified="2011-10-05 11:26:16">
   <Items>
+    <ProjectItem name="APPS.OrderUitvoering.OrderUitvoeringService" type="CLS"/>
+    <ProjectItem name="APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl" type="CLS"/>
     <ProjectItem name="DOM.DomeinContext" type="CLS"/>
     <ProjectItem name="DOM.OV.impl.DataM.DataMOrderIterator" type="CLS"/>
+    <ProjectItem name="DOM.PM.Product" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.DataM.DataMProduct" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.ProductImpl" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.InvoerUitvoerLink" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.Reservatie" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.Reservaties" type="CLS"/>
@@ -36,6 +41,7 @@
     <ProjectItem name="DOM.ProdRes.impl.VerwachteUitvoerImpl" type="CLS"/>
     <ProjectItem name="DOM.common.enu.Bedrijf" type="CLS"/>
     <ProjectItem name="vhConsistency.Checks.InvoerUitvoerLinken" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.OrderUitvoering.TestOrderUitvoeringService" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.ProdRes.TestVerwachteInvoerAPI" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.ProdRes.TestVerwachteUitvoerAPI" type="CLS"/>
   </Items>
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1948 -r2270
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1948)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 2270)
@@ -154,15 +154,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKindBouwstenenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst("K",0))
+]]></Implementation>
+</Method>
+
+<Method name="GeefHFBouwstenenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst("H",0))
+]]></Implementation>
+</Method>
+
 <Method name="GeefKostBouwstenenIterator">
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst(0))
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst("T",0))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKostSchaduwBouwstenenIt">
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst(1))
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst("T",1))
 ]]></Implementation>
 </Method>
 
@@ -188,21 +200,21 @@
 </Method>
 
 <Method name="GeefKostBouwsteenLijst">
-<FormalSpec>IsSchaduw:%Boolean</FormalSpec>
+<FormalSpec>Type:%String,IsSchaduw:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set BouwsteenLijst = ##class(%ListOfObjects).%New()
 	If ('IsSchaduw)
 	{
-		Set Type = "BS"
+		Set Node = "BS"
 	}
 	Else
 	{
-		Set Type = "BSS"
+		Set Node = "BSS"
 	}
-	Set Key = $Order(^PRBS(Type,..ProductNummer,"KST."))
-	While ((Key '= "") && (Key [ "KST."))
+	Set Key = $Order(^PRBS(Node,..ProductNummer,""))
+	While (Key '= "")
 	{
 		If ('IsSchaduw)
 		{
@@ -212,8 +224,11 @@
 		{
 			Set Bouwsteen = ##class(DOM.PM.Bouwstenen.SchBouwsteen).%OpenId(..ProductNummer_"||"_Key)
 		}
-		Do BouwsteenLijst.Insert(Bouwsteen)
-		Set Key = $Order(^PRBS(Type,..ProductNummer,Key))
+		If (Bouwsteen.Type = Type)
+		{
+			Do BouwsteenLijst.Insert(Bouwsteen)
+		}
+		Set Key = $Order(^PRBS(Node,..ProductNummer,Key))
 	}
 	
 	Quit BouwsteenLijst
Index: APPS/OrderUitvoering/OrderUitvoeringService.cls.xml
===================================================================
diff -u
--- APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(revision 0)
+++ APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(revision 2270)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OrderUitvoering.OrderUitvoeringService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="OrderUitvoeringService">
+<Type>APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl</Type>
+<InitialExpression>##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).%New()</InitialExpression>
+<Private>1</Private>
+</Property>
+</Class>
+</Export>