Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r40845 -r41181
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 40845)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 41181)
@@ -32,21 +32,29 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkHandelZonderVerificatie">
-<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
+<Method name="ConverteerDataOptNaarKlantSessieData">
+<FormalSpec>DataOpt:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[	Set ..KlantSessieData = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New().GeefKlantSessieData(DataOpt,..DomeinVerwerker)
+]]></Implementation>
 </Method>
 
+<Method name="ConverteerRefNaarRefSessieData">
+<FormalSpec>Ref:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..RefSessieData = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefRefSessieData(Ref)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkHaefeleBE">
-<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
-<Implementation><![CDATA[	// Bewaar geen korting want Haefele geeft weliswaar expliciet cijfer nul mee in DataOpt maar het nachtelijk kortingbestand is het enige dat telt.
-]]></Implementation>
+<Method name="VerwerkHandelZonderVerificatie">
+<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkHandelMetVerificatie">
@@ -58,53 +66,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BewaarKortingMetVariant">
-<FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KortingService As DOM.VKP.KortingService = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefKortingService()	
-	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
-	Set KortingSpecificatie.Aantal = 1
-	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
-	Set KortingSpecificatie.Variant = Variant
-	Set KortingSpecificatie.PersonalityID = Personality.GeefID()
-	Set KortingSpecificatie.KlantID = ..KlantSessieData.KlantID
-	
-	#dim Korting As %String = ..KlantSessieData.Korting
-	#dim KortingPercentage As TECH.Percentage
-	If ($IsValidNum(Korting) && ((Korting=0) || ((Korting>=1) && (Korting<=100)))) {
-		Set KortingPercentage = (Korting / 100)
-	}ElseIf (Korting = "") {
-		Set KortingPercentage = 0
-	}Else{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan korting '"_Korting_"' niet parsen. (Personality: '"_Personality.GeefID()_"', Klant: '"_..KlantSessieData.KlantID_"', '"_..KlantSessieData.KlantNaam_"')"))
-	}
-	
-	If Personality.GeefID() '= ##class(DOM.common.enu.Personality).VanHoecke() {
-		#dim HandelPersonality As DOM.common.HandelPersonality = Personality
-		Set KortingSpecificatie.KlantID = HandelPersonality.GeefPrefix()_KortingSpecificatie.KlantID
-	}
-	
-	If (Korting'="") {
-		Do KortingService.StelInKorting(KortingSpecificatie,KortingPercentage)
-	}
+<Method name="VerwerkHaefeleBE">
+<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[	// Bewaar geen korting want Haefele geeft weliswaar expliciet cijfer nul mee in DataOpt maar het nachtelijk kortingbestand is het enige dat telt.
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerDataOptNaarKlantSessieData">
-<FormalSpec>DataOpt:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	Set ..KlantSessieData = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New().GeefKlantSessieData(DataOpt,..DomeinVerwerker)
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerRefNaarRefSessieData">
-<FormalSpec>Ref:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	Set ..RefSessieData = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefRefSessieData(Ref)
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelMetVerificatie(SFSPersonality)
@@ -152,6 +119,39 @@
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Personality VanHoeckeVoorHalux wordt niet gebruikt"))
 ]]></Implementation>
 </Method>
+
+<Method name="BewaarKortingMetVariant">
+<FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KortingService As DOM.VKP.KortingService = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefKortingService()	
+	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	Set KortingSpecificatie.Aantal = 1
+	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingSpecificatie.Variant = Variant
+	Set KortingSpecificatie.PersonalityID = Personality.GeefID()
+	Set KortingSpecificatie.KlantID = ..KlantSessieData.KlantID
+	
+	#dim Korting As %String = ..KlantSessieData.Korting
+	#dim KortingPercentage As TECH.Percentage
+	If ($IsValidNum(Korting) && ((Korting=0) || ((Korting>=1) && (Korting<=100)))) {
+		Set KortingPercentage = (Korting / 100)
+	}ElseIf (Korting = "") {
+		Set KortingPercentage = 0
+	}Else{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan korting '"_Korting_"' niet parsen. (Personality: '"_Personality.GeefID()_"', Klant: '"_..KlantSessieData.KlantID_"', '"_..KlantSessieData.KlantNaam_"')"))
+	}
+	
+	If Personality.GeefID() '= ##class(DOM.common.enu.Personality).VanHoecke() {
+		#dim HandelPersonality As DOM.common.HandelPersonality = Personality
+		Set KortingSpecificatie.KlantID = HandelPersonality.GeefPrefix()_KortingSpecificatie.KlantID
+	}
+	
+	If (Korting'="") {
+		Do KortingService.StelInKorting(KortingSpecificatie,KortingPercentage)
+	}
+]]></Implementation>
+</Method>
 </Class>