Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml
===================================================================
diff -u -r58556 -r65383
--- APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml	(.../KantenbandData.cls.xml)	(revision 58556)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml	(.../KantenbandData.cls.xml)	(revision 65383)
@@ -89,6 +89,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="LadeKleur">
+<Type>%String</Type>
+</Property>
+
 <Method name="IsLinksSet">
 <FormalSpec>Value:%Boolean</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -177,6 +181,9 @@
 <Value name="21">
 <Value>KleurOnder</Value>
 </Value>
+<Value name="22">
+<Value>LadeKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/VKP/enu/Klant/AutoComplete.cls.xml
===================================================================
diff -u -r65150 -r65383
--- DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 65150)
+++ DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 65383)
@@ -527,6 +527,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="OlBeslag">
+<Type>%String</Type>
+<InitialExpression>"K||3626"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="OptimaPack">
 <Type>%String</Type>
 <InitialExpression>"K||6279"</InitialExpression>
Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r65150 -r65383
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 65150)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 65383)
@@ -225,6 +225,13 @@
 <Implementation><![CDATA[	Quit $$$False
 ]]></Implementation>
 </Method>
+
+<Method name="MagKlantTAORLadeKleurOudZwartBestellen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantID = ##class(DOM.VKP.enu.Klant).OlBeslag())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma.cls.xml
===================================================================
diff -u -r63649 -r65383
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma.cls.xml	(.../FreesProgramma.cls.xml)	(revision 63649)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma.cls.xml	(.../FreesProgramma.cls.xml)	(revision 65383)
@@ -4,11 +4,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Baliko;Valinge;FrontLBX;</Default>
+<Default>;Baliko;Valinge;GeenBewerking;FrontLBX;</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
-<Default>;B;V;Y</Default>
+<Default>;B;V;X;Y</Default>
 </Parameter>
 
 <Method name="Baliko">
@@ -25,6 +25,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeenBewerking">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma</ReturnType>
+<Implementation><![CDATA[	Quit "X"
+]]></Implementation>
+</Method>
+
 <Method name="FrontLBX">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma</ReturnType>
Index: DOM/VKP/enu/Klant/Verwerker.cls.xml
===================================================================
diff -u -r65150 -r65383
--- DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 65150)
+++ DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 65383)
@@ -160,6 +160,8 @@
 		Do ..VerwerkOElmi()
 	} ElseIf Klant = "K||30467" {
 		Do ..VerwerkOPO()
+	} ElseIf Klant = "K||3626" {
+		Do ..VerwerkOlBeslag()
 	} ElseIf Klant = "K||6279" {
 		Do ..VerwerkOptimaPack()
 	} ElseIf Klant = "K||30924" {
@@ -675,6 +677,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkOlBeslag">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkOptimaPack">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhTest/Mock/APPS/common/KlantInstellingenService.cls.xml
===================================================================
diff -u -r63837 -r65383
--- vhTest/Mock/APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 63837)
+++ vhTest/Mock/APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 65383)
@@ -56,6 +56,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MagKlantTAORLadeKleurOudZwartBestellen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MagKlantTAORLadeKleurOudZwartBestellen",KlantID)
+]]></Implementation>
+</Method>
+
 <Method name="MagKlantTAORVerpakkingTypeBestellen">
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: DOM/VKP/enu/Klant.cls.xml
===================================================================
diff -u -r65150 -r65383
--- DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 65150)
+++ DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 65383)
@@ -7,7 +7,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,K||1239,K||4682,K||1000,K||11708,K||4875,K||2671,K||6279,K||12130,K||7587,K||9365,K||12486,K||2523,K||1571,K||4451,K||4855,K||4830,K||9366,K||11211,K||12853,K||2999,K||6780,K||7833,K||1523,K||2669,K||6819,K||6820,K||6821,K||18455,K||27132,K||2009,K||23486,K||7606,K||23112,K||9382,K||18417,K||4073,K||1390,K||9197,K||3814,K||1387,K||8869,K||23968,K||11171,K||6261,K||24315,K||25868,K||24755,K||9905,K||10387,K||12983,K||9798,K||8092,K||3145,K||2265,K||4943,K||19485,K||1736,K||4875,K||4598,K||2254,K||2595,K||4026,K||14604,K||13446,K||13823,K||29070,K||30531,K||31008,K||14348,K||23930,K||30935,K||30924,K||30961,K||29009,K||25319,K||19454,K||24402,K||19455,K||15260,K||7189,K||32503,K||4826,K||3878,K||2865,K||29279,K||10421,K||21672,K||22062,K||3513,K||32672,K||1445,K||32903,K||32915,K||19422,K||2856,K||2264,K||8868,K||14292,K||1254,K||3042,K||17999,K||35412,K||35415,K||30467,K||35697,K||35698,K||35864</Default>
+<Default>,K||1239,K||4682,K||1000,K||11708,K||4875,K||2671,K||6279,K||12130,K||7587,K||9365,K||12486,K||2523,K||1571,K||4451,K||4855,K||4830,K||9366,K||11211,K||12853,K||2999,K||6780,K||7833,K||1523,K||2669,K||6819,K||6820,K||6821,K||18455,K||27132,K||2009,K||23486,K||7606,K||23112,K||9382,K||18417,K||4073,K||1390,K||9197,K||3814,K||1387,K||8869,K||23968,K||11171,K||6261,K||24315,K||25868,K||24755,K||9905,K||10387,K||12983,K||9798,K||8092,K||3145,K||2265,K||4943,K||19485,K||1736,K||4875,K||4598,K||2254,K||2595,K||4026,K||14604,K||13446,K||13823,K||29070,K||30531,K||31008,K||14348,K||23930,K||30935,K||30924,K||30961,K||29009,K||25319,K||19454,K||24402,K||19455,K||15260,K||7189,K||32503,K||4826,K||3878,K||2865,K||29279,K||10421,K||21672,K||22062,K||3513,K||32672,K||1445,K||32903,K||32915,K||19422,K||2856,K||2264,K||8868,K||14292,K||1254,K||3042,K||17999,K||35412,K||35415,K||30467,K||35697,K||35698,K||35864,K||3626</Default>
 </Parameter>
 
 <Method name="Keller">
@@ -754,6 +754,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OlBeslag">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(3626)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/Verwerker.cls.xml
===================================================================
diff -u -r63649 -r65383
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 63649)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 65383)
@@ -16,6 +16,8 @@
 		Do ..VerwerkBaliko()
 	} ElseIf FreesProgramma = "Y" {
 		Do ..VerwerkFrontLBX()
+	} ElseIf FreesProgramma = "X" {
+		Do ..VerwerkGeenBewerking()
 	} ElseIf FreesProgramma = "V" {
 		Do ..VerwerkValinge()
 	} Else {
@@ -37,6 +39,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkGeenBewerking">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkValinge">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/AutoComplete.cls.xml
===================================================================
diff -u -r63649 -r65383
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 63649)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 65383)
@@ -23,6 +23,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="GeenBewerking">
+<Type>%String</Type>
+<InitialExpression>"X"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Valinge">
 <Type>%String</Type>
 <InitialExpression>"V"</InitialExpression>
Index: APPS/common/KlantInstellingenService.cls.xml
===================================================================
diff -u -r63837 -r65383
--- APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 63837)
+++ APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 65383)
@@ -102,6 +102,12 @@
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="MagKlantTAORLadeKleurOudZwartBestellen">
+<Abstract>1</Abstract>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>