| function validateTime(control) |
| { |
| //debugger; |
| var controlID |
| controlChanged = new String(control.id); |
| if (controlChanged == 'undefined') |
| { |
| controlChanged = new String(control._clientID); |
| } |
| controlID = controlChanged.replace(/(.*)_(ctl\d{2,})(_Line_)(Start|Lunch|Finish|LineTotal)(_TextBox1|_RadTimePicker1)(_dateInput)?(_text)?/ig, function re_match($0, $1, $2, $3, $4, $5) {return $1 + '_' + $2 + $3 + $4 + $5;}); |
| for(ix=0; ix<Page_Validators.length; ix++) |
| { |
| if(Page_Validators[ix].controltovalidate == controlID) |
| { |
| var value = control.value; |
| var val = Page_Validators[ix]; |
| if (typeof val.clientvalidationfunction == "string") |
| { |
| var args = {Value:value, IsValid:true}; |
| if (eval(val.clientvalidationfunction + "(val,args);")) |
| { |
| val.style.visibility = "hidden"; |
| } |
| else |
| { |
| val.style.visibility = "visible"; |
| } |
| } |
| return; |
| } |
| } |
| } |
| |
| function validtime(oSrc, args) |
| { |
| //debugger; |
| args.IsValid = validTimeEntered(args.Value); |
| return args.IsValid; |
| } |
| |
| // AND some nasty JS in the codebehing of the page |
| |
| Dim sb As StringBuilder = New StringBuilder() |
| sb.AppendLine("<script language=""javascript"" type=""text/javascript"">") |
| |
| sb.AppendLine("function validTimeEntered(value)") |
| sb.AppendLine("{") |
| 'sb.AppendLine("debugger;") |
| sb.AppendLine("try") |
| sb.AppendLine("{") |
| sb.AppendLine("if(value==""hh:mm"")") |
| sb.AppendLine("return true;") |
| sb.AppendLine("if(value=="""")") |
| sb.AppendLine("return true;") |
| sb.AppendLine("if(value.length > 5)") |
| sb.AppendLine("valuevalue = value.replace(/(\d{4})(-)?(\d{2})(-)?(\d{2})(-)?(\d{2})(-)?(\d{2})(-)?(\d{2})/gi, function re_match($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {return $7 + ':' + $9 ;});") |
| sb.AppendLine("var str = new String(value);") |
| sb.AppendLine("strstr = str.replace(/^(\d{1,2}):(\d{0,2})$/ig, function re($0,$1,$2){return $1 + "":"" + ($2==""""?""00"":$2);})") |
| sb.AppendLine("str = new String(value);") |
| sb.AppendFormat("return str.match(/{0}/) != null;", validateHoursRegEx(CType(Me.Page.Master, Cwp.Pages.cwpMasterPageBase).RootConfig().RootConfig.TimeshheetEntryHours)).AppendLine() |
| sb.AppendLine("}") |
| sb.AppendLine("catch(e)") |
| sb.AppendLine("{") |
| sb.AppendLine("return false;") |
| sb.AppendLine("}") |
| sb.AppendLine("}") |
| |
| sb.AppendLine("</script>") |
| |
| Dim csm As ClientScriptManager = Page.ClientScript |
| csm.RegisterClientScriptBlock(Me.GetType(), "TimeValidation", sb.ToString()) |
| |
| 'If ConfigReader.GetRootConfig.RootConfig.TimeFieldConfiguration.Mode <> TimeFieldModes.TextBox Then |
| sb = New StringBuilder |
| Dim validValues As StringString = String.Empty |
| If ConfigReader.GetRootConfig.RootConfig.TimeshheetEntryHours = TimesheetHourEntry.Any Then |
| |
| ElseIf ConfigReader.GetRootConfig.RootConfig.TimeshheetEntryHours = TimesheetHourEntry.Quarter Then |
| validValues = "00,15,30,45" |
| ElseIf ConfigReader.GetRootConfig.RootConfig.TimeshheetEntryHours = TimesheetHourEntry.Half Then |
| validValues = "00,30" |
| ElseIf ConfigReader.GetRootConfig.RootConfig.TimeshheetEntryHours = TimesheetHourEntry.Hour Then |
| validValues = "00" |
| End If |
| |
| sb.Append("function CheckRadDatePickerTime(sender, args)") |
| sb.Append("{") |
| If validValues <> String.Empty Then |
| sb.Append("var timeEntered = args._newValue;") |
| sb.Append("if (timeEntered != '' && timeEntered != undefined) ") |
| sb.Append("{") |
| sb.Append(" if (!validateTimeEntred(timeEntered)) {") |
| sb.Append("OnRadDatePickerError(sender, args);") |
| sb.Append("sender._invalid=true;") |
| sb.Append("}else{") |
| sb.Append("sender._invalid=false;") |
| sb.Append("}") |
| sb.Append("}") |
| End If |
| sb.Append("}") |
| sb.Append("function validateTimeEntred(timeEntered) {") |
| sb.Append("var ary = timeEntered.split(':');") |
| sb.Append(String.Format("var validvalues = '{0}';", validValues)) |
| sb.Append("return !((validvalues.indexOf(ary[1]) < 0 || parseInt(ary[0]) < 0 || parseInt(ary[0]) > 23 || !validTimeEntered(timeEntered)));") |
| sb.Append("}") |
| If sb.Length > 0 Then |
| Dim cstype As Type = Me.GetType() |
| ' Get a ClientScriptManager reference from the Page class. |
| Dim cs As ClientScriptManager = Page.ClientScript |
| |
| ' Check to see if the client script is already registered. |
| If (Not cs.IsClientScriptBlockRegistered(cstype, "CheckRadDatePickerTime")) Then |
| cs.RegisterClientScriptBlock(cstype, "CheckRadDatePickerTime", sb.ToString(), True) |
| End If |
| End If |
| 'End If |
| |
| |
| |
| |