How to reset a state variable

[madtowng]

Hi Everyone,
The function below works great the first time it's executed,
but if it's executed more than once it throws the error shown in
the image below.
Is there a way to reset the state variable without having the user
refresh the page ?

Any help will be greatly appreciated.

Gregg

2023-03-23_15-40-29.png

function loadStagging as C (e as P)
dim err as p
dim currentScript  as p
currentScript.name = "loadStagging"
currentScript.type = "UDF"
currentScript.parameters = "e as P"
dim ls as p
dim ls.CN as sql::connection
dim ls.RS as sql::resultSet
dim ls.ARGS as sql::arguments

dim sqlCode as p
dim itsOpen as L
dim itWorked as L
dim response as C
dim js as C
on error goto lswtf
sqlCode.loadStagging = <<%txt%
select dl.label, dl.bol, dl.logged, dl.location, dl.asnmatch, dl.rowmatched, dl.distressed, dl.reporteddistressed, dl.seq
FROM evh05warehousing.fedexinboundlog dl
where gl.mydformat(dl.logged) >= NOW()-interval 1 month
%txt%
js = <<%txt%
debugger;
var sourceData = JSON.parse({dialog.object}.stateInfo['workingStagging']);
{dialog.object}.stateInfo['workingStagging'] = sourceData;
sourceData = '';
initializeVB('fedexInboundLogVB','workingStagging')
//debugger;
%txt%
debug(1)
itsOpen = ls.CN.Open("::name::connection1")
ls.CN.PortableSQLEnabled = .f.
if itsOpen then
    if eval_valid("e._state.workingStagging") then
        e._state.workingStagging = ""
    end if
    e._state.workingStagging = ls.CN.ToJSON(sqlCode.loadStagging)
    response = js
else
    response = "alert('Error accessing Server!');"        
end if
if ls.CN.IsOpen then
    ls.CN.Close()
end if
return response
exit function 'loadStagging
lswtf:
texttospeech("fudge")
err = currentScript
err.line = "at line "+convert_type(error_line_number_get(),"C")
err.msg = "Error in "+currentScript.name+crlf()+error_text_get(error_code_get() )
debug(1)
end function 'loadStaggin​

[mikeallenbrown]

I don't think it's the state variable. You ought to be able to repeatedly reuse a state variable without any problems. I mean, I certainly do. There is something going on here: ls.CN.ToJSON(sqlCode.loadStagging). I know that's not very helpful but I'd need to debug the code to figure it out.

[peteconway]

When you run debug(1) what line does it fail at?
and can you explain this to me?

js = <<%txt%
debugger;
var sourceData = JSON.parse({dialog.object}.stateInfo['workingStagging']);
{dialog.object}.stateInfo['workingStagging'] = sourceData;
sourceData = '';
initializeVB('fedexInboundLogVB','workingStagging')
//debugger;
%txt%

why are their 2 debug(1)'s ? - try removing and put one at the top -tell me what happens.

[madtowng]

Mike, ls.CN.ToJSON(sqlCode.loadStagging) loads the query results as a javascript array of objects.

Pete,
It fails at line 162.
The debug(1) at line 158 is there for me to step through the code to see what's happening.
The debug(1) in the error handler portion is there to let me see what the error info is.

Capture.png

[peteconway]

I agree with Mike anyhow what are you trying to do? also you should just close the connection after the query runs -

cn.FreeResult()
cn.close()

.

See what happens

[madtowng]

Getting JSON data for a viewbox :)
Since you and Lance Gurd got me to start messing around with viewboxes my javascript skills
have improved greatly and I now prefer javascript for searching and filtering over xbasic.
I load up a little more data than should be needed, and the searches are lightning fast, whether
I'm searching multiple fields in one viewbox, or searching through multiple viewboxes.

This isn't the first time AA has acted in a way other than expected for me.
Since this seems to be an unusual issue, I opted to try something I shouldn't have to,
which works great and solves the problem.

if variable_exists("e._state.workingStagging") then
    delete e._state.workingStagging
end if​

[peteconway]

Weird isn't it.