Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r41396 -r64681
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 41396)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 64681)
@@ -584,6 +584,7 @@
 	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")
+	Set:(OneDS?1(1"*",1"OMT")) arKlrDfl("OMT")=$LB("OG","DG","OG","OG","FG","MT")
 	Set:(OneDS?1(1"*",1"WA")) arKlrDfl("WA")=$LB("SW","WI","SW","SW","-","A")
 	Set:(OneDS?1(1"*",1"GA")) arKlrDfl("GA")=$LB("MG","LG","MG","MG","-","A")
 	Set:(OneDS?1(1"*",1"ZA")) arKlrDfl("ZA")=$LB("BZ","BZ","BZ","BZ","-","A")
@@ -803,7 +804,11 @@
 		// Sifonlade Type2  is steeds verlaagd tot M-hoogte.
 		Set SPBinHoogte="M"
 	} 
-	ElseIf DC?1(1"S",1"F",1"MA") {
+	ElseIf Klasse="SY3" {
+		// Sifonlade Type3  is steeds verlaagd tot M-hoogte.
+		Set SPBinHoogte="M"
+	} 
+	ElseIf DC?1(1"S",1"F",1"MA",1"MT") {
 		If (       LadeCode = "MS2" )  Set SPBinHoogte="M"
 		Else  If ( LadeCode = "BS2" )  Set SPBinHoogte="B"
 		Else  If ( LadeCode = "DS2" )  Set SPBinHoogte="D"
@@ -833,7 +838,8 @@
 	
 	Set Aantal = 0
 	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="SY"   Set Aantal=$S(SPZK?1.E1".x2":2, 1:1)
+	Else  If Klasse="SY3"  Set Aantal=$S(SPZK?1.E1".x2":2, 1:1)
 	Else  If Klasse="SY2"  Set Aantal=$S(SPZK?1(1"BB",1"SS",1"BS",1"SB",1"MM"):2, 1:1)
 	Else                   Set Aantal = 0
 	
@@ -991,19 +997,87 @@
 In sync houden met Cache v5 !!! 
 Volledige methodnaam : CalcAantalHoutschroevenVoorBodemRug()</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>TBKlasseID:%String,BreedteIntern:%Numeric</FormalSpec>
+<FormalSpec>TBKlasseID:%String,BreedteIntern:%Numeric,AantalUitsparingen:%Integer=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set AantalSchroeven = 0
 
 	Set AantalHoutschroevenVoorBodemRugBepaler = ##class(DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler).%New()
-	Set AantalSchroeven = AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(TBKlasseID,BreedteIntern)
+	Set AantalSchroeven = AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(TBKlasseID,BreedteIntern,AantalUitsparingen)
 
 	Quit AantalSchroeven
 ]]></Implementation>
 </Method>
 
+<Method name="CalcUitsparingBreedteVoorMat">
+<Description>
+In sync houden met Cache v5 !!! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>UitsparingBreedte:%Numeric,TBKlasseID:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	Set UitsparingBreedteVoorMat = UitsparingBreedte
+	If TBKlasseID = "SY3" {
+		Set UitsparingBreedteVoorMat = UitsparingBreedte + 0   ; Correctie 
+	}
+	Quit UitsparingBreedteVoorMat
+]]></Implementation>
+</Method>
+
+<Method name="CalcMatUitsparingSnijPosities">
+<Description>
+In sync houden met Cache v5 !!! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GADataItemMatStrook:Prod.GAData.Item</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set SnijPosities = ##class(%ArrayOfDataTypes).%New()
+	
+	Set TbxKenmerken = ..GeefTbxKenmerkenVanGADataItem(GADataItemMatStrook)
+	Set MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.PDB.impl.TBX.MatUitsparingSnijPositieBepaler).%New()
+	
+	If (TbxKenmerken.Klasse = "SY3") && (TbxKenmerken.Antislipmat?1(1A,3.E)) {
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatLinksX(TbxKenmerken)   , "LinksX"   )
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(TbxKenmerken) , "VooraanQ" )
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(TbxKenmerken), "VooraanQ1")
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatMiddenM1(TbxKenmerken)  , "MiddenM1"  )
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatMiddenM2(TbxKenmerken)  , "MiddenM2"  )
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(TbxKenmerken), "VooraanQ2")
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatRechtsY(TbxKenmerken)  , "RechtsY"  )
+	}
+	Quit SnijPosities
+]]></Implementation>
+</Method>
+
+<Method name="GeefTbxKenmerkenVanGADataItem">
+<Description>
+In sync houden met Cache v5 !!! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GADataItemMatStrook:Prod.GAData.Item</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	Set IsDubbeleUitsparing = (GADataItemMatStrook.Val("SYQTY") = 2)
+	
+	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TbxKenmerken.Klasse = GADataItemMatStrook.Val("KLAS")
+	Set TbxKenmerken.LadeDiepte = GADataItemMatStrook.Val("LD")
+	Set TbxKenmerken.CorpusBinnenbreedte = GADataItemMatStrook.Val("IB")
+	Set TbxKenmerken.Antislipmat = GADataItemMatStrook.Val("ASM")
+	Set TbxKenmerken.UitsparingPositie1 = GADataItemMatStrook.Val("SPZLI")
+	Set TbxKenmerken.UitsparingBreedte1 = GADataItemMatStrook.Val("SPBR1")
+	If IsDubbeleUitsparing {
+		Set TbxKenmerken.UitsparingBreedte2 = GADataItemMatStrook.Val("SPBR2")
+		Set TbxKenmerken.UitsparingPositie2 = GADataItemMatStrook.Val("IB") - GADataItemMatStrook.Val("SPZRE") - GADataItemMatStrook.Val("SPBR2")
+	}
+	
+	Quit TbxKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="CalcOpvullijstLengte">
 <Description>
 Voor sommige ladedieptes moeten opvullijsten ingekort worden. 
@@ -1027,7 +1101,7 @@
 
 <Method name="GeefLadeVariantFromDesignCode">
 <Description>
-Geeft de enumeratie van LadeVariant voor de DesignCode (S, I, B, F, MA).</Description>
+Geeft de enumeratie van LadeVariant voor de DesignCode (S, I, B, F, MA, MT).</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DesignCode:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
@@ -1046,6 +1120,9 @@
 	ElseIf DesignCode="MA" {
 		Set LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()
 	}
+	ElseIf DesignCode="MT" {
+		Set LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()
+	}
 	ElseIf DesignCode="B" {
 		;Set LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXBaliko()   ; DEPRECATED !!! 
 	}
@@ -1185,15 +1262,18 @@
 <FormalSpec>LadeCode:%String,Design:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set LC=$TR(LadeCode,"2I\/","")   ; Zowel voor spoelbak type 2 als voor sifonlade type 2 wordt het cijfer 2 weggefilterd 
+	Set LC=$TR(LadeCode,"23I\/","")   ; Zowel voor spoelbak type 2 als voor sifonlade type 2 wordt het cijfer 2 weggefilterd; idem voor type 3 
 	Set DC=..DesignCodeFromDS(Design)
 	
 	Set BoxSide=""
 	If DC?1(1"I",1"MA") {   ; intivo + mengvorm-A
 		Set BoxSide=$S(LC?1(1"DLS"):"CAP", LC?1(1"DL",1"DLZ",1"CL",1"CLZ",1"DLY",1"DLYZ",1"CLY",1"CLYZ"):"COV", LC?1(1"D"):"ER", 1:"ZR")
 	}
+	If DC?1(1"MT") {        ; mengvorm-T design 
+		Set BoxSide=$S(LC?1(1"D",1"C",1"B").E:"ER", 1:"ZR")
+	}
 	ElseIf DC?1(1"A") {     ; antaro 
-		Set BoxSide=$S(LC?1(1"CM",1"CMZ",1"CMY",1"CMYZ",1"CMS",1"B",1"BS",1"BY",1"DM",1"DMZ",1"DMS",1"DMY",1"DK",1"DKZ"):"ER", 1:"ZR")
+		Set BoxSide=$S(LC?1(1"B".E,1"CM".E,1"DM".E,1"DK".E):"ER", 1:"ZR")
 	}
 	Else {
 		Set BoxSide=$S(LC?1(1"DS"):"BD", LC?1(1"D",1"DZ",1"DY",1"DYZ"):"DR", LC?1(1"B",1"BZ",1"BS",1"BY",1"BYZ",1"C",1"CZ"):"ER", 1:"ZR")
@@ -1374,7 +1454,7 @@
  #define SPZkOpMaat(%v)   (%v?1(1"M",1"SI".E))
 
  // Aantal uitsparingen bij Sifonlade of spoelbaklade 
- If KLAS?1(1"SY",1"SY2") Do
+ If ##class(TECH.StringUtils).Equals(KLAS,"SY","SY2","SY3") Do
  . Set BT="SYQTY"
  . Set BTVal=..SpoelbakUitsparingen(LC,SPZK)
  . Do bwvAddToDataItem(BT,BTVal)
@@ -1383,7 +1463,7 @@
  . // Else  Dubbele sifonlade 
  . 
  . ; Controle op de afmetingen 
- . If KLAS="SY2" Do
+ . If ##class(TECH.StringUtils).Equals(KLAS,"SY2","SY3") Do
  . . Set SPBR1=$G(Product.LookUp("PL","SPBR1"))
  . . Set SPBR2=$G(Product.LookUp("PL","SPBR2"))
  . Else  Do
@@ -1393,7 +1473,7 @@
  . Set SPZLI=$G(Product.LookUp("PL","SPZLI"))
  . Set SPZRE=$G(Product.LookUp("PL","SPZRE"))
  . Set SPZMI=$G(Product.LookUp("PL","SPRUGMID"))
- .   d WL^vhDBG("Dubbele sifon : "_SPZLI_"+"_SPBR1_"+"_SPZMI_"+"_SPBR2_"+"_SPZRE_"="_(SPZLI+SPBR1+SPZMI+SPBR2+SPZRE)_"  IB="_IB)
+ .   ;d WL^vhDBG("Dubbele sifon : "_SPZLI_"+"_SPBR1_"+"_SPZMI_"+"_SPBR2_"+"_SPZRE_"="_(SPZLI+SPBR1+SPZMI+SPBR2+SPZRE)_"  IB="_IB)
  . Set scSPBR=$S(SPZLI+SPBR1+SPZMI+SPBR2+SPZRE=IB:$$$OK, 1:$$$ERROR($$$GeneralError,"Afmetingen dubbele sifonlade incorrect"))
  . If $$$ISERR(scSPBR) Set X=YYY   ; Calculation must trigger an ERROR
 
@@ -1417,8 +1497,10 @@
  . . Do bwvAddToDataItem("SPZRE",SPZRE)
  . Do Product.BuildLookUp($LB("PL"))
  
+ 
+ Set IsNieuweSifonlade = ##class(TECH.StringUtils).Equals(KLAS,"SY2","SY3")
  // SifonLade of Spoelbak zijstukkken op maat, spoelbakBreedte berekenen indien nog niet gekend 
- If (KLAS'="SY2")&&($L(SPZK))&&($G(SifonQty)<2) Do
+ If ($$$Not(IsNieuweSifonlade))&&($L(SPZK))&&($G(SifonQty)<2) Do
  . Set SPZLI=$G(Product.LookUp("PL","SPZLI"))
  . Set SPBR=$G(Product.LookUp("PL","SPBR"))
  . Set SPZRE=$G(Product.LookUp("PL","SPZRE"))
@@ -1435,7 +1517,7 @@
  . Do bwvAddToDataItem("SPZLI",SPZLI)
  . Do bwvAddToDataItem("SPBR",SPBR)
  . Do bwvAddToDataItem("SPZRE",SPZRE)
- Else  If (KLAS="SY2")&&($L(SPZK))&&($G(SifonQty)<2) Do
+ Else  If (IsNieuweSifonlade)&&($L(SPZK))&&($G(SifonQty)<2) Do
  . // Nieuwe SifonLade (type 2),  spoelbakBreedte controleren op correcte afmetingen 
  . Set SPZLI=$G(Product.LookUp("PL","SPZLI"))
  . Set SPBR=$G(Product.LookUp("PL","SPBR1"))
@@ -1452,7 +1534,7 @@
  . Set BTVal="B"
  . Do bwvAddToDataItem(BT,BTVal)
 
- If KLAS?1(1"SP2",1"SY2") Do
+ If ##class(TECH.StringUtils).Equals(KLAS,"SP2","SY2","SY3") Do
  . Set RSTL=$G(Product.LookUp("PL","RSTL"))
  . Set BinnenZijwandVolgtRSTL=0   ; conditioneel, afhankelijk van de UI (bvb Antaro BS2) 
  . If ($L(RSTL))&&(BinnenZijwandVolgtRSTL) Do
@@ -1484,7 +1566,7 @@
  ;Do Product.SetItemValByPL(BT,BTVal)   ;Do bwvAddToDataItem(BT,BTVal)
  
  Set BT="Staffel"
- Set BTVal=$$bwvCalcStaffel(..Qty)       
+ Set BTVal=1
  Do bwvAddToDataItem(BT,BTVal)
  
  Set BT="PRO"        ; IsPRO
@@ -1494,8 +1576,7 @@
  
  Do Product.BuildLookUp($LB("PL"))
  Quit
-bwvCalcStaffel(Qty)
- Quit $S(Qty<10:1,Qty>50:Qty,1:Qty\10*10)   ;Qty tussen 1 en 50 in stappen van 10
+
 bwvAddToDataItem(PL,BTVal)
  Do:($L(PL)&&$L(BTVal)) Product.SetItemValByPL(PL,BTVal)
  Quit
@@ -1745,13 +1826,7 @@
 <Implementation><![CDATA[
 	Set NewDK=""
 	If BM="I" Do
-	. If LD = 600 Set NewDK=$S(DK'=65:65, 1:"")
-	Else  If BM="T" Do
-	. ; Tipon is DEPRECATED ! 
-	. ;If ('LD) Set NewDK=""
-	. ;Else  If LD<350 Set NewDK=$S(DK'=20:20, 1:"")
-	. ;Else  If LD<450 Set NewDK=$S(DK'=30:30, 1:"")
-	. ;Else  If 1 Set NewDK=$S(DK'=50:50, 1:"")
+	. ; If LD = 600 Set NewDK=$S(DK'=65:65, 1:"")   ; Vanaf 04/06/2019 is 30kg ook toegelaten voor Blumotion 600mm diepte. 
 	Else  Do
 	. Set NewDK=$S(DK=20:30, 1:"")
 	Quit NewDK