Index: PRGACNTs.inc.rou
===================================================================
diff -u -r135 -r529
--- PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 135)
+++ PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 529)
@@ -112,6 +112,7 @@
 	#define MBHollandOptKey            "NL_MeuHo.VH!lAdE"
 	#define HafeleBEOptKey             "BE-tbx.H@fele&VH"
 	#define KischOptKey                "tBx&_KiSCH-nl2VH"
+	#define VanRaemdonckOptKey         "beShop-V.R�EM!VH"
 	
 	; Toegang voor OptimaFIX page : beperkt via controle op IP-adres 
 	;   !!! Te compileren in routines :           
Index: APPS/TBXWeb/DomeinNamen.inc.rou
===================================================================
diff -u -r135 -r529
--- APPS/TBXWeb/DomeinNamen.inc.rou	(.../DomeinNamen.inc.rou)	(revision 135)
+++ APPS/TBXWeb/DomeinNamen.inc.rou	(.../DomeinNamen.inc.rou)	(revision 529)
@@ -26,6 +26,7 @@
 	#define TBoxWebDomeinHFLB                    "tandembox.hafele.be"
 	#define TBoxWebDomeinKISCH                   "tandembox.kisch.nl"
 	#define TBoxWebDomeinDEMO                    "demo.tandem-box.com"
+	#define TBoxWebDomeinRAEM                    "tandembox.vanraemdonck.eu"
  
 	; === Bijhorende Klantnummers === 
 	#define TBoxWebKlantNrVHEPN                   "4682"
@@ -40,6 +41,7 @@
 	#define TBoxWebKlantNrHFLB                    "4875"
 	#define TBoxWebKlantNrVHEPNDEMO               "6819"
 	#define TBoxWebKlantNrKISCH                   "2254"
+	#define TBoxWebKlantNrRAEM                    "1523"
  
  
 	; === Info pagina's voor de TBoxWeb handels === 
@@ -53,4 +55,8 @@
 	#define TBoxInfoPageHFLB                      ""
 	
 	#define HomePageKISCH                         "http://www.kisch.nl"
-	#define TBoxInfoPageKISCH                     ""	
\ No newline at end of file
+	#define TBoxInfoPageKISCH                     ""	
+ 
+	#define HomePageRAEM                          "http://www.vanraemdonck.eu"
+	#define TBoxInfoPageAREM                      ""
+ 
\ No newline at end of file
Index: APPS/TBXWeb/enu/TBXHandel.cls.xml
===================================================================
diff -u -r135 -r529
--- APPS/TBXWeb/enu/TBXHandel.cls.xml	(.../TBXHandel.cls.xml)	(revision 135)
+++ APPS/TBXWeb/enu/TBXHandel.cls.xml	(.../TBXHandel.cls.xml)	(revision 529)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>,VHEPN,HEIN,LMC,DUPO,HELMY,HFLE,SFS,MBHO,HFLB,KISCH</Default>
+<Default>,VHEPN,HEIN,LMC,DUPO,HELMY,HFLE,SFS,MBHO,HFLB,KISCH,RAEM</Default>
 </Parameter>
 
 <Method name="Dupont">
@@ -85,6 +85,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VanRaemdonck">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "RAEM"
+]]></Implementation>
+</Method>
+
 <Method name="VanHoecke">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou
===================================================================
diff -u -r191 -r529
--- cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 191)
+++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 529)
@@ -216,6 +216,7 @@
 	Set luSafe($$$TBoxWebDomeinMBHO,"VHEPN","ENC")="meubelgeheimMBHO"
 	Set luSafe($$$TBoxWebDomeinHFLB,"?","?")=""    ; luSafe wordt niet meer aangevuld, want wordt nauwelijks nog gebruikt  ( !!! luTBX hieronder nog wel aanvullen) 
 	Set luSafe($$$TBoxWebDomeinKISCH,"?","?")=""   ; luSafe wordt niet meer aangevuld, want wordt nauwelijks nog gebruikt  ( !!! luTBX hieronder nog wel aanvullen) 
+	Set luSafe($$$TBoxWebDomeinRAEM,"?","?")=""    ; luSafe wordt niet meer aangevuld, want wordt nauwelijks nog gebruikt  ( !!! luTBX hieronder nog wel aanvullen) 
 	; luTBX
 	; Temporary copied local values from (class(WS.TBX.Order).DomaimLookup/cdtFillArrayLU):
 	Set luTBX("www.tandem-box.com","UserType","VHEPN")=$$$utVerwAdmin
@@ -240,6 +241,8 @@
 	Set luTBX($$$TBoxWebDomeinHFLB,"UserType","HFLB")=$$$utVerwDomain
 	Set luTBX($$$TBoxWebDomeinKISCH,"UserType","VHEPN")=$$$utVerwAdmin
 	Set luTBX($$$TBoxWebDomeinKISCH,"UserType","KISCH")=$$$utVerwDomain
+	Set luTBX($$$TBoxWebDomeinRAEM,"UserType","VHEPN")=$$$utVerwAdmin
+	Set luTBX($$$TBoxWebDomeinRAEM,"UserType","RAEM")=$$$utVerwDomain
 	Quit
 ophGetUserType(KLNr,Domain,Verw,Mode)
 #If $$$NSpace="xDEMO" 
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r527 -r529
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 527)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 529)
@@ -133,6 +133,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IsRAEM">
+<Description>
+Van Raemdonck  (met login) (BE)</Description>
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>WebDomein:%String,HttpRequestDomein:%String=""</FormalSpec>
 <Private>1</Private>
@@ -157,6 +164,7 @@
 	Set ..IsMBHO  = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).MBHolland())
 	Set ..IsHFLB  = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE())
 	Set ..IsKISCH = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).Kisch())
+	Set ..IsRAEM  = (..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck())
 	; ... uit te breiden voor nieuwe domeinen 
 	
 	Quit $$$OK
@@ -259,6 +267,10 @@
 		Set arLookupTBX("VERW")=##class(APPS.TBXWeb.enu.TBXHandel).Kisch()
 		Set arLookupTBX("KLNR")=$$$TBoxWebKlantNrKISCH
 	}
+	ElseIf Domain=$$$TBoxWebDomeinRAEM {
+		Set arLookupTBX("VERW")=##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck()
+		Set arLookupTBX("KLNR")=$$$TBoxWebKlantNrRAEM
+	}
 	Else {
 		Set arLookupTBX=""	
 	}
@@ -285,6 +297,7 @@
 							$$$TBoxWebKlantNrMBHO  : $$$TBoxWebDomeinMBHO, 
 							$$$TBoxWebKlantNrHFLB  : $$$TBoxWebDomeinHFLB, 
 							$$$TBoxWebKlantNrKISCH : $$$TBoxWebDomeinKISCH, 
+							$$$TBoxWebKlantNrRAEM  : $$$TBoxWebDomeinRAEM, 
 							        : "" )   ; niet naar demo verwijzen ($$$TBoxWebDomeinDEMO)
 	Quit WebDomein
 ]]></Implementation>
@@ -309,6 +322,7 @@
 			 				$$$TBoxWebDomeinMBHO   : "mbho", 
 			 				$$$TBoxWebDomeinHFLB   : "hfle.be", 
 			 				$$$TBoxWebDomeinKISCH  : "kisch", 
+			 				$$$TBoxWebDomeinRAEM   : "raem", 
 			 				$$$TBoxWebDomeinDEMO   : "demo", 
 			 				 : WebDomein )
 	Quit DomeinKort
@@ -335,6 +349,7 @@
 			 				"hfle.nl" : $$$TBoxWebDomeinHFLE,
 			 				"hfle.be" : $$$TBoxWebDomeinHFLB,
 			 				"kisch"   : $$$TBoxWebDomeinKISCH,
+			 				"raem"    : $$$TBoxWebDomeinRAEM,
 			 				"demo"    : $$$TBoxWebDomeinDEMO, 
 			 				 : DomeinKort )
 	Quit WebDomein
@@ -448,7 +463,7 @@
 
 <Method name="HeeftToegangMetLogin">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IsVHEPN) || (..IsLMC||..IsSFS||..IsMBHO||..IsHFLB||..IsKISCH)
+<Implementation><![CDATA[	Quit (..IsVHEPN) || (..IsLMC||..IsSFS||..IsMBHO||..IsHFLB||..IsKISCH||..IsRAEM)
 ]]></Implementation>
 </Method>
 
@@ -462,7 +477,7 @@
 
 <Method name="KlantGegevensViaDataOpt">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IsLMC||..IsSFS||..IsMBHO||..IsHFLB||..IsKISCH)
+<Implementation><![CDATA[	Quit (..IsLMC||..IsSFS||..IsMBHO||..IsHFLB||..IsKISCH||..IsRAEM)
 ]]></Implementation>
 </Method>
 
@@ -497,6 +512,7 @@
 									##class(APPS.TBXWeb.enu.TBXHandel).MBHolland() : $$$MBHollandOptKey, 
 									##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE()  : $$$HafeleBEOptKey, 
 									##class(APPS.TBXWeb.enu.TBXHandel).Kisch()     : $$$KischOptKey,
+									##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck() : $$$VanRaemdonckOptKey, 
 							   : "" )
 	Quit DataOptKey
 ]]></Implementation>
@@ -641,7 +657,7 @@
 		Set Result=0
 	}
 	Else {
-		Set Result=(..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"MBHO",1"KISCH"))    ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")   ; 1"SFS"
+		Set Result=(..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"MBHO",1"KISCH",1"RAEM"))    ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")   ; 1"SFS"
 	}
 	Quit Result
 ]]></Implementation>
@@ -652,7 +668,7 @@
 De nieuwe handels maken gebruik van de klasse APPS.TBXWeb.OrderHandling voor de verzonden bestellingen 
 De vroeger geïmplementeerde handels versturen de mails via de implementatie in routine csp.vhisie.TBX.MailResult.tmpDev.MAC</Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"SFS",1"MBHO",1"HFLB",1"KISCH")
+<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"SFS",1"MBHO",1"HFLB",1"KISCH",1"RAEM")
 ]]></Implementation>
 </Method>
 
@@ -661,7 +677,7 @@
 Bij bestelling verzenden naar VH wijzigt het BonType van BBON naar INKP 
 (is enkel voor externe domeinen) </Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"SFS",1"MBHO",1"HFLB",1"KISCH")   ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")
+<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"SFS",1"MBHO",1"HFLB",1"KISCH",1"RAEM")   ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC")
 ]]></Implementation>
 </Method>
 
@@ -809,6 +825,7 @@
 												##class(APPS.TBXWeb.enu.TBXHandel).MBHolland() : $$$TBoxInfoPageMBHO, 
 												##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE()  : "", 
 												##class(APPS.TBXWeb.enu.TBXHandel).Kisch()     : "",
+												##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck() : "",
 												       : "http://www.vanhoecke.be/"_$S(Taal="F":"fr/produits",1:"nl/producten")_"/tandem-box/" )
 	Quit UrlGeneralInfo
 ]]></Implementation>
@@ -818,7 +835,7 @@
 <Description>
 Toon de sectie Index op de helppagina (HowTo.csp) </Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"HEIN",1"HFLE",1"SFS",1"MBHO",1"HFLB",1"KISCH")
+<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"HEIN",1"HFLE",1"SFS",1"MBHO",1"HFLB",1"KISCH",1"RAEM")
 ]]></Implementation>
 </Method>
 
@@ -827,7 +844,7 @@
 Contactgegevens van de klant in stap 1 (PData) van de Wizard. 
 Typisch worden deze verborgen voor handels via DataOpt </Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker'?1(1"LMC",1"HFLB",1"KISCH",1"SFS")
+<Implementation><![CDATA[	Quit ..DomeinVerwerker'?1(1"LMC",1"HFLB",1"KISCH",1"SFS",1"RAEM")
 ]]></Implementation>
 </Method>
 
@@ -837,7 +854,7 @@
 Voor deze domeinen kan het veld Levertijd verborgen worden in de wizard.  Ook de javascript-controle op dit veld zal dan niet actief zijn. 
 Zie ook method ToonLevertijdLaterTekstInWizard() </Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"HFLB",1"KISCH")
+<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"HFLB",1"KISCH",1"RAEM")
 ]]></Implementation>
 </Method>
 
@@ -941,7 +958,7 @@
 		Set lbBulkConfig=..GeefKlantBulkConfig(KLNr)
 		Set lbBulkConfig=..BulkConfigOptieToevoegen(lbBulkConfig,"X")   ; Probox toevoegen 
 	}
-	ElseIf (..IsHELMY || ..IsDUPO) {
+	ElseIf (..IsHELMY || ..IsDUPO || ..IsHFLE) {
 		Set lbBulkConfig=""
 		Set lbBulkConfig=..BulkConfigOptieToevoegen(lbBulkConfig,"X")   ; Probox toevoegen 
 	}