onchange loop

[acceptthis]

There's got to be a better way to do what I did. What I've done seems hokey.

I have a UX control (date control) that, when changed, it runs an ajax callback with this function:

FUNCTION Find_EndPayDay AS C (e AS p)

if eval_valid("skip") then
if skip then 'this skips the second running of the function.
delete skip 'Since this function runs on the OnChange event, and we change the value
end 'at the end of the function, it goes in a loop. This is the way to
end if 'exit out of the loop.
end if

dim EndPayDay as d
EndPayDay = Find_PayPeriod(ctod(e.dataSubmitted.FILTER_PAYPERIOD))  'Find_PayPeriod() is a server function that finds the last day of a particular pay period
dim jcode as c = "{dialog.object}.setValue('FILTER_PAYPERIOD','" + dtoc(EndPayDay) + ");"
Find_EndPayDay = jcode 'write the javascript back to the browser

dim global skip as L = .t. 'Set this value as true so second running will be skipped

END FUNCTION

It takes the date entered and re-writes the control to the last date of the pay period. However, when it sends the javascript back and re-writes, the control goes back to the "onchange" event because it was, in it's mind, just changed again. And that's how it would continue for ever if I didn't put in the "skip" code.

I just thought that if I posted this, maybe someone smart would point out something easy, and I could learn something.

Thanks,
Brad

[mikeallenbrown]

Maybe try the onBlur (when the control loses focus) event. You can use the "old" (original) values and if the original doesn't equal the current values run your function. At the moment the JS for getting original values escapes me ...sorry. You can also get "old" (original) values in xbasic my using e.oldDataSubmitted.myControlName (e.dataSubmitted.myControlName for current values).

[madtowng]

Hi Brad,

I did a slight rewrite as shown before (sorry about moving the dims, but I like to see the variables defined up front).
As a side comment, you don't need to use a session variable for this.
I personally would set the value in the OnInitialize event and take away the possibility of user error.
If that truly is not an option, you could use a hidden field (datechanged) , set that value to something , and then
your if statement would start something like " If e.datasubmitted.datechanged <> "" then "
Hope this helps.

Gregg

FUNCTION Find_EndPayDay AS C (e AS p)
dim EndPayDay as d
dim global skip as L = .f. 'Set this value as true so second running will be skipped
dim jcode as c

if skip then 'this skips the second running of the function.
delete skip 'Since this function runs on the OnChange event, and we change the value
Find_EndPayDay = ""
exit function 'at the end of the function, it goes in a loop. This is the way to exit out of the loop.
else
EndPayDay = Find_PayPeriod(ctod(e.dataSubmitted.FILTER_PAYPERIOD)) 'Find_PayPeriod() is a server function that finds the last day of a particular pay period
jcode as c = "{dialog.object}.setValue('FILTER_PAYPERIOD','" + dtoc(EndPayDay) + ");"
end if
Find_EndPayDay = jcode 'write the javascript back to the browser

END FUNCTION

[acceptthis]

Thanks for these ideas. As I said, it was working but I appreciate the better ideas.
brad