Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r908 -r1047
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 908)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 1047)
@@ -1,12 +1,12 @@
 <?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-02-22 11:32:53">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-20 14:17:12">
 <Class name="UI.PR.GA.TandemBox">
 <ClassType>serial</ClassType>
 <IncludeCode>KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
-<TimeChanged>62144,41634.722483</TimeChanged>
-<TimeCreated>62144,41093</TimeCreated>
+<TimeChanged>62201,51448.786504</TimeChanged>
+<TimeCreated>62144,41688</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="BlumotionMinIB">
@@ -2268,7 +2268,7 @@
 <Implementation><![CDATA[
  New sText,BTCur
  Set BTCur=..FLookUp("ViaOref",+ComboOref)
-   ;d ..TTrace("BTExtent "_BTCur_"  "_$$$ArrayTT3("BTExtent(""TBDwarsVerdeling"")",..blTBox,"BTExtent"))
+   ;d ..TTrace("BTExtent "_BTCur_"  "_$$$ArrayTT("BTExtent(""TBDwarsVerdeling"")",..blTBox,"BTExtent"))
  Quit:(BTCur="LadeCode")
  Set:('$D(lbIDs)) lbIDs=..blTBox.BTExtent(BTCur)   ; als "lbIDs" weggelaten, dan volledige lijst uit BTExtent halen
  Set sText=..blTBox.BuildItemsOms(BTCur,lbIDs)     ; Omschrijvingen voor bijhorende ID's ophalen
@@ -2876,7 +2876,7 @@
  Set ..blTBox=##class(BL.PR.GA.TandemBox).%New()
  Set:(..blTBox.DC="") ..blTBox.DC="S"
  Do ..blTBox.Initialize()
-   ;d ..TTrace("BTExtent init "_$$$ArrayTT3("BTExtent",..blTBox,"BTExtent"))
+   ;d ..TTrace("BTExtent init "_$$$ArrayTT("BTExtent",..blTBox,"BTExtent"))
  Quit
 ]]></Implementation>
 </Method>
@@ -4145,8 +4145,8 @@
  Set oBTVal=..blTBox.BTValues
  Set LadeCode=..cboLadeCode.SelectedGetKey()
  Set msg=""   ; msg is returned by reference
- Quit:(..cboSPZijkant.SelectedGetKey()="") 1
  Quit:(..cboKlasse.SelectedGetKey()="SY") 1
+ Quit:(..cboSPZijkant.SelectedGetKey()="") 1
 
  // Controle intivo spoelbak DLS
  If (LadeCode?1(1"DLS2"))&&(..cboSPZijkant.SelectedGetKey()'?1(1"SA",1"M")) Do  Quit 0
@@ -6594,5 +6594,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="1749502486"/>
+<Checksum value="418399751"/>
 </Export>