Index: CHUI/Derde/KB/dlgSearchResults.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Derde/KB/dlgSearchResults.cls.xml	(.../dlgSearchResults.cls.xml)	(revision 1074)
+++ CHUI/Derde/KB/dlgSearchResults.cls.xml	(.../dlgSearchResults.cls.xml)	(revision 2578)
@@ -3,63 +3,62 @@
 <Class name="CHUI.Derde.KB.dlgSearchResults">
 <IncludeCode>BL.Derde.Kennis,CHUI.KB</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <Property name="acCancel">
 <Description>
 ==========================================================================================================================
 PROPERTIES                                                                                                               .
 ==========================================================================================================================</Description>
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acCriterion">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acNew">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acSelect">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acRaadpleegKlant">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="lblCriterion">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblHeader">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="btnCancel">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnCriterion">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnNew">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="mmoCriterion">
-<Type>%CHUI.TMemo</Type>
+<Type>TCHUI.TMemo</Type>
 </Property>
 
 <Property name="lstResult">
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <Property name="dslResult">
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <Property name="FSearchSQL">
@@ -117,38 +116,38 @@
 	Set ..Caption=..GetFormTitle("Zoekresultaten")
 
 	//Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acCancel","Annuleren",1,$LB("-"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acCancel","Annuleren",1,$LB("-"))
 	Set ..acCancel.OnExecute=$LB(%this,"acCancelExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acCriterion","Criterion",1,$LB("C"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acCriterion","Criterion",1,$LB("C"))
 	Set ..acCriterion.OnExecute=$LB(%this,"acCriterionExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S"))
 	Set ..acSelect.OnExecute=$LB(%this,"acSelectExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acNew", "New", 1, $LB($$$kcF1))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acNew", "New", 1, $LB($$$kcF1))
 	Set ..acNew.OnExecute=$LB(%this,"acNew")
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acRaadpleegKlant", "Raadpleeg klant", 1, $LB("K"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acRaadpleegKlant", "Raadpleeg klant", 1, $LB("K"))
 	Set ..acRaadpleegKlant.OnExecute=$LB(%this,"acRaadpleegKlantClick")
 
 	//Labels
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,%Screen.Width,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,%Screen.Width,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 	Set ..CaptionControl=..lblHeader
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCriterion","Criteria",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCriterion","Criteria",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
 
 	//Buttons
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Afsluiten",5,66,,13,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Afsluiten",5,66,,13,,,,,$$$alCenter)
 	Set ..btnCancel.Action=..acCancel
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCriterion","Criteria...",3,66,,13,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnCriterion","Criteria...",3,66,,13,,,,,$$$alCenter)
 	Set ..btnCriterion.Action=..acCriterion
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnNew","Nieuw",3,51,,13,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnNew","Nieuw",3,51,,13,,,,,$$$alCenter)
 	Set ..btnNew.Action=..acNew
 
 	//Memos
-	Do ##class(%CHUI.TMemo).CreateSet(%this,"mmoCriterion","",3,13,4,33)
+	Do ##class(TCHUI.TMemo).CreateSet(%this,"mmoCriterion","",3,13,4,33)
 	Do ..mmoCriterion.InitSpec()
 
 	//Lists
-	Do ##class(%CHUI.TLijst).CreateSet(%this,"lstResult","",8,3,%Screen.Height-8,%Screen.Width-4)
+	Do ##class(TCHUI.TLijst).CreateSet(%this,"lstResult","",8,3,%Screen.Height-8,%Screen.Width-4)
 	
 	Set rdMain=..lstResult.CreateRowDef(..#rdMain,$$$ftAddLijstRow,$LB($$$clWhite,$$$clDark))
 	Set rdMain.Height=4
@@ -162,7 +161,7 @@
 	Do ..lstResult.AddLabelDBToRowDef(rdMain,..#colMsg,..lstResult.Width,,,,$LB($$$clBlack,$$$clLight),,3,2,1)
 	
 	//DataSetLists
-	Set ..dslResult=##class(%CHUI.TDataSetList).Create(..lstResult,"dslResult")
+	Set ..dslResult=##class(TCHUI.TDataSetList).Create(..lstResult,"dslResult")
 	Set ..dslResult.OnQueryInit=$LB(%this,"dslResultQueryInit")
 	Do ..dslResult.AddColDef(..#colCreationDateAndTime,$$$rsList,1)
 	Do ..dslResult.AddColDef(..#colKlant,$$$rsList,2)
@@ -338,13 +337,13 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   .
 ==========================================================================================================================</Description>
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..Close()
 ]]></Implementation>
 </Method>
 
 <Method name="acCriterionExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	$$$InitSearchForm
 
@@ -357,7 +356,7 @@
 </Method>
 
 <Method name="lstResultKeyPress">
-<FormalSpec><![CDATA[Sender:%CHUI.TControlBasis,&KeyCode:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&KeyCode:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	If KeyCode=$$$kcEnter Do
 	. Do ..acSelect.SendOnExecute()
@@ -377,7 +376,7 @@
 </Method>
 
 <Method name="acNew">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	$$$InitModifyForm
 	
@@ -401,7 +400,7 @@
 </Method>
 
 <Method name="acSelectExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set KennisID=..lstResult.GetSelectedData(..#colID)
 	Quit:(KennisID="")
@@ -426,7 +425,7 @@
 </Method>
 
 <Method name="dslResultQueryInit">
-<FormalSpec>Sender:%CHUI.TControlBasis,ResultStr:%String</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,ResultStr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ResultStr=""
 
@@ -477,7 +476,7 @@
 </Method>
 
 <Method name="pmiActiesClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set KennisID=..lstResult.GetSelectedData(..#colID)
 	Quit:(KennisID="")
@@ -494,7 +493,7 @@
 </Method>
 
 <Method name="pmiHistoriekClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set KennisID=..lstResult.GetSelectedData(..#colID)
 
@@ -510,7 +509,7 @@
 </Method>
 
 <Method name="miExtraSearchViaKennisIDClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set KennisID=""
 	Quit:($$$InputBox(..Caption,"Geef het te zoeken kennis ID op:",.KennisID)=$$$mrCancel)
@@ -525,7 +524,7 @@
 </Method>
 
 <Method name="acRaadpleegKlantClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set KennisID=..lstResult.GetSelectedData(..#colID)
 	Quit:(KennisID="")