Index: APPS/common/enu/Toepassing.cls.xml
===================================================================
diff -u -r29059 -r49427
--- APPS/common/enu/Toepassing.cls.xml	(.../Toepassing.cls.xml)	(revision 29059)
+++ APPS/common/enu/Toepassing.cls.xml	(.../Toepassing.cls.xml)	(revision 49427)
@@ -3,14 +3,14 @@
 <Class name="APPS.common.enu.Toepassing">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
+<Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;;FLEX;BARTENDER;VHINTRASHELL;WEB;OLWEB;WWW;FOPLINK;FOMEMBED;FOPEMBEDPS;FOPEMBEDPDF;PRINT;FILE;LABEL;LABELROOT;WMS;MAKOVA;THUMBNAIL;BARTENDERVOORKEURVECTOR;WWWOL</Default>
+<Default>;;FLEX;BARTENDER;VHINTRASHELL;WEB;OLWEB;WWW;FOPLINK;FOMEMBED;FOPEMBEDPS;FOPEMBEDPDF;PRINT;FILE;LABEL;LABELROOT;WMS;MAKOVA;THUMBNAIL;BARTENDERVOORKEURVECTOR;WWWOL;AX</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;;Flex;Bartender;VhintraShell;Web;WebOrgalux;WWW;FopLink;FopEmbed;FopEmbedPS;FopEmbedPDF;Print;File;Label;LabelRoot;Wms;Makova;Thumbnail;BartenderVoorkeurVector;WWWOrgalux</Default>
+<Default>;;Flex;Bartender;VhintraShell;Web;WebOrgalux;WWW;FopLink;FopEmbed;FopEmbedPS;FopEmbedPDF;Print;File;Label;LabelRoot;Wms;Makova;Thumbnail;BartenderVoorkeurVector;WWWOrgalux;AX</Default>
 </Parameter>
 
 <Method name="Onbekend">
@@ -152,6 +152,13 @@
 <Implementation><![CDATA[	Quit "THUMBNAIL"
 ]]></Implementation>
 </Method>
+
+<Method name="AX">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.common.enu.Toepassing</ReturnType>
+<Implementation><![CDATA[	Quit "AX"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/Prod/ImageLink.cls.xml
===================================================================
diff -u -r49414 -r49427
--- BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 49414)
+++ BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 49427)
@@ -42,6 +42,11 @@
 <Default>PR</Default>
 </Parameter>
 
+<Property name="Toepassing">
+<Type>APPS.common.enu.Toepassing.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Instantiate">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[	Quit ..%New()
@@ -452,14 +457,14 @@
 Toepassing : FLEX, WEB, FOPLINK, FOPEMBED, LABEL, PRINT, FILE
 FormatPref : De toepassing default de FormatPreferenties $LB("SVG";"JPG")
 <BR>Extra Parameter ImgInfo (bevat de ImageLinkID's en de URL)]]></Description>
-<FormalSpec><![CDATA[PRNr:%Integer,Toepassing:APPS.common.enu.Toepassing,FunctieType:%String="PB",Pref:%List,Dummy:%List,Taal:%String="",&ImgInfo,Extension:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[PRNr:%Integer,Toepassing:APPS.common.enu.Toepassing,FunctieType:%String="PB",Pref:%List,Dummy:%List,Taal:%String="",&ImgInfo]]></FormalSpec>
 <Implementation><![CDATA[
 	#dim ObjRef As %String = ""
 	#dim ObjType As %String = ""
 	#dim URL As %String = ""
 	Do ..GetRefs(PRNr,"E",.ObjType,.ObjRef)
 	If ObjRef '= "" {
-    	Set URL = ..GetImageURL(ObjType,ObjRef,.Toepassing,.FunctieType,.Pref,.Taal,.ImgInfo, Extension)
+    	Set URL = ..GetImageURL(ObjType,ObjRef,.Toepassing,.FunctieType,.Pref,.Taal,.ImgInfo)
 	}
     Quit URL
 ]]></Implementation>
@@ -470,10 +475,9 @@
 Toepassing : FLEX, VHINTRASHELL, WEB, FOPLINK, FOPEMBED, LABEL, PRINT, FILE, WMS, MAKOVA
 FormatPref : De toepassing default de FormatPreferenties $LB("SVG";"JPG")
 w ##class(BL.Prod.ImageLink).%New().GetImageURL("TBX","DZ_ER","MAKOVA")</Description>
-<FormalSpec><![CDATA[ObjType:%String,ObjRef:%String,Toepassing:APPS.common.enu.Toepassing,FunctieType:%String="PB",Pref:%List,Taal:%String="",&ImgInfo:%String,Extension:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[ObjType:%String,ObjRef:%String,Toepassing:APPS.common.enu.Toepassing,FunctieType:%String="PB",Pref:%List,Taal:%String="",&ImgInfo:%String]]></FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	//Do ##class(Tools.Wlip).%New(42).String("getimageurl:" _ ObjType)
 	Set:($Get(Pref) = "") Pref = ..DefaultPrefs(Toepassing)	
 	Set ImgInfo("ObjRef") = ObjRef
 	Set ImgInfo("ObjType") = ObjType
@@ -498,15 +502,8 @@
 		  " ((ImageLink->Taal = ?) OR (ImageLink->Taal IS NULL))"
 	
 	#dim SelectMin As %Integer = 99999  	  
-	#dim ResultSet As TECH.ResultSet
-		  
-	If $$$Not(Extension = "") {
-		Set Query = Query _ " AND (Links_Extensie = ?)"
-		Set ResultSet = $$ExecDynQuery^vhLib.Query(Query, $ListBuild(ObjType, ObjRef, FunctieType, Taal, "JPG"))
-	} Else {
-		Set ResultSet = $$ExecDynQuery^vhLib.Query(Query, $ListBuild(ObjType, ObjRef, FunctieType, Taal))
-	}
-	
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query, $ListBuild(ObjType, ObjRef, FunctieType, Taal))
+
 	While (ResultSet.Next()) {
 		#dim VisueelType As %String = ResultSet.Data("VisueelType")
 		#dim PositieVisueelType As %Integer = $ListFind(Pref, ResultSet.Data("VisueelType"))
@@ -556,16 +553,18 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	#dim Pref As %List
+	
+	Set:(Toepassing = ..Toepassing.AX) Pref = $ListBuild("W", $ListBuild("JPG","GIF","TIF","BMP"))
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).Flex() Pref=$LB("V",$LB("SVG"),"P",$LB("JPG","GIF","TIF","BMP"),"W",$LB("JPG","GIF","TIF","BMP"),"T",$LB("JPG","GIF","TIF","BMP"))
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).Bartender() Pref=$LB("V",$LB("SVG"),"P",$LB("JPG","GIF","TIF","BMP"))
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).VhintraShell() Pref=$LB(                      "W",$LB("JPG","GIF","TIF","BMP"))
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).VhintraShell() Pref=$LB("W",$LB("JPG","GIF","TIF","BMP"))
 	If ((Toepassing=##class(APPS.common.enu.Toepassing).Web()) || (Toepassing=##class(APPS.common.enu.Toepassing).WebOrgalux())||
 	 (Toepassing=##class(APPS.common.enu.Toepassing).WWW()) || (Toepassing=##class(APPS.common.enu.Toepassing).WWWOrgalux())){
 		  Set Pref=$LB("W",$LB("JPG","GIF","TIF","BMP"),"V",$LB("SVG"))
 	 }
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopLink() Pref=$LB("SVG","JPG","GIF","TIF","BMP","EPS"),VisPref=$LB("V","W","P")
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbed() Pref=$LB("W",$LB("JPG","GIF","TIF","BMP"),"P",$LB("EPS"))
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbedPS() Pref=$LB(                      "W",$LB("JPG","GIF","TIF","BMP"))
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbedPS() Pref=$LB("W",$LB("JPG","GIF","TIF","BMP"))
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbedPDF() Pref=$LB("V",$LB(""),"W",$LB("JPG","GIF","TIF","BMP"))
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).Print() Pref=$Lb("P",$LB("EPS","SVG"),"W",$LB("JPG","GIF","TIF","BMP"))
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).File() Pref=$LB("V",$LB("SVG"),"W",$LB("JPG","GIF","TIF","BMP"))
@@ -575,6 +574,7 @@
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).Makova() Pref=$LB("M",$LB("BMP"))
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).Thumbnail() Pref=$LB("T",$LB("JPG"),"W",$LB("JPG"))
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).BartenderVoorkeurVector() Pref=$LB("V",$LB("SVG"),"W",$LB("JPG","GIF","TIF","BMP"))
+	
 	Quit Pref
 ]]></Implementation>
 </Method>
@@ -608,24 +608,33 @@
 <Implementation><![CDATA[
 	Quit:FileNaam="" "" 
 	#dim Root,URL,Delim As %String = ""	
-	If (Toepassing = ##class(APPS.common.enu.Toepassing).Onbekend()) || (Toepassing = ##class(APPS.common.enu.Toepassing).WWWOrgalux())
-	{
+	
+	If (Toepassing = ##class(APPS.common.enu.Toepassing).Onbekend()) || (Toepassing = ##class(APPS.common.enu.Toepassing).WWWOrgalux()) {
 		Set Root="",Delim="/",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 	}
+	
 	If Toepassing=##class(APPS.common.enu.Toepassing).Flex() {
 		If ..IsDirectoryCodeWebOL(DirectoryCode) {
 			Set Root="//res.vanhoecke.be/OLProdCat",Delim="/",URL="http:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
 		}Else{
 			Set Root="//res.vanhoecke.be/Images",Delim="/",URL="http:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
 		}
 	}
+	
 	If Toepassing=##class(APPS.common.enu.Toepassing).Bartender(){
 		If ..IsDirectoryCodeWebOL(DirectoryCode) {
 			Set Root="\\Notes01\Images\Orgalux",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 		}Else{ 
 			Set Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 		}
 	}
+	
+	If (Toepassing = ..Toepassing.AX) {
+		Set Root = "\\Notes01\Images"
+		Set Delim = "\"
+		Set URL = ..AddPaths(Root, ..AddPaths(Pad, FileNaam _ ..GeefSequentieNummer(Sequence) _ "." _ Extensie, Delim), Delim)
+	}
+	
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).VhintraShell() Root="//res.vanhoecke.be/Images",Delim="/",URL="http:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
 	If (Toepassing = ##class(APPS.common.enu.Toepassing).Web()) || (Toepassing = ##class(APPS.common.enu.Toepassing).WWW()) {
 		If ..IsDirectoryCodeWebOL(DirectoryCode) {
@@ -660,6 +669,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSequentieNummer">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Sequence:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SequentieNummer As %String = ""
+	
+	If $Get(Sequence) {
+		Set SequentieNummer = "." _ $Extract(1000 + Sequence, 2, 4)
+	}
+	
+	Quit SequentieNummer
+]]></Implementation>
+</Method>
+
 <Method name="GeefAbsoluutAfbeeldingPadOpNotesImagesAlsUNC">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>RelatiefPadNaarFolderOnderImagesFolder:%String,FileNaam:%String,Extensie:%String,Sequence:%Integer</FormalSpec>
Index: vhConsistency/Checks/Prod/Kenmerk/TestDataDefinitie.cls.xml
===================================================================
diff -u -r29059 -r49427
--- vhConsistency/Checks/Prod/Kenmerk/TestDataDefinitie.cls.xml	(.../TestDataDefinitie.cls.xml)	(revision 29059)
+++ vhConsistency/Checks/Prod/Kenmerk/TestDataDefinitie.cls.xml	(.../TestDataDefinitie.cls.xml)	(revision 49427)
@@ -5,14 +5,21 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhConsistency.Check</Super>
 
+<Property name="Toepassing">
+<Type>APPS.common.enu.Toepassing.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="VoerUit">
 <Description>
 Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.Prod.Kenmerk.TestDataDefinitie")</Description>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Quit $$$OK
-
+	
 	#dim ProductID As %String = 107785
+	
+	Do ..Controleer("\\Notes01\Images\VIASLEUTELK\BO5080S1.JPG", ..Toepassing.AX, ProductID)
 	Do ..Controleer("http://res.vanhoecke.be/OLProdCat/VIASLEUTELK/BO5080S1.JPG",##class(APPS.common.enu.Toepassing).Flex(),ProductID)
 	Do ..Controleer("\\Notes01\Images\Orgalux\VIASLEUTELK\BO5080S1.JPG",##class(APPS.common.enu.Toepassing).Bartender(),ProductID)
 	Do ..Controleer("http://res.vanhoecke.be/Images/VIASLEUTELK/BO5080S1.JPG",##class(APPS.common.enu.Toepassing).VhintraShell(),ProductID)
Index: APPS/common/enu/Toepassing/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/common/enu/Toepassing/Verwerker.cls.xml	(revision 0)
+++ APPS/common/enu/Toepassing/Verwerker.cls.xml	(revision 49427)
@@ -0,0 +1,192 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.common.enu.Toepassing.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>Toepassing:APPS.common.enu.Toepassing</FormalSpec>
+<Implementation><![CDATA[
+	If Toepassing = "AX" {
+		Do ..VerwerkAX()
+	} ElseIf Toepassing = "BARTENDER" {
+		Do ..VerwerkBartender()
+	} ElseIf Toepassing = "BARTENDERVOORKEURVECTOR" {
+		Do ..VerwerkBartenderVoorkeurVector()
+	} ElseIf Toepassing = "FILE" {
+		Do ..VerwerkFile()
+	} ElseIf Toepassing = "FLEX" {
+		Do ..VerwerkFlex()
+	} ElseIf Toepassing = "FOPEMBED" {
+		Do ..VerwerkFopEmbed()
+	} ElseIf Toepassing = "FOPEMBEDPDF" {
+		Do ..VerwerkFopEmbedPDF()
+	} ElseIf Toepassing = "FOPEMBEDPS" {
+		Do ..VerwerkFopEmbedPS()
+	} ElseIf Toepassing = "FOPLINK" {
+		Do ..VerwerkFopLink()
+	} ElseIf Toepassing = "LABEL" {
+		Do ..VerwerkLabel()
+	} ElseIf Toepassing = "LABELROOT" {
+		Do ..VerwerkLabelRoot()
+	} ElseIf Toepassing = "Makova" {
+		Do ..VerwerkMakova()
+	} ElseIf Toepassing = "" {
+		Do ..VerwerkOnbekend()
+	} ElseIf Toepassing = "PRINT" {
+		Do ..VerwerkPrint()
+	} ElseIf Toepassing = "THUMBNAIL" {
+		Do ..VerwerkThumbnail()
+	} ElseIf Toepassing = "VHINTRASHELL" {
+		Do ..VerwerkVhintraShell()
+	} ElseIf Toepassing = "WWW" {
+		Do ..VerwerkWWW()
+	} ElseIf Toepassing = "WWWOL" {
+		Do ..VerwerkWWWOrgalux()
+	} ElseIf Toepassing = "WEB" {
+		Do ..VerwerkWeb()
+	} ElseIf Toepassing = "OLWEB" {
+		Do ..VerwerkWebOrgalux()
+	} ElseIf Toepassing = "WMS" {
+		Do ..VerwerkWms()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Toepassing,"APPS.common.enu.Toepassing",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAX">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkBartender">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkBartenderVoorkeurVector">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkFile">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkFlex">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkFopEmbed">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkFopEmbedPDF">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkFopEmbedPS">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkFopLink">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLabel">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLabelRoot">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMakova">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkOnbekend">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkPrint">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkThumbnail">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVhintraShell">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkWWW">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkWWWOrgalux">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkWeb">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkWebOrgalux">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkWms">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/common/enu/Toepassing/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/common/enu/Toepassing/AutoComplete.cls.xml	(revision 0)
+++ APPS/common/enu/Toepassing/AutoComplete.cls.xml	(revision 49427)
@@ -0,0 +1,160 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.common.enu.Toepassing.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="AX">
+<Type>%String</Type>
+<InitialExpression>"AX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Bartender">
+<Type>%String</Type>
+<InitialExpression>"BARTENDER"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="BartenderVoorkeurVector">
+<Type>%String</Type>
+<InitialExpression>"BARTENDERVOORKEURVECTOR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="File">
+<Type>%String</Type>
+<InitialExpression>"FILE"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Flex">
+<Type>%String</Type>
+<InitialExpression>"FLEX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="FopEmbed">
+<Type>%String</Type>
+<InitialExpression>"FOPEMBED"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="FopEmbedPDF">
+<Type>%String</Type>
+<InitialExpression>"FOPEMBEDPDF"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="FopEmbedPS">
+<Type>%String</Type>
+<InitialExpression>"FOPEMBEDPS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="FopLink">
+<Type>%String</Type>
+<InitialExpression>"FOPLINK"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Label">
+<Type>%String</Type>
+<InitialExpression>"LABEL"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="LabelRoot">
+<Type>%String</Type>
+<InitialExpression>"LABELROOT"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Makova">
+<Type>%String</Type>
+<InitialExpression>"Makova"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Onbekend">
+<Type>%String</Type>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Print">
+<Type>%String</Type>
+<InitialExpression>"PRINT"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Thumbnail">
+<Type>%String</Type>
+<InitialExpression>"THUMBNAIL"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="VhintraShell">
+<Type>%String</Type>
+<InitialExpression>"VHINTRASHELL"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="WWW">
+<Type>%String</Type>
+<InitialExpression>"WWW"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="WWWOrgalux">
+<Type>%String</Type>
+<InitialExpression>"WWWOL"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Web">
+<Type>%String</Type>
+<InitialExpression>"WEB"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="WebOrgalux">
+<Type>%String</Type>
+<InitialExpression>"OLWEB"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Wms">
+<Type>%String</Type>
+<InitialExpression>"WMS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: vhConsistency/Checks/BL/Prod/TestImageLink.cls.xml
===================================================================
diff -u -r29059 -r49427
--- vhConsistency/Checks/BL/Prod/TestImageLink.cls.xml	(.../TestImageLink.cls.xml)	(revision 29059)
+++ vhConsistency/Checks/BL/Prod/TestImageLink.cls.xml	(.../TestImageLink.cls.xml)	(revision 49427)
@@ -5,6 +5,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhConsistency.Check</Super>
 
+<Property name="Toepassing">
+<Type>APPS.common.enu.Toepassing.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="VoerUit">
 <Description>
 Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.BL.Prod.TestImageLink")</Description>
@@ -22,6 +27,7 @@
 	Do ..Controleer("http://res.vanhoecke.be/Images/BLUM/W/P_48N0510re_P_1_PB_BAU_SALL_APR_V1.JPG",Toepassing,1935)	
 	
 	#dim ProductID As %String = 821043	
+	Do ..Controleer("\\Notes01\Images\VH\W\EXXX072.JPG", ..Toepassing.AX, ProductID)
 	Do ..Controleer("http://res.vanhoecke.be/Images/VH/W/EXXX072.JPG",##class(APPS.common.enu.Toepassing).Flex(),ProductID)
 	Do ..Controleer("",##class(APPS.common.enu.Toepassing).Bartender(),ProductID)
 	Do ..Controleer("http://res.vanhoecke.be/Images/VH/W/EXXX072.JPG",##class(APPS.common.enu.Toepassing).VhintraShell(),ProductID)
@@ -38,8 +44,8 @@
 	Do ..Controleer("\\Notes01\Images\VH\W\EXXX072.JPG",##class(APPS.common.enu.Toepassing).BartenderVoorkeurVector(),ProductID)
 	Do ..Controleer("VH/W/EXXX072.JPG",##class(APPS.common.enu.Toepassing).WWWOrgalux(),ProductID)	
 	
-	
-	Set ProductID = 404375	
+	Set ProductID = 404375
+	Do ..Controleer("\\Notes01\Images\Orgalux\ViaSleutelG\TKCUISFL.JPG", ..Toepassing.AX, ProductID)
 	Do ..Controleer("http://res.vanhoecke.be/Images/Orgalux/ViaSleutelG/TKCUISFL.JPG",##class(APPS.common.enu.Toepassing).Flex(),ProductID)
 	Do ..Controleer("\\Notes01\Images\Orgalux\ViaSleutelG\TKCUISFL.JPG",##class(APPS.common.enu.Toepassing).Bartender(),ProductID)
 	Do ..Controleer("http://res.vanhoecke.be/Images/Orgalux/ViaSleutelG/TKCUISFL.JPG",##class(APPS.common.enu.Toepassing).VhintraShell(),ProductID)