Index: vhConsistency/Checks/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml	(revision 0)
+++ vhConsistency/Checks/DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel/MassaDichtheidBepaler.cls.xml	(revision 36742)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhConsistency.Checks.DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler">
+<Super>vhConsistency.Check</Super>
+
+<Property name="ProductZoekService">
+<Type>WS.common.ProductCriteria.ProductZoekService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MassaDichtheidBepaler">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductZoekService = ##class(WS.common.ProductCriteria.ProductZoekService).%New()
+	Set ..MassaDichtheidBepaler = ##class(DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel.MassaDichtheidBepaler).%New()
+	
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..ControleerPlaat(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
+	Do ..ControleerPlaat(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
+	Do ..ControleerPlaat(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant())
+	Do ..ControleerPlaat(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem())
+	
+	Quit ..Status
+]]></Implementation>
+</Method>
+
+<Method name="ControleerPlaat">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Producten As %ListOfObjects = ..GeefProductenVoorSelectieKenmerkGroep("TAOR_SEL_" _ LadeOnderdeel _ "Plaat")
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Producten)
+
+	While (Iterator.HasNext()) {
+		#dim ProductData As DOM.common.dto.ProductData = Iterator.Next()
+		
+		Try {
+			Do ..MassaDichtheidBepaler.GeefMassaDichtheid(ProductData.ID, LadeOnderdeel)
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.DataNotFoundException")
+			
+			Do ..VoegToeFoutmelding(Exception.GeefOmschrijving())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductenVoorSelectieKenmerkGroep">
+<FormalSpec>KenmerkGroep:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim HeeftDataInKenmerkGroep As APPS.common.ProductCriteria.dto.HeeftDataInKenmerkGroep = ##class(APPS.common.ProductCriteria.dto.HeeftDataInKenmerkGroep).%New()
+	Set HeeftDataInKenmerkGroep.KenmerkGroep = KenmerkGroep
+	
+	#dim Criterium As APPS.common.ProductCriteria.dto.EnCriterium = ##class(APPS.common.ProductCriteria.dto.EnCriterium).%New()
+	Do Criterium.Criteria.Insert(HeeftDataInKenmerkGroep)
+	
+	Quit ..ProductZoekService.ZoekProducten(Criterium)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>