FishEye: Tag 33171 refers to a dead (removed) revision in file `zTryout/MVI/UnitTest/KPR/Product/WinkelOrder/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 33171 refers to a dead (removed) revision in file `zTryout/MVI/KPR/Product/WinkelOrder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/MVI/KPR/WinkelOrder.cls.xml
===================================================================
diff -u -r33169 -r33171
--- zTryout/MVI/KPR/WinkelOrder.cls.xml	(.../Product/WinkelOrder.cls.xml)	(revision 33169)
+++ zTryout/MVI/KPR/WinkelOrder.cls.xml	(.../ProductOrderIndex.cls.xml)	(revision 33171)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="zTryout.MVI.KPR.Product.WinkelOrder">
+<Class name="zTryout.MVI.KPR.ProductOrderIndex">
 <Super>zTryout.MVI.NodeObject</Super>
 
 <Parameter name="SleutelPrefix">
@@ -33,27 +33,34 @@
 <Private>1</Private>
 </Property>
 
-<Method name="GeefWinkelOrder">
+<Method name="GeefProductOrderIndex">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductNummer:%String,Datum:%Date,OrderNummer:%String,OrderLijnNummer:%String</FormalSpec>
-<ReturnType>zTryout.MVI.KPR.Product.WinkelOrder</ReturnType>
-<Implementation><![CDATA[	Quit ##class(zTryout.MVI.KPR.Product.WinkelOrder).%New(ProductNummer, ..MaakSleutel(Datum, OrderNummer, OrderLijnNummer))
+<ReturnType>zTryout.MVI.KPR.ProductOrderIndex</ReturnType>
+<Implementation><![CDATA[	Quit ##class(zTryout.MVI.KPR.ProductOrderIndex).%New(ProductNummer, ..MaakSleutel(Datum, OrderNummer, OrderLijnNummer))
 ]]></Implementation>
 </Method>
 
-<Method name="MaakWinkelOrder">
+<Method name="MaakProductOrderIndex">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductNummer:%String,Datum:%Date,OrderNummer:%String,OrderLijnNummer:%String</FormalSpec>
-<ReturnType>zTryout.MVI.KPR.Product.WinkelOrder</ReturnType>
+<ReturnType>zTryout.MVI.KPR.ProductOrderIndex</ReturnType>
 <Implementation><![CDATA[
 	#dim Sleutel As %String = ..MaakSleutel(Datum, OrderNummer, OrderLijnNummer)
 	
 	Set ^KPR(ProductNummer, Sleutel) = ""
 	
-	Quit ##class(zTryout.MVI.KPR.Product.WinkelOrder).%New(ProductNummer, Sleutel)
+	Quit ##class(zTryout.MVI.KPR.ProductOrderIndex).%New(ProductNummer, Sleutel)
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderProductOrderIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductNummer:%String,Sleutel:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^KPR(ProductNummer, Sleutel)
+]]></Implementation>
+</Method>
+
 <Method name="MaakSleutel">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Datum:%Date,OrderNummer:%String,OrderLijnNummer:%String</FormalSpec>
Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r33165 -r33171
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 33165)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 33171)
@@ -195,14 +195,14 @@
 	If ($Length(..AantalInReservatie) = 0) {
 		#dim Resultaat As %Numeric = 0
 		#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(..PRNr)
-		#dim Iterator As TECH.Iterator = Product.GeefWinkelOrderIterator()
+		#dim Iterator As TECH.Iterator = Product.GeefProductOrderIndexIterator()
 		
 		While (Iterator.HasNext()) {
-			#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = Iterator.Next()
+			#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = Iterator.Next()
 			
-			If (..IsInReservatie(WinkelOrder.GeefOrderNummer(), WinkelOrder.GeefOrderLijnNummer())) {
-				If (..IsGeldigeLeverweek(WinkelOrder.GeefLeverweek())) {
-					Set Resultaat = Resultaat + WinkelOrder.GeefAantal()
+			If (..IsInReservatie(ProductOrderIndex.GeefOrderNummer(), ProductOrderIndex.GeefOrderLijnNummer())) {
+				If (..IsGeldigeLeverweek(ProductOrderIndex.GeefLeverweek())) {
+					Set Resultaat = Resultaat + ProductOrderIndex.GeefAantal()
 				}	
 			}	
 		}
@@ -220,14 +220,14 @@
 	If ($Length(..AantalInOrder) = 0) {
 		#dim Resultaat As %Numeric = 0
 		#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(..PRNr)
-		#dim Iterator As TECH.Iterator = Product.GeefWinkelOrderIterator()
+		#dim Iterator As TECH.Iterator = Product.GeefProductOrderIndexIterator()
 				
 		While (Iterator.HasNext()) {
-			#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = Iterator.Next()
+			#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = Iterator.Next()
 			
-			If $$$Not(..IsInReservatie(WinkelOrder.GeefOrderNummer(), WinkelOrder.GeefOrderLijnNummer())) {
-				If (..IsGeldigeLeverweek(WinkelOrder.GeefLeverweek())) {
-					Set Resultaat = Resultaat + WinkelOrder.GeefAantal()
+			If $$$Not(..IsInReservatie(ProductOrderIndex.GeefOrderNummer(), ProductOrderIndex.GeefOrderLijnNummer())) {
+				If (..IsGeldigeLeverweek(ProductOrderIndex.GeefLeverweek())) {
+					Set Resultaat = Resultaat + ProductOrderIndex.GeefAantal()
 				}	
 			}	
 		}
@@ -245,13 +245,13 @@
 	If ($Length(..AantalInTransfer) = 0) {
 		#dim Resultaat As %Numeric = 0
 		#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(..PRNr)
-		#dim Iterator As TECH.Iterator = Product.GeefWinkelOrderIterator()
+		#dim Iterator As TECH.Iterator = Product.GeefProductOrderIndexIterator()
 		
 		While (Iterator.HasNext()) {
-			#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = Iterator.Next()
+			#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = Iterator.Next()
 			
-			If (..IsTransferOrder(WinkelOrder.GeefOrderNummer()) && ..IsGeldigeLeverweek(WinkelOrder.GeefLeverweek())) {
-				Set Resultaat = Resultaat + WinkelOrder.GeefAantal()
+			If (..IsTransferOrder(ProductOrderIndex.GeefOrderNummer()) && ..IsGeldigeLeverweek(ProductOrderIndex.GeefLeverweek())) {
+				Set Resultaat = Resultaat + ProductOrderIndex.GeefAantal()
 			}	
 		}
 		
Index: zTryout/MVI/KPR/Product.cls.xml
===================================================================
diff -u -r33143 -r33171
--- zTryout/MVI/KPR/Product.cls.xml	(.../Product.cls.xml)	(revision 33143)
+++ zTryout/MVI/KPR/Product.cls.xml	(.../Product.cls.xml)	(revision 33171)
@@ -45,21 +45,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefWinkelOrderIterator">
+<Method name="GeefProductOrderIndexIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	#dim WinkelOrders As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim Sleutel As %String = $Order(^KPR(..ProductNummer, ##class(zTryout.MVI.KPR.Product.WinkelOrder).#SleutelPrefix))
+	#dim ProductOrders As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Sleutel As %String = $Order(^KPR(..ProductNummer, ##class(zTryout.MVI.KPR.ProductOrderIndex).#SleutelPrefix))
 
-	While (##class(TECH.StringUtils).StartsWith(Sleutel, ##class(zTryout.MVI.KPR.Product.WinkelOrder).#SleutelPrefix)) {
-		#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).%New(..ProductNummer, Sleutel)
+	While (##class(TECH.StringUtils).StartsWith(Sleutel, ##class(zTryout.MVI.KPR.ProductOrderIndex).#SleutelPrefix)) {
+		#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = ##class(zTryout.MVI.KPR.ProductOrderIndex).%New(..ProductNummer, Sleutel)
 		
-		Do WinkelOrders.Insert(WinkelOrder)
+		Do ProductOrders.Insert(ProductOrderIndex)
 		
 		Set Sleutel = $Order(^KPR(..ProductNummer, Sleutel))
 	}
 	
-	Quit ##class(TECH.ListIterator).%New(WinkelOrders)
+	Quit ##class(TECH.ListIterator).%New(ProductOrders)
 ]]></Implementation>
 </Method>
 
Index: zTryout/MVI/UnitTest/KPR/ProductOrderIndex/Test.cls.xml
===================================================================
diff -u
--- zTryout/MVI/UnitTest/KPR/ProductOrderIndex/Test.cls.xml	(revision 0)
+++ zTryout/MVI/UnitTest/KPR/ProductOrderIndex/Test.cls.xml	(revision 33171)
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.UnitTest.KPR.ProductOrderIndex.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductNummer">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Parameter name="OrderNummer">
+<Type>%String</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Parameter name="OrderLijnNummer">
+<Type>%String</Type>
+<Default>101</Default>
+</Parameter>
+
+<Property name="Datum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductStockType">
+<Type>zTryout.MVI.KPR.Product.enu.ProductStockType.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#ProductNummer)
+	Do ##class(zTryout.MVI.KPR.Product).MaakProduct(..#ProductNummer)
+	
+	Set ..Datum = $zDateH("02/01/16", 4)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#ProductNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefAantal">
+<Implementation><![CDATA[
+	#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = ..MaakProductOrderIndex(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, 25, "", "")
+	
+	Set $Piece(^KPR(..#ProductNummer, ProductOrderIndex.GeefSleutel()), "\", 1) = 30
+	Do $$$AssertEquals(ProductOrderIndex.GeefAantal(), 30)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetAantal">
+<Implementation><![CDATA[
+	
+	#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = ..MaakProductOrderIndex(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, 25, "", "")
+	Do ProductOrderIndex.ZetAantal(30)
+
+	#dim Aantal As %Integer = $Piece(^KPR(..#ProductNummer, ProductOrderIndex.GeefSleutel()), "\", 1)
+	Do $$$AssertEquals(Aantal, 30)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefType">
+<Implementation><![CDATA[
+	#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = ..MaakProductOrderIndex(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, "", "", ..ProductStockType.KOM)
+	
+	Set $Piece(^KPR(..#ProductNummer, ProductOrderIndex.GeefSleutel()), "\", 3) = ..ProductStockType.Stock
+	Do $$$AssertEquals(ProductOrderIndex.GeefType(), ..ProductStockType.Stock)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetType">
+<Implementation><![CDATA[
+	#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = ..MaakProductOrderIndex(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, "", "", ..ProductStockType.KOM)
+	Do ProductOrderIndex.ZetType(..ProductStockType.Stock)
+	
+	#dim Type As zTryout.MVI.KPR.Product.enu.ProductStockType = $Piece(^KPR(..#ProductNummer, ProductOrderIndex.GeefSleutel()), "\", 3)
+	Do $$$AssertEquals(Type, ..ProductStockType.Stock)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien ProductOrderIndex niet bestaat voor Product">
+<Implementation><![CDATA[
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen resultaat gevonden voor", "ProductOrderIndex", ..#ProductNummer)
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("zTryout.MVI.Excepties.NietGevondenExceptie", Omschrijvingen)
+
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+
+	#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = ..MaakProductOrderIndex(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, "", "", "")
+	#dim Sleutel As %String = ProductOrderIndex.GeefSleutel()
+	
+	Do ##class(zTryout.MVI.KPR.ProductOrderIndex).VerwijderProductOrderIndex(..#ProductNummer, Sleutel)
+	
+	Set ProductOrderIndex = ##class(zTryout.MVI.KPR.ProductOrderIndex).%New(..#ProductNummer, Sleutel)
+]]></Implementation>
+</Method>
+
+<Method name="MaakProductOrderIndex">
+<FormalSpec>ProductNummer:%String,Datum:%Date,OrderNummer:%String,OrderLijnNummer:%String,Aantal:%Integer,Leverweek:%Date,Type:zTryout.MVI.KPR.Product.enu.ProductStockType</FormalSpec>
+<Private>1</Private>
+<ReturnType>zTryout.MVI.KPR.ProductOrderIndex</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex = ##class(zTryout.MVI.KPR.ProductOrderIndex).MaakProductOrderIndex(ProductNummer, Datum, OrderNummer, OrderLijnNummer)
+
+	Do ProductOrderIndex.ZetAantal(Aantal)
+	Do ProductOrderIndex.ZetLeverweek(Leverweek)
+	Do ProductOrderIndex.ZetType(Type)
+	
+	Quit ProductOrderIndex
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml
===================================================================
diff -u -r33143 -r33171
--- zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml	(.../Test.cls.xml)	(revision 33143)
+++ zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml	(.../Test.cls.xml)	(revision 33171)
@@ -45,15 +45,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefWinkelOrderIterator">
+<Method name="Test: GeefProductOrderIndexIterator">
 <Implementation><![CDATA[
 	#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(568125)
-	#dim Iterator As TECH.Iterator = Product.GeefWinkelOrderIterator()
+	#dim Iterator As TECH.Iterator = Product.GeefProductOrderIndexIterator()
 	
 	While (Iterator.HasNext()) {
-		#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder	= Iterator.Next()
+		#dim ProductOrderIndex As zTryout.MVI.KPR.ProductOrderIndex	= Iterator.Next()
 		
-		w !, "--->" _ WinkelOrder.GeefOrderLijnNummer()
+		w !, "--->" _ ProductOrderIndex.GeefOrderLijnNummer()
 	}
 ]]></Implementation>
 </Method>