Index: BL/PR/GA/TandemBoxRecalc.cls.xml
===================================================================
diff -u -r1074 -r1500
--- BL/PR/GA/TandemBoxRecalc.cls.xml	(.../TandemBoxRecalc.cls.xml)	(revision 1074)
+++ BL/PR/GA/TandemBoxRecalc.cls.xml	(.../TandemBoxRecalc.cls.xml)	(revision 1500)
@@ -304,6 +304,15 @@
 	If ..KlantNr?4.5N {
 		Do ..GetProductsForKlant(.arProd,..KlantNr)
 	} 
+	ElseIf $L(..KlantNr,";")>1 {
+		// KlantNr kan een lijst van klantnummers zijn, i.e.  een ";"-separated string 
+		// Added by WimV on 22/06/2011 
+		Set itKLNrIterator=##class(TECH.PiecesIterator).%New(..KlantNr,";")
+		While itKLNrIterator.HasNext() {
+			Set KLNr=itKLNrIterator.Next()
+			Do:(KLNr?4.5N) ..GetProductsForKlant(.arProd, KLNr)
+		}
+	} 
 	ElseIf ..KlantNr="*" {
 		// Products to exclude from recalculation 
 		;For iKLNr=$$$KlantKeller  Do ..GetProductsForKlant(.arProdExclude,iKLNr)
@@ -365,7 +374,7 @@
 	Set OFFNr=""
 	For  Set OFFNr=$O(^KOFKL(KLNr,"F",OFFNr)) Quit:OFFNr=""  Do
 	. Set OLNr=100
-	. For  Set OLNr=$O(^KOFKL(KLNr,"F",OFFNr,OLNr)) Quit:OLNr=""  Do
+	. For  Set OLNr=$O(^KOFKL(KLNr,"F",OFFNr,OLNr)) Quit:OLNr=""  Do:($IsValidNum(OLNr))
 	. . Set PRNr=$P(^KOFKL(KLNr,"F",OFFNr,OLNr),"\",2)
 	. . Quit:PRNr'?4.7N
 	. . Do ..StoreOneProduct(.arProd, PRNr,"O",KLNr)
@@ -432,7 +441,7 @@
 	Set ControleerVersieNrPRBS=(..blnCheckVersieNrPRBS)
 	If ControleerVersieNrPRBS {
 		Set VersieNrPRBS=$P($G(^PRBS("BS",PRNr),"\\1.0.0"),"\",3)   ; Steeds controleren
-		 d WLIP^vhDBG(97,"v PRBS = "_VersieNrPRBS)
+		 d WLIP^vhDBG(97,"v PRBS = "_VersieNrPRBS)   ; _"   KLNr="_$G(KLNr))
 		If VersieNrPRBS="" {
 			Do ..ManuelePRBSProducten.Insert(PRNr)
 		}
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