Index: CHUI/Blum/LogSteuer/Modify.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Blum/LogSteuer/Modify.cls.xml	(.../Modify.cls.xml)	(revision 1074)
+++ CHUI/Blum/LogSteuer/Modify.cls.xml	(.../Modify.cls.xml)	(revision 2578)
@@ -2,8 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="CHUI.Blum.LogSteuer.Modify">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <UDLText name="T">
 <Content><![CDATA[
@@ -27,97 +26,97 @@
 </UDLText>
 
 <Property name="kdrMain">
-<Type>%CHUI.TKader</Type>
+<Type>TCHUI.TKader</Type>
 </Property>
 
 <Property name="lblKortTekstLbl">
 <Description>
 label voor korttekst</Description>
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblKortTekst">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblIdentNrLbl">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblIdentNr">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblPeriodiciteitLbl">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblPeriodiciteit">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblAantallen">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="edAantallen">
-<Type>%CHUI.TEdit</Type>
+<Type>TCHUI.TEdit</Type>
 </Property>
 
 <Property name="lblStartWeek">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="edStartWeek">
-<Type>%CHUI.TEdit</Type>
+<Type>TCHUI.TEdit</Type>
 </Property>
 
 <Property name="lblVerpakkingLbl">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblVerpakking">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblPalletLbl">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblPallet">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblGewGemVkpLbl">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblGewGemVkp">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblGemVkpLbl">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblGemVkp">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblFysStockLbl">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblFysStock">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblUitzWeek">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblUitzAantal">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="arUitzWeek">
@@ -135,11 +134,11 @@
 </Property>
 
 <Property name="btnClose">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnSave">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <UDLText name="T">
@@ -150,11 +149,11 @@
 </UDLText>
 
 <Property name="acClose">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acSave">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <UDLText name="T">
@@ -173,7 +172,7 @@
 </Property>
 
 <Property name="CalledFrom">
-<Type>%CHUI.TForm</Type>
+<Type>TCHUI.TForm</Type>
 </Property>
 
 <UDLText name="T">
@@ -280,74 +279,74 @@
 	Set ..Caption="Blum LogSteuer - Wijzig"
 	;Set ..onShow=$LB(%this,"onShow")
 	;Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acClose", "Annuleer", 1, $LB("."), $LB(%this,"acClose"))
-	Do ##class(%CHUI.TAction).CreateSet(%this, "acSave", "OK", 1, $LB("-"), $LB(%this,"acSave"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acClose", "Annuleer", 1, $LB("."), $LB(%this,"acClose"))
+	Do ##class(TCHUI.TAction).CreateSet(%this, "acSave", "OK", 1, $LB("-"), $LB(%this,"acSave"))
 	;Kader
-	Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,1,,,,"C")
+	Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,1,,,,"C")
    	;Button Close
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Annuleer",2,..Width-10,1,9,200,200,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Annuleer",2,..Width-10,1,9,200,200,,,$$$alCenter)
 	Set ..btnClose.ModalResult=$$$mrCancel
 	; Button Save
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnSave","OK",3,..Width-10,1,9,201,201,,,$$$alCenter)
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnSave","OK",3,..Width-10,1,9,201,201,,,$$$alCenter)
 	Set ..btnSave.Default=1
 	Set ..btnSave.Action=..acSave
 	
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKortTekstLbl","Korttekst",3,2,1,13,10,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKortTekstLbl","Korttekst",3,2,1,13,10,,,)
 	Set ..lblKortTekstLbl.WidthSeparator=12
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKortTekst","xxx",3,15,1,25,11,,,$LB(,,$$$fsNoUnderline),)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblIdentNrLbl","IdentNr",2,2,1,13,20,,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKortTekst","xxx",3,15,1,25,11,,,$LB(,,$$$fsNoUnderline),)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblIdentNrLbl","IdentNr",2,2,1,13,20,,,,)
 	Set ..lblIdentNrLbl.WidthSeparator=12
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblIdentNr","xxx",2,15,1,25,21,,,$LB(,,$$$fsNoUnderline),)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAantallen","Aantallen",5,2,1,13,30,,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblIdentNr","xxx",2,15,1,25,21,,,$LB(,,$$$fsNoUnderline),)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAantallen","Aantallen",5,2,1,13,30,,,,)
 	Set ..lblAantallen.WidthSeparator=12
-	Do ##class(%CHUI.TEdit).CreateSet(%this,"edAantallen","Aantallen",5,15,1,20,31,31,,,)
+	Do ##class(TCHUI.TEdit).CreateSet(%this,"edAantallen","Aantallen",5,15,1,20,31,31,,,)
 	Set ..edAantallen.OnValidate=$LB(%this,"edAantallenOnValidate")
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPeriodiciteitLbl","Periode",6,2,1,13,40,,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPeriodiciteitLbl","Periode",6,2,1,13,40,,,,)
 	Set ..lblPeriodiciteitLbl.WidthSeparator=12
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPeriodiciteit","xxx",6,15,1,4,41,,,$LB(,,$$$fsNoUnderline),)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblStartWeek","StartWeek",7,2,1,13,50,,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPeriodiciteit","xxx",6,15,1,4,41,,,$LB(,,$$$fsNoUnderline),)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblStartWeek","StartWeek",7,2,1,13,50,,,,)
 	Set ..lblStartWeek.WidthSeparator=12
-	Do ##class(%CHUI.TEdit).CreateSet(%this,"edStartWeek","xxx",7,15,1,5,51,51,,,)
+	Do ##class(TCHUI.TEdit).CreateSet(%this,"edStartWeek","xxx",7,15,1,5,51,51,,,)
 	Set ..edStartWeek.DataType=$$$edtWeek
 	Set ..edStartWeek.Format="JJ/WW"
 	Set ..edStartWeek.AutoErase=1
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVerpakkingLbl","Verpakking",9,2,1,13,10,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVerpakkingLbl","Verpakking",9,2,1,13,10,,,)
 	Set ..lblVerpakkingLbl.WidthSeparator=12
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVerpakking","XXX",9,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVerpakking","XXX",9,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
 	Set ..lblVerpakking.DataType=$$$edtInteger
 	Set ..lblVerpakking.Format="#.##0"
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPalletLbl","Pallet",10,2,1,13,10,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPalletLbl","Pallet",10,2,1,13,10,,,)
 	Set ..lblPalletLbl.WidthSeparator=12
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPallet","XXX",10,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPallet","XXX",10,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
 	Set ..lblPallet.DataType=$$$edtInteger
 	Set ..lblPallet.Format="#.##0"
 	
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGewGemVkpLbl","Gew.Gem.Vkp.",12,2,1,13,10,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGewGemVkpLbl","Gew.Gem.Vkp.",12,2,1,13,10,,,)
 	Set ..lblGewGemVkpLbl.WidthSeparator=12
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGewGemVkp","XXX",12,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGewGemVkp","XXX",12,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
 	Set ..lblGewGemVkp.DataType=$$$edtInteger
 	Set ..lblGewGemVkp.Format="#.##0"
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGemVkpLbl","Gem.Vkp.",13,2,1,13,10,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGemVkpLbl","Gem.Vkp.",13,2,1,13,10,,,)
 	Set ..lblGemVkpLbl.WidthSeparator=12
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGemVkp","XXX",13,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGemVkp","XXX",13,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
 	Set ..lblGemVkp.DataType=$$$edtInteger
 	Set ..lblGemVkp.Format="#.##0"
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblFysStockLbl","Fys.Stock",14,2,1,13,10,,,)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblFysStockLbl","Fys.Stock",14,2,1,13,10,,,)
 	Set ..lblFysStockLbl.WidthSeparator=12
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblFysStock","XXX",14,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblFysStock","XXX",14,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight)
 	Set ..lblFysStock.DataType=$$$edtInteger
 	Set ..lblFysStock.Format="#.##0"
 
 
 	; Array of uitzonderingen
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblUitzWeek","Week",4,41,1,5,100,,,,$$$alRight)
-	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblUitzAantal","Aantal",4,50,1,7,101,,,,$$$alRight)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblUitzWeek","Week",4,41,1,5,100,,,,$$$alRight)
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblUitzAantal","Aantal",4,50,1,7,101,,,,$$$alRight)
 	For I=1:1:..#AantalUitz Do
-	. Set Week=##class(%CHUI.TLabel).Create(%this,"lblUitzWeek"_I,"",4+I,42,1,5,110+(I*2),,,$LB(,,$$$fsNoUnderline),$$$alRight)
+	. Set Week=##class(TCHUI.TLabel).Create(%this,"lblUitzWeek"_I,"",4+I,42,1,5,110+(I*2),,,$LB(,,$$$fsNoUnderline),$$$alRight)
 	. Set Week.DataType=$$$edtWeek
 	. Set Week.Format="JJ/WW"
 	. Set ..arUitzWeek(I)=Week
-	. Set Aantal=##class(%CHUI.TEdit).Create(%this,"edUitzAantal"_I,"Aantal",4+I,50,1,7,111+(I*2),111+(I*2),,,$$$alRight)
+	. Set Aantal=##class(TCHUI.TEdit).Create(%this,"edUitzAantal"_I,"Aantal",4+I,50,1,7,111+(I*2),111+(I*2),,,$$$alRight)
 	. Set Aantal.DataType=$$$edtInteger
 	. Set Aantal.Format="#.##0;;0;"
 	. Set Aantal.MinValue=0
@@ -366,7 +365,7 @@
 </Method>
 
 <Method name="acSave">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	If ..IsChanged Do
 	. Do ..Save()
@@ -375,7 +374,7 @@
 </Method>
 
 <Method name="acClose">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Set ..ModalResult=$$$mrCancel
 ]]></Implementation>
 </Method>