Index: BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml
===================================================================
diff -u -r3104 -r3268
--- BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml	(.../TandemBoxRecalcBS.cls.xml)	(revision 3104)
+++ BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml	(.../TandemBoxRecalcBS.cls.xml)	(revision 3268)
@@ -5,6 +5,24 @@
 <Super>BL.PR.GA.TandemBoxRecalc</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="RecalcSPTUSASM">
+<Description>
+Herberekenen van de Bouwstenen voor TBX-producten spoelbak die antislipmat bevatten. 
+Deze routine kan in drie stappen 
+Added: 30/11/2011 
+Oproepen via
+  s sc=##class(BL.PR.GA.impl.TandemBoxRecalcBS).RecalcSPTUSASM(1000,1)   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String,Stap:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set sc=$$$OK
+	Set FilterMethodName="ProductFilterRecalcSPTUSASM"   ; aan te passen aan de specifieke situatie
+	Do ..%New(.KLNr,.Stap,FilterMethodName).RecalcTBX()
+	Quit sc
+]]></Implementation>
+</Method>
+
 <Method name="RecalcBOXCAP">
 <Description>
 Herberekenen van de Bouwstenen voor TBX-producten die Boxcap bevatten. 
@@ -122,6 +140,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProductFilterRecalcSPTUSASM">
+<Description>
+Beperken tot de TBox-producten (spoelbak) met antislipmatten "PRTUSASMROL" 
+(Added by WimV on 30/11/2011) </Description>
+<FormalSpec><![CDATA[PRNr:%String,&LadeInfo:%String]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	;q:(PRNr'?1(1"343334",1"330348",1"707755")) 0   ; SPB met mat 
+
+	q:(PRNr?1(1"432683",1"471583",1"471584",1"471586",1"471588",1"471590")) 0   ; Manueel af te handelen 
+	
+	
+	Set BevatTussenmat=0
+	Set Product=##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+	If Product.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing") {
+		Set Uitsparing=Product.GeefUitsparingen().GetNext("")
+		If Uitsparing.%Extends("DOM.PM.TBXProduct.TBXRechteUitsparing") {
+			Set ProductMetASM=(Product.GeefAntislipmat()'=##class(DOM.PM.enu.TBXAntislipmat).Geen())
+			If ProductMetASM {
+				Set BevatTussenmat=1
+			}
+		}
+	}
+	Set AcceptProduct=(BevatTussenmat)
+	
+	If AcceptProduct {
+		// Maak LadeInfo 
+		Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))     ; Antislipmat 
+		Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS"))       ; Design 
+		Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))       ; LadeCode 
+		Set LadeInfo=ASM_";"_DS_";"_LC_";"
+		
+		If DS?1(1"IS")  Set AcceptProduct=0   ; Deze design(s) overslaan 
+	}
+
+	Quit AcceptProduct
+]]></Implementation>
+</Method>
+
 <Method name="ProductFilterBOXCAP">
 <Description>
 Beperken tot de TBox-producten met Boxcap