Index: CHUI/Derde/KB/dlgSearch.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Derde/KB/dlgSearch.cls.xml	(.../dlgSearch.cls.xml)	(revision 1074)
+++ CHUI/Derde/KB/dlgSearch.cls.xml	(.../dlgSearch.cls.xml)	(revision 2578)
@@ -3,132 +3,131 @@
 <Class name="CHUI.Derde.KB.dlgSearch">
 <IncludeCode>CHUI.KB,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <Property name="acNew">
 <Description>
 ==========================================================================================================================
 PROPERTIES                                                                                                                
 ==========================================================================================================================
 Action</Description>
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acSearch">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acRevision">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="lblSort">
 <Description>
 Label</Description>
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblDateTo">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblDateFrom">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblCreator">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblViaMsg">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblActionDomain">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlassificatie">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlant">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblRegio">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblHeader">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblAutoShow">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="txtDateTo">
 <Description>
 Edit</Description>
-<Type>%CHUI.Ctrl.TDateEdit</Type>
+<Type>TCHUI.Ctrl.TDateEdit</Type>
 </Property>
 
 <Property name="txtDateFrom">
-<Type>%CHUI.Ctrl.TDateEdit</Type>
+<Type>TCHUI.Ctrl.TDateEdit</Type>
 </Property>
 
 <Property name="txtViaMsg">
-<Type>%CHUI.TEdit</Type>
+<Type>TCHUI.TEdit</Type>
 </Property>
 
 <Property name="txtKlant">
-<Type>%CHUI.Ctrl.TKlantEdit</Type>
+<Type>TCHUI.Ctrl.TKlantEdit</Type>
 </Property>
 
 <Property name="btnCancel">
 <Description>
 Button</Description>
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnSearch">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnNew">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnRevision">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="pmSort">
 <Description>
 Popup</Description>
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <Property name="pmAutoShow">
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <Property name="pmCreators">
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <Property name="pmActionDomain">
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <Property name="pmKlassificatie">
-<Type>%CHUI.Ctrl.TKlassificatiePopup</Type>
+<Type>TCHUI.Ctrl.TKlassificatiePopup</Type>
 </Property>
 
 <Property name="pmRegio">
-<Type>%CHUI.Ctrl.TRegioPopup</Type>
+<Type>TCHUI.Ctrl.TRegioPopup</Type>
 </Property>
 
 <Property name="frmSearchResults">
@@ -176,38 +175,38 @@
 	Set ..Caption="Kennisanker " _ %Application.Bedrijf.Naam_" - Zoekcriteria"
 
 	;Label header
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 	Set ..CaptionControl=..lblHeader
 
 	//Action
-	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, "acSearch", "Search", 1, $LB($$$kcF3))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acSearch", "Search", 1, $LB($$$kcF3))
 	Set ..acSearch.OnExecute=$LB(%this,"acSearch")
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acRevision", "Revisie", 1, $LB("R"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acRevision", "Revisie", 1, $LB("R"))
 	Set ..acRevision.OnExecute=$LB(%this,"acRevision")
 
 	//Label
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblSort","Sorteer",11,46)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDateTo","tem",5,65)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDateFrom","Van",5,50)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCreator","Aanmaker",7,45)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblViaMsg","Vrije tekst",3,42)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblActionDomain","Actiedomein",11,3)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAutoShow","Toon",15,3)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlassificatie","Classific.",7,3)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant",5,3)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRegio","Regio",3,3)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblSort","Sorteer",11,46)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDateTo","tem",5,65)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDateFrom","Van",5,50)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCreator","Aanmaker",7,45)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblViaMsg","Vrije tekst",3,42)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblActionDomain","Actiedomein",11,3)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAutoShow","Toon",15,3)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlassificatie","Classific.",7,3)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant",5,3)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRegio","Regio",3,3)
 
 	//Edit
-	Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtDateTo","",5,69,,10)
-	Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtDateFrom","",5,54,,10)
-	Do ##class(%CHUI.TEdit).CreateSet(%this,"txtViaMsg","",3,54,,25)
-	Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","",5,15,,25)
+	Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtDateTo","",5,69,,10)
+	Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtDateFrom","",5,54,,10)
+	Do ##class(TCHUI.TEdit).CreateSet(%this,"txtViaMsg","",3,54,,25)
+	Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","",5,15,,25)
 
 	//Popup
-	Set ..pmSort=##class(%CHUI.TPopup).Create(%this,"pmSort","",11,54,3,25)
+	Set ..pmSort=##class(TCHUI.TPopup).Create(%this,"pmSort","",11,54,3,25)
 	Do ..pmSort.InitSpec(,,,4)
 	Set ..pmSort.opMultiSelect=1
 	Set ..pmSort.opSorted=1
@@ -216,42 +215,42 @@
 	Do ..pmSort.DefaultFrames()
 	Set ..pmSort.Selected=$LB(..#soDate)
 
-	Set ..pmCreators=##class(%CHUI.TPopup).Create(%this,"pmCreators","",7,54,3,25)
+	Set ..pmCreators=##class(TCHUI.TPopup).Create(%this,"pmCreators","",7,54,3,25)
 	Do ..pmCreators.InitSpec(,,,6)
 	Set ..pmCreators.opMultiSelect=1
 	Do ccReadpmCreators
 	Do ..pmCreators.DefaultFrames()
 
-	Set ..pmKlassificatie=##class(%CHUI.Ctrl.TKlassificatiePopup).Create(%this,"pmKlassificatie","",7,15,3,25)
+	Set ..pmKlassificatie=##class(TCHUI.Ctrl.TKlassificatiePopup).Create(%this,"pmKlassificatie","",7,15,3,25)
 
-	Set ..pmActionDomain=##class(%CHUI.TPopup).Create(%this,"pmActionDomain","",11,15,3,25)
+	Set ..pmActionDomain=##class(TCHUI.TPopup).Create(%this,"pmActionDomain","",11,15,3,25)
 	Set ..pmActionDomain.opMultiSelect=1
 	Set ..pmActionDomain.opAutoSelectChildren=1
 	Do ..pmActionDomain.BecomeTreeView()
 	Do ..pmActionDomain.AddDelimitedTreeResource("DERDE.KENNIS","ACTIONDOMAIN")
 	Do ..pmActionDomain.TreeSetAllExpanded()
 
-	Set ..pmAutoShow=##class(%CHUI.TPopup).Create(%this,"pmAutoShow","",15,15,1,25)
+	Set ..pmAutoShow=##class(TCHUI.TPopup).Create(%this,"pmAutoShow","",15,15,1,25)
 	Do ..pmAutoShow.InitSpec(,,,4)
 	Do ..pmAutoShow.AddItem($$$sasShowActiveOnly,"Enkel actieve ankers")
 	Do ..pmAutoShow.AddItem($$$sasShowNotActiveOnly,"Enkel niet-actieve")
 	Do ..pmAutoShow.AddItem($$$sasShowAll,"Allemaal")
 	Do ..pmAutoShow.DefaultFrames()
 	Set ..pmAutoShow.Selected=$LB($$$sasShowActiveOnly)
 
-	Set ..pmRegio=##class(%CHUI.Ctrl.TRegioPopup).Create(%this,"pmRegio","Verantwoordelijke",3,15,1,25,3,3,1,$LB(),"R")
+	Set ..pmRegio=##class(TCHUI.Ctrl.TRegioPopup).Create(%this,"pmRegio","Verantwoordelijke",3,15,1,25,3,3,1,$LB(),"R")
 
 	//Button
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnNew","Nieuw",%Screen.Height,3,1,13,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnNew","Nieuw",%Screen.Height,3,1,13,,,,,$$$alCenter)
 	Set ..btnNew.Action=..acNew
 
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnRevision","Revisie",%Screen.Height,18,1,13,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnRevision","Revisie",%Screen.Height,18,1,13,,,,,$$$alCenter)
 	Set ..btnRevision.Action=..acRevision
 
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter)
 	Set ..btnCancel.ModalResult=$$$mrCancel
 
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnSearch","Zoeken",%Screen.Height,%Screen.Width-27,1,11,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnSearch","Zoeken",%Screen.Height,%Screen.Width-27,1,11,,,,,$$$alCenter)
 	//Set ..btnSearch.Default=1
 	Set ..btnSearch.Action=..acSearch
 
@@ -297,7 +296,7 @@
   ==========================================================================================================================
   EVENTs                                                                                                                   
   ==========================================================================================================================</Description>
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	$$$InitModifyForm
 	
@@ -311,7 +310,7 @@
 </Method>
 
 <Method name="acSearch">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Quit:('..FValidateInput())
 	
@@ -322,7 +321,7 @@
 </Method>
 
 <Method name="acRevision">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ..SearchPreset=$$$spRevision