Index: CHUI/Derde/EC/Toegang/dlgOpen.cls.xml
===================================================================
diff -u -r1327 -r2578
--- CHUI/Derde/EC/Toegang/dlgOpen.cls.xml	(.../dlgOpen.cls.xml)	(revision 1327)
+++ CHUI/Derde/EC/Toegang/dlgOpen.cls.xml	(.../dlgOpen.cls.xml)	(revision 2578)
@@ -3,8 +3,7 @@
 <Class name="CHUI.Derde.EC.Toegang.dlgOpen">
 <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,7 +17,7 @@
 ==========================================================================================================================
 PROPERTIES                                                                                                               .
 ==========================================================================================================================</Description>
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <UDLText name="T">
@@ -29,35 +28,35 @@
 </UDLText>
 
 <Property name="acOpen">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acClose">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acDelete">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acShowPassword">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acMailPassword">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acNew">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acLogging">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acStatistics">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <UDLText name="T">
@@ -68,35 +67,35 @@
 </UDLText>
 
 <Property name="btnOpen">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnClose">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnDelete">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnShowPassword">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnMailPassword">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnNew">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnLogging">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnStatistics">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <UDLText name="T">
@@ -107,7 +106,7 @@
 </UDLText>
 
 <Property name="chkShowActiveOnly">
-<Type>%CHUI.TCheckBox</Type>
+<Type>TCHUI.TCheckBox</Type>
 </Property>
 
 <UDLText name="T">
@@ -118,7 +117,7 @@
 </UDLText>
 
 <Property name="lstToegang">
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <UDLText name="T">
@@ -129,7 +128,7 @@
 </UDLText>
 
 <Property name="dslToegang">
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <UDLText name="T">
@@ -162,23 +161,23 @@
 </UDLText>
 
 <Property name="miSortViaKlant">
-<Type>%CHUI.TMenuItem</Type>
+<Type>TCHUI.TMenuItem</Type>
 </Property>
 
 <Property name="miSortViaLastLogin">
-<Type>%CHUI.TMenuItem</Type>
+<Type>TCHUI.TMenuItem</Type>
 </Property>
 
 <Property name="miIPAgentWrongLogin">
-<Type>%CHUI.TMenuItem</Type>
+<Type>TCHUI.TMenuItem</Type>
 </Property>
 
 <Property name="miIPAgentMailNewPW">
-<Type>%CHUI.TMenuItem</Type>
+<Type>TCHUI.TMenuItem</Type>
 </Property>
 
 <Property name="miCleanOldLog">
-<Type>%CHUI.TMenuItem</Type>
+<Type>TCHUI.TMenuItem</Type>
 </Property>
 
 <UDLText name="T">
@@ -263,49 +262,49 @@
 
 	//Actions
 
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acOpen","",1,$LB("O"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acOpen","",1,$LB("O"))
 	Set ..acOpen.OnExecute=$LB(%this,"acOpenExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","",1,$LB("-"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","",1,$LB("-"))
 	Set ..acClose.OnExecute=$LB(%this,"acCloseExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acDelete","",1,$LB("V",$$$kcDelete))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acDelete","",1,$LB("V",$$$kcDelete))
 	Set ..acDelete.OnExecute=$LB(%this,"acDeleteExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acShowPassword","",1,$LB("T"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acShowPassword","",1,$LB("T"))
 	Set ..acShowPassword.OnExecute=$LB(%this,"acShowPasswordExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acMailPassword","",1,$LB("M"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acMailPassword","",1,$LB("M"))
 	Set ..acMailPassword.OnExecute=$LB(%this,"acMailPasswordExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acNew","",1,$LB("N",$$$kcF4))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acNew","",1,$LB("N",$$$kcF4))
 	Set ..acNew.OnExecute=$LB(%this,"acNewExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acLogging","",1,$LB("L"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acLogging","",1,$LB("L"))
 	Set ..acLogging.OnExecute=$LB(%this,"acLoggingExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acStatistics","",1,$LB("S"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acStatistics","",1,$LB("S"))
 	Set ..acStatistics.OnExecute=$LB(%this,"acStatisticsExecute")
 
 	//Labels
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 	Set ..CaptionControl=..lblHeader
 
 	//CheckBoxs
-	Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkShowActiveOnly","Toon enkel actieve gebruikers",21,3,,33)
+	Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkShowActiveOnly","Toon enkel actieve gebruikers",21,3,,33)
 	Set ..chkShowActiveOnly.Checked=1
 	Set ..chkShowActiveOnly.OnChanged=$LB(%this,"chkShowActiveOnlyChanged")
 	
 	//Buttons
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnNew","Nieuw",23,3,,11,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnNew","Nieuw",23,3,,11,,,,,$$$alCenter)
 	Set ..btnNew.Action=..acNew
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnOpen","Openen",23,15,,10,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnOpen","Openen",23,15,,10,,,,,$$$alCenter)
 	Set ..btnOpen.Action=..acOpen
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnDelete","Verwijderen",23,26,,13,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnDelete","Verwijderen",23,26,,13,,,,,$$$alCenter)
 	Set ..btnDelete.Action=..acDelete
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnShowPassword","Toon pwd",23,42,,10,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnShowPassword","Toon pwd",23,42,,10,,,,,$$$alCenter)
 	Set ..btnShowPassword.Action=..acShowPassword
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnMailPassword","Mail pwd",21,42,,10,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnMailPassword","Mail pwd",21,42,,10,,,,,$$$alCenter)
 	Set ..btnMailPassword.Action=..acMailPassword
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnLogging","Logging",21,68,,11,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnLogging","Logging",21,68,,11,,,,,$$$alCenter)
 	Set ..btnLogging.Action=..acLogging
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Afsluiten",23,68,,11,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Afsluiten",23,68,,11,,,,,$$$alCenter)
 	Set ..btnClose.Action=..acClose
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnStatistics","Statistiek",23,54,,12,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnStatistics","Statistiek",23,54,,12,,,,,$$$alCenter)
 	Set ..btnStatistics.Action=..acStatistics
 
 	//HoofdMenuItem
@@ -326,7 +325,7 @@
 	Set ..miSortViaLastLogin=hmiExtra.AddItem(%this,"miSortViaLastLogin","Last login",1,,$LB(%this,"miSortViaXClick"),,"OrderBy")
 
 	//Lists
-	Do ##class(%CHUI.TLijst).CreateSet(%this,"lstToegang","Toegang",3,1,17,79)
+	Do ##class(TCHUI.TLijst).CreateSet(%this,"lstToegang","Toegang",3,1,17,79)
 	Set ..lstToegang.OnKeyPress=$LB(%this,"lstToegangKeyPress")
 	Do ..lstToegang.AddSearchCol(..#colKlantNr,"Klantnummer")
 	Do ..lstToegang.AddSearchCol(..#colKlantName,"Klantnaam")
@@ -358,7 +357,7 @@
 	Do ..lstToegang.AddLabelDBToRowDef(rdRowlstToegang,..#colLastLoginTijdStip)
 
 	//DataSetLists
-	Set ..dslToegang=##class(%CHUI.TDataSetList).Create(..lstToegang,"dslToegang")
+	Set ..dslToegang=##class(TCHUI.TDataSetList).Create(..lstToegang,"dslToegang")
 	Do ..dslToegang.AddColDef(..#colID)
 	Do ..dslToegang.AddColDef(..#colKlantName)
 	Do ..dslToegang.AddColDef(..#colMeerdereKlantenStr)
@@ -426,7 +425,7 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   .
 ==========================================================================================================================</Description>
-<FormalSpec><![CDATA[Sender:%CHUI.TControlBasis,&Result:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&Result:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	Set Query="Derde.EC.Toegang:QGetToegang"
 	Set RS=##class(%ResultSet).%New(Query)
@@ -448,7 +447,7 @@
 </Method>
 
 <Method name="lstToegangKeyPress">
-<FormalSpec>Sender:%CHUI.TControlBasis,KeyCode:%String</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,KeyCode:%String</FormalSpec>
 <Implementation><![CDATA[
 	If KeyCode=$$$kcEnter Do
 	. Do ..acOpenExecute(Sender)
@@ -457,7 +456,7 @@
 </Method>
 
 <Method name="acOpenExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ToegangID=..lstToegang.GetSelectedData(..#colID)
 	Quit:(ToegangID="")
@@ -472,13 +471,13 @@
 </Method>
 
 <Method name="acCloseExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..Close()
 ]]></Implementation>
 </Method>
 
 <Method name="acDeleteExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ToegangID=..lstToegang.GetSelectedData(..#colID)
 	Quit:(ToegangID="")
@@ -502,7 +501,7 @@
 </Method>
 
 <Method name="acShowPasswordExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ToegangID=..lstToegang.GetSelectedData(..#colID)
 	Quit:(ToegangID="")
@@ -521,7 +520,7 @@
 </Method>
 
 <Method name="acMailPasswordExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	;Checken of een item uit de lijst geselecteerd is
 	Set ToegangID=..lstToegang.GetSelectedData(..#colID)
@@ -559,7 +558,7 @@
 </Method>
 
 <Method name="acNewExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set:(..frmModify=$$$NULLOREF) ..frmModify=%Application.CreateForm("CHUI.Derde.EC.Toegang.MainForm","frmModify","frmModify")
 	
@@ -573,7 +572,7 @@
 </Method>
 
 <Method name="acStatisticsExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set:(..frmStatistics=$$$NULLOREF) ..frmStatistics=%Application.CreateForm("CHUI.Derde.EC.Logging.dlgStatistics","frmStatistics","frmStatistics",,,,,,$$$ftDialog)
 	
@@ -582,7 +581,7 @@
 </Method>
 
 <Method name="acLoggingExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ToegangID=..lstToegang.GetSelectedData(..#colID)
 	Quit:(ToegangID="")
@@ -594,13 +593,13 @@
 </Method>
 
 <Method name="miSortViaXClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..lstToegang.RefreshTop()
 ]]></Implementation>
 </Method>
 
 <Method name="miCleanOldLogClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Do $$$CreateFM("Toegang","Bezig met verwijderen oude logging...")
 	Do ##class(BL.EC.Session).CleanOld()
@@ -609,11 +608,11 @@
 </Method>
 
 <Method name="miIPAgentClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set Caption="Reset meldingen"
 	
-	Set dlgFilter=##class(%CHUI.Dlg.TList).CreateAndPrepare(Caption,"Selecteer de gewenste filter:")
+	Set dlgFilter=##class(TCHUI.Dlg.TList).CreateAndPrepare(Caption,"Selecteer de gewenste filter:")
 
 	;Filter via selectie in de lijst
 	Set ToegangID=..lstToegang.GetSelectedData(..#colID)
@@ -650,13 +649,13 @@
 	
 	;Bouw een nieuwe lijst op afhankelijk van de filterselectie
 	If dlgFilter.SelectedKey=..#ipasViaIP Do  ;Via IP
-	.	Set dlgResult=##class(%CHUI.Dlg.TList).CreateAndPrepare(Caption,dlgFilter.SelectedItem,,,18,,1)
+	.	Set dlgResult=##class(TCHUI.Dlg.TList).CreateAndPrepare(Caption,dlgFilter.SelectedItem,,,18,,1)
 	. Set IP=""
 	. For  Set IP=$O(^Derde.Sys.IPAgent.Log(IP)) Quit:(IP="")  Do
 	..  Quit:('$D(^Derde.Sys.IPAgent.Log(IP,IPAgentName))) 
 	..  Do dlgResult.AddItem(IP) 
 	Else  If dlgFilter.SelectedKey=..#ipasViaMessage Do   ;Via 'message' in log
-	.	Set dlgResult=##class(%CHUI.Dlg.TList).CreateAndPrepare(Caption,dlgFilter.SelectedItem,,,18,,1)
+	.	Set dlgResult=##class(TCHUI.Dlg.TList).CreateAndPrepare(Caption,dlgFilter.SelectedItem,,,18,,1)
 	. Set (IP,Count)=""
 	. Kill aMsg  ;deze array wordt na invullen verderop nog gebruikt!
 	. For  Set IP=$O(^Derde.Sys.IPAgent.Log(IP)) Quit:(IP="")  Do
@@ -711,7 +710,7 @@
 </Method>
 
 <Method name="pmLogToegangShow">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ToegangID=..lstToegang.GetSelectedData(..#colID)
 	Quit:(ToegangID="")
@@ -741,13 +740,13 @@
 </Method>
 
 <Method name="chkShowActiveOnlyChanged">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..lstToegang.RefreshTop()
 ]]></Implementation>
 </Method>
 
 <Method name="pmiLogToegangClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set:(..frmModify=$$$NULLOREF) ..frmModify=%Application.CreateForm("CHUI.Derde.EC.Toegang.MainForm","frmModify","frmModify")