Index: BL/Legacy/FLOW.cls.xml
===================================================================
diff -u -r29059 -r48853
--- BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 29059)
+++ BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 48853)
@@ -1,24 +1,28 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="BL.Legacy.FLOW">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="MagUitvoerenLRECALC">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Orderlijn:DOM.VKP.ProductOrderlijn,PrijsInfo:APPS.VKP.dto.PrijsInfo,PrijsAanduiding:DOM.VKP.enu.PrijsAanduiding</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-		#dim MagUitvoeren As %Boolean = 1
-		Set MagUitvoeren = '( Orderlijn.GeefPrijsAanduiding() = ##class(DOM.VKP.enu.PrijsAanduiding).SpecialePrijs() )
- 		Set:MagUitvoeren MagUitvoeren = '( Orderlijn.GeefPrijsAanduiding() = ##class(DOM.VKP.enu.PrijsAanduiding).VastePrijs() )
- 		Set:(MagUitvoeren && $length(PrijsAanduiding)) MagUitvoeren = '( Orderlijn.GeefPrijsAanduiding() '= PrijsAanduiding )
- 		
- 		If MagUitvoeren {
- 			#dim TotaleKortingPrijsInfo As %Decimal = PrijsInfo.KortingPercentage1 + PrijsInfo.KortingPercentage2
- 			#dim TotaleKortingOrderlijn As %Decimal  = Orderlijn.GeefKortingPercentage1() + Orderlijn.GeefKortingPercentage2()
- 			Set MagUitvoeren = '( ('$L(PrijsAanduiding)) && ( ##class(DOM.VKP.enu.PrijsAanduiding).OptioneleKorting()'[Orderlijn.GeefPrijsAanduiding() ) && ( (TotaleKortingPrijsInfo)'>( TotaleKortingOrderlijn) ))
- 		}
- 		Quit MagUitvoeren
+	#dim MagUitvoeren As %Boolean = $$$True
+	#dim PrijsAanduidingEnum As DOM.VKP.enu.PrijsAanduiding.AutoComplete = ##class(DOM.VKP.enu.PrijsAanduiding.AutoComplete).%New()
+	
+	If ($$$Not(Orderlijn.GeefPrijsAanduiding() = PrijsAanduidingEnum.SpecialePrijs) && $$$Not(Orderlijn.GeefPrijsAanduiding() = PrijsAanduidingEnum.VastePrijs) && $length(PrijsAanduiding)) {
+		Set MagUitvoeren = (Orderlijn.GeefPrijsAanduiding() = PrijsAanduiding)
+	}
+	
+	If (MagUitvoeren) {
+		#dim TotaleKortingPrijsInfo As %Decimal = PrijsInfo.KortingPercentage1 + PrijsInfo.KortingPercentage2
+		#dim TotaleKortingOrderlijn As %Decimal = Orderlijn.GeefKortingPercentage1() + Orderlijn.GeefKortingPercentage2()
+		
+		Set MagUitvoeren = $$$Not($$$Not($Length(PrijsAanduiding)) && $$$Not(PrijsAanduidingEnum.OptioneleKorting [ Orderlijn.GeefPrijsAanduiding()) && $$$Not(TotaleKortingPrijsInfo > TotaleKortingOrderlijn))
+	}
+	
+	Quit MagUitvoeren
 ]]></Implementation>
 </Method>
 
@@ -27,20 +31,21 @@
 <FormalSpec>PrijsInfo:APPS.VKP.dto.PrijsInfo,MuntDocument:%String,MuntKlant:%String,ORecalc:%Boolean=0</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-		
-		#dim MagHerrekenen As %Boolean = 1			
-	 	#dim MuntLijn As %String = PrijsInfo.Munt
- 		If (MuntLijn '= MuntDocument) && 'ORecalc
- 		{
-	 		Set MagHerrekenen = 0
-	 		#dim PopupOK As %String = $$TXTPOP^FLOW("ORECALC","","MuntDocument","MuntLijn")	
-	 	}
-	 	If (MuntDocument '= MuntKlant) && 'ORecalc
- 		{
-	 		Set MagHerrekenen = 0
-	 		Set PopupOK = $$TXTPOP^FLOW("ORECALC","","MuntDocument","MuntKlant")	
-	 	}
-	 	Quit MagHerrekenen
+	#dim MagHerrekenen As %Boolean = $$$True			
+	#dim MuntLijn As %String = PrijsInfo.Munt
+	#dim PopupOK As %String
+ 	
+ 	If ($$$Not(MuntLijn = MuntDocument) && $$$Not(ORecalc)) {
+	 	Set MagHerrekenen = $$$False
+	 	Set PopupOK = $$TXTPOP^FLOW("ORECALC", "", "MuntDocument", "MuntLijn")
+	}
+	
+	If ($$$Not(MuntDocument = MuntKlant) && $$$Not(ORecalc)) {
+	 	Set MagHerrekenen = 0
+	 	Set PopupOK = $$TXTPOP^FLOW("ORECALC", "", "MuntDocument", "MuntKlant")	
+	}
+	
+	Quit MagHerrekenen
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/VKP/enu/PrijsAanduiding.cls.xml
===================================================================
diff -u -r29059 -r48853
--- DOM/VKP/enu/PrijsAanduiding.cls.xml	(.../PrijsAanduiding.cls.xml)	(revision 29059)
+++ DOM/VKP/enu/PrijsAanduiding.cls.xml	(.../PrijsAanduiding.cls.xml)	(revision 48853)
@@ -15,25 +15,29 @@
 
 <Method name="NormalePrijs">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	quit ""
+<ReturnType>DOM.VKP.enu.PrijsAanduiding</ReturnType>
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="SpecialePrijs">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	quit "*"
+<ReturnType>DOM.VKP.enu.PrijsAanduiding</ReturnType>
+<Implementation><![CDATA[	Quit "*"
 ]]></Implementation>
 </Method>
 
 <Method name="VastePrijs">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	quit "="
+<ReturnType>DOM.VKP.enu.PrijsAanduiding</ReturnType>
+<Implementation><![CDATA[	Quit "="
 ]]></Implementation>
 </Method>
 
 <Method name="OptioneleKorting">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	quit "O"
+<ReturnType>DOM.VKP.enu.PrijsAanduiding</ReturnType>
+<Implementation><![CDATA[	Quit "O"
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/VKP/enu/PrijsAanduiding/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/VKP/enu/PrijsAanduiding/Verwerker.cls.xml	(revision 0)
+++ DOM/VKP/enu/PrijsAanduiding/Verwerker.cls.xml	(revision 48853)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.enu.PrijsAanduiding.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>PrijsAanduiding:DOM.VKP.enu.PrijsAanduiding</FormalSpec>
+<Implementation><![CDATA[
+	If PrijsAanduiding = "" {
+		Do ..VerwerkNormalePrijs()
+	} ElseIf PrijsAanduiding = "O" {
+		Do ..VerwerkOptioneleKorting()
+	} ElseIf PrijsAanduiding = "*" {
+		Do ..VerwerkSpecialePrijs()
+	} ElseIf PrijsAanduiding = "=" {
+		Do ..VerwerkVastePrijs()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(PrijsAanduiding,"DOM.VKP.enu.PrijsAanduiding",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkNormalePrijs">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkOptioneleKorting">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkSpecialePrijs">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVastePrijs">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/enu/PrijsAanduiding/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/VKP/enu/PrijsAanduiding/AutoComplete.cls.xml	(revision 0)
+++ DOM/VKP/enu/PrijsAanduiding/AutoComplete.cls.xml	(revision 48853)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.enu.PrijsAanduiding.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="NormalePrijs">
+<Type>%String</Type>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="OptioneleKorting">
+<Type>%String</Type>
+<InitialExpression>"O"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="SpecialePrijs">
+<Type>%String</Type>
+<InitialExpression>"*"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="VastePrijs">
+<Type>%String</Type>
+<InitialExpression>"="</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>