Index: BL/PR/GA/impl/TandemBoxRecalcInputKM.cls.xml
===================================================================
diff -u -r1074 -r2792
--- BL/PR/GA/impl/TandemBoxRecalcInputKM.cls.xml	(.../TandemBoxRecalcInputKM.cls.xml)	(revision 1074)
+++ BL/PR/GA/impl/TandemBoxRecalcInputKM.cls.xml	(.../TandemBoxRecalcInputKM.cls.xml)	(revision 2792)
@@ -11,6 +11,25 @@
 <Default>0</Default>
 </Parameter>
 
+<Method name="RecalcIntivoInoxReling">
+<Description>
+Aanpassen van de Input Kenmerken voor Intivo inox relingkleur
+Voorheen was de selectiekleur Chroom ("CR"), dit wordt nu analoog aan antaro, nl Inox ("IN") 
+Deze routine kan in drie stappen 
+Added: 10/11/2011 
+Oproepen via
+  s sc=##class(BL.PR.GA.impl.TandemBoxRecalcInputKM).RecalcIntivoInoxReling(1000,1)   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String,Stap:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set sc=$$$OK
+	Set FilterMethodName="ProductFilterIntivoInoxReling"   ; aan te passen aan de specifieke situatie
+	Do ..%New(.KLNr,.Stap,FilterMethodName).RecalcTBX()
+	Quit sc
+]]></Implementation>
+</Method>
+
 <Method name="RecalcSPZK">
 <Description>
 Aanpassen van de Input Kenmerken voor SPZBINHOOGTE bij Spoelbakken 
@@ -69,7 +88,50 @@
 		Do GADataProd.TemplateTmpInit()
 		Do GADataProd.AutosFromTemplate()   ;(Template,"FILL")
 		Do GADataProd.BuildLookUp($LB("PL"))
+		Do GADataProd.CalcAll()
 		
+		Set BT="RK"   ; RelingKleur 
+		Set BTVal="IN"
+		Do bwvAddToDataItem(BT,BTVal)
+		Set arNewValues(BT)=BTVal
+		
+		If ModOpties="-" {
+			// Do not save changes 
+			Set sc=$$$OK
+		}
+		Else { 
+			Set sc=GADataProd.SaveClean()
+			Set MetaGroep=GADataProd.MetaStruct.Code
+			Set ProgLabel=""
+			For  Set ProgLabel=$O(arNewValues(ProgLabel)) Quit:(ProgLabel="")  Set:($$$ISOK(sc)) sc=##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak(MetaGroep,PRNr,ProgLabel,arNewValues(ProgLabel))
+			w $$ArrayToText^vhLib("arNewValues",.arNewValues),!
+		}
+	}
+	Else {
+		Set sc=$$$ERROR($$$GeneralError,"GAData.Product bestaat niet voor ID "_GADataID_".")
+	}
+	Quit sc
+
+bwvAddToDataItem(PL,BTVal)
+	Do:($L(PL)&&$L(BTVal)) GADataProd.SetItemValByPL(PL,BTVal)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="TBXParamsModifyPREV">
+<FormalSpec>PRNr:%String,GADataID:%String,ModOpties:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Result=##class(Prod.GAData.Product).SyncWithTempl(GADataID)
+	Set GADataProd=##class(Prod.GAData.Product).%OpenId(GADataID)
+	If $IsObject(GADataProd) {
+		
+		Kill arNewValues
+		
+		Do GADataProd.TemplateTmpInit()
+		Do GADataProd.AutosFromTemplate()   ;(Template,"FILL")
+		Do GADataProd.BuildLookUp($LB("PL"))
+		
 		Set KLAS=$G(GADataProd.LookUp("PL","KLAS"))      ; ,$$$PLp("TBKlasse")   
 		If KLAS="SP2" { 
 			Do GADataProd.CalcAll()
@@ -94,16 +156,17 @@
 				Set arNewValues(BT)=BTVal
 			}
 			
-			If ModOpties'="-" {
+			If ModOpties="-" {
+				// Do not save changes 
+				Set sc=$$$OK
+			}
+			Else { 
 				Set sc=GADataProd.SaveClean()
 				Set MetaGroep=GADataProd.MetaStruct.Code
 				Set ProgLabel=""
-				For  Set ProgLabel=$O(arNewValues(ProgLabel)) Quit:(ProgLabel="")  Set:($$$ISOK(sc)) sc=##class(Prod.Kenmerk.DataDefinitie).Set(MetaGroep,PRNr,ProgLabel,arNewValues(ProgLabel))
+				For  Set ProgLabel=$O(arNewValues(ProgLabel)) Quit:(ProgLabel="")  Set:($$$ISOK(sc)) sc=##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak(MetaGroep,PRNr,ProgLabel,arNewValues(ProgLabel))
 				w $$ArrayToText^vhLib("arNewValues",.arNewValues),!
 			}
-			Else { 
-				Set sc=$$$OK
-			}
 		}
 	}
 	Else {
@@ -117,6 +180,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProductFilterIntivoInoxReling">
+<Description>
+Beperken tot de TBox-producten met intivo inox design
+(Added by Wimv on 10/11/2011)</Description>
+<FormalSpec><![CDATA[PRNr:%String,&LadeInfo:%String]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	;q:(PRNr'?1(1"601546",1"700121")) 0   ; inox intivo (relingkleur)
+
+	Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))       ; DesignCode 
+	Quit:(DC'="I") 0
+	Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS"))       ; Design 
+	Quit:(DS'="II") 0
+	Set RK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RK"))       ; RelingKleur 
+	Set KF=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KF"))       ; FrontKleur  
+	  ;d WL^vhDBG("DS: "_DS_"  RH: "_RH)
+	Quit:(RK="IN") 0
+ 
+	// Selectie verder te beperken, wanneer slechts gedeeltelijke omschakeling naar nieuwe producten 
+	// Bijvoorbeeld : enkel de ZIFs op D-hoogte in zijdewit omzetten 
+	Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))       ; LadeCode 
+	Set BGRP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BGRP"))   ; Binnengreep 
+	Set DWV=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DWV"))     ; Dwarsverdeling 
+	Set blnOK=(LC?1(1"CL/Z",1"DL/Z",1"CLY/Z",1"DLY/Z"))&&(BGRP?1(1"R",1"RG",1"RM"))
+	;Set blnOK=(LC?1(1"CL/Z"))&&(BGRP?1(1"R",1"RG",1"RM"))
+	;Set blnOK=(LC?1(1"DL/Z"))&&(BGRP?1(1"R",1"RG",1"RM"))&&(DWV>0)
+	
+	Set LadeInfo=LC_";"_DS_";"_RK_";"_KF_";"_DWV_";" 
+	  d:(blnOK) WLIP^vhDBG(97,"LadeInfo: "_LadeInfo)
+
+	Quit blnOK
+]]></Implementation>
+</Method>
+
 <Method name="ProductFilterSPZBINHOOGTE">
 <Description>
 Beperken tot de TBox-producten met Verlaagde ruggen (met/zonder hoge sifonlades) 
Index: BL/PR/GA/TandemBoxRecalc.cls.xml
===================================================================
diff -u -r2589 -r2792
--- BL/PR/GA/TandemBoxRecalc.cls.xml	(.../TandemBoxRecalc.cls.xml)	(revision 2589)
+++ BL/PR/GA/TandemBoxRecalc.cls.xml	(.../TandemBoxRecalc.cls.xml)	(revision 2792)
@@ -446,6 +446,9 @@
 			Do ..ManuelePRBSProducten.Insert(PRNr)
 		}
 	}
+	Else {
+		Set VersieNrPRBS="1.0.0"
+	}
  
  	If VersieNrPRBS'="" {
 		Set Prijs=$S(KLNr?4.5N:..KlantPrijs(KLNr,PRNr), 1:$$$PRGet($$$PPLMTL) )