Index: EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml
===================================================================
diff -u
--- EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml	(revision 0)
+++ EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml	(revision 32050)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Optima.CalculPrix.impl.BinaireFoutWaardeBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="BepaalBinaireFoutWaarde">
+<FormalSpec>ObjectConverterException:TECH.ObjectUtils.ObjectConverterException</FormalSpec>
+<ReturnType>%BigInt</ReturnType>
+<Implementation><![CDATA[
+	#dim BinaireFoutWaarde As %BigInt = 0
+	
+	#dim ExceptionsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ObjectConverterException.GeefInnerExcepties())
+	While ExceptionsIterator.HasNext() {
+		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
+		#dim CompiledPropertyID = Exception.ClassName_":"_Exception.PropertyName
+		If $$$Not(##class(%CompiledProperty).%ExistsId(CompiledPropertyID)) {
+			Do ##class(TECH.Exceptions.InvalidInputException).Throw("CompiledProperty met ID '"_CompiledPropertyID_"' bestaat niet.")
+		}
+		Set Property = ##class(%CompiledProperty).%OpenId(CompiledPropertyID)
+		Set BinaireFoutWaarde = BinaireFoutWaarde + Property.Parameters.GetAt("OptimaErrorCode")
+	}
+	
+	Quit BinaireFoutWaarde
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler/BepaalBinaireFoutWaarde/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler/BepaalBinaireFoutWaarde/Test.cls.xml	(revision 0)
+++ vhUnitTest/EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler/BepaalBinaireFoutWaarde/Test.cls.xml	(revision 32050)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.EXT.Optima.CalculPrix.impl.BinaireFoutWaardeBepaler.BepaalBinaireFoutWaarde.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ObjectConverterException">
+<Type>TECH.ObjectUtils.ObjectConverterException</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="ObjectClassName">
+<Type>%String</Type>
+<Default>EXT.Optima.CalculPrix.dto.Request.TiroirTAORBOX</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ObjectConverterException = ##class(TECH.ObjectUtils.ObjectConverterException).%New($$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestMeerdereExcepties">
+<Implementation><![CDATA[
+	Do ..VoegToeObjectConverterPropertyException("FrontEindkapKleur")
+	Do ..VoegToeObjectConverterPropertyException("GeleiderTechnologie")
+
+	Do ..AssertBinaireWaarde(65544)
+]]></Implementation>
+</Method>
+
+<Method name="TestTweeMaalDezelfdeProperty">
+<Implementation><![CDATA[
+	Do ..VoegToeObjectConverterPropertyException("FrontEindkapKleur")
+	Do ..VoegToeObjectConverterPropertyException("FrontEindkapKleur")
+
+	Do ..AssertBinaireWaarde(16)
+	// Is het niet beter als deze slechts 1 maal geteld wordt?  dus BinaireFoutWaarde = 8  ???
+]]></Implementation>
+</Method>
+
+<Method name="TestZonderInnerExceptie">
+<Implementation><![CDATA[
+	Do ..AssertBinaireWaarde(0)
+	// Is het niet beter als deze een exceptie smijt, i.p.v. BinaireFoutWaarde = 0  ???
+]]></Implementation>
+</Method>
+
+<Method name="TestMetLegePropertyNaam">
+<Implementation><![CDATA[	Do ..AssertExceptieBijFouteProperty("")
+]]></Implementation>
+</Method>
+
+<Method name="TestMetOnbestaandePropertyNaam">
+<Implementation><![CDATA[	Do ..AssertExceptieBijFouteProperty("UT_OnbestaandeProperty")
+]]></Implementation>
+</Method>
+
+<Method name="AssertBinaireWaarde">
+<FormalSpec>VerwachteBinaireFoutWaarde:%BigInt</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BinaireFoutWaardeBepaler = ##class(EXT.Optima.CalculPrix.impl.BinaireFoutWaardeBepaler).%New()
+	Do $$$AssertEquals(BinaireFoutWaardeBepaler.BepaalBinaireFoutWaarde(..ObjectConverterException),VerwachteBinaireFoutWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertExceptieBijFouteProperty">
+<FormalSpec>PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeObjectConverterPropertyException(PropertyName)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("CompiledProperty met ID",..#ObjectClassName_":"_PropertyName,"bestaat niet.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName($$$True),Substrings))
+	
+	Set BinaireFoutWaardeBepaler = ##class(EXT.Optima.CalculPrix.impl.BinaireFoutWaardeBepaler).%New()
+	Do BinaireFoutWaardeBepaler.BepaalBinaireFoutWaarde(..ObjectConverterException)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeObjectConverterPropertyException">
+<FormalSpec>PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New("input",..#ObjectClassName,PropertyName,$$$DummyString,$$$DummyString,$$$DummyString)
+	Do ..ObjectConverterException.VoegToeInnerExceptie(Exception)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>