<%
' MyPAYE
' Module: SSPContractualPay.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 - 2022  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 06 February 2022
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'   Description -    This module requests the user to enter the Contractual pay to be used 
'                    for calculating the SSP average pay when no pay has been paid
'
' Amendment Log
'------------------------------------------------------------------------------------------
' Date     | Name            | Vers.  | Description
'------------------------------------------------------------------------------------------
' 03/05/05 | TJS             | 1.0    | Original
' 12/05/05 | TJS             | 1.0.01 | Replace Continue button with panel
' 16/05/05 | TJS             | 1.0.04 | Modified to cater for different CSS files depending on the 
'                                     | Agency ID setting for the Employer via session variable PathModifier
' 02/08/05 | TJS             | 1.0.12 | Added response headers to prevent caching and
'                                     | modified to use OpenRecordset and ExecuteSQL instead of 
'                                     | objConn.execute to enable trapping of SQL errors
' 04/03/06 | TJS             | 1.0.22 | Changed Inland Revenue to HMRC
' 28/05/06 | TJS             | 1.0.28 | Modified to include ICRA content rating link
' 15/09/06 | TJS             | 1.0.34 | Modified to add onkeypress routines to detect return key being pressed
' 01/01/07 | TJS             | 1.1.05 | Modified to include RerunPayroll and CancelPage parameters
' 19/06/07 | TJS             | 1.2.00 | Modified to replace session variables with Session_Vars table
' 18/11/07 | TJS             | 1.2.07 | Changed name of Notes text area to resolve ID conflict with Notes tab
' 18/11/10 | TJS             | 1.5.00 | Modified to use both root and agency CSS files when used to 
'                                     | eliminate duplicated settings in agency CSS files
' 08/08/12 | TJS             | 2.0.05 | Google Analytics added
' 26/11/13 | DC              | 3.0.09 | 'DelPIW' not being passed through.
' 01/06/14 | TJS             | 4.0.00 | Modified for new styling and operation without framesets
' 06/10/14 | TJS             | 4.0.04 | Modified for Encrypted Employer ID check
' 12/04/15 | TJS             | 4.0.13 | Corrected html format and validation
' 21/02/17 | TJS             | 5.0.18 | Modified to cater for Status Effective Date and to accept POST instead of GET
' 29/04/17 | TJS             | 5.1.01 | Modified to cater for Part Day Hours
' 31/03/20 | TJS             | 5.7.07 | Modified to cater for Covid-19 SSP payable from day 1
' 16/12/20 | TJS             | 5.9.05 | Modified to cater for SSP days paid in Employee_SSP_PIW_Paid
' 06/02/22 | TJS             | 5.9.15 | Modified to use ASPDotNet/UpdateSSPPIW.ashx page
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

PageID = 66857
NoBack = True
SessionID = request.form("ID") ' TJS 21/02/17
SessionVarsID = RemoveHTML(request.form("SV")) ' TJS 19/06/07 TJS 21/02/17
SourceFrame = RemoveHTML(request.form("S")) ' TJS 21/02/17
DestFrame = RemoveHTML(request.form("D")) ' TJS 21/02/17
EmployeeID = CheckURLDBIDField(RemoveHTML(request.form("EE")), "EmployeeID") ' TJS 21/02/17
EmployerID = CheckURLDBIDField(RemoveHTML(request.form("ER")), "EmployerID") ' TJS 21/02/17
PayrollID = CheckURLDBIDField(RemoveHTML(request.form("PR")), "PayrollID") ' TJS 21/02/17
AddNewEdit = RemoveHTML(request.form("ANE")) ' TJS 21/02/17
RerunPayroll = RemoveHTML(request.form("RrP")) ' TJS 01/01/07 TJS 21/02/17
CancelPage = RemoveHTML(request.form("CPge")) ' TJS 01/01/07 TJS 21/02/17
%>

<!--#include file ="Functions\CoreValidationRoutines.asp"-->

<!--#include file ="Functions\ConnectDatabaseMain.asp"-->

<!--#include file ="Functions\CommonPayrollRoutines.asp"-->

<!--#include file ="Functions\CreateSessionID.asp"-->

<!--#include file ="Functions\FrameNameConst.asp"-->

<%GetSessionVarsIDRecord(SessionVarsID) ' TJS 19/06/07%>

<!--#include file ="Functions\DataProtection.asp"-->

<!--#include file ="Functions\URLValidation.asp"-->

<%' start of code added TJS 12/04/15
Function CheckValidationFailure(FieldName)

	if instr(1, FailureFields, ":" & FieldName & ":") = 0 then
		' no failure - set control to normal or readonly
		CheckValidationFailure = ""
	else
		' validation failed - set control to red outline
		CheckValidationFailure = "-error"
	end if
	
end Function
' end of code added TJS 12/04/15

SSPPIWID = CheckURLDBIDField(RemoveHTML(request.form("SSPPIWID")), "SSPPIWID") ' TJS 21/02/17
SickStartDate = ValidateDateValue(RemoveHTML(Trim(request.form("SickStartDate"))), "SickStartDate") ' TJS 21/02/17
SickEndDate = ValidateDateValue(RemoveHTML(Trim(request.form("SickEndDate"))), "SickEndDate") ' TJS 21/02/17
EndDateActual = RemoveHTML(request.form("EndDateActual")) ' TJS 21/02/17
HasAttendedWork = RemoveHTML(request.form("HasAttendedWork")) ' TJS 21/02/17
' start of code added TJS 29/04/17
PartDaySickness = RemoveHTML(request.form("PartDay"))
PartDayHours = ValidateNumberValue(RemoveHTML(Trim(request.form("PartDayHrs"))), "PartDayHrs")
' end of code added TJS 29/04/17
if UCase(RemoveHTML(request.form("SingleSSPPattern"))) = "ON" then ' TJS 21/02/17
	SingleSSPPattern = "ON"
	SSPPatternCount = 1
	redim SSPPatternW(SSPPatternCount)
	SSPPatternW(1) = CheckURLDBIDField(RemoveHTML(request.form("SSPPattern")), "SSPPattern") ' TJS 21/02/17
else
	SingleSSPPattern = "OFF"
	SSPPatternCount = RemoveHTML(request.form("SSPPatternCount")) ' TJS 21/02/17
	redim SSPPatternW(SSPPatternCount)
	for iLoopCount = 1 to SSPPatternCount 
		SSPPatternW(iLoopCount) = CheckURLDBIDField(RemoveHTML(request.form("SSPPatternW" & iLoopCount)), "SSPPatternW" & iLoopCount) ' TJS 21/02/17
	next
end if
SSPLinkedPIWID = CheckURLDBIDField(RemoveHTML(request.form("LinkedPIW")), "SSPLinkedPIWID") ' TJS 21/02/17
SSPStatus = RemoveHTML(request.form("SSPStatus")) ' TJS 21/02/17
StatusEffectiveDate = ValidateDateValue(RemoveHTML(Trim(request.form("StatEffectDate"))), "StatEffectDate") ' TJS 21/02/17
SickPayPolicy = RemoveHTML(request.form("SickPayPolicy")) ' TJS 21/02/17
Covid19SSP = RemoveHTML(request.form("Covid19SSP")) ' TJS 31/03/20
SSP1LRequested = RemoveHTML(request.form("SSP1LRequested")) ' TJS 21/02/17
SSP1FormID = CheckURLDBIDField(RemoveHTML(request.form("SSP1FormID")), "SSP1FormID") ' TJS 21/02/17
SSP1LFormID = CheckURLDBIDField(RemoveHTML(request.form("SSP1LFormID")), "SSP1LFormID") ' TJS 21/02/17
NotesText = RemoveHTML(replace(request.form("NotesText"), "<br>", vbcrlf)) ' TJS 18/11/07 TJS 21/02/17
TotalPaid = RemoveHTML(Trim(request.form("TotalPaid"))) ' TJS 21/02/17
TotalDaysPaid = ValidateIntegerValue(RemoveHTML(Trim(request.form("TotalDaysPaid"))), "TotalDaysPaid") ' TJS 16/12/20
TotalPaidToDate = RemoveHTML(Trim(request.form("TotalPaidToDate"))) ' TJS 21/02/17
TaxPeriodPaid = ValidateIntegerValue(RemoveHTML(Trim(request.form("TaxPeriodPaid"))), "TaxPeriodPaid") ' TJS 16/12/20
ContractualWeeklyPay = ValidateCurrencyValue(RemoveHTML(Trim(request.form("CWP"))), "CWP") ' TJS 12/04/15 TJS 21/02/17
ContractualMonthlyPay = ValidateCurrencyValue(RemoveHTML(Trim(request.form("CMP"))), "CMP") ' TJS 12/04/15 TJS 21/02/17
ContractualAnnualPay = ValidateCurrencyValue(RemoveHTML(Trim(request.form("CAP"))), "CAP") ' TJS 12/04/15 TJS 21/02/17
DelPIW = RemoveHTML(Trim(request.form("DelPIW"))) ' DC 26/11/13 TJS 21/02/17
	
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>Contractual Pay for SSP Average Pay calculation</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 -->

<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>
function checkreturn(evt){

	var e =(window.event) ? window.event : evt;
	
	if (e.keyCode == 13)
	{
		document.SSPDetails.submit();
	}
}

</script>

<!--#include file ="Functions\GoogleAnalytics.asp"-->

</head>

<body style="text-align:center; border: 0px; margin: 0px;">

<form name="SSPDetails" method="post" action="https://<%=request.servervariables("SERVER_NAME")%>/Secure/ASPDotNet/UpdateSSPPIW.ashx"> <!-- TJS 06/02/22 -->
	<input type="hidden" name="ID" value="<%=SetPageSessionID(92235, 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="EE" value="<%=EmployeeID%>">
	<input type="hidden" name="ER" value="<%=EmployerID%>">
	<input type="hidden" name="PR" value="<%=PayrollID%>">
	<input type="hidden" name="ANE" value="<%=AddNewEdit%>">
	<input type="hidden" name="RrP" value="<%=RerunPayroll%>">
	<input type="hidden" name="CPge" value="<%=CancelPage%>">
	<input type="hidden" name="Row" id="Row" value="<%=Row%>">
	<input type="hidden" name="SSPPIWID" value="<%=SSPPIWID %>">
	<input type="hidden" name="SickStartDate" value="<%=SickStartDate%>">
	<input type="hidden" name="SickEndDate" value="<%=SickEndDate%>">
	<input type="hidden" name="HasAttendedWork" value="<%=HasAttendedWork%>">
	<input type="hidden" name="EndDateActual" value="<%=EndDateActual%>">
	<!-- start of code added TJS 29/04/17 -->
	<input type="hidden" name="PartDay" value="<%=PartDaySickness%>">
	<input type="hidden" name="PartDayHrs" value="<%=PartDayHours%>">
	<!-- end of code added TJS 29/04/17 -->
	<input type="hidden" name="SingleSSPPattern" value="<%=SingleSSPPattern%>">
	<input type="hidden" name="SSPPatternCount" value="<%=SSPPatternCount%>">
	<input type="hidden" name="SSPPattern" value="<%=SSPPatternW(1)%>">
	<%if SingleSSPPattern = "OFF" then
		for iLoopCount = 1 to SSPPatternCount%>
			<input type="hidden" name="SSPPatternW<%=iLoopCount%>" value="<%=SSPPatternW(iLoopCount)%>">
		<%next
	end if%>
	<input type="hidden" name="LinkedPIW" value="<%=SSPLinkedPIWID%>">
	<input type="hidden" name="SSP1FormID" value="<%=SSP1FormID%>">
	<input type="hidden" name="SSP1LFormID" value="<%=SSP1LFormID%>">
	<input type="hidden" name="SSPStatus" value="<%=SSPStatus%>">
	<input type="hidden" name="StatEffectDate" value="<%=StatusEffectiveDate%>">
	<input type="hidden" name="SickPayPolicy" value="<%=SickPayPolicy%>">
	<input type="hidden" name="Covid19SSP" value="<%=Covid19SSP%>"> <!-- TJS 31/03/20 -->
	<input type="hidden" name="SSP1LRequested" value="<%=SSP1LRequested%>">
	<input type="hidden" name="NotesText" value="<%=NotesText%>">
 	<input type="hidden" name="TotalPaid" value="<%=TotalPaid%>">
	<input type="hidden" name="TotalDaysPaid" value="<%=TotalDaysPaid%>"> <!-- TJS 16/12/20-->
	<input type="hidden" name="TaxPeriodPaid" value="<%=TaxPeriodPaid%>"> <!-- TJS 16/12/20-->
	<input type="hidden" name="TotalPaidToDate" value="<%=TotalPaidToDate%>">
	<input type="hidden" name="DelPIW" value="<%=DelPIW%>"> <% 'DC 26/11/13%>
	<input type="hidden" name="FFld" value="<%=FailureFields%>">

<p>Under HMRC rules for Statutory Sick Pay, this employee has either not been paid yet,<br>or the payment period is too short to use for the 8 Week Average Earnings calculation for SSP</p>
<p>Please enter the Contractual pay for this Employee in the most appropriate field below</p>
<table style="width:200px; margin:auto; text-align:center; border-collapse: collapse">
	<tr>
		<td style="width:100px;">Weekly Pay</td>
		<td style="width:100px;"><input type="text" name="CWP" class="earn-deduct-value<%=CheckValidationFailure("CWP")%>" value="<%=ContractualWeeklyPay%>" maxlength="8" tabindex="1" onkeypress="checkreturn(event)"></td>
	</tr>
	<tr>
		<td style="width:100px;">Monthly Pay</td>
		<td style="width:100px;"><input type="text" name="CMP" class="earn-deduct-value<%=CheckValidationFailure("CMP")%>" value="<%=ContractualMonthlyPay%>" maxlength="8" tabindex="2" onkeypress="checkreturn(event)"></td>
	</tr>
	<tr>
		<td style="width:100px;">Annual Pay</td>
		<td style="width:100px;"><input type="text" name="CAP" class="earn-deduct-value<%=CheckValidationFailure("CAP")%>" value="<%=ContractualAnnualPay%>" maxlength="8" tabindex="3" onkeypress="checkreturn(event)"></td>
	</tr>
</table>
<p><a id="Close" class="continue_button" onclick="document.SSPDetails.submit()"><b>Continue</b></a></p>

</form>

</body>

</html>

<%SaveSessionVarsRecord SessionVarsID ' TJS 19/06/07

ReleaseASPEncrypt ' TJS 06/10/14

objConn.close
set objConn = nothing
%>