Index: BL/Prod/ImageLink.cls.xml
===================================================================
diff -u -r65658 -r65670
--- BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 65658)
+++ BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 65670)
@@ -328,7 +328,7 @@
 	Quit:ObjRef="" ""
 	If ($E(Gebruik)'="E")&&(ObjType="HALID") Do ; Intern en Halux product
 	. Set FilePath="http://192.168.1.6/csp/admin1/PRGAProduct.csp?PRNR="_PRNr
-	Else  If ObjType=..#ObjType Do ; Intern of extern voor beslag product
+	Else  If ((ObjType=..#ObjType) || (ObjType = "MAT")) Do ; Intern of extern voor beslag product
 	. Set Qstring = $system.Encryption.Base64Encode($system.Encryption.AESEncode("PRNR="_PRNr_"&TAAL="_Taal,"1q2gg34l5U6p789Q"))
 	. Set FilePath="http://res.vanhoecke.be/Catalog/Product.aspx?"_Qstring
 	Quit $G(FilePath)
@@ -347,7 +347,7 @@
 	} Else { ; mogelijk generisch afgeleid product
 		#dim Type As %String = ..GeefTypeViaGENTYP(PRNr,$E(Gebruik,1)="I")
 		If $L(Type) {
-	 		#dim Ref As %String = ""
+			#dim Ref As %String = ""
 	 		Set:Type="TBX" Ref=..GeefImageCodeViaTBXProduct(PRNr)
 	 		Set:Type="KAD" Ref=..KADImageCode(PRNr)
 	 		Set:((Type="TAO") || (Type="LBX") || (Type="MVX") || (Type="SST") || (Type="MAT")) Ref = ..ImageCodeViaIngegevenKenmerken(PRNr)
@@ -370,7 +370,11 @@
 	#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))
+		If GenType = "DIV\ASM" {
+			Set Type = "MAT"
+		} Else {
+			Set Type = $P($G(^RES("HAD","PI","GENTYP","D",GenType)),"`",$S(InternGebruik:4,1:5))
+		}
 	}
 	Quit Type
 ]]></Implementation>