Index: BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml
===================================================================
diff -u -r1074 -r1500
--- BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml	(.../TandemBoxRecalcBS.cls.xml)	(revision 1074)
+++ BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml	(.../TandemBoxRecalcBS.cls.xml)	(revision 1500)
@@ -5,6 +5,27 @@
 <Super>BL.PR.GA.TandemBoxRecalc</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="RecalcBOXCAP">
+<Description>
+Herberekenen van de Bouwstenen voor TBX-producten die Boxcap bevatten. 
+Deze routine kan in drie stappen 
+Added: 22/06/2011 
+Oproepen via
+  s sc=##class(BL.PR.GA.impl.TandemBoxRecalcBS).RecalcBOXCAP(1000,1)   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String,Stap:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set sc=$$$OK
+	
+	If KLNr="*K*" Set KLNr="2913;6780;11211;2523;1385;1863;3042;1900"   _ ";11851;1594"
+	
+	Set FilterMethodName="ProductFilterBOXCAP"   ; aan te passen aan de specifieke situatie
+	Do ..%New(.KLNr,.Stap,FilterMethodName).RecalcTBX()
+	Quit sc
+]]></Implementation>
+</Method>
+
 <Method name="RecalcDWV">
 <Description>
 Herberekenen van de Bouwstenen voor TBX-producten die Dwarsverdelingen bevatten. 
@@ -101,6 +122,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProductFilterBOXCAP">
+<Description>
+Beperken tot de TBox-producten met Boxcap 
+(Added by WimV on 22/06/2011) </Description>
+<FormalSpec><![CDATA[PRNr:%String,&LadeInfo:%String]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	;q:(PRNr'?1(1"614191",1"542390",1"527900")) 0   ; met Boxcap 
+	
+	Set BX=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BS"))       ; Boxside/Reling 
+	Quit:(BX'="CAP") 0
+	
+	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 LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))       ; LadeDiepte 
+ 
+	// Selectie verder te beperken, wanneer slechts gedeeltelijke omschakeling naar nieuwe producten 
+	// Bijvoorbeeld : enkel MG omzetten 
+	Set blnOK=(DS?1(1"GI"))&&(LD=500)
+	Set LadeInfo=LC_";"_DS_";"_BX_";"_LD_";"
+	  d:(blnOK) WL^vhDBG("LadeInfo: "_LadeInfo)
+
+	Quit blnOK
+]]></Implementation>
+</Method>
+
 <Method name="ProductFilterDWV">
 <Description>
 Beperken tot de TBox-producten met Dwarsverdelingen