Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler.cls.xml
===================================================================
diff -u -r62112 -r67081
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler.cls.xml	(.../HandelsKlantKortingsPercentageBepaler.cls.xml)	(revision 62112)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler.cls.xml	(.../HandelsKlantKortingsPercentageBepaler.cls.xml)	(revision 67081)
@@ -32,7 +32,7 @@
 	Set KortingsPercentages.LBX = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).LegraboxPure()).Percentage * 100
 	Set KortingsPercentages.TBX = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).TandemboxAntaro()).Percentage * 100
 	Set KortingsPercentages.TAX = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).Taorbox()).Percentage * 100
-	Set KortingsPercentages.OL = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).OrgaluxOpMaat()).Percentage * 100
+	Set KortingsPercentages.OL = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).Orgalux()).Percentage * 100
 	
 	Quit KortingsPercentages
 ]]></Implementation>
Index: DOM/PM/enu/Variant/Verwerker.cls.xml
===================================================================
diff -u -r62426 -r67081
--- DOM/PM/enu/Variant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 62426)
+++ DOM/PM/enu/Variant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 67081)
@@ -23,6 +23,8 @@
 		Do ..VerwerkMatStandaard()
 	} ElseIf Variant = "MVX" {
 		Do ..VerwerkMerivobox()
+	} ElseIf Variant = "OL" {
+		Do ..VerwerkOrgalux()
 	} ElseIf Variant = "OLM" {
 		Do ..VerwerkOrgaluxOpMaat()
 	} ElseIf Variant = "SpaceStep" {
@@ -76,6 +78,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkOrgalux">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkOrgaluxOpMaat">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhTest/Fake/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml
===================================================================
diff -u -r60933 -r67081
--- vhTest/Fake/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(.../KortingVoorVariantBepaler.cls.xml)	(revision 60933)
+++ vhTest/Fake/WSimpl/Unishop/Login/KortingVoorVariantBepaler.cls.xml	(.../KortingVoorVariantBepaler.cls.xml)	(revision 67081)
@@ -9,8 +9,7 @@
 
 <Method name="GeefKortingVoorVariant">
 <FormalSpec>KlantSessieDataKorting:%String,Variant:DOM.PM.enu.Variant</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: DOM/PM/enu/Variant/AutoComplete.cls.xml
===================================================================
diff -u -r62426 -r67081
--- DOM/PM/enu/Variant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 62426)
+++ DOM/PM/enu/Variant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 67081)
@@ -44,6 +44,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Orgalux">
+<Type>%String</Type>
+<InitialExpression>"OL"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="OrgaluxOpMaat">
 <Type>%String</Type>
 <InitialExpression>"OLM"</InitialExpression>
Index: vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml
===================================================================
diff -u -r60937 -r67081
--- vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 60937)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 67081)
@@ -36,18 +36,21 @@
 
 <Method name="Test KortingVoorVariantBepaler geeft korting per ladetype mee">
 <Implementation><![CDATA[
-	#dim KlantSessieDataKorting = "TBX=20.5;LBX=25.5;TAOR=30.5"
+	#dim KlantSessieDataKorting = "TBX=20.5;LBX=25.5;TAOR=30.5;OL=36.6"
 	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
 	#dim LBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
 	#dim TAORVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim OLVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Orgalux()
 	
 	#dim TBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TBXVariant)
 	#dim LBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, LBXVariant)	
 	#dim TAORKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TAORVariant)
+	#dim OLKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, OLVariant)
 	
 	Do $$$AssertEquals(TBXKorting, 20.5)
-	Do $$$AssertEquals(LBXKorting, 25.5)	
+	Do $$$AssertEquals(LBXKorting, 25.5)
 	Do $$$AssertEquals(TAORKorting, 30.5)
+	Do $$$AssertEquals(OLKorting, 36.6)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r65150 -r67081
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65150)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 67081)
@@ -23,7 +23,7 @@
 
 <Method name="Test: Personalities waarvoor de default ladetypes LBX, TAX en TBX toegelaten zijn">
 <Implementation><![CDATA[
-	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX")
+	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX", "OL")
 	
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.BiemarBois, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.CampeTonny, VerwachteLadetypes)
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r65150 -r67081
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 65150)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 67081)
@@ -48,6 +48,7 @@
 	Do ToegelatenLadetypes.Insert("LBX")
 	Do ToegelatenLadetypes.Insert("TAX")
 	Do ToegelatenLadetypes.Insert("TBX")
+	Do ToegelatenLadetypes.Insert("OL")
 	
 	Quit ToegelatenLadetypes
 ]]></Implementation>
Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r65150 -r67081
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 65150)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 67081)
@@ -87,6 +87,7 @@
 	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).LegraboxPure())
 	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Taorbox())
 	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).TandemboxAntaro())
+	Do ..BewaarKortingMetVariant(Personality, ##class(DOM.PM.enu.Variant).Orgalux())
 ]]></Implementation>
 </Method>
 
@@ -341,6 +342,7 @@
 	}
 	
 	If $$$Not(Korting = "") {
+		Do ##class(Tools.Wlip).%New(252).String("We gaan de korting instellen")
 		Do ..KortingService.StelInKorting(KortingSpecificatie, KortingPercentage)
 	}
 ]]></Implementation>
Index: DOM/PM/enu/Variant.cls.xml
===================================================================
diff -u -r62426 -r67081
--- DOM/PM/enu/Variant.cls.xml	(.../Variant.cls.xml)	(revision 62426)
+++ DOM/PM/enu/Variant.cls.xml	(.../Variant.cls.xml)	(revision 67081)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,TBX_Plus,TBX_Antaro,TBX_Intivo,TBX_Baliko,TBX_Mengvorm,MDS,OLM,TAOR,LBX_Pure,MAT_Standaard,Basis,SpaceStep,MVX</Default>
+<Default>,TBX_Plus,TBX_Antaro,TBX_Intivo,TBX_Baliko,TBX_Mengvorm,MDS,OLM,OL,TAOR,LBX_Pure,MAT_Standaard,Basis,SpaceStep,MVX</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,TANDEMBOX plus,TANDEMBOX antaro,TANDEMBOX intivo,TANDEMBOX baliko,TANDEMBOX mengvorm,MDS,ORGALUX op maat,TA'OR BOX,LEGRABOX pure,MAT Standaard,Basis,SpaceStep,Merivobox</Default>
+<Default>,TANDEMBOX plus,TANDEMBOX antaro,TANDEMBOX intivo,TANDEMBOX baliko,TANDEMBOX mengvorm,MDS,ORGALUX op maat, ORGALUX, TA'OR BOX,LEGRABOX pure,MAT Standaard,Basis,SpaceStep,Merivobox</Default>
 </Parameter>
 
 <Method name="LegraboxPure">
@@ -34,6 +34,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Orgalux">
+<Description>
+Geen maatwerkproduct, maar is nodig om verwarring bij variant Korting te voorkomen</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit "OL"
+]]></Implementation>
+</Method>
+
 <Method name="Basis">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.enu.Variant</ReturnType>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r62112 -r67081
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 62112)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 67081)
@@ -23,7 +23,7 @@
 	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).LegraboxPure()).DanReturn(LbxKorting)
 	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).TandemboxAntaro()).DanReturn(TbxKorting)
 	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).Taorbox()).DanReturn(TaxKorting)
-	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).OrgaluxOpMaat()).DanReturn(OlKorting)	
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).Orgalux()).DanReturn(OlKorting)	
 	
 	Set HandelsKlantKortingsPercentageBepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.HandelsKlantKortingsPercentageBepaler).%New(KortingServiceMock)