Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r33 -r63
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 33)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 63)
@@ -484,6 +484,63 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGeldigKlantID">
+<Description>
+Controle van het Klantnummer 
+Valideert alleen het formaat; controleert niet of Klantnummer effectief aanwezig is in de databank. </Description>
+<FormalSpec>KlantID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsGeldig=0
+	If KlantID="" {
+		Set IsGeldig=0
+	}
+	Else {
+		If ..IsHFLB {
+			Set IsGeldig=( (KlantID?2A1.10N)&&($E(KlantID,3,99)>0) )
+			Set:(KlantID?1(1"1000",1"12345678")) IsGeldig=1   ; 1000 en 12345678  zijn testklanten voor VH.  Zouden deze ID's ook moeten aanpassen naar "AAnnnnnn" formaat 
+		}
+		ElseIf ..HeeftToegangMetLogin() {
+			Set IsGeldig=(KlantID>0)&&($IsValidNum(KlantID))
+		}
+		ElseIf ..AlleenToegangZonderLogin() {
+			Set IsGeldig=0
+		}
+		Else {
+			Set IsGeldig=0
+		}
+	}
+	Quit IsGeldig
+	
+ /*	
+	^WS.TBX.KlantData("HFLB",1000)=N\1000\Testklant\fma@vanhoecke.be\10
+	^WS.TBX.KlantData("HFLB",903103)=N\903103\W. van Deursen Keukenmontage\\10
+	^WS.TBX.KlantData("HFLB",1047378)=D\1047378\TEST 414 KUNDEN-ANBINDUNG EDV REF. 414\a.adrian@intershop.de\0
+	^WS.TBX.KlantData("HFLB",2722273)=D\2722273\HOLGER HUETTNER MOEBELWERKSTAETTE\\0
+	^WS.TBX.KlantData("HFLB",12345678)=N\12345678\AATestKlant_VH\wv@vanhoecke.be\10
+	^WS.TBX.KlantData("HFLB","BE2000000")=N\BE2000000\Testkunde EasyLink \\0
+	^WS.TBX.KlantData("HFLB","BE2005000")=N\BE2005000\De Smed BVBA \de.smed@skynet.be\0
+ */
+]]></Implementation>
+</Method>
+
+<Method name="IsGebruikerToegelaten">
+<Description>
+Controle of een bezoeker met gegeven Klantnummer toegang heeft de de applicatie </Description>
+<FormalSpec>KlantID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsToegelaten=0
+	If KlantID="" {
+		Set IsToegelaten=(..HeeftToegangZonderLogin())
+	}
+	Else {
+		Set IsToegelaten=(..IsGeldigKlantID(KlantID))
+	}
+	Quit IsToegelaten
+]]></Implementation>
+</Method>
+
 <Method name="IsVerwerkerToegelaten">
 <Description>
 De button "ExportXML" voor een bestelling is beschikbaar </Description>
@@ -646,7 +703,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToonVeldenPDataExtraInWizard">
+<Description>
+Contactgegevens van de klant in stap 1 (PData) van de Wizard. 
+Typisch worden deze verborgen voor klanten via DataOpt </Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DomeinVerwerker'?1(1"LMC",1"HFLB")
+]]></Implementation>
+</Method>
+
+<Method name="VerbergLevertijdInWizard">
+<Description>
+De nieuwere handels zullen typisch ervoor kiezen om levertijd niet in te vullen in de wizard, maar pas later bij "Bestelling plaatsen" 
+Voor deze domeinen kan het veld Levertijd verborgen worden in de wizard.  Ook de javascript-controle op dit veld zal dan niet actief zijn. </Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"HFLB")
+]]></Implementation>
+</Method>
+
 <Method name="ToonContactInfo">
+<Description>
+ContactInfo op de Helppagina</Description>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..DomeinVerwerker?1(1"HEIN",1"SFS",1"MBHO",1"HFLB")
 ]]></Implementation>