Index: APPS/EDI/common/impl/Validator/RughoogteValidator.cls.xml
===================================================================
diff -u
--- APPS/EDI/common/impl/Validator/RughoogteValidator.cls.xml	(revision 0)
+++ APPS/EDI/common/impl/Validator/RughoogteValidator.cls.xml	(revision 38430)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.common.impl.Validator.RughoogteValidator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="IsValid">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeLBX,&Exceptions:TECH.ExceptionList]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If (Product.Klasse="SY") && $$$Not(Product.RugHoogte="M") {
+		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New()
+		Do Exception.AddCombination($classname(Product),"Klasse",Product.Klasse)
+		Do Exception.AddCombination($classname(Product),"RugHoogte",Product.RugHoogte)
+		Do Exceptions.Insert(Exception)
+	}
+	If (Product.Klasse="SP") && $$$Not((Product.RugHoogte="M") || (Product.RugHoogte="C")){
+		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New()
+		Do Exception.AddCombination($classname(Product),"Klasse",Product.Klasse)
+		Do Exception.AddCombination($classname(Product),"RugHoogte",Product.RugHoogte)
+		Do Exceptions.Insert(Exception)
+	}
+	
+	Quit $$$If(Exceptions.Count()>0,$$$false,$$$true)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDI/common/impl/Validator/RugHoogteValidator/IsValid/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/common/impl/Validator/RugHoogteValidator/IsValid/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/common/impl/Validator/RugHoogteValidator/IsValid/Test.cls.xml	(revision 38430)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.common.impl.Validator.RugHoogteValidator.IsValid.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Standaardlade -&gt; valid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeLBX).StandaardLade()
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.common.impl.Validator.RughoogteValidator).%New()
+	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test Sifonlade, Rughoogte M -&gt; valid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeLBX).StandaardLade()
+	Set Product.Klasse = "SY"
+	Set Product.RugHoogte = "M"
+	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.common.impl.Validator.RughoogteValidator).%New()
+	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test Sifonlade, Rughoogte C -&gt; invalid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeLBX).StandaardLade()
+	Set Product.Klasse = "SY"
+	Set Product.RugHoogte = "C"
+	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.common.impl.Validator.RughoogteValidator).%New()
+	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test Sifonlade, willekeurige hoogte (&lt;&gt; M) -&gt; invalid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeLBX).StandaardLade()
+	Set Product.Klasse = "SY"
+	Set Product.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).RandomValue(##class(DOM.PM.enu.LBXRugHoogte).M())
+	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.common.impl.Validator.RughoogteValidator).%New()
+	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test Spoelbaklade, Rughoogte M -&gt; valid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeLBX).StandaardLade()
+	Set Product.Klasse = "SP"
+	Set Product.RugHoogte = "M"
+	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.common.impl.Validator.RughoogteValidator).%New()
+	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test Spoelbaklade, Rughoogte C -&gt; valid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeLBX).StandaardLade()
+	Set Product.Klasse = "SP"
+	Set Product.RugHoogte = "C"
+	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.common.impl.Validator.RughoogteValidator).%New()
+	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test Spoelbaklade, willekeurige hoogte (&lt;&gt; M of C) -&gt; invalid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeLBX).StandaardLade()
+	Set Product.Klasse = "SP"
+	Set Product.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).RandomValue(##class(DOM.PM.enu.LBXRugHoogte).M(),##class(DOM.PM.enu.LBXRugHoogte).C())
+	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.common.impl.Validator.RughoogteValidator).%New()
+	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>