#Include BL.Sys.Proxy
 
	#Define SessieEncrypt 							"SysToegang"
 
	#Define blTestExist(%blObj,%class) 	Set:'$D(%blObj) %blObj=$$NewClass^vhLib(%class)
 
	#Define blToegangCreate            	$$$blTestExist(%blToegang,"BL.Sys.Toegang")
	#Define blToegangGroepCreate        $$$blTestExist(%blToegangGroep,"BL.Sys.ToegangGroep")
	#Define blSessionCreate            	$$$blTestExist(%blSession,"BL.Sys.Toegang.Session")
	#Define blResourceCreate						$$$blTestExist(%blResource,"BL.Sys.ToegangResource")
	#Define blPermissionCreate					$$$blTestExist(%blPermission,"BL.Sys.Permission")
	#Define blToolTipCreate							$$$blTestExist(%blToolTip,"BL.Sys.ToolTip")
 
  #Define StripC0(%Local)  						$S($C(0)[$G(%Local):"",1:%Local)
 
	#Define ReInstateSession(%SK)      	Set pxStatus=##class(BL.Sys.Toegang.Session).ReInstateSession(.%SK) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus
	#Define SaveSettingObj(%sn,%so)     Set Status=##class(BL.Sys.Settings).SaveObject(%ECSession.GetIdentification(),%ECSession.Application,%sn,%so) Quit:($$$ISERR(Status)) $$$pxCacheStatusEx(Status,"Cannot load setting")
 
	#Define CheckAccessesViaToegang(%T,%RN,%lbRR)	Set pxStatus=%blSession.HasAccess(%T,%RN,%lbRR) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus
	#Define CheckAccessViaToegang(%T,%RN,%RR)			$$$CheckAccessesViaToegang(%T,%RN,$LB(%RR))
 
	#Define CheckAccess(%RN,%RR)									$$$CheckAccessViaToegang(%ECSession.ToegangID,%RN,%RR)
	#Define CheckAccesses(%RN,%lbRR)							$$$CheckAccessesViaToegang(%ECSession.ToegangID,%RN,%lbRR)
 
	;AssocID types (zie Derde.Sys.Toegang)
	;!!! moet overeenkomen met keys uit vhintra/UI_General.XML !!!
  #Define aitInternePersoon    1
  #Define aitMagazijn          2
  #Define aitVhisie            3
 
  #Define ComposeSecurityID(%st,%id)    ##class(BL.Sys.Security).ComposeSecurityID(%st,%id)
 
	;====================
	; ToegangsGroep namen
	;====================
  #Define tgnAdministrators   "Administrators"
  #Define tgnEveryone         "Iedereen"
  #Define tgnGuests           "Bezoekers"
 
	#Define sidAdministrators   $$$ComposeSecurityID($$$stToegangGroep,$$$tgnAdministrators)
	#Define sidEveryone				  $$$ComposeSecurityID($$$stToegangGroep,$$$tgnEveryone)
	#Define sidGuest  				  $$$ComposeSecurityID($$$stToegangGroep,$$$tgnGuests)
 
	;PermissionType
	#Define ptAllow   1
	#Define ptDeny    2
 
	;PermissionAppliesTo
	#Define patThisResource        1
	#Define patThisAndSubResources 2
	#Define patSubResourcesOnly    3
	
	;SecurityID type
	#Define stToegang       1
	#Define stToegangGroep  2
 
	;====================
	; Permission Rights  
	;====================
	;PS: Derde.Sys.emPermission->TranslateRights aanpassen als het aantal rechten wijzigt!
	#Define prRead    1
	#Define prCreate  2
	#Define prDelete  3
	#Define prChange  4
	#Define prSave    5
	#Define prUse     6
	#Define prExecute 7
 
	;================
	; Toegangscodes  
	;================
	
	;PRODUCT
	#Define tgProduct										"Prod.Product"
	#Define tgProdSelect								"Prod.Select"
	#Define tgOptiBox										"OptiBox"
 
	;KLANT
	#Define tgKlantSelect								"Klant.Select"
 
	;================
	; Applicaties    
	;================
 
	#Define appVhintra  "vhintra"