Index: CHUI/Derde/KB/dlgDetail.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Derde/KB/dlgDetail.cls.xml	(.../dlgDetail.cls.xml)	(revision 1074)
+++ CHUI/Derde/KB/dlgDetail.cls.xml	(.../dlgDetail.cls.xml)	(revision 2578)
@@ -3,147 +3,146 @@
 <Class name="CHUI.Derde.KB.dlgDetail">
 <IncludeCode>BL.Derde.Kennis,CHUI.KB</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <Property name="lblHeader">
 <Description>
 ==========================================================================================================================
 PROPERTIES                                                                                                               
 ==========================================================================================================================</Description>
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlantLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlant">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlassificatieLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKlassificatie">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblActionDomainLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblActionDomain">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblProductenLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblProducten">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblDateLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblDate">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblRevisionDateLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblRevisionDate">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblValidFromLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblValidFrom">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblValidToLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblValidTo">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblCreatorLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblCreator">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblAutoShowLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblAutoShow">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="mmoMsg">
-<Type>%CHUI.TMemo</Type>
+<Type>TCHUI.TMemo</Type>
 </Property>
 
 <Property name="acModify">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acCancel">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acRevised">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acPrevious">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acNext">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acRaadpleegKlant">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acShowActions">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="btnModify">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnCancel">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnRevised">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnPrevious">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnNext">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="KennisObj">
@@ -171,78 +170,78 @@
 	Set ..Caption=..GetFormTitle("Detail")
 
 	;Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acModify", "Wijzig", 1, $LB("M"), $LB(%this,"acModifyClick"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acCancel", "Sluiten", 1, , $LB(%this,"acCancelClick"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acRevised", "Geverifieerd", 1, , $LB(%this,"acRevisedClick"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acPrevious", "Vorige", 1, $LB("("), $LB(%this,"acPreviousClick"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acNext", "Volgende", 1, $LB(")"), $LB(%this,"acNextClick"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acRaadpleegKlant", "Raadpleeg klant", 1, $LB("K"), $LB(%this,"acRaadpleegKlantClick"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acShowActions", "Toon acties", 1, $LB("A"), $LB(%this,"acShowActionsClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acModify", "Wijzig", 1, $LB("M"), $LB(%this,"acModifyClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acCancel", "Sluiten", 1, , $LB(%this,"acCancelClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acRevised", "Geverifieerd", 1, , $LB(%this,"acRevisedClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acPrevious", "Vorige", 1, $LB("("), $LB(%this,"acPreviousClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acNext", "Volgende", 1, $LB(")"), $LB(%this,"acNextClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acRaadpleegKlant", "Raadpleeg klant", 1, $LB("K"), $LB(%this,"acRaadpleegKlantClick"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acShowActions", "Toon acties", 1, $LB("A"), $LB(%this,"acShowActionsClick"))
 
 	;Label header
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 	Set ..CaptionControl=..lblHeader
 	
 	;Other labels
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlantLabel","Klant",3,3,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant",3,15,1,25,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlantLabel","Klant",3,3,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant",3,15,1,25,,,,$LB(,,$$$fsNoUnderline))
 	Set ..lblKlant.Sizing=$$$lsFixed
 	Set ..lblKlant.Ellipsis=1
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblActionDomainLabel","Actiedomein",5,3,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblActionDomain","(geen)",5,15,3,25,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblActionDomainLabel","Actiedomein",5,3,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblActionDomain","(geen)",5,15,3,25,,,,$LB(,,$$$fsNoUnderline))
 	Set ..lblActionDomain.Sizing=$$$lsFixed
 	Set ..lblActionDomain.Ellipsis=1
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlassificatieLabel","Classific.",9,3,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlassificatie","(geen)",9,15,3,25,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlassificatieLabel","Classific.",9,3,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlassificatie","(geen)",9,15,3,25,,,,$LB(,,$$$fsNoUnderline))
 	Set ..lblKlassificatie.Sizing=$$$lsFixed
 	Set ..lblKlassificatie.Ellipsis=1
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblProductenLabel","Producten",13,3,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblProducten","(geen)",13,15,3,64,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblProductenLabel","Producten",13,3,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblProducten","(geen)",13,15,3,64,,,,$LB(,,$$$fsNoUnderline))
 	Set ..lblProducten.Sizing=$$$lsFixed
 	Set ..lblProducten.Ellipsis=1
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDateLabel","Datum",3,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDate","Date",3,55,1,,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDateLabel","Datum",3,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDate","Date",3,55,1,,,,,$LB(,,$$$fsNoUnderline))
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRevisionDateLabel","Herziening",4,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRevisionDate","",4,55,1,,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRevisionDateLabel","Herziening",4,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRevisionDate","",4,55,1,,,,,$LB(,,$$$fsNoUnderline))
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidFromLabel","Geldig van",6,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidFrom","ValidFrom",6,55,1,10,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidFromLabel","Geldig van",6,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidFrom","ValidFrom",6,55,1,10,,,,$LB(,,$$$fsNoUnderline))
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidToLabel","t.e.m.",7,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidTo","To",7,55,1,10,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidToLabel","t.e.m.",7,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidTo","To",7,55,1,10,,,,$LB(,,$$$fsNoUnderline))
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCreatorLabel","Aanmaker",9,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCreator","Aanmaker",9,55,1,24,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCreatorLabel","Aanmaker",9,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCreator","Aanmaker",9,55,1,24,,,,$LB(,,$$$fsNoUnderline))
 	Set ..lblCreator.Sizing=$$$lsFixed
 	Set ..lblCreator.Ellipsis=1
 
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAutoShowLabel","Toon",11,43,1)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAutoShow","Autoshow",11,55,1,24,,,,$LB(,,$$$fsNoUnderline))
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAutoShowLabel","Toon",11,43,1)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAutoShow","Autoshow",11,55,1,24,,,,$LB(,,$$$fsNoUnderline))
 
 	;Memo
-	Do ##class(%CHUI.TMemo).CreateSet(%this,"mmoMsg","",15,3,%Screen.Height-16,%Screen.Width-4)	
+	Do ##class(TCHUI.TMemo).CreateSet(%this,"mmoMsg","",15,3,%Screen.Height-16,%Screen.Width-4)	
 	Do ..mmoMsg.InitSpec()
 
 	;Buttons
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnModify","Wijzig...",%Screen.Height,3,1,12,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnModify","Wijzig...",%Screen.Height,3,1,12,,,,,$$$alCenter)
 	Set ..btnModify.Action=..acModify
 
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnPrevious","< Ouder",%Screen.Height,..btnModify.Left+..btnModify.Width+1,1,12,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnPrevious","< Ouder",%Screen.Height,..btnModify.Left+..btnModify.Width+1,1,12,,,,,$$$alCenter)
 	Set ..btnPrevious.Action=..acPrevious
 
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnNext","Nieuwer >",%Screen.Height,..btnPrevious.Left+..btnPrevious.Width+1,1,12,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnNext","Nieuwer >",%Screen.Height,..btnPrevious.Left+..btnPrevious.Width+1,1,12,,,,,$$$alCenter)
 	Set ..btnNext.Action=..acNext
 
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Sluiten",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Sluiten",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter)
 	Set ..btnCancel.Action=..acCancel
 	
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnRevised","Geverifieerd",%Screen.Height,%Screen.Width-33,1,14,,,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnRevised","Geverifieerd",%Screen.Height,%Screen.Width-33,1,14,,,,,$$$alCenter)
 	Set ..btnRevised.Action=..acRevised
 
 	;Item toevoegen aan defaultmenu (dit laten we niet auto aanmaken, maar manueel zodat we reeds hmiDefault
@@ -352,13 +351,13 @@
 ==========================================================================================================================
 EVENTs                                                                                                                   
 ==========================================================================================================================</Description>
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..Close()
 ]]></Implementation>
 </Method>
 
 <Method name="acRevisedClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	//Logging
 	Do ##class(BL.Derde.Kennis.Kennis).AddToLog(..KennisObj.%Id(),$$$kbaRevised,%Application.User.%Id())
@@ -368,7 +367,7 @@
 </Method>
 
 <Method name="acModifyClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	$$$InitModifyForm
 	
@@ -384,7 +383,7 @@
 </Method>
 
 <Method name="acNextClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	If $IsObject(..KennisObj.LinkForward) Do
 	. Do ..FiREAD(..KennisObj.LinkForward)
@@ -393,7 +392,7 @@
 </Method>
 
 <Method name="acPreviousClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	If $IsObject(..KennisObj.LinkBackward) Do
 	. Do ..FiREAD(..KennisObj.LinkBackward)
@@ -402,7 +401,7 @@
 </Method>
 
 <Method name="acRaadpleegKlantClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	If $IsObject(..KennisObj.Klant) Do
 	. Do ##class(CHUI.OldRtns).RaadpleegKlant(..KennisObj.Klant.Nummer)
@@ -412,7 +411,7 @@
 </Method>
 
 <Method name="acShowActionsClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	$$$InitActionsForm