Index: BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml
===================================================================
diff -u -r2552 -r3104
--- BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml	(.../TandemBoxRecalcBS.cls.xml)	(revision 2552)
+++ BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml	(.../TandemBoxRecalcBS.cls.xml)	(revision 3104)
@@ -257,79 +257,7 @@
 <Method name="ProductFilterTBXDefault">
 <FormalSpec><![CDATA[PRNr:%String,&LadeInfo:%String]]></FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit ERROR   ; moet specifieke method implementeren !!! 
-	
- /*   * /
-	
-	Set blnAddProduct=$$stoProductIsTBoxWithVerlaagdeRug(.LadeInfo)   ; (Added by WimV on 29/10/2010) 
-	;Set blnAddProduct=$$stoProductIsTBoxWithZIFintivo(.LadeInfo)     ; (Added by WimV on 21/09/2010) 
-	;Set blnAddProduct=$$stoProductIsTBoxWithASM(.LadeInfo)           ; (Added by WimV on 04/06/2010) 
-	Quit blnAddProduct
-	
-	
-	// Beperken tot de TBox-producten met Verlaagde ruggen (met/zonder hoge sifonlades) 
-stoProductIsTBoxWithVerlaagdeRug(LadeInfo)   ; LadeInfo als .local doorgeven 
-	q:(PRNr'?1(1"518499",1"602028")) 0    ; Verlaagde RugH 
-	
-	Set RSTL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RSTL"))   ; RugStuk verlaagd 
-	Quit:(RSTL'?1(1"M",1"B")) 0
-	
-	// Selectie verder te beperken, wanneer slechts gedeeltelijke omschakeling naar nieuwe producten 
-	Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))       ; LadeCode 
-	Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"))   ; Klasse 
-	Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS"))       ; Design 
-	Set blnOK=1   ; (KLAS'?1(1"SY"))       ; bouwstenen van dit product herberekenen ? 
-	;Quit:(KLAS?1(1"SP2")) 0   ; spoelbakken voorlopig effe skippen (Added by WimV on 04/06/2010)
-	Set LadeInfo=RSTL_";"_LC_";"_DS_";" 
-	Quit blnOK
- 
- 
-	// Beperken tot de TBox-producten met ZIF intivo (D of C - binnenlade) 
-stoProductIsTBoxWithZIFintivo(LadeInfo)   ; LadeInfo als .local doorgeven 
-	;q:(PRNr'?1(1"592163",1"592193")) 0   ; ZIF intivo 
-	
-	;New DC,DS,RH,LC,LT,blnOK
-	Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))       ; DesignCode 
-	Quit:(DC'="I") 0
-	Set LT=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LT"))       ; FrontType (binnenlade) 
-	Quit:(LT'="B") 0
-	Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS"))       ; Design 
-	Set RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH"))       ; RugHoogte 
-	Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))       ; LadeCode 
-	  ;d WL^vhDBG("DS: "_DS_"  RH: "_RH)
-	Quit:($$$Not((DS?1(1"WI",1"ZI",1"GI",1"II"))&&(RH?1(1"D",1"C")))) 0
-	
-	// Selectie verder te beperken, wanneer slechts gedeeltelijke omschakeling naar nieuwe producten 
-	// Bijvoorbeeld : enkel de ZIFs op D-hoogte in zijdewit omzetten 
-	Set blnOK=$$$Not((DS?1(1"WI",1"ZI"))&&(RH?1(1"D")))
-	
-#If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()="DEV")
-	Set blnOK=((DS?1(1"II"))&&(RH?1(1"C")))
-#EndIf
-	Set LadeInfo=LC_";"_DS_";"_RH_";" 
-	  d:(blnOK) WL^vhDBG("LadeInfo: "_LadeInfo)
-	Quit blnOK
- 
- 
-	// Beperken tot de TBox-producten met antislipmatten 
-stoProductIsTBoxWithASM(LadeInfo)   ; LadeInfo als .local doorgeven 
-	;New ASM,KLAS,LD,LC,DS,blnOK
-	Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))     ; Antislipmat 
-	Quit:(ASM'?1(1"G",1"Z",1"R",1"1")) 0
-	
-	// Selectie verder te beperken, wanneer slechts gedeeltelijke omschakeling naar nieuwe producten 
-	Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))       ; LadeDiepte 
-	Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))       ; LadeCode 
-	Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"))   ; Klasse 
-	Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS"))       ; Design 
-	;Set blnOK=(ASM?1(1"G"))&&(LD>500)   ; bouwstenen van dit product herberekenen ?    CONDITIE hangt af welke matten (kleur/afmeting) omgezet worden naar AGO 
-	Set blnOK=(DS'?1(1"AS",1"AI"))       ; bouwstenen van dit product herberekenen ? 
-	;Quit:(KLAS?1(1"SP2")) 0   ; spoelbakken voorlopig effe skippen (Added by WimV on 04/06/2010)
-	Set LadeInfo=ASM_";"_LD_";"_LC_";" 
-	Quit blnOK
- 
- /*   */
+<Implementation><![CDATA[	Quit ERROR   ; moet specifieke method implementeren !!!
 ]]></Implementation>
 </Method>
 </Class>