Validation Xbasic

[dfricke10]

Re: Validation Xbasic

So, we got it. The validation "CANNOT BE BLANK" just needs to go away once something is in the field.

[madtowng]

Re: Validation Xbasic

ok. Give this a try.

function setShip as c (e as p)
	
	
dim validated[0] as p
dim allValidated as c = ""
dim js as c
dim varJS[0] as p
dim tracker as n = 0
dim ShipFName as c = e.dataSubmitted.ShipFName
dim ShipLName as c = e.dataSubmitted.ShipLName
dim ShipAdd1 as c = e.dataSubmitted.ShipAdd1

varJS[].original = <<%txt%
$('<swap2>').innerHTML = "<swapit> &nbsp &nbsp &nbsp<font color=\"red\"> CANNOT BE BLANK</font>";
%txt%
varJS[].original = <<%txt%
$('<swap2>').innerHTML = "<swapit>";
%txt%



validated[].swap = "First Name"
validated[..].swap2 = "fn"
validated[..].fieldVal = shipFname 'e.dataSubmitted.ShipFName

validated[].swap = "Last Name"
validated[..].swap2 = "ln"
validated[..].fieldVal = shipLname 'e.dataSubmitted.ShipLName

validated[].swap = "Shipping Address1"
validated[..].swap2 = "a1"
validated[..].fieldVal = ShipAdd1 'e.dataSubmitted.ShipAdd1

js = ""
debug(1)
for each fld in validated
	tempJS = varJS[1].original
	tracker = tracker+1
	if isnull(validated[tracker].fieldVal) then
		allValidated = "false"
		'''tempJS = "$('<swap2>').innerHTML = '<swapit> &nbsp &nbsp &nbsp<font color=\"red\"> CANNOT BE BLANK</font>';"
		tempJS = strtran(tempJS,"<swapit>",validated[tracker].swap)
		tempJS = strtran(tempJS,"<swap2>",validated[tracker].swap2)
		js = js + tempJS
	else
		tempJS = varJS[2].original
		tempJS = strtran(tempJS,"<swapit>",validated[tracker].swap)
		tempJS = strtran(tempJS,"<swap2>",validated[tracker].swap2)			
		js = js + tempJS
	end if
next

if allValidated <> "false" then
tracker = 0	
for each fld in validated
	tempJS = varJS[2].original
	tracker = tracker+1
	if .not. isnull(validated[tracker].fieldVal) then
		allValidated = "false"
		tempJS = "$('<swap2>').innerHTML = '<swapit>';"
		tempJS = strtran(tempJS,"<swapit>",validated[tracker].swap)
		tempJS = strtran(tempJS,"<swap2>",validated[tracker].swap2)
		js = js + tempJS
	
	end if
next
end if
	setShip = js

end function

[dfricke10]

Re: Validation Xbasic

Perfecto! Similar, although MUCH better than what I came up with from your last post. You got the adding the Field Name back in where I didn't have that part. Now I get to add all the other fields.

I'm building a nice ecommerce web app. Then I get to do the mobile version. I'll be here for a while. :) Thanks so much for the help!

[madtowng]

Re: Validation Xbasic

FANTASTIC!!!!!!!
Sorry it took so many tries to get it. It's what happens when computing time doesn't cost an arm and a leg.
I don't know how many fields you're working with, but if it's more than just a few more, you might consider
putting that information into a sql table, the building the validated array from a sql query.
Benefits being cleaner code and easier to update if you need to add more columns in the future.

[dfricke10]

Re: Validation Xbasic

There's not too many. Just the rest of the address fields.

One housecleaning thing. I made a video instead of trying to explain it. :)
https://www.screencast.com/t/i8wBEmT3u

[madtowng]

Re: Validation Xbasic

David,
My boss gets irritated because I don't release code for general use until it passes my expectation of what it should do.
Something based on two words that were never meant to be put together (good enough).
Would you be kind enough to post your code?

[madtowng]

Re: Validation Xbasic

David,

The line you added needs to append that code to the end of js.

js = js + "$('val').innerHTML = 'All done and continuing on....';"

[dfricke10]

Re: Validation Xbasic

David,
My boss gets irritated because I don't release code for general use until it passes my expectation of what it should do.
Something based on two words that were never meant to be put together (good enough).
Would you be kind enough to post your code?

Will do! Working on it now.

[dfricke10]

Re: Validation Xbasic

Here's the final code along with a sample component with the fields and <div>'s.

The script tests each field for a Value. If the field isNull, "CANNOT BE BLANK" is set in the <div> that's in the Field Label. You could put the div anywhere you want, like after the field label. I wanted it right next to the label. Once all have values, the next part is ran which would typically include the script to process the form. You'll see a <div id='val'> which is the start of the second part.

The next step to this would be to create something where you could have customized messages for the fields and then maybe a couple different validation methods, like numeric only, or Zip Code, or masks for Phone Numbers, etc. I think this beats any stock ones because the stock ones don't work with your own xbasic form processing.

But, special thanks to Gregg for the majority of this. Great job!

And the rest of my processing is credit card stuff that's not complete yet, but this was the project of the day.

function setShip as c (e as p)

dim validated[0] as p
dim allValidated as c = ""
dim js as c
dim varJS[0] as p
dim tracker as n = 0

varJS[].original = <<%txt%
$('<swap2>').innerHTML = "<swapit> &nbsp &nbsp &nbsp<font color=\"red\" size=\"1\"> CANNOT BE BLANK</font>";
%txt%
varJS[].original = <<%txt%
$('<swap2>').innerHTML = "<swapit>";
%txt%

validated[].swap = "First Name"
validated[..].swap2 = "fn"
validated[..].fieldVal = e.dataSubmitted.ShipFName

validated[].swap = "Last Name"
validated[..].swap2 = "ln"
validated[..].fieldVal = e.dataSubmitted.ShipLName

validated[].swap = "Address Line 1"
validated[..].swap2 = "a1"
validated[..].fieldVal = e.dataSubmitted.ShipAdd1

'This is the Address Line 2 which normally is the Apartment number or Suite. Un-Comment out the 3 following lines to validate it.
'validated[].swap = "Address Line 2"
'validated[..].swap2 = "a2"
'validated[..].fieldVal = e.dataSubmitted.ShipAdd2

validated[].swap = "City"
validated[..].swap2 = "ct"
validated[..].fieldVal = e.dataSubmitted.ShipCity

validated[].swap = "State"
validated[..].swap2 = "st"
validated[..].fieldVal = e.dataSubmitted.ShipState

validated[].swap = "Zip Code"
validated[..].swap2 = "zip"
validated[..].fieldVal = e.dataSubmitted.ShipZip

validated[].swap = "Country"
validated[..].swap2 = "cy"
validated[..].fieldVal = e.dataSubmitted.ShipCountry

validated[].swap = "Shipping Options"
validated[..].swap2 = "sm"
validated[..].fieldVal = e.dataSubmitted.ShipType

js = ""
'debug(1)
for each fld in validated
	tempJS = varJS[1].original
	tracker = tracker+1
	if isnull(validated[tracker].fieldVal) then
		allValidated = "false"
		tempJS = strtran(tempJS,"<swapit>",validated[tracker].swap)
		tempJS = strtran(tempJS,"<swap2>",validated[tracker].swap2)
		js = js + tempJS
	else
		tempJS = varJS[2].original
		tempJS = strtran(tempJS,"<swapit>",validated[tracker].swap)
		tempJS = strtran(tempJS,"<swap2>",validated[tracker].swap2)			
		js = js + tempJS
	end if
next

if allValidated <> "false" then
tracker = 0	
for each fld in validated
	tempJS = varJS[2].original
	tracker = tracker+1
	if .not. isnull(validated[tracker].fieldVal) then
		allValidated = "false"
		tempJS = "$('<swap2>').innerHTML = '<swapit>';"
		tempJS = strtran(tempJS,"<swapit>",validated[tracker].swap)
		tempJS = strtran(tempJS,"<swap2>",validated[tracker].swap2)
		js = js + tempJS
	
	end if
next

js = js + "$('val').innerHTML = 'All done and continuing on....';"

'This is where the next step goes. Typically would be the script to process the form results.	
	
end if
setShip = js

end function

fieldValidation.zip

[madtowng]

Re: Validation Xbasic

cool. you got the message with the missing code.
I’m still at the office until this notebook is done with the network, but did that fix the problem?