Index: CHUI/BKH/Renewals/MainForm.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/BKH/Renewals/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1074)
+++ CHUI/BKH/Renewals/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 2578)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="CHUI.BKH.Renewals.MainForm">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
+<Super>TCHUI.TForm</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="acClose">
@@ -11,59 +11,59 @@
 PROPERTIES                                                                                                               .
 ==========================================================================================================================
 Actions</Description>
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acNieuw">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="lblHeader">
 <Description>
 Labels</Description>
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblGroep">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="chkActive">
 <Description>
 CheckBoxs</Description>
-<Type>%CHUI.TCheckBox</Type>
+<Type>TCHUI.TCheckBox</Type>
 </Property>
 
 <Property name="chkUser">
-<Type>%CHUI.TCheckBox</Type>
+<Type>TCHUI.TCheckBox</Type>
 </Property>
 
 <Property name="btnClose">
 <Description>
 Buttons</Description>
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnNieuw">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="lstRenewal">
 <Description>
 Lists</Description>
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <Property name="pmGroep">
 <Description>
 Popups</Description>
-<Type>%CHUI.TPopup</Type>
+<Type>TCHUI.TPopup</Type>
 </Property>
 
 <Property name="dslRenewal">
 <Description>
 DataSetLists</Description>
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <Parameter name="colID">
@@ -116,7 +116,7 @@
 </Property>
 
 <Property name="lstSubGroepHeader">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Method name="CreateControls">
@@ -129,35 +129,35 @@
 	Set ..Caption=..GetFormCaption("Overzicht")
 	
 	;Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","Close",1)
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","Close",1)
 	Set ..acClose.OnExecute=$LB(%this,"acCloseExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acNieuw","Nieuw",1,$LB($$$kcF1))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acNieuw","Nieuw",1,$LB($$$kcF1))
 	Set ..acNieuw.OnExecute=$LB(%this,"acNieuwExecute")
 
 	;Labels
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Renewals",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Renewals",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 	Set ..CaptionControl=..lblHeader	
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGroep","Groep",3,3,,,$$$alLeft)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGroep","Groep",3,3,,,$$$alLeft)
 	//Set ..lblGroep.Ellipsis=1
 	
 	;CheckBoxs
-	Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkActive","Enkel Actieve",3,20,,13)
+	Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkActive","Enkel Actieve",3,20,,13)
 	Set ..chkActive.Checked = 1
 	Set ..chkActive.OnChanged=$LB(%this,"chkActiveChanged")
-	Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkUser","Enkel Waarschuwingsgebruiker",4,20,,13)
+	Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkUser","Enkel Waarschuwingsgebruiker",4,20,,13)
 	Set ..chkUser.Checked = 1
 	//Set ..chkUser.OnLostFocus=$LB(%this,"chkUserLostFocus")
 	Set ..chkUser.OnChanged=$LB(%this,"chkUserChanged")
 
 	;Buttons
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,70,,9,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,70,,9,,,,,$$$alCenter)
 	Set ..btnClose.Action=..acClose
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnNieuw","Nieuw",3,61,,7,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnNieuw","Nieuw",3,61,,7,,,,,$$$alCenter)
 	Set ..btnNieuw.Action=..acNieuw
 
 	;Lists
-	Do ##class(%CHUI.TLijst).CreateSet(%this,"lstRenewal","lstRenewal",6,3,19,76)
+	Do ##class(TCHUI.TLijst).CreateSet(%this,"lstRenewal","lstRenewal",6,3,19,76)
 	Do ..lstRenewal.AddSortCol(..#colSubGroep,"SubGroep")
 	Do ..lstRenewal.AddSortCol(..#colOmschrijving,"Omschrijving")
 	Do ..lstRenewal.AddSortCol(..#colGeldigTotDatumForSort,"Vervaldatum")
@@ -191,7 +191,7 @@
 	//Do ..lstRenewal.ContextMenu.AddItem(%this,"pmiRaadpleegLev","Raadplegen leverancier...",1,,$LB(%this,"pmiRaadpleegLevClick"))
 
 	;Popups
-	Set ..pmGroep=##class(%CHUI.TPopup).Create(%this,"pmGroep","Groep",3,9,,10)	
+	Set ..pmGroep=##class(TCHUI.TPopup).Create(%this,"pmGroep","Groep",3,9,,10)	
 	Set ..pmGroep.OnLostFocus=$LB(%this,"pmGroepLostFocus")
 	//Set ..pmGroep.opRequired=1
 	;Set ..pmGroep.TextWhenEmpty="(alle groepen)"
@@ -200,7 +200,7 @@
 	Do ..pmGroep.DefaultFrames()
 
 	;DataSetLists
-	Set ..dslRenewal=##class(%CHUI.TDataSetList).Create(..lstRenewal,"dslRenewal")
+	Set ..dslRenewal=##class(TCHUI.TDataSetList).Create(..lstRenewal,"dslRenewal")
 	Do ..dslRenewal.AddColDef(..#colID)
 	Do ..dslRenewal.AddColDef(..#colSubGroep)
 	Do ..dslRenewal.AddColDef(..#colOmschrijving)
@@ -244,7 +244,7 @@
 </Method>
 
 <Method name="lstRenewalRefresh">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set ..lstSubGroepHeader.Caption = $S(..pmGroep.Value="":"Groep/SubGroep",1:"SubGroep")
 	Set ErrStr=..lstRenewal.Refresh()
@@ -267,7 +267,7 @@
  ==========================================================================================================================
  EVENTs                                                                                                                   .
  ==========================================================================================================================</Description>
-<FormalSpec><![CDATA[Sender:%CHUI.TControlBasis,&Result:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&Result:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	Set Query="BL.BKH.Renewals.Build:QryLijst"
 	Set RS=##class(%ResultSet).%New(Query)
@@ -292,7 +292,7 @@
 </Method>
 
 <Method name="lstColPaint">
-<FormalSpec>Sender:%CHUI.TControlBasis,Continue:%Boolean</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,Continue:%Boolean</FormalSpec>
 <Implementation><![CDATA[
  
 	//Do WLIP^vhDBG(139, "Id:"_..lstRenewal.GetData(..#colID)_" NonActief ----:"_..lstRenewal.GetData(..#colNonActief))
@@ -307,7 +307,7 @@
 <UDLText name="T">
 <Content><![CDATA[
 /*
-Method pmiRaadpleegLevClick(Sender As %CHUI.TControlBasis)
+Method pmiRaadpleegLevClick(Sender As TCHUI.TControlBasis)
 {
 	Set LevID=..lstRenewal.GetSelectedData(..#colLeverancierID)
 
@@ -318,13 +318,13 @@
 </UDLText>
 
 <Method name="acCloseExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..Close()
 ]]></Implementation>
 </Method>
 
 <Method name="acNieuwExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	//$$$MB("btnNieuwClick")
 	Do ..MakeEditAvailable()
@@ -342,25 +342,25 @@
 </Method>
 
 <Method name="pmGroepLostFocus">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..lstRenewalRefresh(Sender)
 ]]></Implementation>
 </Method>
 
 <Method name="chkActiveChanged">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..lstRenewalRefresh(Sender)
 ]]></Implementation>
 </Method>
 
 <Method name="chkUserChanged">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..lstRenewalRefresh(Sender)
 ]]></Implementation>
 </Method>
 
 <Method name="lstRenewalKeyPress">
-<FormalSpec>Sender:%CHUI.TControlBasis,KeyCode:%String</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,KeyCode:%String</FormalSpec>
 <Implementation><![CDATA[
 	Quit:(KeyCode'=$$$kcEnter)