Index: DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml
===================================================================
diff -u -r30644 -r31463
--- DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml	(.../ConcreetHalffabItem.cls.xml)	(revision 30644)
+++ DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml	(.../ConcreetHalffabItem.cls.xml)	(revision 31463)
@@ -47,6 +47,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim Status As %Status = ##super(Context, Rol)
+	Do ..ValideerHalffab(Halffab)
 	Set ..Halffab = Halffab
 	Quit Status
 ]]></Implementation>
@@ -123,6 +124,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ValideerHalffab">
+<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:(Halffab="")   ; OK 
+
+	If ($IsObject(Halffab)) {
+		Do:(Halffab.GeefProductID() = "") ##class(TECH.Exceptions.InvalidInputException).Throw("Ongeldige ProductID '"_Halffab.GeefProductID()_"' bij Halffab "_Halffab_" (rol="_..Rol_" in klasse "_..%ClassName($$$True)_")")
+	} Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Halffab bevat een ongeldige waarde "_Halffab_" (rol="_..Rol_" in klasse "_..%ClassName($$$True)_")")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VulAanMetPPSKenmerken">
 <Description><![CDATA[
 Vult de omschrijving aan met PPS kenmerken.  De omschrijving mag place holders bevatten van de vorm