Index: BL/Prod/OptiBox/BoxMeta.cls.xml
===================================================================
diff -u -r734 -r901
--- BL/Prod/OptiBox/BoxMeta.cls.xml	(.../BoxMeta.cls.xml)	(revision 734)
+++ BL/Prod/OptiBox/BoxMeta.cls.xml	(.../BoxMeta.cls.xml)	(revision 901)
@@ -1,13 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:53">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-12 11:21:40">
 <Class name="BL.Prod.OptiBox.BoxMeta">
 <Description>
 Verwerking van de metadefinitie van een doos.
 De metadefinitie definieert de BoxSelect van de Optimizer en geeft defaults voor de BoxData</Description>
 <IncludeCode>BL.Sys.Proxy</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>61058,37088.734543</TimeChanged>
+<TimeChanged>62134,40953.742715</TimeChanged>
 <TimeCreated>60997,54476.978362</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -23,6 +23,26 @@
 <Default>Kan het boxmeta-object niet bewaren</Default>
 </Parameter>
 
+<Method name="CleanBoxSelect">
+<Description>
+de UI geeft ALLE boxselects terug bij aanmaak van een nieuwe Meta 
+PV - 12/02/2011
+D ##class(BL.Prod.OptiBox.BoxMeta).CleanBoxSelect()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MetaID</FormalSpec>
+<Implementation><![CDATA[
+	Set bl=..%New()
+	Set sc=bl.Initialise(MetaID)
+	Quit:'$isObject(bl.oMeta)
+	
+	While bl.oMeta.BoxSelect.Count()>1
+	{
+	 Set sc=bl.oMeta.BoxSelect.RemoveAt(2)
+	}
+	Set sc=bl.oMeta.%Save()
+]]></Implementation>
+</Method>
+
 <Method name="Initialise">
 <FormalSpec>MetaID:%String=""</FormalSpec>
 <ReturnType>BL.Sys.Proxy.pxStatus</ReturnType>
@@ -204,11 +224,11 @@
 <FormalSpec>pxMeta:BL.Prod.OptiBox.sub.pxBoxMeta</FormalSpec>
 <ReturnType>BL.Sys.Proxy.pxStatus</ReturnType>
 <Implementation><![CDATA[
-	d WLIP^vhDBG(15,"=============")
-	d WLIP^vhDBG(15,"PROXY -> DATA")
-	d WLIP^vhDBG(15,"=============")
-	d WXIP^vhDBG(15,pxMeta)
-	d WLIP^vhDBG(15,"=============")
+	;d WLIP^vhDBG(15,"=============")
+	;d WLIP^vhDBG(15,"PROXY -> DATA")
+	;d WLIP^vhDBG(15,"=============")
+	;d WXIP^vhDBG(15,pxMeta)
+	;d WLIP^vhDBG(15,"=============")
 
 	Set ..oMeta.Name=pxMeta.Name
 	Set ..oMeta.ProductGroep=pxMeta.ProductGroep
@@ -228,8 +248,11 @@
 	; BoxSelect list
 	Do ..oMeta.BoxSelect.Clear()
 	Set Key=""
-	For  Set pxBoxSelect=pxMeta.BoxSelect.GetNext(.Key) Quit:Key=""  Do
+	Set Cnt=0
+	For  Set pxBoxSelect=pxMeta.BoxSelect.GetNext(.Key) Quit:Key=""  Do  Quit:Cnt>4
 	. Set oBoxSelect=..CreateBoxSelectFromProxy(pxBoxSelect)
+	. Set Cnt=Cnt+1 ; om een fout in de UI op te lossen
+	. Quit:'$isObject(oBoxSelect)
 	. Do ..oMeta.BoxSelect.Insert(oBoxSelect)
 
 	; Param list
@@ -262,24 +285,14 @@
 <FormalSpec>pxBoxSelect:BL.Prod.OptiBox.sub.pxemBoxSelect</FormalSpec>
 <ReturnType>DS.Prod.OptiBox.sub.emBoxSelect</ReturnType>
 <Implementation><![CDATA[
+	Quit:pxBoxSelect.Naam="" ""
 	Set oBoxSelect=##class(DS.Prod.OptiBox.sub.emBoxSelect).%New()
 	Set oBoxSelect.Naam=pxBoxSelect.Naam
 	Set oBoxSelect.Klanten=pxBoxSelect.Klanten
 	Quit oBoxSelect
 ]]></Implementation>
 </Method>
 
-<Method name="Test">
-<Description>
-d ##class(BL.Prod.OptiBox.BoxMeta).Test()</Description>
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-  s bl=..%New()
- 	s sc=bl.Initialise(469)
- 	d bl.UpdateDataDefaults()
-]]></Implementation>
-</Method>
-
 <Method name="UpdateDataDefaults">
 <Implementation><![CDATA[
 	Set rs=##class(%ResultSet).%New("BL.Prod.OptiBox.BoxData:GetBoxDatasViaMeta")
@@ -315,5 +328,6 @@
 <Parameter name="CONTAINID" value="0"/>
 </Query>
 </Class>
-<Checksum value="3080724433"/>
+<Package name="BL.Prod.OptiBox" sqlname="BL"/>
+<Checksum value="4169700919"/>
 </Export>