Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r8154 -r11232
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 8154)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 11232)
@@ -266,9 +266,11 @@
  Quit:(Target="")
  ;New rs,i,lbSourceIDs
  Set rs=##class(%ResultSet).%New("Prod.GAMeta.BT."_Target_":BeperkLijst")   ; ":TestBeperk"
- Do rs.Execute(..DC)
- For  Quit:('rs.Next())  Do dbpFetchedItem(rs.Data("BeperkKey"),rs.Data("BeperkVal"),rs.Data("ItemCode"))   ; rs.Data("ItemID")
- Do rs.%Close()
+ if $isObject(rs) {
+ 	Do rs.Execute(..DC)
+ 	For  Quit:('rs.Next())  Do dbpFetchedItem(rs.Data("BeperkKey"),rs.Data("BeperkVal"),rs.Data("ItemCode"))   ; rs.Data("ItemID")
+ 	Do rs.%Close()
+ }
  Quit
 dbpFetchedItem(Source,SourceIDs,TargetVal)
  Do:($D(BTDep(Source,Target))<10) bdpInitBTDep   ; Initialize subnodes
@@ -350,7 +352,7 @@
 	#define lcLT   $G(tmpAr(LCodeID,"TBLadeType"))
 	#define lcZW   $G(tmpAr(LCodeID,"TBZijwand"))
 	#define lcRH   $G(tmpAr(LCodeID,"TBRugHoogte"))
-
+	
 	Kill LCodeArray
 	Kill LCodeID,KMNaam,KMWaarde,tmpAr
 	&SQL(DECLARE crLC3 CURSOR FOR SELECT LadeCode,element_key,TBKenm INTO :LCodeID,:KMNaam,:KMWaarde FROM Prod_GAMeta_BT.LadeCode_TBKenm)
@@ -359,7 +361,7 @@
 	&SQL(CLOSE crLC3)
 	Set LCodeID=""
 	For  Set LCodeID=$O(tmpAr(LCodeID)) Quit:(LCodeID="")  Do 
-	. Set LCodeArray($$$lcKLAS_"-"_$$$lcGT_"-"_$$$lcLT_"-"_$$$lcZW_"-"_$$$lcRH)=LCodeID   ; ("TBKlasse","TBGlijderType","TBLadeType","TBZijwand","TBRugHoogte")
+	. Set LCodeArray($$$lcKLAS_"-"_$$$lcGT_"-"_$$$lcLT_"-"_$$$lcZW_"-"_$$$lcRH,LCodeID)=LCodeID   ; ("TBKlasse","TBGlijderType","TBLadeType","TBZijwand","TBRugHoogte")
 	Quit
 ]]></Implementation>
 </Method>
@@ -527,6 +529,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNietMeeleverenKenmerkNamen">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set KenmerkNamen=##class(%ListOfDataTypes).%New()
+	Do KenmerkNamen.Insert("NMCP"  )
+	Do KenmerkNamen.Insert("NMRL"  )
+	Do KenmerkNamen.Insert("NMAK"  )
+	Do KenmerkNamen.Insert("NMBDS" )
+	Do KenmerkNamen.Insert("NMBMM" )
+	Do KenmerkNamen.Insert("NMBMB" )
+	Do KenmerkNamen.Insert("NMFB"  )
+	Do KenmerkNamen.Insert("NMBS"  )
+	Do KenmerkNamen.Insert("NMOVL" )
+	Do KenmerkNamen.Insert("NMSPDL")
+	Do KenmerkNamen.Insert("NMASM" )
+	Quit KenmerkNamen
+]]></Implementation>
+</Method>
+
 <Method name="GetKleurDefaults">
 <Description><![CDATA[
 Get Kleur Defaults :   arKlrDfl als .local doorgeven 
@@ -991,13 +1014,10 @@
 	
 	// Uitzonderingen 
  	Set:(LC="MB") LC="M"        ; Burolade 
-	;Set:(BS?1(1"BG")) BS="BD"   ; Glazen boxside dan image voor dubbelwandige boxside 
-	;Set:(LC?1(1"DY",1"DYZ"))&&(BS'?1(1"DR")) BS="DR"   ; sifonlade enkel dubbele reling beschikbaar 
 	
 	If DC="I" Do   ; intivo 
 	. Set:(BoxSide?1(1"BK",1"CAP")) BS="CAP"
  	. Set:(BoxSide?1(1"BC",1"BZ",1"COV")) BS="COV"
-	. ;Set:(LadeCode?1(1"N")) DC=""           ; geen aparte beelden voor N lade  en MS2 spoelbaklade 
 	. If $G(BinnenGreep)="V" Do              ; binnenlade met glas (Verre) 
 	. . Set BS=BS_"_FG"
 	Else  If DC="A" Do   ; Dus niet DC="MA" 
@@ -1151,16 +1171,16 @@
 	Set lbWeken=""
 	Set ProdDagen=$$$AantalProdDagen             ; in de toekomst kan deze veranderlijk zijn
 	// ASAP
-	Set Week=$$CALCDATE^vhDTyp($H,"A",ProdDagen)
+	Set Week=$$CALCDATE^vhLib.DataTypes($H,"A",ProdDagen)
 	Set lbWeken=lbWeken_$LB("ASAP`"_$$$Vertaal("ASAP")_" ("_ProdDagen_" "_$$$Vertaal("werkdagen")_")")   ; ="ASAP`Zo spoedig mogelijk ("_ProdDagen_" werkdagen)"
 	// Mogelijk nog deze week ?
-	If $$EXTDATE^vhDTyp(Week,"DWN")<5 Do   ; Het is nog geen vrijdag een de ASAP is niet in volgende week
-	. Set Week=$$CALCDATE^vhDTyp(Week,"W","MD") 
-	. Set lbWeken=lbWeken_$LB(Week_"`"_$S(Week<$$CALCDATE^vhDTyp($H,"W","LD"):$$$Vertaal("WeekHuidig")_",",1:$$$Vertaal("Week"))_" "_$$EXTDATE^vhDTyp(Week,"DW4"))
+	If $$EXTDATE^vhLib.DataTypes(Week,"DWN")<5 Do   ; Het is nog geen vrijdag een de ASAP is niet in volgende week
+	. Set Week=$$CALCDATE^vhLib.DataTypes(Week,"W","MD") 
+	. Set lbWeken=lbWeken_$LB(Week_"`"_$S(Week<$$CALCDATE^vhLib.DataTypes($H,"W","LD"):$$$Vertaal("WeekHuidig")_",",1:$$$Vertaal("Week"))_" "_$$EXTDATE^vhLib.DataTypes(Week,"DW4"))
 	// Volgende weken
 	For I=1:1:5 Do
-	. Set Week=$$CALCDATE^vhDTyp($$CALCDATE^vhDTyp(Week+7,"A",+0),"W","MD")   ; volgende arbeids week
-	. Set lbWeken=lbWeken_$LB(Week_"`"_$$$Vertaal("Week")_" "_$$EXTDATE^vhDTyp(Week,"DW4"))
+	. Set Week=$$CALCDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(Week+7,"A",+0),"W","MD")   ; volgende arbeids week
+	. Set lbWeken=lbWeken_$LB(Week_"`"_$$$Vertaal("Week")_" "_$$EXTDATE^vhLib.DataTypes(Week,"DW4"))
 	// LATER : datum zie opmerking 
 	Set lbWeken=lbWeken_$LB("LATER`"_$$$Vertaal("LATER_ZieOpm"))   ; ="LATER`Later - datum zie opmerking"
 	Quit lbWeken