Index: vhConsistency/Checks/DOM/PM/GenerischeProducten.cls.xml
===================================================================
diff -u -r29059 -r30271
--- vhConsistency/Checks/DOM/PM/GenerischeProducten.cls.xml	(.../GenerischeProducten.cls.xml)	(revision 29059)
+++ vhConsistency/Checks/DOM/PM/GenerischeProducten.cls.xml	(.../GenerischeProducten.cls.xml)	(revision 30271)
@@ -32,6 +32,8 @@
 	Do ..ControleerBovenliggendGenerischProduct(GenerischProductID)
 	
 	Do ..ControleerHeeftGNode(GenerischProductID)
+
+	Do ..ControleerHeeftResHadPIData(GenerischProductID)
 	
 	Set GenerischProductTypeMelder = ##class(vhConsistency.Checks.DOM.PM.GenerischeProducten.ProductTypeVerwerker).%New()
 	#dim Melding As %String = GenerischProductTypeMelder.GeefMelding(GenerischProductID)
@@ -59,12 +61,53 @@
 <FormalSpec>GenerischProductID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ('$Data(^KPR(GenerischProductID,"G"))) && ($$$Not(##class(TECH.ListUtils).Contains(..GenerischeProductenZonderGNode,GenerischProductID))) {
+	If ('..HeeftGNode(GenerischProductID)) && ($$$Not(##class(TECH.ListUtils).Contains(..GenerischeProductenZonderGNode,GenerischProductID))) {
 		Do ..VoegMeldingToe("Generisch product '"_GenerischProductID_"' heeft geen G-node. (^KPR("""_GenerischProductID_""",""G"")")
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="HeeftGNode">
+<FormalSpec>GenerischProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$aHasData(^KPR(GenerischProductID,"G"))
+]]></Implementation>
+</Method>
+
+<Method name="ControleerHeeftResHadPIData">
+<FormalSpec>GenerischProductID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..HeeftGNode(GenerischProductID) {
+		#dim GenType As %String = $P($G(^KPR(GenerischProductID,"G")),"\",1,2)
+		If (..IsTeControlerenGenTypeVoorResHadPI(GenType)) {
+			#dim InclMoeder As %Boolean = $$$True
+			#dim InternGebruik As %Boolean = $$$True
+			For InternGebruik = $$$True,$$$False {
+				#dim TypeVoorResImage As %String = ##class(BL.Prod.ImageLink).GeefTypeViaGENTYP(GenerischProductID,InternGebruik,InclMoeder)
+				If (TypeVoorResImage="") {
+					Do ..VoegMeldingToe("Geen Type voor ResImages (InternGebruik="_InternGebruik_") bij product '"_GenerischProductID_"' Controleer "_$Name(^RES("HAD","PI","GENTYP","D",GenType)))
+				}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsTeControlerenGenTypeVoorResHadPI">
+<FormalSpec>GenType:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:($P(GenType,"\",1)="DIV") $$$False 
+	Quit:($P(GenType,"\",1)="BAN") $$$False 
+	Quit:($P(GenType,"\",1)="PRF") $$$False 
+	Quit:($P(GenType,"\",1)="GLA") $$$False
+	Quit $$$True
+]]></Implementation>
+</Method>
+
 <Method name="GeefGenerischeProductenZonderGNode">
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>