Index: BL/EC/Session.cls.xml
===================================================================
diff -u -r1364 -r1365
--- BL/EC/Session.cls.xml	(.../Session.cls.xml)	(revision 1364)
+++ BL/EC/Session.cls.xml	(.../Session.cls.xml)	(revision 1365)
@@ -173,8 +173,8 @@
 	If Pos,('$D(^KFA1("F",KLNr))||($P(^KKL(^KK1(KLNr),0),"\",8)=1019)) $$$ListRemove(lbToegang,Pos) ; Verwijderen intrastat
 
 	; Opties
- 	Set:$P(^KKL(^KK1(KLNr),1),"\",25)?1N lbOpties=lbOpties_$LB($$$opIsHandel) ; Numerieke waarde voor KlantType
- 	Set:$P(^KKL(^KK1(KLNr),0),"\",20)>9 lbOpties=lbOpties_$LB($$$opIsKS) ; Regio groter dan 9
+ 	Set:$$IsHandel^KLANT5(KLNr) lbOpties=lbOpties_$LB($$$opIsHandel) ; Numerieke waarde voor KlantType
+ 	Set:$$ISKLANT^KS(KLNr) lbOpties=lbOpties_$LB($$$opIsKS) ; Regio groter dan 9 of = 0
 
 	Set Pos=$LF(lbOpties,$$$opOldTandemBox)
 	If Pos,%ECSession.ProductGroep'="" $$$ListRemove(lbOpties,Pos) ; Verwijderen Oude Tandembox als beperkt tot orgalux
@@ -610,7 +610,7 @@
 	; Steeds uitgebreid tonen
 	Do ModifyList(.ToegangOpties,$$$opShowUitgebreid,.TonenUitgebreid)
 	Do ModifyList(.SessionOpties,$$$opShowUitgebreid,.TonenUitgebreid)
-	; Steeds uitgebreid tonen
+	; Steeds productdetail tonen
 	Do ModifyList(.ToegangOpties,$$$opShowProdDetail,.TonenProductDetail)
 	Do ModifyList(.SessionOpties,$$$opShowProdDetail,.TonenProductDetail)
 	Set oToegang.Opties=ToegangOpties