Index: zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml
===================================================================
diff -u
--- zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml	(revision 0)
+++ zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml	(revision 33143)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.UnitTest.KPR.Product.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="BestaandProductNummer">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Parameter name="OnbestaandProductNummer">
+<Type>%String</Type>
+<Default>654321</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#BestaandProductNummer)
+	Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#OnbestaandProductNummer)
+	
+	Do ##class(zTryout.MVI.KPR.Product).MaakProduct(..#BestaandProductNummer)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#BestaandProductNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien onbestaand Product">
+<Implementation><![CDATA[
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen resultaat gevonden", "Product", ..#OnbestaandProductNummer)
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("zTryout.MVI.Excepties.NietGevondenExceptie", Omschrijvingen)
+	
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+	
+	#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(..#OnbestaandProductNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefWinkelOrderIterator">
+<Implementation><![CDATA[
+	#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(568125)
+	#dim Iterator As TECH.Iterator = Product.GeefWinkelOrderIterator()
+	
+	While (Iterator.HasNext()) {
+		#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder	= Iterator.Next()
+		
+		w !, "--->" _ WinkelOrder.GeefOrderLijnNummer()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/KPR/Product/WinkelOrder.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KPR/Product/WinkelOrder.cls.xml	(revision 0)
+++ zTryout/MVI/KPR/Product/WinkelOrder.cls.xml	(revision 33143)
@@ -0,0 +1,171 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KPR.Product.WinkelOrder">
+<Super>zTryout.MVI.NodeObject</Super>
+
+<Parameter name="SleutelPrefix">
+<Type>%String</Type>
+<Default>W    0.0R</Default>
+</Parameter>
+
+<Property name="Datum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLijnNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>zTryout.MVI.KPR.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Sleutel">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefWinkelOrder">
+<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))
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductNummer:%String,Datum:%Date,OrderNummer:%String,OrderLijnNummer:%String</FormalSpec>
+<ReturnType>zTryout.MVI.KPR.Product.WinkelOrder</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)
+]]></Implementation>
+</Method>
+
+<Method name="MaakSleutel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date,OrderNummer:%String,OrderLijnNummer:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ..#SleutelPrefix _ $zDate(Datum, 8) _ OrderNummer _ ##class(TECH.StringUtils).AddLeadingSpace((OrderLijnNummer - 100), 3)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>ProductNummer:%String,Sleutel:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Product = ##class(zTryout.MVI.KPR.Product).%New(ProductNummer)
+	Set ..Sleutel = Sleutel
+	Set ..Datum = ..GeefDatum()
+	Set ..OrderNummer = ..GeefOrderNummer()
+	Set ..OrderLijnNummer = ..GeefOrderLijnNummer()
+	
+	Do ..Valideer()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefSleutel">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Sleutel
+]]></Implementation>
+</Method>
+
+<Method name="GeefDatum">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	If ($Length(..Datum) = 0) {
+		Set ..Datum = $zDateH($Extract(..Sleutel, 10, 17), 8)
+	}
+	
+	Quit ..Datum
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderNummer">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	If ($Length(..OrderNummer) = 0) {
+		Set ..OrderNummer = $Extract(..Sleutel, 18, 23)
+	}
+	
+	Quit ..OrderNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijnNummer">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	If ($Length(..OrderLijnNummer) = 0) {
+		#dim OrderLijnNummer As %Integer = ##class(TECH.StringUtils).Trim($Extract(..Sleutel, 24, 26))
+		Set ..OrderLijnNummer = OrderLijnNummer + 100
+	}
+	
+	Quit ..OrderLijnNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 1)
+]]></Implementation>
+</Method>
+
+<Method name="ZetAantal">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 1) = Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverweek">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 2)
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeverweek">
+<FormalSpec>Leverweek:%Date</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 2) = Leverweek
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<ReturnType>zTryout.MVI.KPR.Product.enu.WinkelOrderType</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 3)
+]]></Implementation>
+</Method>
+
+<Method name="ZetType">
+<FormalSpec>Type:zTryout.MVI.KPR.Product.enu.WinkelOrderType</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..Product.GeefProductNummer(), ..Sleutel), "\", 3) = Type
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim Node As %String = ^KPR(..Product.GeefProductNummer(), ..Sleutel)
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(zTryout.MVI.Excepties.NietGevondenExceptie).%New(..%ClassName(), "^KPR(" _ ..Product.GeefProductNummer() _ ", """ _ ..Sleutel _ """)"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/UnitTest/KPR/Product/WinkelOrder/Test.cls.xml
===================================================================
diff -u
--- zTryout/MVI/UnitTest/KPR/Product/WinkelOrder/Test.cls.xml	(revision 0)
+++ zTryout/MVI/UnitTest/KPR/Product/WinkelOrder/Test.cls.xml	(revision 33143)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.UnitTest.KPR.Product.WinkelOrder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductNummer">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Parameter name="OrderNummer">
+<Type>%Integer</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Parameter name="OrderLijnNummer">
+<Type>%Integer</Type>
+<Default>101</Default>
+</Parameter>
+
+<Property name="Datum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelOrderType">
+<Type>zTryout.MVI.KPR.Product.enu.WinkelOrderType.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[
+	Do ..MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, 25, "", "")
+	
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
+	Do $$$AssertEquals(WinkelOrder.GeefAantal(), 25)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetAantal">
+<Implementation><![CDATA[
+	Do ..MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, 25, "", "")
+	
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
+	
+	Do WinkelOrder.ZetAantal(30)
+	Do $$$AssertEquals(WinkelOrder.GeefAantal(), 30)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefType">
+<Implementation><![CDATA[
+	Do ..MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, "", "", ..WinkelOrderType.KOM)
+	
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
+	Do $$$AssertEquals(WinkelOrder.GeefType(), ..WinkelOrderType.KOM)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetType">
+<Implementation><![CDATA[
+	Do ..MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, "", "", ..WinkelOrderType.KOM)
+	
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
+		
+	Do WinkelOrder.ZetType(..WinkelOrderType.Stock)
+	Do $$$AssertEquals(WinkelOrder.GeefType(), ..WinkelOrderType.Stock)
+	
+	Do WinkelOrder.ZetType(..WinkelOrderType.KOM)
+	Do $$$AssertEquals(WinkelOrder.GeefType(), ..WinkelOrderType.KOM)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien WinkelOrder niet bestaat voor Product">
+<Implementation><![CDATA[
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen resultaat gevonden voor", "WinkelOrder", ..#ProductNummer)
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("zTryout.MVI.Excepties.NietGevondenExceptie", Omschrijvingen)
+
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelOrder">
+<FormalSpec>ProductNummer:%String,Datum:%Date,OrderNummer:%Integer,OrderLijnNummer:%Integer,Aantal:%Integer,Leverweek:%String,Type:zTryout.MVI.KPR.Product.enu.WinkelOrderType</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).MaakWinkelOrder(ProductNummer, Datum, OrderNummer, OrderLijnNummer)
+
+	Set $Piece(^KPR(ProductNummer, WinkelOrder.GeefSleutel()), "\", 1) = Aantal
+	Set $Piece(^KPR(ProductNummer, WinkelOrder.GeefSleutel()), "\", 2) = Leverweek
+	Set $Piece(^KPR(ProductNummer, WinkelOrder.GeefSleutel()), "\", 3) = Type
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/KPR/Product.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KPR/Product.cls.xml	(revision 0)
+++ zTryout/MVI/KPR/Product.cls.xml	(revision 33143)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KPR.Product">
+<Super>zTryout.MVI.NodeObject</Super>
+
+<Property name="ProductNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakProduct">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<ReturnType>zTryout.MVI.KPR.Product</ReturnType>
+<Implementation><![CDATA[
+	Set ^KPR(ProductNummer, 0) = ""
+	
+	Quit ##class(zTryout.MVI.KPR.Product).%New(ProductNummer)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProduct">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^KPR(ProductNummer)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductNummer = ProductNummer
+	
+	Do ..Valideer()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductNummer">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefWinkelOrderIterator">
+<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))
+
+	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)
+		
+		Do WinkelOrders.Insert(WinkelOrder)
+		
+		Set Sleutel = $Order(^KPR(..ProductNummer, Sleutel))
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(WinkelOrders)
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim Node As %String = ^KPR(..ProductNummer, 0)
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(zTryout.MVI.Excepties.NietGevondenExceptie).%New(..%ClassName(), "^KPR(" _ ..ProductNummer _ ", 0)"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/KPR/Product/enu/WinkelOrderType/Verwerker.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KPR/Product/enu/WinkelOrderType/Verwerker.cls.xml	(revision 0)
+++ zTryout/MVI/KPR/Product/enu/WinkelOrderType/Verwerker.cls.xml	(revision 33143)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KPR.Product.enu.WinkelOrderType.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>WinkelOrderType:zTryout.MVI.KPR.Product.enu.WinkelOrderType</FormalSpec>
+<Implementation><![CDATA[
+	If WinkelOrderType = "1" {
+		Do ..VerwerkKOM()
+	} ElseIf WinkelOrderType = "" {
+		Do ..VerwerkStock()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(WinkelOrderType,"zTryout.MVI.KPR.Product.enu.WinkelOrderType",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKOM">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkStock">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/KPR/Product/enu/WinkelOrderType/AutoComplete.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KPR/Product/enu/WinkelOrderType/AutoComplete.cls.xml	(revision 0)
+++ zTryout/MVI/KPR/Product/enu/WinkelOrderType/AutoComplete.cls.xml	(revision 33143)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KPR.Product.enu.WinkelOrderType.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="KOM">
+<Type>zTryout.MVI.KPR.Product.enu.WinkelOrderType</Type>
+<InitialExpression>"1"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Stock">
+<Type>zTryout.MVI.KPR.Product.enu.WinkelOrderType</Type>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/KPR/Product/enu/WinkelOrderType.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KPR/Product/enu/WinkelOrderType.cls.xml	(revision 0)
+++ zTryout/MVI/KPR/Product/enu/WinkelOrderType.cls.xml	(revision 33143)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KPR.Product.enu.WinkelOrderType">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="DISPLAYLIST">
+<Default>;KOM;Stock</Default>
+</Parameter>
+
+<Parameter name="VALUELIST">
+<Default>;1;</Default>
+</Parameter>
+
+<Method name="KOM">
+<ClassMethod>1</ClassMethod>
+<ReturnType>zTryout.MVI.KPR.Product.enu.WinkelOrderType</ReturnType>
+<Implementation><![CDATA[	Quit "1"
+]]></Implementation>
+</Method>
+
+<Method name="Stock">
+<ClassMethod>1</ClassMethod>
+<ReturnType>zTryout.MVI.KPR.Product.enu.WinkelOrderType</ReturnType>
+<Implementation><![CDATA[ 	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>