Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r42956 -r60997
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 42956)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 60997)
@@ -3018,7 +3018,7 @@
  Set ..cboStalenRug.OnChangeItem=$lb(%this,"cboStalenRugChangeItem")
  Set ..cboDwarsVerdeling.OnChangeItem=$lb(%this,"EventAllBTChangeItem")
  Set ..cboFrontSteun.OnChangeItem=$lb(%this,"EventAllBTChangeItem")
- Set ..cboAntislipmat.OnChangeItem=$lb(%this,"EventAllBTChangeItem")
+ Set ..cboAntislipmat.OnChangeItem=$lb(%this,"cboAntislipMatChangeItem")
  Set ..cboRugStukVerlaagd.OnChangeItem=$lb(%this,"EventAllBTChangeItem")
  ;
  Quit
@@ -4193,6 +4193,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BLValidateAntislipMat">
+<FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Boolean</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+	Set msg = ""
+	Set bool = $$$False
+	If (##class(DOM.PM.TBX.impl.AntislipMattenUitfaseren).%New().IsAntislipMatUitgefaseerd(..cboAntislipmat.SelectedGetKey(), ..cboLadeDiepte.SelectedGetKey())) {
+		set bool = $$$True
+		set msg = "De combinatie van dit kleur anti-slipmat met deze geselecteerde ladediepte is niet geldig. Selecteer eerst opnieuw de ladediepte en daarna de kleur van de anti-slipmat."
+	}
+	Quit bool
+]]></Implementation>
+</Method>
+
 <Method name="BLValidateIB">
 <FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
 <Language>cache</Language>
@@ -5329,6 +5347,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="cboAntislipMatChangeItem">
+<FormalSpec>Args:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ; Args format: $lb(Sender,PrevIndex)
+ n Sender,PrevIndex
+ s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
+ s PrevIndex=$lg(Args,2)
+ ;Beginning of user code
+
+ New msg
+ If ..BLValidateAntislipMat(.msg) Do  Quit
+ . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
+ . Set ..cboAntislipmat.ItemIndex=-1
+
+ Do ..EventAllBTChangeItem(.Args)
+
+ ;End of user code
+ s Args=$lb(Sender,PrevIndex)
+ q
+]]></Implementation>
+</Method>
+
 <Method name="cboBoxSideChangeItem">
 <FormalSpec>Args:%String</FormalSpec>
 <Language>cache</Language>
@@ -5696,6 +5740,8 @@
  Set ..txtCDiepte.Text=$S($IsValidNum(LD):"min. "_(LD+3), 1:"")
  Do ..EventAllBTChangeItem(.Args)
 
+ Do ..cboAntislipMatChangeItem(.Args)
+ 
  ;End of user code
  s Args=$lb(Sender,PrevIndex)
  q
Index: DOM/PM/TBX/impl/AntislipMattenUitfaseren.cls.xml
===================================================================
diff -u
--- DOM/PM/TBX/impl/AntislipMattenUitfaseren.cls.xml	(revision 0)
+++ DOM/PM/TBX/impl/AntislipMattenUitfaseren.cls.xml	(revision 60997)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.TBX.impl.AntislipMattenUitfaseren">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="IsAntislipMatUitgefaseerd">
+<FormalSpec>MatKleur:%String,LadeDiepte:%Numeric</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsAntislipmatUitgefaseerd = $$$False
+	
+	/*If (MatKleur = "Z") {
+		If (LadeDiepte > 450) {
+			Set IsAntislipmatUitgefaseerd = $$$True
+		}
+	}
+	
+	
+	If (MatKleur = "G") {
+		If (LadeDiepte > 500) {
+			Set IsAntislipmatUitgefaseerd = $$$True
+		}
+	}*/	
+	
+	Quit IsAntislipmatUitgefaseerd
+]]></Implementation>
+</Method>
+</Class>
+</Export>