Index: CHUI/MB/StockOverwrite/MainForm.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/MB/StockOverwrite/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1074)
+++ CHUI/MB/StockOverwrite/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 2578)
@@ -2,8 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="CHUI.MB.StockOverwrite.MainForm">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <UDLText name="T">
 <Content><![CDATA[
@@ -27,55 +26,55 @@
 </UDLText>
 
 <Property name="lblHeader">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblProductFromLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblProductFromKortTekst">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblProductToLabel">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="lblProductToKortTekst">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="txtProductFrom">
-<Type>%CHUI.TEdit</Type>
+<Type>TCHUI.TEdit</Type>
 </Property>
 
 <Property name="txtProductTo">
-<Type>%CHUI.TEdit</Type>
+<Type>TCHUI.TEdit</Type>
 </Property>
 
 <Property name="lstPallets">
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <Property name="dslPallets">
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <Property name="btnExecute">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnClose">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="acExecute">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acClose">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Parameter name="colLocID">
@@ -116,36 +115,36 @@
 	Set ..Caption="Stock overschrijven - " _ %Application.Bedrijf.Naam
 
 	;Actions	
-	Set ..acExecute=##class(%CHUI.TAction).Create(%this, "acExecute", "Execute", 1, $LB("D"), $LB(%this,"acExecuteClick"))
-	Set ..acClose=##class(%CHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick"))
+	Set ..acExecute=##class(TCHUI.TAction).Create(%this, "acExecute", "Execute", 1, $LB("D"), $LB(%this,"acExecuteClick"))
+	Set ..acClose=##class(TCHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick"))
 	
 	;Label header
-	Set ..lblHeader=##class(%CHUI.TLabel).Create(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Set ..lblHeader=##class(TCHUI.TLabel).Create(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
 	Set ..lblHeader.Sizing=$$$lsFixed
 
 	;Other labels
-	Set ..lblProductFromLabel=##class(%CHUI.TLabel).Create(%this,"lblProductFromLabel","Bronproduct:",3,5,1)
-	Set ..lblProductToLabel=##class(%CHUI.TLabel).Create(%this,"lblProductToLabel","Doelproduct:",5,5,1)
+	Set ..lblProductFromLabel=##class(TCHUI.TLabel).Create(%this,"lblProductFromLabel","Bronproduct:",3,5,1)
+	Set ..lblProductToLabel=##class(TCHUI.TLabel).Create(%this,"lblProductToLabel","Doelproduct:",5,5,1)
 
-	Set ..txtProductFrom=##class(%CHUI.TEdit).Create(%this,"txtProductFrom","Bronproduct",3,18,1,11,6,3)
+	Set ..txtProductFrom=##class(TCHUI.TEdit).Create(%this,"txtProductFrom","Bronproduct",3,18,1,11,6,3)
 	Set ..txtProductFrom.OnDisplay=$LB(%this,"txtProductDisplay")
 	Set ..txtProductFrom.OnValidate=$LB(%this,"txtProductOnValidate")
 	Set ..txtProductFrom.OnLostFocus=$LB(%this,"txtProductLostFocus")
 	Set ..txtProductFrom.AutoErase=1
-	Set ..txtProductTo=##class(%CHUI.TEdit).Create(%this,"txtProductTo","Doelproduct",5,18,1,11,6,3)
+	Set ..txtProductTo=##class(TCHUI.TEdit).Create(%this,"txtProductTo","Doelproduct",5,18,1,11,6,3)
 	Set ..txtProductTo.OnDisplay=$LB(%this,"txtProductDisplay")
 	Set ..txtProductTo.OnValidate=$LB(%this,"txtProductOnValidate")
 	Set ..txtProductTo.OnLostFocus=$LB(%this,"txtProductLostFocus")
 	Set ..txtProductTo.AutoErase=1
 
-	Set ..lblProductFromKortTekst=##class(%CHUI.TLabel).Create(%this,"lblProductFromKortTekst","",3,31,1,34,,,,$LB($$$clGreen,,$$$fsNoUnderline))
+	Set ..lblProductFromKortTekst=##class(TCHUI.TLabel).Create(%this,"lblProductFromKortTekst","",3,31,1,34,,,,$LB($$$clGreen,,$$$fsNoUnderline))
 	Set ..txtProductFrom.Tag=..lblProductFromKortTekst   //Koppel korttekst label
 
-	Set ..lblProductToKortTekst=##class(%CHUI.TLabel).Create(%this,"lblProductToKortTekst","",5,31,1,34,,,,$LB($$$clGreen,,$$$fsNoUnderline))
+	Set ..lblProductToKortTekst=##class(TCHUI.TLabel).Create(%this,"lblProductToKortTekst","",5,31,1,34,,,,$LB($$$clGreen,,$$$fsNoUnderline))
 	Set ..txtProductTo.Tag=..lblProductToKortTekst   //Koppel korttekst label
 
 	;Pallet list
-	Set ..lstPallets=##class(%CHUI.TLijst).Create(%this,"lstPallets","lstPallets",7,5,..Height-7,..Width-10,,,,,$$$alRight)
+	Set ..lstPallets=##class(TCHUI.TLijst).Create(%this,"lstPallets","lstPallets",7,5,..Height-7,..Width-10,,,,,$$$alRight)
 	Set ..lstPallets.Options=$LB($$$loHideSelection)
   
 	Set rdHeader=..lstPallets.CreateRowDef("rdHeader",$$$ftAddLijstHeader)
@@ -159,18 +158,18 @@
 	Do ..lstPallets.AddVLineToRowDef(rdPallets," | ")
 	Do ..lstPallets.AddLabelDBToRowDef(rdPallets,..#colQty,10,$$$alRight,$$$edtFloat,"#.###,00")
 
-	Set ..dslPallets=##class(%CHUI.TDataSetList).Create(..lstPallets,"dslPallets")
+	Set ..dslPallets=##class(TCHUI.TDataSetList).Create(..lstPallets,"dslPallets")
 	Do ..dslPallets.AddColDef(..#colLocID,$$$rsList,1)
 	Do ..dslPallets.AddColDef(..#colQty,$$$rsList,2)
 	
 	Do ..lstPallets.InitSpec(..dslPallets,rdHeader,rdPallets,$LB(%this,"dslPalletsOnQueryInit"),"")
 
 	;Button update
-	Set ..btnExecute=##class(%CHUI.TButton).Create(%this,"btnExecute","Doorvoeren",3,..Width-16,1,12,,,,,$$$alCenter)
+	Set ..btnExecute=##class(TCHUI.TButton).Create(%this,"btnExecute","Doorvoeren",3,..Width-16,1,12,,,,,$$$alCenter)
 	Set ..btnExecute.Action=..acExecute
 
  	;Button close
-	Set ..btnClose=##class(%CHUI.TButton).Create(%this,"btnClose","Sluiten",5,..Width-16,1,12,,,,,$$$alCenter)
+	Set ..btnClose=##class(TCHUI.TButton).Create(%this,"btnClose","Sluiten",5,..Width-16,1,12,,,,,$$$alCenter)
 	Set ..btnClose.Action=..acClose
 
 	Do ..SetTabAndPaintOrder(..lblHeader,..lblProductFromLabel,..txtProductFrom,..lblProductToLabel,..txtProductTo,..btnExecute,..btnClose,..lstPallets)
@@ -201,7 +200,7 @@
 </UDLText>
 
 <Method name="dslPalletsOnQueryInit">
-<FormalSpec><![CDATA[Sender:%CHUI.TDataSetList,&varResultStr:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Sender:TCHUI.TDataSetList,&varResultStr:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	Set ProductFromNr=..txtProductFrom.DisplayValue
 	Quit:(+ProductFromNr=0)
@@ -221,7 +220,7 @@
 </Method>
 
 <Method name="txtProductDisplay">
-<FormalSpec>Sender:%CHUI.TControlBasis,Value</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,Value</FormalSpec>
 <Implementation><![CDATA[
 	If Value?1"."4.7N Do
 	. Set Value=$E(Value,2,9999)
@@ -232,17 +231,17 @@
 </Method>
 
 <Method name="txtProductOnValidate">
-<FormalSpec>Sender:%CHUI.TControlBasis,Value,ValidateOk</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis,Value,ValidateOk</FormalSpec>
 <Implementation><![CDATA[
 	;Sender.Tag bevat gekoppeld KortTekst label
 	Set AssocLabel=Sender.Tag
-	Set PRNr=##class(%CHUI.Dlg.TSelectProduct).Select(AssocLabel,, , Value)
+	Set PRNr=##class(TCHUI.Dlg.TSelectProduct).Select(AssocLabel,, , Value)
 	Set Value=PRNr
 ]]></Implementation>
 </Method>
 
 <Method name="txtProductLostFocus">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	;Sender.Tag bevat gekoppeld KortTekst label
 	Set AssocLabel=Sender.Tag
@@ -255,13 +254,13 @@
 </Method>
 
 <Method name="acCloseClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[	Do ..Close()
 ]]></Implementation>
 </Method>
 
 <Method name="acExecuteClick">
-<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
 	;Validation
 	Set ProductFrom=..txtProductFrom.DisplayValue
@@ -319,9 +318,9 @@
 <Method name="Run">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set %Application=##class(%CHUI.TApplication).Create()
-	Set %Screen=##class(%CHUI.TScreen).Create($$$ttVT520)
-	Set %Input=##class(%CHUI.TInput).Create()
+	Set %Application=##class(TCHUI.TApplication).Create()
+	Set %Screen=##class(TCHUI.TScreen).Create($$$ttVT520)
+	Set %Input=##class(TCHUI.TInput).Create()
 	Do %Screen.Clear()
 	Set Form=%Application.CreateForm("CHUI.MB.StockOverwrite.MainForm","StockOverwrite","StockOverwrite",1,1,%Screen.Height,%Screen.Width,,$$$ftMain)
 	Do %Application.Run()