Index: CHUI/Flow/Order/LeverwekenMain.cls.xml
===================================================================
diff -u -r1074 -r2578
--- CHUI/Flow/Order/LeverwekenMain.cls.xml	(.../LeverwekenMain.cls.xml)	(revision 1074)
+++ CHUI/Flow/Order/LeverwekenMain.cls.xml	(.../LeverwekenMain.cls.xml)	(revision 2578)
@@ -4,61 +4,60 @@
 <Description>
 D ##class(CHUI.Flow.Order.LeverwekenMain).Run()</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%CHUI.TForm</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>TCHUI.TForm</Super>
 
 <Property name="lblHeader">
-<Type>%CHUI.TLabel</Type>
+<Type>TCHUI.TLabel</Type>
 </Property>
 
 <Property name="btnCriteria">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="btnCancel">
-<Type>%CHUI.TButton</Type>
+<Type>TCHUI.TButton</Type>
 </Property>
 
 <Property name="lstOrders">
-<Type>%CHUI.TLijst</Type>
+<Type>TCHUI.TLijst</Type>
 </Property>
 
 <Property name="dslOrders">
-<Type>%CHUI.TDataSetList</Type>
+<Type>TCHUI.TDataSetList</Type>
 </Property>
 
 <Property name="acWijzigOrder">
 <Description>
 ACTIES</Description>
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acRPLKL">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acRPLPR">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acCancel">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acCriteria">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acWijzigLevering">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acWijzigKlacht">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="acWijzigToelevering">
-<Type>%CHUI.TAction</Type>
+<Type>TCHUI.TAction</Type>
 </Property>
 
 <Property name="pCriteria">
@@ -105,43 +104,41 @@
 <Description>
 Invoke
 In te vullen door de GUI applicatie</Description>
-<CodeMode>code</CodeMode>
 <Implementation><![CDATA[
 	Do ..InitControl()
 	Do ..InitLijst()
 ]]></Implementation>
 </Method>
 
 <Method name="InitControl">
-<CodeMode>code</CodeMode>
 <Implementation><![CDATA[
 	Set ..Top=1,..Left=1,..Height=%Screen.Height,..Width=%Screen.Width
 	Set ..Caption="Raadplegen Orders Leverweken - "_%Application.Bedrijf.Naam
 	Set ..OnShow=$LB(%this,"FormOnShow")
 	
 	; Actions
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acCancel", "Cancel",,$LB("-"), $LB(%this,"acAction"))
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acCriteria", "Criteria",,$LB("S"), $LB(%this,"acCriteria"))
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acWijzigOrder", "WijzigOrder",,$LB("O"), $LB(%this,"acWijzigOrder"))
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acWijzigLevering", "WijzigLevering",,$LB("L"), $LB(%this,"acWijzigLevering"))
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acWijzigToelevering", "WijzigToelevering",,$LB("T"), $LB(%this,"acWijzigToelevering"))
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acRPLPR", "RPLPR",,$LB("P"), $LB(%this,"acRPLPR"))
-	Do ##class(%CHUI.TAction).CreateSet(%this,"acRPLKL", "RPLKL",,$LB("K"), $LB(%this,"acRPLKL"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acCancel", "Cancel",,$LB("-"), $LB(%this,"acAction"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acCriteria", "Criteria",,$LB("S"), $LB(%this,"acCriteria"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acWijzigOrder", "WijzigOrder",,$LB("O"), $LB(%this,"acWijzigOrder"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acWijzigLevering", "WijzigLevering",,$LB("L"), $LB(%this,"acWijzigLevering"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acWijzigToelevering", "WijzigToelevering",,$LB("T"), $LB(%this,"acWijzigToelevering"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acRPLPR", "RPLPR",,$LB("P"), $LB(%this,"acRPLPR"))
+	Do ##class(TCHUI.TAction).CreateSet(%this,"acRPLKL", "RPLKL",,$LB("K"), $LB(%this,"acRPLKL"))
  	
  	;Control creation en basisdefinitie
-	Do ##class(%CHUI.TKader).CreateSet(%this,"lblHeader",..Caption,1,1,1,..Width,1,,,)
+	Do ##class(TCHUI.TKader).CreateSet(%this,"lblHeader",..Caption,1,1,1,..Width,1,,,)
 	
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCriteria","Criteria",2,70,1,10,100,100,,,"C")
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnCriteria","Criteria",2,70,1,10,100,100,,,"C")
 	Set ..btnCriteria.Action=..acCriteria
-	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleer",3,70,1,10,101,101,,,"C")
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleer",3,70,1,10,101,101,,,"C")
 	Set ..btnCancel.Action=..acCancel
 ]]></Implementation>
 </Method>
 
 <Method name="InitLijst">
 <Implementation><![CDATA[
 	
-	Set ..lstOrders=##class(%CHUI.TLijst).Create(%this,"lstOrders","lstOrders",4,1,..Height-3,..Width-1,10,10,,,$$$alRight)
+	Set ..lstOrders=##class(TCHUI.TLijst).Create(%this,"lstOrders","lstOrders",4,1,..Height-3,..Width-1,10,10,,,$$$alRight)
   //Set ..lstOrders.DefaultlbSearchInCols=$LB(..#colType)
      Set ..lstOrders.OnRow=$LB(%this,"lstOrdersOnRow")
      
@@ -178,7 +175,7 @@
 	Do ..lstOrders.AddLabelDBToRowDef(rdLijst,..#colTOENr,6,,$$$edtString)
 
 	; DataSet
-	Set ..dslOrders=##class(%CHUI.TDataSetList).Create(..lstOrders,"dslOrders")
+	Set ..dslOrders=##class(TCHUI.TDataSetList).Create(..lstOrders,"dslOrders")
 	Do ..dslOrders.AddColDef(..#colKLNr,$$$rsList,1)
 	Do ..dslOrders.AddColDef(..#colPRNr,$$$rsList,2)
 	Do ..dslOrders.AddColDef(..#colORDNr,$$$rsList,3)
@@ -199,7 +196,7 @@
 </Method>
 
 <Method name="onClickCancel">
-<FormalSpec>Sender:%CHUI.TControl</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControl</FormalSpec>
 <Implementation><![CDATA[	Do ..Close()
 ]]></Implementation>
 </Method>
@@ -210,7 +207,7 @@
 </Method>
 
 <Method name="FormOnShow">
-<FormalSpec>Sender:%CHUI.TControl</FormalSpec>
+<FormalSpec>Sender:TCHUI.TControl</FormalSpec>
 <Implementation><![CDATA[
 	If '$isObject(..pCriteria) Do
 	. Set ..pCriteria=##class(pCriteria).%New()