Index: vhUnitTest/APPS/common/TestData.cls.xml
===================================================================
diff -u -r995 -r1011
--- vhUnitTest/APPS/common/TestData.cls.xml	(.../TestData.cls.xml)	(revision 995)
+++ vhUnitTest/APPS/common/TestData.cls.xml	(.../TestData.cls.xml)	(revision 1011)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-30 08:00:20">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 15:08:49">
 <Class name="vhUnitTest.APPS.common.TestData">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62180,28821.930546</TimeChanged>
+<TimeChanged>62199,54544.620431</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Creeer">
@@ -112,5 +112,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3460195055"/>
+<Checksum value="4114220997"/>
 </Export>
Index: vhUnitTest/APPS/common/StockNiveauServiceObj.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/StockNiveauServiceObj.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/StockNiveauServiceObj.cls.xml	(revision 1011)
@@ -0,0 +1,165 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 15:29:25">
+<Class name="vhUnitTest.APPS.common.StockNiveauServiceObj">
+<IncludeCode>DOM.DomeinContext</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62199,55781.064385</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.common.StockNiveauServiceObj")</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set result = ##super()
+	if result do ##class(TestData).Creeer()
+ 	quit result
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	do ##class(TestData).Verwijder()
+ 	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefAlles">
+<Implementation><![CDATA[
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000))	
+	set dtoStock = implSNS.GeefAlleStockTypeNiveaus()
+	do $$$AssertEquals(dtoStock.Fysisch,1000,"Fysische stock")
+	do $$$AssertEquals(dtoStock.Praktisch,970,"Praktische stock")
+	do $$$AssertEquals(dtoStock.FysischMinReservaties,990,"Fysische stock min aantal in reservatie")
+	do $$$AssertEquals(dtoStock.Theoretisch,1720,"Theorethische stock")
+	do $$$AssertEquals(dtoStock.InOrder,30,"Aantal op order")
+	do $$$AssertEquals(dtoStock.InToelevering,750,"Aantal in uitlevering")
+	do $$$AssertEquals(dtoStock.InReservatie,10,"Aantal in reservatie")
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestFysischeStock">
+<Implementation><![CDATA[
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000))
+	do $$$AssertEquals(implSNS.GeefFysischeStock(),1000,"Controle fysische stock")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1002))
+	do $$$AssertEquals(implSNS.GeefFysischeStock(),1002,"Controle fysische stock")
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestPraktischeStock">
+<Implementation><![CDATA[
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000))	
+	do $$$AssertEquals(implSNS.GeefPraktischeStock(),970,"Controle praktische stock")
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1002))	
+	do $$$AssertEquals(implSNS.GeefPraktischeStock(),962,"Controle praktische stock")
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.04.2011"))	
+	do $$$AssertEquals(implSNS.GeefPraktischeStock(),970,"Controle praktische stock - 22.04.2011")
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.03.2011"))	
+	do $$$AssertEquals(implSNS.GeefPraktischeStock(),1000,"Controle praktische stock - 22.03.2011")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("30.03.2011"))
+	do $$$AssertEquals(implSNS.GeefPraktischeStock(),990,"Controle praktische stock - 30.03.2011")
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestTheoretischeStock">
+<Implementation><![CDATA[
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000))
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1720,"Controle theoretische stock")
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1720,"Controle theoretische stock")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1002))	
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),962,"Controle theoretische stock")
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.04.2011"))
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1720,"Controle theoretische stock - 22.04.2011")
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.03.2011"))
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1000,"Controle theoretische stock - 22.03.2011")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("30.03.2011"))
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1490,"Controle theoretische stock - 30.03.2011")
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestAantalInReservatie">
+<Implementation><![CDATA[
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000))	
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),10,"Controle aantal in reservatie")
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),10,"Controle aantal in reservatie")
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1002))	
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),0,"Controle aantal in reservatie")
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.04.2011"))	
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),10,"Controle aantal in reservatie - 22.04.2011")
+
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.03.2011"))	
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),0,"Controle aantal in reservatie - 22.03.2011")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("30.03.2011"))
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),10,"Controle aantal in reservatie - 30.03.2011")
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestAantalInOrder">
+<Implementation><![CDATA[
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000))	
+	do $$$AssertEquals(implSNS.GeefAantalInOrder(),30,"Aantal op order")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.04.2011"))	
+	do $$$AssertEquals(implSNS.GeefAantalInOrder(),30,"Aantal op order - 22.04.2011")
+		
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.03.2011"))	
+	do $$$AssertEquals(implSNS.GeefAantalInOrder(),0,"Aantal op order - 22.03.2011")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("30.03.2011"))	
+	do $$$AssertEquals(implSNS.GeefAantalInOrder(),10,"Aantal op order - 30.03.2011")
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestAantalOpUitlevering">
+<Implementation><![CDATA[
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000))	
+	do $$$AssertEquals(implSNS.GeefAantalInToelevering(),750,"Aantal op uitlevering")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.04.2011"))	
+	do $$$AssertEquals(implSNS.GeefAantalInToelevering(),750,"Aantal op uitlevering - 22.04.2011")
+		
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("22.03.2011"))	
+	do $$$AssertEquals(implSNS.GeefAantalInToelevering(),0,"Aantal op uitlevering - 22.03.2011")
+	
+	set implSNS = ##class(APPS.common.impl.StockNiveauServiceObj).%New($$$PMGeefProductAPI.GeefProduct(1000),$$INTDATE^vhDTyp("30.03.2011"))	
+	do $$$AssertEquals(implSNS.GeefAantalInToelevering(),500,"Aantal op uitlevering - 30.03.2011")
+	
+	quit
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3758489129"/>
+</Export>
Index: vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml
===================================================================
diff -u -r995 -r1011
--- vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml	(.../StockOverKinderenMock.cls.xml)	(revision 995)
+++ vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml	(.../StockOverKinderenMock.cls.xml)	(revision 1011)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-29 08:17:47">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 14:19:01">
 <Class name="vhUnitTest.APPS.common.StockOverKinderenMock">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.common.impl.StockOverKinderen</Super>
-<TimeChanged>62179,29867.998605</TimeChanged>
+<TimeChanged>62199,51556.651184</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="%OnNew">
@@ -16,7 +16,7 @@
 </Method>
 
 <Method name="AantalInOrder">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -27,28 +27,28 @@
 </Method>
 
 <Method name="FysischeStock">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit 100
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInToelevering">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit 0
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInReservatie">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit 0
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="163257324"/>
+<Checksum value="1503337545"/>
 </Export>
Index: vhUnitTest/APPS/common/StockOverKinderen.cls.xml
===================================================================
diff -u -r946 -r1011
--- vhUnitTest/APPS/common/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 946)
+++ vhUnitTest/APPS/common/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 1011)
@@ -1,9 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-18 10:00:33">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 14:22:37">
 <Class name="vhUnitTest.APPS.common.StockOverKinderen">
+<IncludeCode>DOM.DomeinContext</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62168,36114.697704</TimeChanged>
+<TimeChanged>62199,51772.77863</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -37,17 +38,25 @@
   	set ^PRBS("BS",1002)="M\KP"
   	set ^PRBS("BS",1002,"KIND.001")="1012\1\K\\\\\\\\P\"
 	set ^PRBS("BS",1002,"KIND.002")="1013\1\K\\\\\\\\P\"
-	set ^PRBS("BS",1002,"KIND.003")="\1\\\\\\\\\P\"
-	set ^PRBS("BS",1002,"KIND.004")="\1\\\\\\\\\P\"
-	set ^PRBS("BS",1002,"KIND.005")="1014\1\K\\\\\\\\P\"
-	set ^PRBS("BS",1002,"KIND.006")="1015\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.003")="1014\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.004")="1015\1\K\\\\\\\\P\"
 		
-	set ^PRBS("IP",1010,1000,"KIND.001")="H"
-	set ^PRBS("IP",1010,1001,"KIND.001")="H"
+	set ^PRBS("IP",1010,1000,"KIND.001")="K"
+	set ^PRBS("IP",1010,1001,"KIND.001")="K"
 		
-	set ^PRBS("IP",1011,1000,"KIND.002")="H"
-	set ^PRBS("IP",1011,1001,"KIND.002")="H"
+	set ^PRBS("IP",1011,1000,"KIND.002")="K"
+	set ^PRBS("IP",1011,1001,"KIND.002")="K"
 	
+	set ^PRBS("IP",1012,1000,"KIND.003")="K"
+	set ^PRBS("IP",1012,1002,"KIND.001")="K"
+	
+	set ^PRBS("IP",1013,1000,"KIND.004")="K"
+	set ^PRBS("IP",1013,1002,"KIND.002")="K"
+	
+	set ^PRBS("IP",1014,1002,"KIND.003")="K"
+	set ^PRBS("IP",1015,1002,"KIND.004")="K"
+	
+	
 	quit
 ]]></Implementation>
 </Method>
@@ -60,6 +69,11 @@
   
   	kill ^PRBS("IP",1010)
   	kill ^PRBS("IP",1011)
+  	kill ^PRBS("IP",1012)
+  	kill ^PRBS("IP",1013)
+  	kill ^PRBS("IP",1014)
+  	kill ^PRBS("IP",1015)
+  	
   	quit
 ]]></Implementation>
 </Method>
@@ -76,7 +90,7 @@
 <Method name="TestKind">
 <Implementation><![CDATA[
 	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenMock).%New()
-
+	 
 	set listKinderkens = blMoederProd.BepaalKinderen(1000)
 	do $$$AssertEquals(listKinderkens.Count(),4)
 	do $$$AssertTrue(listKinderkens.IsDefined(1010),"")
@@ -107,17 +121,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestMoedersVanKinderen">
+<UDLText name="T">
+<Content><![CDATA[
+// momenteel niet testen aangezien bepaalMoedersVanKinderen method toch niet gebruikt wordt..
+
+]]></Content>
+</UDLText>
+
+<Method name="zTestMoedersVanKinderen">
 <Implementation><![CDATA[
 	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenMock).%New()
-	set listMoeders = blMoederProd.BepaalMoedersVanKinderen(1000)
+	set listMoeders = blMoederProd.BepaalMoedersVanKinderen(1010)
 	
 	do $$$AssertEquals(listMoeders.Count(),2)
 	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
 	do $$$AssertTrue(listMoeders.IsDefined(1001),"")
 
 	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenMock).%New()
-	set listMoeders = blMoederProd.BepaalMoedersVanKinderen(1000)
+	set listMoeders = blMoederProd.BepaalMoedersVanKinderen(1011)
 	
 	do $$$AssertEquals(listMoeders.Count(),2)
 	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
@@ -151,5 +172,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2430636397"/>
+<Checksum value="1719338987"/>
 </Export>
Index: vhUnitTest/APPS/common/StockOverKinderenObjMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/StockOverKinderenObjMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/StockOverKinderenObjMock.cls.xml	(revision 1011)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 14:18:12">
+<Class name="vhUnitTest.APPS.common.StockOverKinderenObjMock">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.impl.StockOverKinderenObj</Super>
+<TimeChanged>62199,51507.824329</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>MoederProduct:DOM.PM.Product,StockType:APPS.common.enu.StockType,Datum:%Date=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	quit ##super($get(MoederProduct),$get(StockType),Datum)
+]]></Implementation>
+</Method>
+
+<Method name="AantalInOrder">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Result = 0	
+	if Product.GeefPRNr()=1001 set Result = 10
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="FysischeStock">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 100
+]]></Implementation>
+</Method>
+
+<Method name="AantalInToelevering">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 0
+]]></Implementation>
+</Method>
+
+<Method name="AantalInReservatie">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 0
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1347839477"/>
+</Export>
Index: vhUnitTest/APPS/common/StockNiveauService.cls.xml
===================================================================
diff -u -r946 -r1011
--- vhUnitTest/APPS/common/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 946)
+++ vhUnitTest/APPS/common/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1011)
@@ -1,11 +1,17 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-23 09:23:33">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 15:14:16">
 <Class name="vhUnitTest.APPS.common.StockNiveauService">
+<IncludeCode>DOM.DomeinContext</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62173,33898.72156</TimeChanged>
+<TimeChanged>62199,54871.712609</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.common.StockNiveauService")</Description>
@@ -27,6 +33,7 @@
 
 <Method name="TestGeefAlles">
 <Implementation><![CDATA[
+	
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000)	
 	set dtoStock = implSNS.GeefAlleStockTypeNiveaus()
 	do $$$AssertEquals(dtoStock.Fysisch,1000,"Fysische stock")
@@ -43,10 +50,10 @@
 <Method name="TestFysischeStock">
 <Implementation><![CDATA[
 
-	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000)	
+	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000)
 	do $$$AssertEquals(implSNS.GeefFysischeStock(),1000,"Controle fysische stock")
 	
-	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1002)	
+	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1002)
 	do $$$AssertEquals(implSNS.GeefFysischeStock(),1002,"Controle fysische stock")
 	
 	quit
@@ -62,35 +69,35 @@
 	do $$$AssertEquals(implSNS.GeefPraktischeStock(),962,"Controle praktische stock")
 
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.04.2011"))	
-	do $$$AssertEquals(implSNS.GeefPraktischeStock(),970,"Controle praktische stock")
+	do $$$AssertEquals(implSNS.GeefPraktischeStock(),970,"Controle praktische stock - 22.04.2011")
 
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.03.2011"))	
-	do $$$AssertEquals(implSNS.GeefPraktischeStock(),1000,"Controle praktische stock")
+	do $$$AssertEquals(implSNS.GeefPraktischeStock(),1000,"Controle praktische stock - 22.03.2011")
 	
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("30.03.2011"))
-	do $$$AssertEquals(implSNS.GeefPraktischeStock(),990,"Controle praktische stock")
+	do $$$AssertEquals(implSNS.GeefPraktischeStock(),990,"Controle praktische stock - 30.03.2011")
 	
 	quit
 ]]></Implementation>
 </Method>
 
 <Method name="TestTheoretischeStock">
 <Implementation><![CDATA[
-	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000)	
+	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000)
 	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1720,"Controle theoretische stock")
 	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1720,"Controle theoretische stock")
 	
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1002)	
 	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),962,"Controle theoretische stock")
 
-	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.04.2011"))	
-	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1720,"Controle theoretische stock")
+	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.04.2011"))
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1720,"Controle theoretische stock - 22.04.2011")
 
-	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.03.2011"))	
-	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1000,"Controle theoretische stock")
+	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.03.2011"))
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1000,"Controle theoretische stock - 22.03.2001")
 	
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("30.03.2011"))
-	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1490,"Controle theoretische stock")
+	do $$$AssertEquals(implSNS.GeefTheoretischeStock(),1490,"Controle theoretische stock - 30.03.2011")
 	
 	quit
 ]]></Implementation>
@@ -106,13 +113,13 @@
 	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),0,"Controle aantal in reservatie")
 
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.04.2011"))	
-	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),10,"Controle aantal in reservatie")
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),10,"Controle aantal in reservatie - 22.04.2011")
 
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.03.2011"))	
-	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),0,"Controle aantal in reservatie")
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),0,"Controle aantal in reservatie - 22.03.2011")
 	
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("30.03.2011"))
-	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),10,"Controle aantal in reservatie")
+	do $$$AssertEquals(implSNS.GeefAantalInReservatie(),10,"Controle aantal in reservatie - 30.03.2011")
 	
 	quit
 ]]></Implementation>
@@ -124,13 +131,13 @@
 	do $$$AssertEquals(implSNS.GeefAantalInOrder(),30,"Aantal op order")
 	
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.04.2011"))	
-	do $$$AssertEquals(implSNS.GeefAantalInOrder(),30,"Aantal op order")
+	do $$$AssertEquals(implSNS.GeefAantalInOrder(),30,"Aantal op order - 22.04.2011")
 		
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("22.03.2011"))	
-	do $$$AssertEquals(implSNS.GeefAantalInOrder(),0,"Aantal op order")
+	do $$$AssertEquals(implSNS.GeefAantalInOrder(),0,"Aantal op order - 22.03.2011")
 	
 	set implSNS = ##class(APPS.common.impl.StockNiveauService).%New(1000,$$INTDATE^vhDTyp("30.03.2011"))	
-	do $$$AssertEquals(implSNS.GeefAantalInOrder(),10,"Aantal op order")
+	do $$$AssertEquals(implSNS.GeefAantalInOrder(),10,"Aantal op order - 30.03.2011")
 	
 	quit
 ]]></Implementation>
@@ -154,5 +161,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="947047138"/>
+<Checksum value="159342877"/>
 </Export>
Index: vhUnitTest/APPS/common/StockOverKinderenObj.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/StockOverKinderenObj.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/StockOverKinderenObj.cls.xml	(revision 1011)
@@ -0,0 +1,178 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 15:44:29">
+<Class name="vhUnitTest.APPS.common.StockOverKinderenObj">
+<IncludeCode>DOM.DomeinContext</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62199,56685.42755</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.common.StockOverKinderen")</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	 set Status = ##super()
+	 if Status {
+	  	do ..CreatePRBS()	
+	  	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData()
+	 }
+ 	 quit Status
+]]></Implementation>
+</Method>
+
+<Method name="CreatePRBS">
+<Implementation><![CDATA[
+  	do ..DeletePRBS()
+  	
+  	set ^PRBS("BS",1000)="M\KP"
+  	set ^PRBS("BS",1000,"KIND.001")="1010\5\K\\\\\\\\P\"
+  	set ^PRBS("BS",1000,"KIND.002")="1011\1\K\\\\\\\\P\"
+  	set ^PRBS("BS",1000,"KIND.003")="1012\2\K\\\\\\\\P\"
+  	set ^PRBS("BS",1000,"KIND.004")="1013\4\K\\\\\\\\P\"
+
+	set ^PRBS("BS",1001)="M\KP"
+  	set ^PRBS("BS",1001,"KIND.001")="1010\3\K\\\\\\\\P\"
+  	set ^PRBS("BS",1001,"KIND.002")="1011\4\K\\\\\\\\P\"
+
+  	set ^PRBS("BS",1002)="M\KP"
+  	set ^PRBS("BS",1002,"KIND.001")="1012\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.002")="1013\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.003")="1014\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.004")="1015\1\K\\\\\\\\P\"
+		
+	set ^PRBS("IP",1010,1000,"KIND.001")="K"
+	set ^PRBS("IP",1010,1001,"KIND.001")="K"
+		
+	set ^PRBS("IP",1011,1000,"KIND.002")="K"
+	set ^PRBS("IP",1011,1001,"KIND.002")="K"
+	
+	set ^PRBS("IP",1012,1000,"KIND.003")="K"
+	set ^PRBS("IP",1012,1002,"KIND.001")="K"
+	
+	set ^PRBS("IP",1013,1000,"KIND.004")="K"
+	set ^PRBS("IP",1013,1002,"KIND.002")="K"
+	
+	set ^PRBS("IP",1014,1002,"KIND.003")="K"
+	set ^PRBS("IP",1015,1002,"KIND.004")="K"
+	
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="DeletePRBS">
+<Implementation><![CDATA[
+ 	kill ^PRBS("BS",1000)
+  	kill ^PRBS("BS",1001)	 
+  	kill ^PRBS("BS",1002)
+  
+  	kill ^PRBS("IP",1010)
+  	kill ^PRBS("IP",1011)
+  	kill ^PRBS("IP",1012)
+  	kill ^PRBS("IP",1013)
+  	kill ^PRBS("IP",1014)
+  	kill ^PRBS("IP",1015)
+  	
+  	quit
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	do ..DeletePRBS()
+ 	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData()
+ 	quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="TestKind">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New()
+
+	set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	 
+	set listKinderkens = blMoederProd.BepaalKinderen($$$PMGeefProductAPI.GeefProduct(1000))
+	do $$$AssertEquals(listKinderkens.Count(),4)
+	do $$$AssertTrue(listKinderkens.IsDefined(1010),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1011),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1012),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1013),"")
+	
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New()	
+	set listKinderkens = blMoederProd.BepaalKinderen($$$PMGeefProductAPI.GeefProduct(1002))
+	do $$$AssertEquals(listKinderkens.Count(),4)
+	do $$$AssertTrue(listKinderkens.IsDefined(1012),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1013),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1014),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1015),"")
+		
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestMoeder">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New()
+	set listMoeders = blMoederProd.BepaalMoeders($$$PMGeefProductAPI.GeefProduct(1010))
+	do $$$AssertEquals(listMoeders.Count(),2)
+	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
+	do $$$AssertTrue(listMoeders.IsDefined(1001),"")
+	quit
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// momenteel niet testen aangezien bepaalMoedersVanKinderen method toch niet gebruikt wordt..
+
+]]></Content>
+</UDLText>
+
+<Method name="zTestMoedersVanKinderen">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New()
+	set listMoeders = blMoederProd.BepaalMoedersVanKinderen($$$PMGeefProductAPI.GeefProduct(1010))
+	
+	do $$$AssertEquals(listMoeders.Count(),2)
+	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
+	do $$$AssertTrue(listMoeders.IsDefined(1001),"")
+
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New()
+	set listMoeders = blMoederProd.BepaalMoedersVanKinderen($$$PMGeefProductAPI.GeefProduct(1011))
+	
+	do $$$AssertEquals(listMoeders.Count(),2)
+	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
+	do $$$AssertTrue(listMoeders.IsDefined(1001),"")
+
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestFysischeStock">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New($$$PMGeefProductAPI.GeefProduct(1000),##class(APPS.common.enu.StockType).Fysisch())
+	do $$$AssertEquals(blMoederProd.Beschikbaarheid(),20,"")
+	
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New($$$PMGeefProductAPI.GeefProduct(1001),##class(APPS.common.enu.StockType).Fysisch())
+	do $$$AssertEquals(blMoederProd.Beschikbaarheid(),25,"")
+
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestPraktischeStock">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New($$$PMGeefProductAPI.GeefProduct(1000),##class(APPS.common.enu.StockType).Praktisch())
+	do $$$AssertEquals(blMoederProd.Beschikbaarheid(),14,"")
+	
+	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenObjMock).%New($$$PMGeefProductAPI.GeefProduct(1001),##class(APPS.common.enu.StockType).Praktisch())
+	do $$$AssertEquals(blMoederProd.Beschikbaarheid(),15,"")
+
+	quit
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="687533804"/>
+</Export>