Index: BL/Prod/ImageLink.cls.xml
===================================================================
diff -u -r30109 -r30269
--- BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 30109)
+++ BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 30269)
@@ -337,9 +337,8 @@
 		Set ObjType = ..#ObjType
 		Set ObjRef = PRNr
 	} Else { ; mogelijk generisch afgeleid product
-		#dim GenTyp As %String = $P($$GENTYP^HAD(PRNr),"\",1,2)
-		If GenTyp '= "" {
-	 		#dim Type As %String = $P($G(^RES("HAD","PI","GENTYP","D",GenTyp)),"`",$S($E(Gebruik)="I":4,1:5))
+		#dim Type As %String = ..GeefTypeViaGENTYP(PRNr,$E(Gebruik,1)="I")
+		If $L(Type) {
 	 		#dim Ref As %String = ""
 	 		Set:Type="TBX" Ref=..GeefImageCodeViaTBXProduct(PRNr)
 	 		Set:Type="KAD" Ref=..KADImageCode(PRNr)
@@ -355,6 +354,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTypeViaGENTYP">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductID:%String,InternGebruik:%Boolean,InclMoeder:%Boolean=0</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Type As %String = ""
+	#dim GenType As %String = $P($$GENTYP^HAD(ProductID,0,InclMoeder),"\",1,2)
+	If GenType '= "" {
+		Set Type = $P($G(^RES("HAD","PI","GENTYP","D",GenType)),"`",$S(InternGebruik:4,1:5))
+	}
+	Quit Type
+]]></Implementation>
+</Method>
+
 <Method name="DelObj">
 <Description>
 d ##class(BL.Prod.ImageLink).DelObj(PRNr)</Description>