Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r29059 -r32553
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 29059)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 32553)
@@ -423,6 +423,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDefaultVerpakking">
+<ReturnType>DOM.PM.enu.TBXVerpakking</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefDefaultVerpakkingVrVerwerkr(..DomeinVerwerker)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDefaultVerpakkingVrVerwerkr">
+<Description>
+Method naam GeefDefaultVerpakkingVoorVerwerker is langer dan 31 tekens  :-( </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>sDomVERW:%String</FormalSpec>
+<ReturnType>DOM.PM.enu.TBXVerpakking</ReturnType>
+<Implementation><![CDATA[	Quit $S(sDomVERW="SFS":##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(), 1:##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen())
+]]></Implementation>
+</Method>
+
 <Method name="GeefDefaultTaal">
 <ReturnType>DOM.enu.Taal</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefDefaultTaalVoorVerwerker(..DomeinVerwerker)
@@ -761,7 +777,7 @@
 	If ..DomeinVerwerker?1(1"VHEPN") {
 	 	Set ToonKlantrefProdBijIngaveMaten=1
 	}
-	ElseIf ..DomeinVerwerker?1(1"SFS") {
+	ElseIf ..DomeinVerwerker?1(1"SFS",1"RAEM") {
 	 	Set ToonKlantrefProdBijIngaveMaten=1
 	}
 	Quit ToonKlantrefProdBijIngaveMaten
@@ -798,6 +814,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="KortingOphalenVanInterneData">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"HFLB")
+]]></Implementation>
+</Method>
+
 <Method name="ToonVeldenPDataExtraInWizard">
 <Description>
 Contactgegevens van de klant in stap 1 (PData) van de Wizard. 
@@ -886,7 +908,7 @@
 <Implementation><![CDATA[
 	Quit $CASE(..DomeinVerwerker, "HEIN" : "info@tandem-box.de", 
 								  "LMC"  : " ??? ", 
-								  "DUPO" : "du.pont@skynet.be", 
+								  "DUPO" : "info@du-pont.be", 
 								  "HELMY": "info@destil.nl", 
 								  "HFLE" : "info@hafele.nl", 
 								  "SFS"  : "info.u@sfsunimarket.biz", 
@@ -901,7 +923,7 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	If (..IsVHEPN)&&(KLNr>0) {
-		Set KLMiniWS=##class(cspBasis.GAProdTBox).GetKlantData(..GeefDomeinVerwerker(),KLNr)
+		Set KLMiniWS=##class(cspBasis.GAProdTBox).GetKlantData(..GeefDomeinVerwerker(), KLNr, %this)
 		If KLMiniWS.BulkVPKCode'="" {
 			Set lbBulkConfig=$LB(KLMiniWS.BulkVPKCode,KLMiniWS.BulkMinQty,"checked")
 		}
@@ -917,7 +939,7 @@
 	ElseIf (..IsLMC) {
 		Set lbBulkConfig=""
 	}
-	ElseIf (..IsSFS || ..IsHFLB || ..IsKISCH || ..IsMBHO) {
+	ElseIf (..IsSFS || ..IsHFLB || ..IsKISCH || ..IsMBHO || ..IsRAEM) {
 		Set lbBulkConfig=..GeefKlantBulkConfig(KLNr)
 		Set lbBulkConfig=..BulkConfigOptieToevoegen(lbBulkConfig,"X")   ; Probox toevoegen 
 	}
@@ -937,14 +959,21 @@
 <FormalSpec>Verpakking:%String,KLNr:%String=""</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
+	#define VHxKlantNrOptimaPack   6279
+	#define SFSxKlantNrAlpnach     100112
+	
 	Set MinimaleBestelhoeveelheid=1
 	If (Verpakking="X")||(Verpakking="Y")||(Verpakking="O")||(Verpakking="C") {
 		Set MinimaleBestelhoeveelheid=6
 		If (..IsVHEPN) {
-			If KLNr=6279 {
+			If KLNr=$$$VHxKlantNrOptimaPack {
 				Set MinimaleBestelhoeveelheid=1
 			}
 		}
+		ElseIf (..IsSFS) {
+			Set MinimaleBestelhoeveelheid=5
+		}
+
 	}
 	Quit MinimaleBestelhoeveelheid
 ]]></Implementation>