<%
' MyPAYE
' Module: UserEmployeeTabAccess.asp
'
' This software is the copyright of Mr T J Sheppard and may not be copied, duplicated or 
' modified other than as permitted in the licence agreement.
'
'       © 2012 - 2023  Mr T J Sheppard
'                      Lyndale House
'                      Church Street
'                      Bradwell
'                      Hope Valley
'                      S33 9HJ
'
'  Tel 0845 643 5191
'  Email Support@MyPAYE.co.uk
'
' MyPAYE is a Registered Trademark of MyPAYE Ltd
'-------------------------------------------------------------------
'
' Updated 13 June 2023

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'   Description -    This module displays the Employee tabs that the displayed user is permitted to access
'
' Amendment Log
'------------------------------------------------------------------------------------------
' Date     | Name            | Vers.  | Description
'------------------------------------------------------------------------------------------
' 09/01/13 | TJS             | 3.0.00 | Page added
' 01/06/14 | TJS             | 4.0.00 | Modified for new styling and operation without framesets
' 19/09/14 | TJS             | 4.0.03 | Modified to cater for Hide_HR_Functions field on Employer
'                                     | and to use fieldset rather than nested tables for iPad compatibility
' 05/10/14 | TJS             | 4.0.04 | Modified for Encrypted Employer ID check
' 29/04/15 | TJS             | 4.0.14 | Added set/clear all boxes button
' 26/11/15 | TJS             | 5.0.00 | Modified to cater for separate User_Permissions table
' 10/10/17 | TJS             | 5.1.10 | Corrected conflict where PSID param was used for both PaySlipID and PenSchID on new employee wizard
' 17/04/18 | TJS             | 5.2.03 | Modified to cater for MenuPayrollExists on MainMenu.asp
' 20/10/19 | TJS             | 5.7.00 | Modified to use GetMainMenuParam to save having to read lots of parameters for each page build
' 07/12/19 | TJS             | 5.7.02 | Modified to prevent editing if user doesn't have user admin permissions or AddNewEdit is set to Disp
' 25/02/20 | TJS             | 5.7.04 | Modified to cater for Partner only reports on Multi Employer Overview
' 30/05/20 | TJS             | 5.8.00 | Modified for new styling - added centered class on body and modified to replace stylesheet.css, mainmenu.css and buttons-css.asp with BodyAndMenu-css.asp
' 09/04/21 | TJS             | 5.9.09 | Modified to cater for View_Employee_Documents_Tab and Edit_Employee_Documents_Tab fields on user_permissions table 
'                                                         | and to use ASPDotNet/UpdateUserRole.ashx , ASPDOTNET/LogOut.aspx and ASPDOTNET/AgencyCancel.aspx pages
' 17/04/21 | TJS             | 5.9.09a | Modified to detect if some access allowed and adjust initial Set/Clear All button text accordingly
' 11/12/21 | TJS             | 5.9.15 | Modified to cater for Request_Holiday_Or_Leave field and added label tags for checkboxes so clicking on the text sets/clears the box
' 13/06/23 | TJS             | 5.9.24 | Modified to cater for no menus and re-reun payroll when opened from employee User Details page
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
PageID = 50525
NoBack = True
SessionID = request.querystring("ID")
SessionVarsID = RemoveHTML(request.querystring("SV"))
SourceFrame = RemoveHTML(request.querystring("S"))
DestFrame = RemoveHTML(request.querystring("D"))
UserID = CheckURLDBIDField(RemoveHTML(request.querystring("UID")), "UserID")
EmployeeID = CheckURLDBIDField(RemoveHTML(request.querystring("EE")), "EmployeeID")
EmployerID = CheckURLDBIDField(RemoveHTML(request.querystring("ER")), "EmployerID")
%>

<!--#include file ="Functions\CoreValidationRoutines.asp"-->

<!--#include file ="Functions\ConnectDatabaseMain.asp"-->

<!--#include file ="Functions\CreateSessionID.asp"-->

<!--#include file ="Functions\FrameNameConst.asp"-->

<%GetSessionVarsIDRecord(SessionVarsID)%>

<!--#include file ="Functions\DataProtection.asp"-->

<!--#include file ="Functions\URLValidation.asp"-->

<%
AddNewEdit = RemoveHTML(request.querystring("ANE"))
CancelPage = RemoveHTML(request.querystring("CPge"))
FailureFields = RemoveHTML(request.querystring("FFld"))
' don't remove HTML yet as we use <br> to identify text for an alert box
FailureMessage = request.querystring("FMsg")
RerunPayroll = RemoveHTML(request.querystring("RrP")) ' TJS 13/06/23
WithMenus = RemoveHTML(request.querystring("WthMnu")) ' TJS 13/06/23

Function GetDBField(FieldName, ControlName)

	if FailureFields <> "" and (AddNewEdit = "Add" or AddNewEdit = "Edit") then
		if ControlName = "UserGenTabAccess" or ControlName = "UserGenTabNameAddrEdit" or ControlName = "UserGenTabPersDetEdit" or _
			ControlName = "UserGenTabBankDetEdit" or ControlName = "UserGenTabTaxNIEmplEdit" or ControlName = "UserPrevEmplTabAccess" or _
			ControlName = "UserPrevEmplTabEdit" or ControlName = "UserTotYTDTabAccess" or ControlName = "UserTotYTDTabEdit" or _
			ControlName = "UserHolidayTabAccess" or ControlName = "UserHolidayTabEdit" or ControlName = "UserSSPSickTabAccess" or _
			ControlName = "UserSSPSickTabEdit" or ControlName = "UserParentalTabAccess" or ControlName = "UserParentalTabEdit" or _
			ControlName = "UserAttachTabAccess" or ControlName = "UserAttachTabEdit" or ControlName = "UserPensionTabAccess" or _
			ControlName = "UserPensionTabEdit" or ControlName = "UserAddlPersTabAccess" or ControlName = "UserAddlPersTabEdit" or _
			ControlName = "UserContactsTabAccess" or ControlName = "UserContactsTabEdit" or ControlName = "UserJobHistTabAccess" or _
			ControlName = "UserJobHistTabEdit" or ControlName = "UserTrainingTabAccess" or ControlName = "UserTrainingTabEdit" or _
			ControlName = "UserDisciplineTabAccess" or ControlName = "UserDisciplineTabEdit" or ControlName = "UserNotesTabAccess" or _
			ControlName = "UserNotesTabEdit" or ControlName = "UserP9DTabAccess" or ControlName = "UserP9DTabEdit" or _
			ControlName = "UserP11DTabAccess" or ControlName = "UserP11DTabEdit" or ControlName = "UserDocsTabAccess" or _
			ControlName = "UserDocsTabEdit" or ControlName = "UserReqHolLeave" then ' TJS 11/12/21
			if RemoveHTML(request.querystring(ControlName)) = "ON" then
				GetDBField = -1
			else
				GetDBField = 0
			end if
		else
			GetDBField = RemoveHTML(request.querystring(ControlName))
		end if	

	elseif "" & FieldName <> "" then
		' return recordset value
		GetDBField = rsUserDetails(FieldName)

	end if

end Function

sql = "SELECT " & UserTableMenuPermissionFields & ", User_Title, User_Fore_Name, User_Last_Name, Employer_ID, Edit_Employee_General_Tab_Name_Address, " ' TJS 01/06/14
sql = sql & "User_Role_ID, Edit_Employee_General_Tab_Pers_Details, Edit_Employee_General_Tab_Bank_Details, Edit_Employee_General_Tab_Tax_NI_Employ, " ' TJS 07/12/19
sql = sql & "Edit_Employee_Prev_Employ_Tab, Edit_Employee_Totals_YTD_Tab, Edit_Employee_Holidays_Tab, Request_Holiday_Or_Leave, Edit_Employee_Sick_Pay_Tab, " ' TJS 01/06/14 TJS 11/12/21
sql = sql & "Edit_Employee_Parental_Pay_Tab, Edit_Employee_Attachments_Tab, Edit_Employee_Pensions_Tab, Edit_Employee_Addl_Pers_Tab, " ' TJS 01/06/14
sql = sql & "Edit_Employee_Contacts_Tab, Edit_Employee_Job_History_Tab, Edit_Employee_Training_Tab, Edit_Employee_Discipline_Tab, Edit_Employee_Notes_Tab, " ' TJS 01/06/14
sql = sql & "View_Employee_Documents_Tab, Edit_Employee_Documents_Tab, Edit_Employee_P9D_Tab, Edit_Employee_P11D_Tab, User_Perm_ID FROM " & DBSchema & "Users INNER JOIN " ' TJS 26/11/15 TJS 09/04/21
sql = sql & DBSchema & "User_Permissions ON Users.User_ID = User_Permissions.User_ID AND (Employee_Employer_ID = '' OR Employee_Employer_ID = '" ' TJS 26/11/15
sql = sql & EncodeEmployerID(UserPermissionsTable, EmployerID) & "') WHERE Users.User_ID = " & UserID ' TJS 01/06/14 TJS 26/11/15
sql = sql & " AND User_Permissions.Deleted = 0 ORDER BY Employee_Employer_ID DESC" ' TJS 26/11/15
set rsUserDetails = OpenRecordset(objConn, sql)
UserName = ""
if "" & DecryptData(rsUserDetails("User_Title")) <> "" then
	UserName = UserName & DecryptData(rsUserDetails("User_Title")) & " "
end if
if "" & DecryptData(rsUserDetails("User_Fore_Name")) <> "" then
	UserName = UserName & DecryptData(rsUserDetails("User_Fore_Name")) & " "
end if
UserName = UserName & DecryptData(rsUserDetails("User_Last_Name"))

' start of code added TJS 01/06/14
sql = "SELECT " & EmployerTableMenuOptionFields & " FROM " & DBSchema & "Employers WHERE Employer_ID = " & EmployerID
set rsEmployer = OpenRecordset(objConn, sql)

' get details for user who is logged in 
sql = "SELECT " & UserTableMenuPermissionFields & " FROM " & DBSchema & "Users INNER JOIN " & DBSchema & "User_Permissions " ' TJS 26/11/15
sql = sql & "ON Users.User_ID = User_Permissions.User_ID AND (Employee_Employer_ID = '' OR Employee_Employer_ID = '" ' TJS 26/11/15
sql = sql & EncodeEmployerID(UserPermissionsTable, EmployerID) & "') WHERE Users.User_ID = " & GetSessionVar("UserID") ' TJS 26/11/15
sql = sql & " AND User_Permissions.Deleted = 0 ORDER BY Employee_Employer_ID DESC" ' TJS 26/11/15
set rsUser = OpenRecordset(objConn, sql)
' end of code added TJS 01/06/14

ReadMainMenuParams SessionVarsID, cBool(rsUser("User_Admin")), (cBool(rsUser("Run_Payroll")) or cBool(rsUser("Payroll_EOY")) or cBool(rsUser("CIS_Returns"))), _
	cBool(rsUser("Run_Payroll")), rsUser("Support_User_ID") ' TJS 20/10/19

' start of code added TJS 07/12/19
if AddNewEdit <> "Edit" then
	ReadOnly=" readonly"
	AllowChanges = false
else
	ReadOnly=""
	AllowChanges = true
end if
' end of code added TJS 07/12/19

bSomeAccessAllowed = false ' TJS 17/04/21
bSomeEditsAllowed = false ' TJS 17/04/21

response.Expires = -1500
response.Expiresabsolute = Now() - 2
response.AddHeader "pragma", "no-cache"
response.AddHeader "cache-control", "no-store"
response.CacheControl = "no-cache"
%>
<!DOCTYPE html>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>User Employee Detail Tab Access</title>

<!-- START OF STYLES -->
<link rel="stylesheet" type="text/css" href="css/BodyAndMenu-css.asp" /> <!-- TJS 30/05/20 -->
<link rel="stylesheet" type="text/css" href="css/forms-css.asp" />
<%if CheckBrowserVersion("MSIE", 8, true, false, false) then ' [if LT IE 8]%>
	<link type="text/css" rel="stylesheet" href="css/buttons-ie.css" />
<%end if
if CheckBrowserVersion("MSIE", 7, true, true, false) then ' [if lte IE 7]%>
	<style>
		.content { margin-right: -1px; } /* this 1px negative margin can be placed on any of the columns in this layout with the same corrective effect. */
		ul.nav a { zoom: 1; }  /* the zoom property gives IE the hasLayout trigger it needs to correct extra whiltespace between the links */
	</style>
<%end if
if "" & GetSessionVar("PathModifier") <> "" then%>
	<link rel="stylesheet" type="text/css" href="css/<%=GetSessionVar("PathModifier")%>Partner-CSS.asp" />
<%end if%>
<!-- END OF STYLES -->

<%if "" & WithMenus <> "No" then ' TJS 13/06/23%>
	<script src="JavaScript/KeepAliveJS.asp?SV=<%=SessionVarsID%>"></script>
<%end if%>

<link rel="meta" href="http://www.mypaye.co.uk/labels.xml" type="application/rdf+xml" title="ICRA labels" />
<meta http-equiv="pics-Label" content='(pics-1.1 "http://www.icra.org/pics/vocabularyv03/" l gen true for "http://mypaye.co.uk" r (n 0 s 0 v 0 l 0 oa 0 ob 0 oc 0 od 0 oe 0 of 0 og 0 oh 0 c 0) gen true for "http://www.mypaye.co.uk" r (n 0 s 0 v 0 l 0 oa 0 ob 0 oc 0 od 0 oe 0 of 0 og 0 oh 0 c 0))' />

<script>
var buttonsdisabled = false; // TJS 07/12/19

function closewindow(){

	cls=document.getElementById('Close');
	if (cls.innerHTML == 'Cancel') // TJS 01/06/14
	{
		window.open('https://<%=request.servervariables("SERVER_NAME")%>/Secure/UserEmployeeTabAccess.asp?ID=<%=SetPageSessionID(50525, DestFrame)%>&SV=<%=SessionVarsID%>&S=<%=DestFrame%>&D=<%=DestFrame%>&UID=<%=UserID%>&ER=<%=EmployerID%>&EE=<%=EmployeeID%>&CPge=<%=CancelPage%>&RrP=<%=RerunPayroll%>&WthMnu=<%=WithMenus%>','_self', '', true); // TJS 13/06/23
	}
	else
	{
		<%if EmployerID < 0 then%>
			window.open('https://<%=request.servervariables("SERVER_NAME")%>/Secure/UserDetails.asp?ID=<%=SetPageSessionID(84682, DestFrame)%>&SV=<%=SessionVarsID%>&S=<%=DestFrame%>&D=<%=DestFrame%>&UID=<%=UserID%>&ER=<%=EmployerID%>&EE=<%=EmployeeID%>&ANE=Add&CPge=<%=CancelPage%>&RrP=<%=RerunPayroll%>&WthMnu=<%=WithMenus%>','_self','',true); // TJS 13/06/23
		<%else%>
			window.open('https://<%=request.servervariables("SERVER_NAME")%>/Secure/UserDetails.asp?ID=<%=SetPageSessionID(84682, DestFrame)%>&SV=<%=SessionVarsID%>&S=<%=DestFrame%>&D=<%=DestFrame%>&UID=<%=UserID%>&ER=<%=EmployerID%>&EE=<%=EmployeeID%>&ANE=<%=AddNewEdit%>&CPge=<%=CancelPage%>&RrP=<%=RerunPayroll%>&WthMnu=<%=WithMenus%>','_self','',true); // TJS 13/06/23
		<%end if%>
	}
}

function updatesubmit(){

	cls=document.getElementById('Close');
	if (cls.innerHTML == 'Cancel') // TJS 01/06/14
	{
		upd=document.getElementById('Update');
		if ((upd.className != 'continue_button_disabled')) // TJS 01/06/14
		{
	 		document.UserForm.submit();
		}
	}	
}

function datachanged(){

	cls=document.getElementById('Close');
	upd=document.getElementById('Update');
	if ((cls.innerHTML == 'Close') || (upd.className == 'continue_button_disabled')) // TJS 01/06/14
	{
		cls.innerHTML = 'Cancel'; // TJS 01/06/14
		upd.className='continue_button'; // TJS 01/06/14
	}
}

// start of code added TJS 07/12/19
function undoclick(ctrl){

	if (ctrl.checked)
	{
		ctrl.checked = false;
	}
	else
	{
		ctrl.checked = true;
	}
}
// end of code added TJS 07/12/19

// start of code added TJS 29/04/15
function SetClearView(){

	scav = document.getElementById('SetClearAllView');
	if (scav.innerHTML == 'Set All')
	{
		document.getElementById('UserGenTabAccess').checked = true;
		document.getElementById('UserPrevEmplTabAccess').checked = true;
		document.getElementById('UserTotYTDTabAccess').checked = true;
		document.getElementById('UserHolidayTabAccess').checked = true;
		document.getElementById('UserSSPSickTabAccess').checked = true;
		document.getElementById('UserParentalTabAccess').checked = true;
		document.getElementById('UserAttachTabAccess').checked = true;
		document.getElementById('UserPensionTabAccess').checked = true;
		<%if not cBool(rsEmployer("Hide_HR_Functions")) then%>
			document.getElementById('UserAddlPersTabAccess').checked = true;
			document.getElementById('UserContactsTabAccess').checked = true;
			document.getElementById('UserJobHistTabAccess').checked = true;
			document.getElementById('UserTrainingTabAccess').checked = true;
			document.getElementById('UserDisciplineTabAccess').checked = true;
			document.getElementById('UserNotesTabAccess').checked = true;
			document.getElementById('UserDocsTabAccess').checked = true; // TJS 09/04/21 
		<%end if%>
		document.getElementById('UserP9DTabAccess').checked = true;
		document.getElementById('UserP11DTabAccess').checked = true;
		scav.innerHTML = 'Clear All'
	}
	else
	{
		document.getElementById('UserGenTabAccess').checked = false;
		document.getElementById('UserPrevEmplTabAccess').checked = false;
		document.getElementById('UserTotYTDTabAccess').checked = false;
		document.getElementById('UserHolidayTabAccess').checked = false;
		document.getElementById('UserSSPSickTabAccess').checked = false;
		document.getElementById('UserParentalTabAccess').checked = false;
		document.getElementById('UserAttachTabAccess').checked = false;
		document.getElementById('UserPensionTabAccess').checked = false;
		<%if not cBool(rsEmployer("Hide_HR_Functions")) then%>
			document.getElementById('UserAddlPersTabAccess').checked = false;
			document.getElementById('UserContactsTabAccess').checked = false;
			document.getElementById('UserJobHistTabAccess').checked = false;
			document.getElementById('UserTrainingTabAccess').checked = false;
			document.getElementById('UserDisciplineTabAccess').checked = false;
			document.getElementById('UserNotesTabAccess').checked = false;
			document.getElementById('UserDocsTabAccess').checked = false; // TJS 09/04/21 
		<%end if%>
		document.getElementById('UserP9DTabAccess').checked = false;
		document.getElementById('UserP11DTabAccess').checked = false;
		scav.innerHTML = 'Set All'
	}
	datachanged();
}

function SetClearEdit(){

	scae = document.getElementById('SetClearAllEdit');
	if (scae.innerHTML == 'Set All')
	{
		document.getElementById('UserGenTabNameAddrEdit').checked = true;
		document.getElementById('UserGenTabPersDetEdit').checked = true;
		document.getElementById('UserGenTabBankDetEdit').checked = true;
		document.getElementById('UserGenTabTaxNIEmplEdit').checked = true;
		document.getElementById('UserPrevEmplTabEdit').checked = true;
		document.getElementById('UserTotYTDTabEdit').checked = true;
		document.getElementById('UserHolidayTabEdit').checked = true;
		document.getElementById('UserReqHolLeave').checked = true; // TJS 11/12/21
		document.getElementById('UserSSPSickTabEdit').checked = true;
		document.getElementById('UserParentalTabEdit').checked = true;
		document.getElementById('UserAttachTabEdit').checked = true;
		document.getElementById('UserPensionTabEdit').checked = true;
		<%if not cBool(rsEmployer("Hide_HR_Functions")) then%>
			document.getElementById('UserAddlPersTabEdit').checked = true;
			document.getElementById('UserContactsTabEdit').checked = true;
			document.getElementById('UserJobHistTabEdit').checked = true;
			document.getElementById('UserTrainingTabEdit').checked = true;
			document.getElementById('UserDisciplineTabEdit').checked = true;
			document.getElementById('UserNotesTabEdit').checked = true;
			document.getElementById('UserDocsTabEdit').checked = true; // TJS 09/04/21 
		<%end if%>
		document.getElementById('UserP9DTabEdit').checked = true;
		document.getElementById('UserP11DTabEdit').checked = true;
		scae.innerHTML = 'Clear All'
	}
	else
	{
		document.getElementById('UserGenTabNameAddrEdit').checked = false;
		document.getElementById('UserGenTabPersDetEdit').checked = false;
		document.getElementById('UserGenTabBankDetEdit').checked = false;
		document.getElementById('UserGenTabTaxNIEmplEdit').checked = false;
		document.getElementById('UserPrevEmplTabEdit').checked = false;
		document.getElementById('UserTotYTDTabEdit').checked = false;
		document.getElementById('UserHolidayTabEdit').checked = false;
		document.getElementById('UserReqHolLeave').checked = false; // TJS 11/12/21
		document.getElementById('UserSSPSickTabEdit').checked = false;
		document.getElementById('UserParentalTabEdit').checked = false;
		document.getElementById('UserAttachTabEdit').checked = false;
		document.getElementById('UserPensionTabEdit').checked = false;
		<%if not cBool(rsEmployer("Hide_HR_Functions")) then%>
			document.getElementById('UserAddlPersTabEdit').checked = false;
			document.getElementById('UserContactsTabEdit').checked = false;
			document.getElementById('UserJobHistTabEdit').checked = false;
			document.getElementById('UserTrainingTabEdit').checked = false;
			document.getElementById('UserDisciplineTabEdit').checked = false;
			document.getElementById('UserNotesTabEdit').checked = false;
			document.getElementById('UserDocsTabEdit').checked = false; // TJS 09/04/21 
		<%end if%>
		document.getElementById('UserP9DTabEdit').checked = false;
		document.getElementById('UserP11DTabEdit').checked = false;
		scae.innerHTML = 'Set All'
	}
	datachanged();
}
// end of code added TJS 29/04/15

// start of code added TJS 11/12/21
function EditHolChng(){

	uhte = document.getElementById('UserHolidayTabEdit')
	urhl = document.getElementById('UserReqHolLeave')
	if (uhte.checked)
	{
		urhl.checked = true;
	}
	datachanged();
}

function ReqHolLeaveChng(){

	uhte = document.getElementById('UserHolidayTabEdit')
	urhl = document.getElementById('UserReqHolLeave')
	if (uhte.checked)
	{
		urhl.checked = true;
		DisplayAlertMsg('Request Holiday/Leave', 'Request Holiday/Leave checkbox cannot be cleared if editing of all Holiday content is set', 120, 520); 
	}
	datachanged();
}
// end of code added TJS 11/12/21

function OpenTabERForm(ctrl, destination, id)
{ 
	// Pension Scheme ID (PenSchID) set for all windows even though only Pension Scheme needs it
	window.open('https://<%=request.servervariables("SERVER_NAME")%>/Secure/' + destination + '?ID=' + id + '&SV=<%=SessionVarsID%>&S=<%=DestFrame%>&D=<%=DestFrame%>&ER=<%=EmployerID%>&PenSchID=-1&ANE=Edit&CPge=PayrollHome.asp', '_self','',true);
}

function GoPayrollHome() 
{
	window.open('https://<%=request.servervariables("SERVER_NAME")%>/Secure/PayrollHome.asp?ID=<%=SetPageSessionID(38684, DestFrame)%>&SV=<%=SessionVarsID%>&S=<%=DestFrame%>&D=<%=MainFrame%>&PR=-1&ER=<%=EmployerID%>&RPy=No&RrP=No&CNP=No','PayrollHome','',true);
}

function LogOut() 
{
	if (!buttonsdisabled)
 	{
		buttonsdisabled = true;
		<%if GetSessionVar("AgencyID") = "" or GetSessionVar("AgencyID") = -1 then
			CancelPath = "/Secure/ASPDOTNET/LogOut.aspx" ' TJS 09/04/21
		else
			CancelPath = "/Secure/ASPDOTNET/AgencyCancel.aspx" ' TJS 09/04/21
		end if%>
		window.open('https://<%=request.servervariables("SERVER_NAME") & CancelPath%>?ID=<%=SetPageSessionID(10022, DestFrame)%>&SV=<%=SessionVarsID%>&S=<%=DestFrame%>&D=<%=MainFrame%>&ER=<%=EmployerID%>','PayrollHome','', true);
	}
}

function OpenSupportCentre()
{
	window.open('https://<%=request.servervariables("SERVER_NAME")%>/Secure/Support/UserSupport.asp?ID=<%=SetPageSessionID(96334, DestFrame)%>&SV=<%=SessionVarsID%>&S=<%=DestFrame%>&D=<%=MainFrame%>&ER=<%=EmployerID%>&WthMnu=Yes','PayrollHome','', true);
}
</script>

<!--#include file ="Functions\GoogleAnalytics.asp"-->

</head>

<body <%if "" & WithMenus <> "No" then ' TJS 30/05/20 TJS 13/06/23%>class="centered"<%else%>style="width:1190px; margin:auto; text-align:center;"<%end if%>>

<%if "" & WithMenus <> "No" then ' TJS 13/06/23%>
	<!--#include file ="PayrollHeader.asp"-->

	<%MenuShowHome = true
	MenuShowEmployer = true
	MenuShowFindEmployee = true
	MenuShowUsers = true
	MenuShowCreate = true
	MenuShowCreatePayroll = true
	MenuShowCreateEmployer = true
	MenuShowCreateUser = true
	MenuShowHMRC = true
	MenuShowReports = true
	MenuPartnerReportsOnly = false ' TJS 25/02/20
	MenuShowPayrollData = true
	MenuShowTools = true
	MenuShowSupport = true
	MenuSelected = ""
	MenuEmployerExists = true
	MenuShowAccount = true%>

	<!--#include file ="MainMenu.asp"-->

	<script>
		//set location in header
		document.getElementById("ProgramLocation").innerHTML = "<h1>User Employee Tab Access</h1>";
		setTimeout("KeepAlive('<%=SessionVarsID%>')", 60000);
	</script>
	
	<%' start of code added TJS 13/06/23
else%>
	<script>
		//set location in header
		parent.document.getElementById("ProgramLocation").innerHTML="<h1>User Employee Tab Access</h1>";
		parent.SetSelectedSubMenu('UserDet');
	</script>
<%end if
' end of code added TJS 13/06/23%>

<form method="post" name="UserForm" action="https://<%=request.servervariables("SERVER_NAME")%>/Secure/ASPDotNet/UpdateEmployeeTabAccess.ashx"> <!-- TJS 09/04/21 -->
	<input type="hidden" name="ID" value="<%=SetPageSessionID(64083, DestFrame)%>">
	<input type="hidden" name="SV" value="<%=SessionVarsID%>">
	<input type="hidden" name="S" value="<%=DestFrame%>">
	<input type="hidden" name="D" value="<%=DestFrame%>">
	<input type="hidden" name="UID" value="<%=UserID%>">
	<input type="hidden" name="UPID" value="<%=rsUserDetails("User_Perm_ID")%>"> <!-- TJS 26/11/15 -->
	<input type="hidden" name="EE" value="<%=EmployeeID%>">
	<input type="hidden" name="ER" value="<%=EmployerID%>">
	<input type="hidden" name="ANE" id="ANE" value="<%=AddNewEdit%>">
	<input type="hidden" name="CPge" value="<%=CancelPage%>">
	<input type="hidden" name="RrP" id="RrP" value="<%=RerunPayroll%>"> <!-- TJS 13/06/23 -->
	<input type="hidden" name="WthMnu" id="WthMnu" value="<%=WithMenus%>"> <!-- TJS 13/06/23 -->

	<fieldset class="FormPanelCentered" style="width: 970px;">
		<table class="FormPanel" style="width:960px;">
			<tr>
				<td colspan="4"><p class="panelhdr">User Employee Detail Tab Access for <%=UserName%></p></td>
			</tr>
			<tr>
				<td colspan="4">This User is allowed to access the following Employee tabs :-</td>
			</tr>
			<tr>
				<td class="payroll-list-hdr" style="width:140px;"><b>Employee Tab</b></td>
				<td class="payroll-list-hdr" style="width:10px;">&nbsp;</td>
				<td class="payroll-list-hdr" style="width:140px; text-align:center;"><b>Permit Viewing<br>of Tab Contents</b></td>
				<td class="payroll-list-hdr" style="width:670px;"><b>Permit Editing of Tab Contents</b></td>
				
			</tr>
			<tr>
				<td style="width:140px;"><label for="UserGenTabAccess">General</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserGenTabAccess" id="UserGenTabAccess" value="ON" tabindex="1"
					<%if cBool(GetDBField("View_Employee_General_Tab", "UserGenTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserGenTabNameAddrEdit">Name & Address</label>&nbsp;<input type="checkbox" name="UserGenTabNameAddrEdit" id="UserGenTabNameAddrEdit" value="ON" tabindex="2"
					<%if cBool(GetDBField("Edit_Employee_General_Tab_Name_Address", "UserGenTabNameAddrEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>">&nbsp;&nbsp;&nbsp;&nbsp;<label for="UserGenTabPersDetEdit">Personal Details</label>&nbsp;<input type="checkbox" name="UserGenTabPersDetEdit" id="UserGenTabPersDetEdit" value="ON" tabindex="3"
					<%if cBool(GetDBField("Edit_Employee_General_Tab_Pers_Details", "UserGenTabPersDetEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>">&nbsp;&nbsp;&nbsp;&nbsp;<label for="UserGenTabBankDetEdit">Bank Details</label>&nbsp;<input type="checkbox" name="UserGenTabBankDetEdit" id="UserGenTabBankDetEdit" value="ON" tabindex="4"
					<%if cBool(GetDBField("Edit_Employee_General_Tab_Bank_Details", "UserGenTabBankDetEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>">&nbsp;&nbsp;&nbsp;&nbsp;<label for="UserGenTabTaxNIEmplEdit">Tax, NI and Employment Details</label>&nbsp;<input type="checkbox" name="UserGenTabTaxNIEmplEdit" id="UserGenTabTaxNIEmplEdit" value="ON" tabindex="5"
					<%if cBool(GetDBField("Edit_Employee_General_Tab_Tax_NI_Employ", "UserGenTabTaxNIEmplEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<tr>
				<td style="width:140px;"><label for="UserPrevEmplTabAccess">Previous Employment</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserPrevEmplTabAccess" id="UserPrevEmplTabAccess" value="ON" tabindex="6"
					<%if cBool(GetDBField("View_Employee_Prev_Employ_Tab", "UserPrevEmplTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserPrevEmplTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserPrevEmplTabEdit" id="UserPrevEmplTabEdit" value="ON" tabindex="7"
					<%if cBool(GetDBField("Edit_Employee_Prev_Employ_Tab", "UserPrevEmplTabEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<tr>
				<td style="width:140px;"><label for="UserTotYTDTabAccess">Totals YTD</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserTotYTDTabAccess" id="UserTotYTDTabAccess" value="ON" tabindex="8"
					<%if cBool(GetDBField("View_Employee_Totals_YTD_Tab", "UserTotYTDTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserTotYTDTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserTotYTDTabEdit" id="UserTotYTDTabEdit" value="ON" tabindex="9"
					<%if cBool(GetDBField("Edit_Employee_Totals_YTD_Tab", "UserTotYTDTabEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<%if not cBool(rsEmployer("Hide_HR_Functions")) then ' TJS 19/09/14%>
				<tr>
					<td style="width:140px;"><label for="UserHolidayTabAccess">Holidays</label></td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><input type="checkbox" name="UserHolidayTabAccess" id="UserHolidayTabAccess" value="ON" tabindex="10"
						<%if cBool(GetDBField("View_Employee_Holidays_Tab", "UserHolidayTabAccess")) then
							bSomeAccessAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
					<td style="width:670px; text-align:left;"><span class="spaninlineblock" style="min-width: 120px;"><label for="UserHolidayTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserHolidayTabEdit" id="UserHolidayTabEdit" value="ON" tabindex="11"
						<%if cBool(GetDBField("Edit_Employee_Holidays_Tab", "UserHolidayTabEdit")) then
							bSomeEditsAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>EditHolChng()<%else%>undoclick(this)<%end if%>"></span><%' start of code added TJS 11/12/21
						if cBool(rsEmployer("Enable_Holiday_Approval")) then%><label for="UserReqHolLeave">Request Holiday/Leave</label>&nbsp;<input type="checkbox" name="UserReqHolLeave" id="UserReqHolLeave" value="ON" tabindex="60"
							<%if cBool(GetDBField("Request_Holiday_Or_Leave", "UserReqHolLeave")) then
								bSomeEditsAllowed = true
								response.write "checked"
							end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then%>ReqHolLeaveChng()<%else%>undoclick(this)<%end if%>">
						<%else%>
							<input type="hidden"name="UserReqHolLeave" id="UserReqHolLeave" value="<%if cBool(GetDBField("Request_Holiday_Or_Leave", "UserReqHolLeave")) then%>ON<%else%>OFF<%end if%>"> 
						<%end if
						' end of code added TJS 11/12/21%></td>
				</tr>
			<%end if%>
			<tr>
				<td style="width:140px;"><label for="UserSSPSickTabAccess">SSP Sick Pay</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserSSPSickTabAccess" id="UserSSPSickTabAccess" value="ON" tabindex="12"
					<%if cBool(GetDBField("View_Employee_Sick_Pay_Tab", "UserSSPSickTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserSSPSickTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserSSPSickTabEdit" id="UserSSPSickTabEdit" value="ON" tabindex="13"
					<%if cBool(GetDBField("Edit_Employee_Sick_Pay_Tab", "UserSSPSickTabEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<tr>
				<td style="width:140px;"><label for="UserParentalTabAccess">Parental Pay</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserParentalTabAccess" id="UserParentalTabAccess" value="ON" tabindex="14"
					<%if cBool(GetDBField("View_Employee_Parental_Pay_Tab", "UserParentalTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserParentalTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserParentalTabEdit" id="UserParentalTabEdit" value="ON" tabindex="15"
					<%if cBool(GetDBField("Edit_Employee_Parental_Pay_Tab", "UserParentalTabEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<tr>
				<td style="width:140px;"><label for="UserAttachTabAccess">Attachments</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserAttachTabAccess" id="UserAttachTabAccess" value="ON" tabindex="16"
					<%if cBool(GetDBField("View_Employee_Attachments_Tab", "UserAttachTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserAttachTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserAttachTabEdit" id="UserAttachTabEdit" value="ON" tabindex="17"
					<%if cBool(GetDBField("Edit_Employee_Attachments_Tab", "UserAttachTabEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<tr>
				<td style="width:140px;"><label for="UserPensionTabAccess">Pensions</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserPensionTabAccess" id="UserPensionTabAccess" value="ON" tabindex="18"
					<%if cBool(GetDBField("View_Employee_Pensions_Tab", "UserPensionTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserPensionTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserPensionTabEdit" id="UserPensionTabEdit" value="ON" tabindex="19"
					<%if cBool(GetDBField("Edit_Employee_Pensions_Tab", "UserPensionTabEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<%if not cBool(rsEmployer("Hide_HR_Functions")) then ' TJS 19/09/14%>
				<tr>
					<td style="width:140px;"><label for="UserAddlPersTabAccess">Additional Personal</label></td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><input type="checkbox" name="UserAddlPersTabAccess" id="UserAddlPersTabAccess" value="ON" tabindex="20"
						<%if cBool(GetDBField("View_Employee_Addl_Pers_Tab", "UserAddlPersTabAccess")) then
							bSomeAccessAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
					<td style="width:670px; text-align:left;"><label for="UserAddlPersTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserAddlPersTabEdit" id="UserAddlPersTabEdit" value="ON" tabindex="21"
						<%if cBool(GetDBField("Edit_Employee_Addl_Pers_Tab", "UserAddlPersTabEdit")) then
							bSomeEditsAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				</tr>
				<tr>
					<td style="width:140px;"><label for="UserContactsTabAccess">Contacts</label></td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><input type="checkbox" name="UserContactsTabAccess" id="UserContactsTabAccess" value="ON" tabindex="22"
						<%if cBool(GetDBField("View_Employee_Contacts_Tab", "UserContactsTabAccess")) then
							bSomeAccessAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
					<td style="width:670px; text-align:left;"><label for="UserContactsTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserContactsTabEdit" id="UserContactsTabEdit" value="ON" tabindex="23"
						<%if cBool(GetDBField("Edit_Employee_Contacts_Tab", "UserContactsTabEdit")) then
							bSomeEditsAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				</tr>
				<tr>
					<td style="width:140px;"><label for="UserJobHistTabAccess">Job History</label></td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><input type="checkbox" name="UserJobHistTabAccess" id="UserJobHistTabAccess" value="ON" tabindex="24"
						<%if cBool(GetDBField("View_Employee_Job_History_Tab", "UserJobHistTabAccess")) then
							bSomeAccessAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
					<td style="width:670px; text-align:left;"><label for="UserJobHistTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserJobHistTabEdit" id="UserJobHistTabEdit" value="ON" tabindex="25"
						<%if cBool(GetDBField("Edit_Employee_Job_History_Tab", "UserJobHistTabEdit")) then
							bSomeEditsAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				</tr>
				<tr>
					<td style="width:140px;"><label for="UserTrainingTabAccess">Training</label></td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><input type="checkbox" name="UserTrainingTabAccess" id="UserTrainingTabAccess" value="ON" tabindex="26"
						<%if cBool(GetDBField("View_Employee_Training_Tab", "UserTrainingTabAccess")) then
							bSomeAccessAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
					<td style="width:670px; text-align:left;"><label for="UserTrainingTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserTrainingTabEdit" id="UserTrainingTabEdit" value="ON" tabindex="27"
						<%if cBool(GetDBField("Edit_Employee_Training_Tab", "UserTrainingTabEdit")) then
							bSomeEditsAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				</tr>
				<tr>
					<td style="width:140px;"><label for="UserDisciplineTabAccess">Disciplinary</label></td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><input type="checkbox" name="UserDisciplineTabAccess" id="UserDisciplineTabAccess" value="ON" tabindex="28"
						<%if cBool(GetDBField("View_Employee_Discipline_Tab", "UserDisciplineTabAccess")) then
							bSomeAccessAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
					<td style="width:670px; text-align:left;"><label for="UserDisciplineTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserDisciplineTabEdit" id="UserDisciplineTabEdit" value="ON" tabindex="29"
						<%if cBool(GetDBField("Edit_Employee_Discipline_Tab", "UserDisciplineTabEdit")) then
							bSomeEditsAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				</tr>
				<tr>
					<td style="width:140px;"><label for="UserNotesTabAccess">Notes</label></td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><input type="checkbox" name="UserNotesTabAccess" id="UserNotesTabAccess" value="ON" tabindex="30"
						<%if cBool(GetDBField("View_Employee_Notes_Tab", "UserNotesTabAccess")) then
							bSomeAccessAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
					<td style="width:670px; text-align:left;"><label for="UserNotesTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserNotesTabEdit" id="UserNotesTabEdit" value="ON" tabindex="31"
						<%if cBool(GetDBField("Edit_Employee_Notes_Tab", "UserNotesTabEdit")) then
							bSomeEditsAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				</tr>
				<%' start of code added TJS 09/04/21%>
				<tr>
					<td style="width:140px;"><label for="UserDocsTabAccess">Documents</label></td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><input type="checkbox" name="UserDocsTabAccess" id="UserDocsTabAccess" value="ON" tabindex="32"
						<%if cBool(GetDBField("View_Employee_Documents_Tab", "UserDocsTabAccess")) then
							bSomeAccessAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
					<td style="width:670px; text-align:left;"><label for="UserDocsTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserDocsTabEdit" id="UserDocsTabEdit" value="ON" tabindex="33"
						<%if cBool(GetDBField("Edit_Employee_Documents_Tab", "UserDocsTabEdit")) then
							bSomeEditsAllowed = true ' TJS 17/04/21
							response.write "checked"
						end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				</tr>
				<%' end of code added TJS 09/04/21
			end if%>
			<tr>
				<td style="width:140px;"><label for="UserP9DTabAccess">P9D</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserP9DTabAccess" id="UserP9DTabAccess" value="ON" tabindex="34"
					<%if cBool(GetDBField("View_Employee_P9D_Tab", "UserP9DTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserP9DTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserP9DTabEdit" id="UserP9DTabEdit" value="ON" tabindex="35"
					<%if cBool(GetDBField("Edit_Employee_P9D_Tab", "UserP9DTabEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<tr>
				<td style="width:140px;"><label for="UserP11DTabAccess">P11D</label></td>
				<td style="width:10px;">&nbsp;</td>
				<td style="width:140px; text-align:center;"><input type="checkbox" name="UserP11DTabAccess" id="UserP11DTabAccess" value="ON" tabindex="36"
					<%if cBool(GetDBField("View_Employee_P11D_Tab", "UserP11DTabAccess")) then
						bSomeAccessAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
				<td style="width:670px; text-align:left;"><label for="UserP11DTabEdit">All content</label>&nbsp;<input type="checkbox" name="UserP11DTabEdit" id="UserP11DTabEdit" value="ON" tabindex="37"
					<%if cBool(GetDBField("Edit_Employee_P11D_Tab", "UserP11DTabEdit")) then
						bSomeEditsAllowed = true ' TJS 17/04/21
						response.write "checked"
					end if%> onclick="<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>datachanged()<%else%>undoclick(this)<%end if%>"></td>
			</tr>
			<%if AllowChanges and rsUser("User_Admin") then ' TJS 07/12/19%>
				<tr style="height: 40px;">
					<td style="width:140px;">&nbsp;</td>
					<td style="width:10px;">&nbsp;</td>
					<td style="width:140px; text-align:center;"><a id="SetClearAllView" class="continue_button" onclick="SetClearView()"><%if bSomeAccessAllowed then ' TJS 17/04/21%>Clear All<%else%>Set All<%end if%></a></td>
					<td style="width:670px; text-align:left;"><a id="SetClearAllEdit" class="continue_button" onclick="SetClearEdit()"><%if bSomeEditsAllowed then ' TJS 17/04/21%>Clear All<%else%>Set All<%end if%></a></td>
				</tr>
			<%end if
			' start of code added TJS 07/12/19
			if rsUserDetails("User_Role_ID") <> 0 then%>
				<tr style="height: 40px;">
					<td colspan="4">User permissions are Role based and cannot be edited directly</td>
				</tr>
			<%end if
			' end of code added TJS 07/12/19%>
		</table>
	</fieldset>
</form>

<p style="clear: left; padding: 10px;"><a id="Update" class="continue_button_disabled" onclick="updatesubmit()">Update</a>
	<a id="Close" class="cancel_button" onclick="closewindow()">Close</a></p>

</body>

</html>
<%
ReleaseASPEncrypt

rsUserDetails.close
rsUser.close
rsEmployer.close
set rsUserDetails = nothing
set rsUser = nothing
set rsEmployer = nothing

SaveSessionVarsRecord SessionVarsID

objConn.close
set objConn = nothing%>