Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r1550 -r1552
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 1550)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 1552)
@@ -61,7 +61,8 @@
 <Implementation><![CDATA[
 	;New BTExtent,BTDep,DC
 	If ($D(DC))||($L(DS)) Do
-	. Set:(DS="IS") DC="S"   ; Fix voor Inox standaard (idem als Baliko hieronder) 
+	. Set:(DS="IS") DC="S"             ; Fix voor Inox standaard (idem als Baliko hieronder) 
+	. Set:(DS?1(1"BA",1"BI")) DC="B"   ; Fix voor Baliko (zie ook hieronder) 
 	. Set:($G(DC)="")&&($L(DS)) DC=..DesignCodeFromDS(DS)
 	. Set ..DC=DC
 	Else  Do
@@ -526,14 +527,14 @@
 	Set:(OneDS?1(1"*",1"WS")) arKlrDfl("WS")=$LB("WI","WI","WI","WI","FG","S")
 	Set:(OneDS?1(1"*",1"GS")) arKlrDfl("GS")=$LB("MG","LG","MG","MG","FG","S")
 	Set:(OneDS?1(1"*",1"AS")) arKlrDfl("AS")=$LB("AL","LG","AL","AL","FG","S")
-	Set:(OneDS?1(1"*",1"IS")) arKlrDfl("IS")=$LB("IN","DG","CR","IN","FG","S")
+	Set:(OneDS?1(1"*",1"IS")) arKlrDfl("IS")=$LB("IN","DG","CR","IN","FG","S")      ; "IS" is obsolete 
 	Set:(OneDS?1(1"*",1"WI")) arKlrDfl("WI")=$LB("SW","WI","SW","SW","DIA8","I")
 	Set:(OneDS?1(1"*",1"GI")) arKlrDfl("GI")=$LB("MG","LG","MG","MG","GRI8","I")
 	Set:(OneDS?1(1"*",1"ZI")) arKlrDfl("ZI")=$LB("BZ","BZ","BZ","BZ","BRO8","I")
 	Set:(OneDS?1(1"*",1"II")) arKlrDfl("II")=$LB("IN","DG","CR","IN","GRI8","I")
 	Set:(OneDS?1(1"*",1"AI")) arKlrDfl("AI")=$LB("AL","LG","AL","AL","DIA8","I")
-	Set:(OneDS?1(1"*",1"BA")) arKlrDfl("BA")=$LB("BE","BE","CR","IN","FG","B")
-	Set:(OneDS?1(1"*",1"BI")) arKlrDfl("BI")=$LB("BI","EI","CR","IN","FG","B")
+	Set:(OneDS?1(1"*",1"BA")) arKlrDfl("BA")=$LB("BE","BE","CR","IN","FG","B")     ;  "BA" is obsolete 
+	Set:(OneDS?1(1"*",1"BI")) arKlrDfl("BI")=$LB("BI","EI","CR","IN","FG","B")     ;  "BI" is obsolete 
 	Set:(OneDS?1(1"*",1"GF")) arKlrDfl("GF")=$LB("MG","LG","MG","MG","FG","F")
 	Set:(OneDS?1(1"*",1"AF")) arKlrDfl("AF")=$LB("AL","LG","AL","AL","FG","F")
 	Set:(OneDS?1(1"*",1"GMA")) arKlrDfl("GMA")=$LB("MG","LG","MG","MG","FG","MA")
@@ -714,13 +715,18 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If DC?1(1"S",1"F",1"MA") {
+	If LadeCode?1(1"MY2",1"BY2",1"DY2",1"MY2/Z",1"BY2/Z",1"DY2/Z",1"DLY2",1"DLY2/Z",1"CLY2",1"CLY2/Z",1"CMY2",1"CMY2/Z") {
+		// Sifonlade Type2  is steeds verlaagd tot M-hoogte.
+		Set SPBinHoogte="M"
+	} 
+	ElseIf DC?1(1"S",1"F",1"MA") {
 		If (       LadeCode = "MS2" )  Set SPBinHoogte="M"
 		Else  If ( LadeCode = "BS2" )  Set SPBinHoogte="B"
 		Else  If ( LadeCode = "DS2" )  Set SPBinHoogte="D"
 	} ElseIf DC?1(1"I") {
 		If (       LadeCode = "MS2" )  Set SPBinHoogte="M"
 		Else  If ( LadeCode = "DLS2" ) Set SPBinHoogte="M"   ; =$S(SPZK="SA":"M",SPZK?1(1"S2",1"B2",1"M"):"M",1:"M")
+		Else  If ( LadeCode?1(1"MY2",1"CLY2",1"DLY2",1"MY2/Z"))  Set SPBinHoogte="M"
 	} ElseIf DC?1(1"A") {
 		If (       LadeCode = "MS2" )  Set SPBinHoogte="M"
 		Else  If ( LadeCode = "BS2" )  Set SPBinHoogte="M"
@@ -742,8 +748,9 @@
 	Set Klasse = ..KLASFromLC(LadeCode)
 	
 	Set Aantal = 0
-	If Klasse="SY"         Set Aantal=$S(SPZK?1.E1".x2":2, 1:1)   ; Set Aantal=$S(LadeCode?1.E.1"Y2":2, LadeCode?1"MY":2, 1:1)   ; LadeCode?1"MY" simuleert dubbele sifon 
-	Else  If Klasse="SP2"  Set Aantal = 1
+	If Klasse="SP2"        Set Aantal = 1
+	Else  If Klasse="SY"   Set Aantal=$S(SPZK?1.E1".x2":2, 1:1)   ; Set Aantal=$S(LadeCode?1.E.1"Y2":2, LadeCode?1"MY":2, 1:1)   ; LadeCode?1"MY" simuleert dubbele sifon 
+	Else  If Klasse="SY2"  Set Aantal=$S(SPZK?1.E1".x2":2, 1:1)
 	Else                   Set Aantal = 0
 	
 	Quit Aantal
@@ -813,7 +820,7 @@
 	. Set:(dsID="") dsID=$P(dsIDs,";",1)
 	Else  Do
 	. For i=1:1:$L(dsIDs,";") Do  Quit:(dsID'="")
-	. . Set:($LG(..BTDep("TBDesign","TBDesignCode",$P(dsIDs,";",i)),1)=BeperkDesignCode) dsID=$P(dsIDs,";",i)
+	. . Set:($LG($G(..BTDep("TBDesign","TBDesignCode",$P(dsIDs,";",i))),1)=BeperkDesignCode) dsID=$P(dsIDs,";",i)
 	Quit dsID
 ]]></Implementation>
 </Method>