Index: CHUI/Derde/KB/dlgModify.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Derde/KB/dlgModify.cls.xml	(.../dlgModify.cls.xml)	(revision 1074)
+++ CHUI/Derde/KB/dlgModify.cls.xml	(.../dlgModify.cls.xml)	(revision 2578)
@@ -3,7 +3,7 @@
 <Class name="CHUI.Derde.KB.dlgModify">
 <IncludeCode>CHUI.KB,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
+<Super>TCHUI.TForm</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="lblHeader">
@@ -12,103 +12,103 @@
 PROPERTIES                                                                                                               
 ==========================================================================================================================
 Controls</Description>
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlant">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlassificatie">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblActionDomain">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblDate">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblDateValue">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblTimeValue">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblValidFrom">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblValidTo">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblProducten">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblProductenValue">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblAutoShow">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="txtKlant">
-<Type>%CHUI.Ctrl.TKlantEdit</Type>
+<Type>TCHUI.Ctrl.TKlantEdit</Type>
 </Property>
 
 <Property name="txtValidFrom">
-<Type>%CHUI.Ctrl.TDateEdit</Type>
+<Type>TCHUI.Ctrl.TDateEdit</Type>
 </Property>
 
 <Property name="txtValidTo">
-<Type>%CHUI.Ctrl.TDateEdit</Type>
+<Type>TCHUI.Ctrl.TDateEdit</Type>
 </Property>
 
 <Property name="mmoMsg">
-<Type>%CHUI.TMemo</Type>
+<Type>TCHUI.TMemo</Type>
 </Property>
 
 <Property name="pmKlassificatie">
-<Type>%CHUI.Ctrl.TKlassificatiePopup</Type>
+<Type>TCHUI.Ctrl.TKlassificatiePopup</Type>
 </Property>
 
 <Property name="pmActionDomain">
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <Property name="pmAutoShow">
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <Property name="acOk">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acCancel">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acAddProducten">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="btnOk">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnCancel">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnAddProducten">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="KennisObj">
@@ -132,59 +132,59 @@
 	Set ..OnCloseQuery=$LB(%this,"dlgModifyQueryClose")
 
 	;Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acOk", "Save", 1, $LB("S"), $LB(%this,"acOkClick"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acCancel", "Cancel", 1, , $LB(%this,"acCancelClick"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acAddProducten", "...", 1, , $LB(%this,"acAddProductenClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acOk", "Save", 1, $LB("S"), $LB(%this,"acOkClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acCancel", "Cancel", 1, , $LB(%this,"acCancelClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acAddProducten", "...", 1, , $LB(%this,"acAddProductenClick"))
 
 	;Label header
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clRed,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clRed,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 	Set ..CaptionControl=..lblHeader
 	
 	;Other labels
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant",3,3,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblActionDomain","Actiedomein",5,3,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlassificatie","Classific.",8,3,1)
-	//Do ##class(%CHUI.TLabel).CreateSet(%this,"lblProducten","Producten",8,3)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant",3,3,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblActionDomain","Actiedomein",5,3,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlassificatie","Classific.",8,3,1)
+	//Do ##class(TCHUI.TLabel).CreateSet(%this,"lblProducten","Producten",8,3)
 	Set BGColor=$$GetDefaultBGColor^$$$SystemRtn($$$ftMain,$$$fsEdit)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblProductenValue","(geen)",11,15,,64,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblProductenValue","(geen)",11,15,,64,,,,$LB(,,$$$fsNoUnderline))
 	Set ..lblProductenValue.Sizing=$$$lsFixed
 	Set ..lblProductenValue.Ellipsis=1
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidFrom","Geldig van",5,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidTo","t.e.m.",7,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDate","Datum",3,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDateValue","",3,50,1,16,,,,$LB(,,$$$fsNoUnderline))
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAutoShow","Toon",9,43,1,16)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidFrom","Geldig van",5,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidTo","t.e.m.",7,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDate","Datum",3,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDateValue","",3,50,1,16,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAutoShow","Toon",9,43,1,16)
 
 	;Popups
-	Set ..pmActionDomain=##class(%CHUI.TPopup).Create(%this,"pmActionDomain","",5,15,2,25)
+	Set ..pmActionDomain=##class(TCHUI.TPopup).Create(%this,"pmActionDomain","",5,15,2,25)
 	Set ..pmActionDomain.opMultiSelect=1
 	Do ..pmActionDomain.BecomeTreeView()
 	Do ..pmActionDomain.AddDelimitedTreeResource("DERDE.KENNIS","ACTIONDOMAIN")
 
-	Set ..pmKlassificatie=##class(%CHUI.Ctrl.TKlassificatiePopup).Create(%this,"pmKlassificatie","",8,15,2,25)
+	Set ..pmKlassificatie=##class(TCHUI.Ctrl.TKlassificatiePopup).Create(%this,"pmKlassificatie","",8,15,2,25)
 
-	Set ..pmAutoShow=##class(%CHUI.TPopup).Create(%this,"pmAutoShow","",9,56,1,11)
+	Set ..pmAutoShow=##class(TCHUI.TPopup).Create(%this,"pmAutoShow","",9,56,1,11)
 	Do ..pmAutoShow.InitSpec(,,,6,%Screen.Width-..pmAutoShow.Left)
 	Do ..pmAutoShow.AddResource("DERDE.KENNIS","AUTOSHOW")
 	Do ..pmAutoShow.DefaultFrames()
 
 	;Edits
-	Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","",3,15,1,25,91,50)
-	Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtValidFrom","",5,56,1,10,91,50)
-	Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtValidTo","",7,56,1,10,91,50)
+	Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","",3,15,1,25,91,50)
+	Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtValidFrom","",5,56,1,10,91,50)
+	Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtValidTo","",7,56,1,10,91,50)
 
 	;Memos
-	Do ##class(%CHUI.TMemo).CreateSet(%this,"mmoMsg","",13,3,%Screen.Height-7,%Screen.Width-4)	
+	Do ##class(TCHUI.TMemo).CreateSet(%this,"mmoMsg","",13,3,%Screen.Height-7,%Screen.Width-4)	
 	Do ..mmoMsg.InitSpec()
 
 	;Buttons
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",3,%Screen.Width-11,1,11,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",3,%Screen.Width-11,1,11,,,,,$$$alCenter)
 	Set ..btnOk.Action=..acOk
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",5,%Screen.Width-11,1,11,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",5,%Screen.Width-11,1,11,,,,,$$$alCenter)
 	Set ..btnCancel.Action=..acCancel
-	Set FormBGColor=$$GetDefaultBGColor^%CHUI.System($$$ftMain,$$$fsBackground)
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnAddProducten","Producten",11,3,1,9,,,,$LB($$$clBlack,FormBGColor,$$$fsUnderline),$$$alCenter)
+	Set FormBGColor=$$GetDefaultBGColor^TCHUI.System($$$ftMain,$$$fsBackground)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnAddProducten","Producten",11,3,1,9,,,,$LB($$$clBlack,FormBGColor,$$$fsUnderline),$$$alCenter)
 	Set ..btnAddProducten.Action=..acAddProducten
 	
 	;Tab & paint order
@@ -465,13 +465,13 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   
 ==========================================================================================================================</Description>
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Set ..ModalResult=$$$mrCancel
 ]]></Implementation>
 </Method>
 
 <Method name="acOkClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	;IsChanged? 
 	If ..IsChanged Do
@@ -482,19 +482,19 @@
 </Method>
 
 <Method name="acAddProductenClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set lbProducten=..FGetProductenLB()
 	Set lbProductSelecties=..FGetProductSelectiesLB()
 	
-	If ##class(%CHUI.Dlg.TListFiller).Select(.lbProducten,$$$lftProduct,1,.lbProductSelecties)=$$$mrOk Do
+	If ##class(TCHUI.Dlg.TListFiller).Select(.lbProducten,$$$lftProduct,1,.lbProductSelecties)=$$$mrOk Do
 	. Set ..IsChanged=1   ;Aanduiden dat wijziging gebeurd is
 	. Do ..FSetProductenLB(lbProducten,lbProductSelecties)
 ]]></Implementation>
 </Method>
 
 <Method name="dlgModifyQueryClose">
-<FormalSpec>Sender:%CHUI.TControlBasis,CanClose:%Boolean</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,CanClose:%Boolean</FormalSpec>
 <Implementation><![CDATA[
 	If ..IsChanged Do
 	. If ..KennisObj.%Id()="" Do