Index: CHUI/Derde/EC/Toegang/dlgKlantLijst.cls.xml
===================================================================
diff -u -r2581 -r2582
--- CHUI/Derde/EC/Toegang/dlgKlantLijst.cls.xml	(.../dlgKlantLijst.cls.xml)	(revision 2581)
+++ CHUI/Derde/EC/Toegang/dlgKlantLijst.cls.xml	(.../dlgKlantLijst.cls.xml)	(revision 2582)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="CHUI.Derde.EC.Toegang.dlgKlantLijst">
-<IncludeCode>%VHMacro</IncludeCode>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
+<Super>TCHUI.TForm</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <UDLText name="T">
@@ -18,15 +18,15 @@
 ==========================================================================================================================
 PROPERTIES                                                                                                               .
 ==========================================================================================================================</Description>
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acDelete">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acAdd">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <UDLText name="T">
@@ -37,7 +37,7 @@
 </UDLText>
 
 <Property name="kdrMain">
-<Type>%CHUI.TKader</Type>
+<Type>TCHUI.TKader</Type>
 </Property>
 
 <UDLText name="T">
@@ -48,7 +48,7 @@
 </UDLText>
 
 <Property name="lblKlant">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <UDLText name="T">
@@ -59,7 +59,7 @@
 </UDLText>
 
 <Property name="txtKlant">
-<Type>%CHUI.Ctrl.TKlantEdit</Type>
+<Type>TCHUI.Ctrl.TKlantEdit</Type>
 </Property>
 
 <UDLText name="T">
@@ -70,23 +70,23 @@
 </UDLText>
 
 <Property name="btnCancel">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnOk">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnDeleteAll">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnDelete">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnAdd">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <UDLText name="T">
@@ -97,7 +97,7 @@
 </UDLText>
 
 <Property name="lstKlanten">
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <UDLText name="T">
@@ -108,7 +108,7 @@
 </UDLText>
 
 <Property name="dslKlanten">
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <UDLText name="T">
@@ -170,44 +170,44 @@
 	Do ..Center()
 
 	//Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acAdd","Toevoegen",1,$LB("A"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acAdd","Toevoegen",1,$LB("A"))
 	Set ..acAdd.OnExecute=$LB(%this,"acAddExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acDelete","Verwijderen",1,$LB("D"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acDelete","Verwijderen",1,$LB("D"))
 	Set ..acDelete.OnExecute=$LB(%this,"acDeleteExecute")
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acDeleteAll","Alles wissen",1,$LB("C"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acDeleteAll","Alles wissen",1,$LB("C"))
 	Set ..acDeleteAll.OnExecute=$LB(%this,"acDeleteAllExecute")
 
 	//Kaders
-	Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,)
+	Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,)
 	Set ..CaptionControl=..kdrMain
 
 	//Labels
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
 
 	//Edits
-	Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Klant",3,10,,22)
+	Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Klant",3,10,,22)
 
 	//Buttons
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnAdd","Toevoegen",3,33,,11,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnAdd","Toevoegen",3,33,,11,,,,,$$$alCenter)
 	Set ..btnAdd.Action=..acAdd
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnDelete","Verwijderen",14,10,,14,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnDelete","Verwijderen",14,10,,14,,,,,$$$alCenter)
 	Set ..btnDelete.Action=..acDelete
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnDeleteAll","Alles wissen",16,10,,14,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnDeleteAll","Alles wissen",16,10,,14,,,,,$$$alCenter)
 	Set ..btnDeleteAll.Action=..acDeleteAll
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",14,30,,14,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",14,30,,14,,,,,$$$alCenter)
 	Set ..btnOk.ModalResult=$$$mrOk
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",16,30,,14,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",16,30,,14,,,,,$$$alCenter)
 	Set ..btnCancel.ModalResult=$$$mrCancel
 
 	//Lists
-	Do ##class(%CHUI.TLijst).CreateSet(%this,"lstKlanten","Klanten",5,10,8,34)
+	Do ##class(TCHUI.TLijst).CreateSet(%this,"lstKlanten","Klanten",5,10,8,34)
 	
 	Set rdRowlstKlanten=..lstKlanten.CreateRowDef("rdRowlstKlanten",$$$ftAddLijstRow)
 	Do ..lstKlanten.AddLabelToRowDef(rdRowlstKlanten,1," ")
 	Do ..lstKlanten.AddLabelDBToRowDef(rdRowlstKlanten,..#colKlantNaam)
 
 	//DataSetLists
-	Set ..dslKlanten=##class(%CHUI.TDataSetList).Create(..lstKlanten,"dslKlanten")
+	Set ..dslKlanten=##class(TCHUI.TDataSetList).Create(..lstKlanten,"dslKlanten")
 	Do ..dslKlanten.AddColDef(..#colKlantNaam,$$$rsList,1)
 	Do ..dslKlanten.AddColDef(..#colKlantID,$$$rsList,2)
 	Set ..dslKlanten.OnQueryInit=$LB(%this,"dslKlantenQueryInit")
@@ -223,7 +223,7 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   .
 ==========================================================================================================================</Description>
-<FormalSpec>Sender:%CHUI.TControlBasis,ResultStr:%String</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,ResultStr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do Sender.QueryClear()
 	
@@ -234,7 +234,7 @@
 </Method>
 
 <Method name="acDeleteAllExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Quit:($$$MsgBox(..Caption,"Deze opdracht verwijdert alle klanten uit de lijst, doorgaan?",$$$mbOkCancel)=$$$mrCancel)
 
@@ -245,7 +245,7 @@
 </Method>
 
 <Method name="acDeleteExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set KlantID=..lstKlanten.GetSelectedData(..#colKlantID)
 	Quit:(KlantID="")
@@ -262,7 +262,7 @@
 </Method>
 
 <Method name="acAddExecute">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	Set KlantID=..txtKlant.Value