Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/VerlaagdeRugValidator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/VerlaagdeRugValidator/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/VerlaagdeRugValidator/Test.cls.xml	(revision 38169)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: RugHoogte niet ingevuld -&gt; Valid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.RugHoogte = ""	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()
+	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test: RugHoogte M enkel bij LadeHoogte B,D,G,C">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.RugHoogte = "M"	
+	
+	Set Product.LadeHoogte = "B"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "D"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "G"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "C"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "K"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test: RugHoogte B enkel bij LadeHoogte D,G,C">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.RugHoogte = "B"	
+	
+	Set Product.LadeHoogte = "M"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "D"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "G"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "C"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "K"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+
+<Method name="Test: RugHoogte K enkel bij LadeHoogte D,C">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.RugHoogte = "K"	
+	
+	Set Product.LadeHoogte = "M"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "D"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "G"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "C"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+	
+	Set Product.LadeHoogte = "K"	
+	Set Exceptions = ##class(TECH.ExceptionList).%New()	
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()	
+	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml
===================================================================
diff -u -r37297 -r38169
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 37297)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 38169)
@@ -43,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerlaagdeRugValidator">
+<Type>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="IsValid">
 <FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&Exceptions:TECH.ExceptionList]]></FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -55,6 +60,7 @@
 	Set ..DwarsverdelingValidator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New()
 	Set ..UitsparingValidator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
 	Set ..ZijkantHoogteValidator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.ZijkantHoogteValidator).%New()
+	Set ..VerlaagdeRugValidator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator).%New()
 	
 	Do ..OpvullijstValidator.IsValid(Product, Exceptions)
 	Do ..FrontOndersteuningValidator.IsValid(Product, Exceptions)
@@ -64,6 +70,7 @@
 	Do ..DwarsverdelingValidator.IsValid(Product, Exceptions)
 	Do ..UitsparingValidator.IsValid(Product, Exceptions)
 	Do ..ZijkantHoogteValidator.IsValid(Product, Exceptions)
+	Do ..VerlaagdeRugValidator.IsValid(Product, Exceptions)
 	
 	Quit $$$If(Exceptions.Count()>0,$$$false,$$$true)
 ]]></Implementation>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/VerlaagdeRugValidator.cls.xml
===================================================================
diff -u
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/VerlaagdeRugValidator.cls.xml	(revision 0)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/VerlaagdeRugValidator.cls.xml	(revision 38169)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.VerlaagdeRugValidator">
+<Super>TECH.RegisteredObject,TECH.Validator.Validator</Super>
+
+<Method name="IsValid">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&Exceptions:TECH.ExceptionList]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If (Product.RugHoogte="M")&&$$$Not(##class(TECH.StringUtils).Equals(Product.LadeHoogte,"B","D","G","C")) {
+		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New()
+		Do Exception.AddCombination($classname(Product),"RugHoogte",Product.RugHoogte)
+		Do Exception.AddCombination($classname(Product),"LadeHoogte",Product.LadeHoogte)
+		Do Exceptions.Insert(Exception)
+	}
+	
+	If (Product.RugHoogte="B")&&$$$Not(##class(TECH.StringUtils).Equals(Product.LadeHoogte,"D","G","C")) {
+		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New()
+		Do Exception.AddCombination($classname(Product),"RugHoogte",Product.RugHoogte)
+		Do Exception.AddCombination($classname(Product),"LadeHoogte",Product.LadeHoogte)
+		Do Exceptions.Insert(Exception)
+	}
+	
+	If (Product.RugHoogte="K")&&$$$Not(##class(TECH.StringUtils).Equals(Product.LadeHoogte,"D","C")) {
+		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New()
+		Do Exception.AddCombination($classname(Product),"RugHoogte",Product.RugHoogte)
+		Do Exception.AddCombination($classname(Product),"LadeHoogte",Product.LadeHoogte)
+		Do Exceptions.Insert(Exception)
+	}
+	
+	Quit $$$If(Exceptions.Count()>0,$$$false,$$$true)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>