Index: CHUI/Derde/EC/Logging/MainForm.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Derde/EC/Logging/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1074)
+++ CHUI/Derde/EC/Logging/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 2578)
@@ -3,8 +3,7 @@
 <Class name="CHUI.Derde.EC.Logging.MainForm">
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <UDLText name="T">
 <Content><![CDATA[
@@ -18,11 +17,11 @@
 ==========================================================================================================================
 PROPERTIES                                                                                                               .
 ==========================================================================================================================</Description>
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acSearch">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <UDLText name="T">
@@ -33,23 +32,23 @@
 </UDLText>
 
 <Property name="lblToDate">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblFromDate">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblUser">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlant">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblHeader">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <UDLText name="T">
@@ -60,15 +59,15 @@
 </UDLText>
 
 <Property name="txtToDate">
-<Type>%CHUI.Ctrl.TDateEdit</Type>
+<Type>TCHUI.Ctrl.TDateEdit</Type>
 </Property>
 
 <Property name="txtFromDate">
-<Type>%CHUI.Ctrl.TDateEdit</Type>
+<Type>TCHUI.Ctrl.TDateEdit</Type>
 </Property>
 
 <Property name="txtKlant">
-<Type>%CHUI.Ctrl.TKlantEdit</Type>
+<Type>TCHUI.Ctrl.TKlantEdit</Type>
 </Property>
 
 <UDLText name="T">
@@ -79,11 +78,11 @@
 </UDLText>
 
 <Property name="btnClose">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnSearch">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <UDLText name="T">
@@ -94,7 +93,7 @@
 </UDLText>
 
 <Property name="lstLog">
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <UDLText name="T">
@@ -105,7 +104,7 @@
 </UDLText>
 
 <Property name="pmUser">
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <UDLText name="T">
@@ -116,7 +115,7 @@
 </UDLText>
 
 <Property name="dslLog">
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <UDLText name="T">
@@ -173,33 +172,33 @@
 	Set ..Caption=..GetFormTitle("Display all")
 
 	//Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acSearch","Search",1,$LB(""))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acSearch","Search",1,$LB(""))
 	Set ..acSearch.OnExecute=$LB(%this,"acSearchExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB(""))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB(""))
 	Set ..acClose.OnExecute=$LB(%this,"acCloseExecute")
 
 	//Labels
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 	Set ..CaptionControl=..lblHeader
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblUser","Gebruiker:",5,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblFromDate","Van",3,37,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblToDate","tot",3,52,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblUser","Gebruiker:",5,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblFromDate","Van",3,37,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblToDate","tot",3,52,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
 
 	//Edits
-	Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Klant",3,14,,20)
-	Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtFromDate","",3,41,,10)
-	Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtToDate","",3,56,,10)
+	Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Klant",3,14,,20)
+	Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtFromDate","",3,41,,10)
+	Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtToDate","",3,56,,10)
 
 	//Buttons
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnSearch","Zoeken",3,69,,10,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnSearch","Zoeken",3,69,,10,,,,,$$$alCenter)
 	Set ..btnSearch.Action=..acSearch
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",5,69,,10,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",5,69,,10,,,,,$$$alCenter)
 	Set ..btnClose.Action=..acClose
 
 	//Lists
-	Do ##class(%CHUI.TLijst).CreateSet(%this,"lstLog","Log",7,3,17,76)
+	Do ##class(TCHUI.TLijst).CreateSet(%this,"lstLog","Log",7,3,17,76)
 	Set ..lstLog.OnRow=$LB(%this,"lstLogRow")
 	
 	Set rdRowlstLog=..lstLog.CreateRowDef(..#rdMain,$$$ftAddLijstRow,$LB($$$clWhite,$$$clDark))
@@ -217,13 +216,13 @@
 	Do ..lstLog.AddLabelDBToRowDef(rdSubRowlstLog,..#colSubInfo,,,,,,,,,1)
 
 	//Popups
-	Set ..pmUser=##class(%CHUI.TPopup).Create(%this,"pmUser","Gebruiker",5,14,,20)
+	Set ..pmUser=##class(TCHUI.TPopup).Create(%this,"pmUser","Gebruiker",5,14,,20)
 	Do ..pmUser.InitSpec(,,,10)
 	Do ccFillpmUser
 	Do ..pmUser.DefaultFrames()
 
 	//DataSetLists
-	Set ..dslLog=##class(%CHUI.TDataSetList).Create(..lstLog,"dslLog")
+	Set ..dslLog=##class(TCHUI.TDataSetList).Create(..lstLog,"dslLog")
 	Do ..dslLog.AddColDef(..#colDateTime,$$$rsList,1)
 	Do ..dslLog.AddColDef(..#colAction,$$$rsList,2)
 	Do ..dslLog.AddColDef(..#colGroup,$$$rsList,3)
@@ -286,13 +285,13 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   .
 ==========================================================================================================================</Description>
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..Close()
 ]]></Implementation>
 </Method>
 
 <Method name="acSearchExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ResultStr=..lstLog.RefreshTop()
 	
@@ -301,7 +300,7 @@
 </Method>
 
 <Method name="dslLogQueryInit">
-<FormalSpec><![CDATA[Sender:%CHUI.TControlBasis,&varErrStr:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&varErrStr:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	Set RS=##class(%ResultSet).%New("%DynamicQuery:SQL")
 	If RS=$$$NULLOREF Do  Quit
@@ -344,7 +343,7 @@
 </Method>
 
 <Method name="lstLogRow">
-<FormalSpec>Sender:%CHUI.TControlBasis,LijstRow:%CHUI.TLijstRow</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,LijstRow:TCHUI.TLijstRow</FormalSpec>
 <Implementation><![CDATA[
 	If LijstRow.DataSetID#2=0 Do
 	. Set LijstRow.FrameName=..#rdSub