Server-side validation on single field

[pettechservices]

I've gone through the various videos on the Wiki, and one touches on server side validation, but doesn't show HOW it was set up.

Basically, I have a dialog. The first field is an email address. I need it to check if the email address exists already, and if so, display an error, and show a container that was hidden previously. This is for new records.

If it is an existing record, I only want to validate it if it is changed, but if they change a character and then the same email address is still there, then it shouldn't revalidate it (as it would say the address already exists, which should, since this is an UPDATE operation).

I set up validation on the field, in properties, to check a database table, which sorta works, but if it is an update, it still says value exists.

Any pointers???

Chris

[Davidk]

Re: Server-side validation on single field

Do you want to validate the email address from the Dialog Submit? Therefore, using the dialogValidate event?

[pettechservices]

Re: Server-side validation on single field

Actually, immediately once they tab out of the field... I see the option Immediate Validation (client server/server side) but I don't know where to define which call back for server side. The videos leave that part out.

[agillbb]

Re: Server-side validation on single field

I believe the "validate xBasic" setting means "serverside".

[Davidk]

Re: Server-side validation on single field

Yes... the Immediate Validation (server-side part) fires off an Ajax Callback to the code in the Validation Xbasic routine. The trick is to get a sure-fire way of determining if you're working on a new record or an existing record.

Selwyn posted some information about the dialog object keys being set once the dialog is populated with data from a table, but I can't get it to work 100% of the time.

e.g.

var _myo = DLG1_DlgObj.stateInfo;
 
if (_myo.keys.TBLPRODUCTS._key == 'undefined')
{
alert('new record');
}
else
{
var xx = _myo.keys.TBLPRODUCTS._key;
alert(xx);
}

[pettechservices]

Re: Server-side validation on single field

Ok, I'll try that David... I appreciate the example!!

[Davidk]

Re: Server-side validation on single field

No... can't get it to work... but... the following does. This is kind of brute force stuff. I'd prefer to use the information in the object itself, but just can't seem to understand it. In your Email field, put this code into place in the Validation XBasic section, and set your Immediate Validation to Client-side and Server-side.

This code grabs the Id of your record and checks to see if that record exists. If it does then we don't need to do anything... right? 'Cause we're just changing the email address. But, if the Record Id does not exist, then that means we're dealing with a new record and therefore we will go on to check the email address.

The following code uses my fields, so change those to yours. Hope it makes sense.

dim cn as sql::connection
dim args as sql::arguments
dim sqlStmt as c
dim rs as sql::resultset
dim sqlStmt as c
	
if e.data.ProdId <> "" then
	'we have data, so let's see if this is an existing record
	
	flag = cn.open("::Name::YOURNAMEDCONNECTION","YOURLOGIN","YOURPASSWORD")

	sqlStmt = "SELECT * FROM tblProducts WHERE ProdId = :argsItem"
	
	args.add("argsItem",e.data.ProdId)
	flag = cn.execute(sqlStmt,args)
	rs = cn.resultset
	flag = rs.nextRow()
	if flag then
		'we are dealing with an existing record so no need to do anything
	else
		'we are dealing with a new record, so let's go validate our other data 
		if e.data.ProdName <> "" then
			'we have data, so validate the field
		
		        flag = cn.open("::Name::YOURNAMEDCONNECTION","YOURLOGIN","YOURPASSWORD")
		
			sqlStmt = "SELECT * FROM tblOrders WHERE OrdName = :argsItem"
			
			args.add("argsItem",e.data.ProdName)
			flag = cn.execute(sqlStmt,args)
			rs = cn.resultset
			flag = rs.nextRow()
			if flag then
				'we found a record in the validation table with the same value, so... no go
	                    validate_ProdName.hasError = .t.
			    validate_ProdName.errorText = "ProdName already exists."
			end if	
		else
			'no data so nothing to do
		end if
				
	end if	
else
	'no data so nothing to do
end if