Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r94 -r98
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 94)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 98)
@@ -704,6 +704,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToonDesignInoxAntaro">
+<Description>
+Om strategische redenen mogen onze Duitse en Franse klanten (hein, OptimaPack) de inox antaro lades niet verdelen </Description>
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ToonDesignInoxAntaro=1
+	If ..DomeinVerwerker?1(1"HEIN",1"LMC") {
+		Set ToonDesignInoxAntaro=0
+	}
+	ElseIf (..DomeinVerwerker="VHEPN")&&(KLNr?1(1"7833",1"6279")) {   // Klantnummers overeenkomstig met domeinen (1"HEIN",1"SFS",1"LMC") 
+		Set ToonDesignInoxAntaro=0
+	}
+	Else {
+		Set ToonDesignInoxAntaro=1
+	}
+	Quit ToonDesignInoxAntaro
+]]></Implementation>
+</Method>
+
 <Method name="GeefLokalePaginaTBoxInfoURL">
 <Description>
 Geeft een URL naar de TBox-info pagina in het eigen (lokale) webdomein van de handel 
Index: cspBasis/GAProdDfls.cls.xml
===================================================================
diff -u -r22 -r98
--- cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 22)
+++ cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 98)
@@ -315,6 +315,10 @@
 	Set arKlrDfl("BI")=$LB("BI","EI","CR","IN","FG","B")		Set arInd($I(arInd))="BI"
 	Set arKlrDfl("GF")=$LB("MG","LG","MG","MG","FG","F")		Set arInd($I(arInd))="GF"
 	Set arKlrDfl("AF")=$LB("AL","LG","AL","AL","FG","F")		Set arInd($I(arInd))="AF"
+	Set arKlrDfl("WA")=$LB("SW","WI","SW","SW","DIA8","A")		Set arInd($I(arInd))="WA"
+	Set arKlrDfl("GA")=$LB("MG","LG","MG","MG","GRI8","A")		Set arInd($I(arInd))="GA"
+	Set arKlrDfl("ZA")=$LB("BZ","BZ","BZ","BZ","BRO8","A")		Set arInd($I(arInd))="ZA"
+	Set arKlrDfl("IA")=$LB("IN","DG","CR","IN","GRI8","A")		Set arInd($I(arInd))="IA"
 	Set arKlrDfl("GMA")=$LB("MG","LG","MG","MG","FG","MA")		Set arInd($I(arInd))="GMA"
  */
 	Do ..GetKleurDefaults(.arKlrDfl)
@@ -341,7 +345,7 @@
 <Implementation><![CDATA[
 	Do ..GetKlantKleurDefaults(.DC,.arKlrDfl)
 	
-	Set lbKlrSort=$LB("WS","GS","AS","IS","WI","GI","ZI","II","AI","BA","BI","GF","AF","WA","GA","ZA","GMA")
+	Set lbKlrSort=$LB("WS","GS","AS","IS","WI","GI","ZI","II","AI","BA","BI","GF","AF","WA","GA","ZA","IA","GMA")
 
 	// Op basis van arKlrDfl() een JS-function maken 
 	Set jsFunc=""
Index: WV GAProduct DMZ.prj.xml
===================================================================
diff -u -r81 -r98
--- WV GAProduct DMZ.prj.xml	(.../WV GAProduct DMZ.prj.xml)	(revision 81)
+++ WV GAProduct DMZ.prj.xml	(.../WV GAProduct DMZ.prj.xml)	(revision 98)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct DMZ" LastModified="2011-10-21 14:02:23" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct DMZ" LastModified="2011-11-14 18:12:26" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="/csp/httplog/DLGqueryVH.csp" type="CSP"/>
     <ProjectItem name="/csp/httplog/queryVH.csp" type="CSP"/>
@@ -145,6 +145,7 @@
     <ProjectItem name="cspBasis.TBX.DecodeURL.tmpDev.MAC" type="MAC"/>
     <ProjectItem name="vhConsistency.Checks.NietVerwerkteTBXOrders" type="CLS"/>
     <ProjectItem name="vhDeploy.WV.Deploy20110905x0939" type="CLS"/>
+    <ProjectItem name="vhDeploy.WV.Deploy20111114x1650inoxReling" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestActies" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestTBXContext" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.impl.VHEPNOrderHandler" type="CLS"/>
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r77 -r98
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 77)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 98)
@@ -533,7 +533,7 @@
 	Set:(OneDS?1(1"*",1"WI")) arKlrDfl("WI")=$LB("SW","WI","SW","SW","DIA8","I")
 	Set:(OneDS?1(1"*",1"GI")) arKlrDfl("GI")=$LB("MG","LG","MG","MG","GRI8","I")
 	Set:(OneDS?1(1"*",1"ZI")) arKlrDfl("ZI")=$LB("BZ","BZ","BZ","BZ","BRO8","I")
-	Set:(OneDS?1(1"*",1"II")) arKlrDfl("II")=$LB("IN","DG","CR","IN","GRI8","I")
+	Set:(OneDS?1(1"*",1"II")) arKlrDfl("II")=$LB("IN","DG","IN","IN","GRI8","I")
 	Set:(OneDS?1(1"*",1"AI")) arKlrDfl("AI")=$LB("AL","LG","AL","AL","DIA8","I")
 	Set:(OneDS?1(1"*",1"BA")) arKlrDfl("BA")=$LB("BE","BE","CR","IN","FG","B")     ;  "BA" is obsolete 
 	Set:(OneDS?1(1"*",1"BI")) arKlrDfl("BI")=$LB("BI","EI","CR","IN","FG","B")     ;  "BI" is obsolete 
@@ -543,6 +543,7 @@
 	Set:(OneDS?1(1"*",1"WA")) arKlrDfl("WA")=$LB("SW","WI","SW","SW","-","A")
 	Set:(OneDS?1(1"*",1"GA")) arKlrDfl("GA")=$LB("MG","LG","MG","MG","-","A")
 	Set:(OneDS?1(1"*",1"ZA")) arKlrDfl("ZA")=$LB("BZ","BZ","BZ","BZ","-","A")
+	Set:(OneDS?1(1"*",1"IA")) arKlrDfl("IA")=$LB("IN","DG","IN","IN","GRI8","A")
 	Quit $S(OneDS="*":"", 1:$G(arKlrDfl(OneDS)))
 ]]></Implementation>
 </Method>
Index: vhDeploy/WV/Deploy20111114x1650inoxReling.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20111114x1650inoxReling.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20111114x1650inoxReling.cls.xml	(revision 98)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.WV.Deploy20111114x1650inoxReling">
+<IncludeCode>vhLib.Macro,PRGACNTs</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Write "Conversie van inox RelingKleur voor intivo (CR --> IN)",!
+	
+	// Aanpassing inox RelingKleur 
+	// bij intivo inox een conversie uitvoeren zodanig dat de RelingKleur (huidig = Chroom) overeenkomt met de RelingKleur bij antaro (= inox) 
+	// De relingkleur bij intivo is van belang voor dwarsverdelingen en voor binnenlades met frontreling!
+	
+	// Converteer KlantDefaults 
+	Do ..ConverteerKlantDefaults()
+	
+	// Converteer bestaande orders 
+	Do ..ConverteerBestaandeOrders()
+
+	Write !
+	Write "OPGELET !!!   Vergeet niet om de laatste versie van excel TBX_BasisTabellen.xls  te importeren (i.h.b. RelingKleur)  !!! ",!,! 
+
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerKlantDefaults">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#define pieceRelingKleur(%v)   $P(%v,"\",3)
+
+	Write "Conversie van TBX KlantDefaults ... " ,!
+
+	Set sDomVERW=$O($$$GlobalKLData("DFL",""))
+	While (sDomVERW'="") {
+
+		Set CountConverted=0
+		Set KLNr=$O($$$GlobalKLData("DFL",sDomVERW,""))
+		While (KLNr'="") {
+			Set pdlKleurDfl=$G($$$GlobalKLData("DFL",sDomVERW,KLNr,"KLR","I","*","II"))   ; pdlKleurDfl is piece-delimited list :  DS\KB\KR\KV 
+			If $$$pieceRelingKleur(pdlKleurDfl)="CR" {
+				Set $$$pieceRelingKleur(pdlKleurDfl)="IN"
+				Set $$$GlobalKLData("DFL",sDomVERW,KLNr,"KLR","I","*","II")=pdlKleurDfl
+				
+				Set CountConverted=CountConverted+1
+			}
+			
+			Set KLNr=$O($$$GlobalKLData("DFL",sDomVERW,KLNr))
+		}
+	
+		Write "   Aantal KlantDefaults (kleuren) geconverteerd voor Domein "_sDomVERW_" : "_CountConverted,!
+
+		Set sDomVERW=$O($$$GlobalKLData("DFL",sDomVERW))
+	}
+	
+	Write "Conversie van TBX KlantDefaults finished." ,!
+
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerBestaandeOrders">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Write "Conversie van WS.TBX.Orders ... " ,!
+
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("UPDATE WS_TBX.WebOrder_Lijnen  SET Lijnen_ItemRK = 'IN' WHERE (Lijnen_ItemRK = 'CR') and ((substr(Lijnen_ItemDS,2,1) = 'I') and (Lijnen_ItemDS <> 'BI') ) ")
+	Do ResultSet.Execute()
+	Write "   Aantal TBXLijnen geupdated : "_$G(%ROWCOUNT,"???"),! 
+	Do ResultSet.Close()
+	Set ResultSet=""
+
+	Write "Conversie van WS.TBX.Orders finished." ,!
+]]></Implementation>
+</Method>
+</Class>
+</Export>