Help with Validation of Masked Field

[Rich Hartnett]

I have a police report application that requires some unique validation upon starting a new report.

One field is called "Case Number," and consists of 11 digits in this format: Year, Julian Date, No. of Incidents for the day.

A typical case number for today would be 13-327-0050, and I have the field masked so that the user is forced to enter the data in the format of XX-XXX-XXXX.

Another field is called "Date Reported," and is a normal date field. (MM/DD/YYYY)

In this system the Middle Three digits of the Case Number (Julian Date) must always match the Julian Date for the Date Reported. In other words, if the date reported is 11/23/2013, then the case number must have 327 in the middle, because the Julian Date for 11/23/2013 is 327.

Since the Case Number and the Date Reported are entered at the same time, I want to validate the Julian Date against the "Middle Three" of the case number when the Submit button is pushed, to make sure the user is entering the correct value.

How would I go about doing that?

[GGandhi]

Re: Help with Validation of Masked Field

dim date_entered as d
dim case_number as c = "13-327-0050"
dim mid_value as n
dim ord_date as n
date_entered = {11/23/2013}
mid_value = val(word(case_number,2,"-"))
ord_date = jdate(date_entered) - jdate(ctod("1/1/" + year(date_entered)))+1
if mid_value = ord_date
	msgbox("Information","The case number is accepted")
	else
	msgbox("Warning", "the case number is invalid")
	end if

something like this?

on the webside a javascript alert box can be used for on change event or any other event that seems appropriate.

	dim date_entered as d
	dim case_number as c
	dim mid_value as n
	dim ord_date as n
	date_entered = e.dataSubmitted.date
	case_number = e.dataSubmitted.case_number
	mid_value = val(word(case_number,2,"-"))
	ord_date = jdate(date_entered) - jdate(ctod("1/1/" + year(date_entered)))+1
	if mid_value = ord_date
	validate_case = "alert('The case number is accepted');"
	else
	validate_case  = "alert('The case number is invalid!');"
	end if

for the webside using dialog.

if you want, you can assign the case number in the dialog.
if you have three fields:
date, incident number and case number
when you fill in the date and the incident number the case number can be calculated via on change event, ajax call back to have proper case number, thus obviating the need for validation. unless if you must.
and you can disable the control so no one can change.

here is something to consider:

     dim case_date as d
	dim yy as c
	dim ord_date as n
	dim case_prefix as c
	dim incident_number as n
	
	incident_number = e.dataSubmitted.incident_number
	case_date = e.dataSubmitted.date
	yy = substr(alltrim(str(year(case_date))),3,2)
	ord_date = jdate(case_date) - jdate(ctod("1/1/" + year(case_date)))+1
	e._set.case_number.value = yy+"-"+ord_date+"-"+incident_number