JavaScript alert box from AfterInsert on Grid

[Pat Bremkamp]

I have a V10 grid that creates a certificate serial number that consists of a random number and the record id. Right now, I'm loading those numbers into session variables and reloading the page in order to display the message. However, the AfterInsertRecord event has help that shows how a JavaScript alert can be sent instead. If I can get this to work, I won't have to reload the page.

Trouble is, I don't understand the example, and my bumbling around hasn't produced an alert box.

Currently, my code in the event (which works) is

 
function AfterInsertRecord as v (e as p)
e.rv.session.ct.suffix = e.lastIdentityValue
e.rv.session.ct.prefix = e.DataSubmitted.ct_prefix
e.rv.session.ct.amount = e.DataSubmitted.ct_amount
e.rv.session.ct.uuid = e.DataSubmitted.ct_uuid
e.rv.session.ct.result = "<h4>Certificate number "+e.DataSubmitted.ct_prefix+"-"+e.lastIdentityValue+" for $"+e.DataSubmitted.ct_amount+" was successfully created</h4>"
end function

What I want to do is show the message in session.ct.result in the alert box. The help says:

 
'e also contains a pointer to the AjaxResponses array (e.rtc.A_AjaxResponses[]). 
'To send a Javascript command to the browser, make an entry in this array.
'Example
' aa = e.rtc.A_AjaxResponses
' aa[].text = "alert('Message');"
' aa[..].id = 100  'the order in which AjaxResponses are sent to the browser
'end if

but, my playing around with that hasn't worked.

Anyone have a working example to share?

Pat

[Lance Gurd]

Re: JavaScript alert box from AfterInsert on Grid

Pat the code in the example is incomplete it should be something like

if e.DataSubmitted.Desc = "" then
    e.cancel=.t.
    dim aa as p
    aa = e.rtc.A_AjaxResponses
    aa[].text = "alert('Message');"
    aa[..].id = 100  'the order in which AjaxResponses are sent to the browser
end if

but in your case you don't want/need to test any submitted data, so you can do away with the if...then...end if test and also e.cancel=.t. bits.

Then you just need parse in your message from the results.

PS I didn't know any of this an hour ago so thanks for making me learn.

[Scholin]

Re: JavaScript alert box from AfterInsert on Grid

Lance and Pat,

I too have been having a lot of difficulty with many of these new event functions. I believe there are probably some wonderful new capabilities here - more than any of us know but some examples are needed to gain a better understanding.

I wonder if there is a way that we could get developers to post working examples of these new events to show function and design features that would greatly benefit many of us?

[Lance Gurd]

Re: JavaScript alert box from AfterInsert on Grid

Hi Michael,

These new events are great and pretty simple once you get used to the terminology, which variable is available where and you realise that you can manipulate them with good old xbasic then output it in HTML. I am getting a better understanding day by day! Here is my re-working on the summary area on a grid, took about an hour to get the HTML to place everything in the correct column, now just have to add it to a few other grids that need the same treatment!

The real power is in the javascript - system events (on the grid properties tab), there are a lot of events in there and the beauty is there is sample javascript already written for you to work around, I've got some really clever bits working by just adding parameters to the code given. It's really good and works just as I would expect!

If there is something specific you need sorting PM me and I will attempt to look for you.

[Pat Bremkamp]

Re: JavaScript alert box from AfterInsert on Grid

Lance,

Thanks for your help. I don't have it working yet, but I'm encouraged by your success!

Pat

[nlk10010]

Re: JavaScript alert box from AfterInsert on Grid

Lance,

Thanks for your help. I don't have it working yet, but I'm encouraged by your success!

Pat

Pat, sorry to dredge up this thread, but did you ever get this to work?

I'm just putting

dim aa as p
aa = e.rtc.A_AjaxResponses
aa[].text = "alert('Message');"
aa[..].id = 100 'the order in which AjaxResponses are sent to the browser

in the AfterInsert event of my grid and I can't get anything to show up in the browser. Debug shows the even is firing and aa is being loaded properly, I just don't get any message popup displayed in the browser.

I've searched these Boards and the wiki but whatever I've found hasn't resolved this for me.

Thanks for any info.


Norman

[christappan]

Re: JavaScript alert box from AfterInsert on Grid

This works for me:

aa = e.rtc.A_AjaxResponses
aa[].text = "alert('The ANC was not initialed.');"

Hope that helps.

[nlk10010]

Re: JavaScript alert box from AfterInsert on Grid

This works for me:

aa = e.rtc.A_AjaxResponses
aa[].text = "alert('The ANC was not initialed.');"

Hope that helps.

So you don't include the aa[..].id = 100? This is in one of the Server events in a grid? Which one? And when the app gets to these lines it throws up an alert on the browser? That sure doesn't happen for me. BTW, not trying to give you more work, the preceding questions were more rhetorical than anything. :)

Well, I'll try it, if it doesn't work in the grid I just built I'll create an empty one and see how it goes.

If it works for you, it's gotta work for me!

Thanks.


Norman

[michael.wells@momentumweb]

Re: JavaScript alert box from AfterInsert on Grid

Here's what has worked for me without fail:

STEP 1: Define your pointer (P) up near the top of the function, next to any other DIM statements.

dim aa as p
aa = e.rtc.A_AjaxResponses

STEP 2: Set any session variables if you want.

e.rv.Session.theSecondPopupText = "This is the text for the second popup alert box."

STEP 3: From anywhere in the rest of the function, simply stuff the next available aa[].text array element with a command (javascript) that you want to execute. The element "aa[..].id = x" specifies the order in which that command will be executed.

aa[].text = "alert('This is popup box three.')"
aa[..].id = 3

aa[].text = "alert('" + e.rv.Session.theSecondPopupText + "')"
aa[..].id = 2

aa[].text = "alert('This is popup box one. It will popup first because its id is equal to 1.')"
aa[..].id = 1

RESULT: You will see three popup boxes displayed in the following order.

1) "This is popup box one. It will popup first because its id is equal to 1."

2) "This is the text for the second popup alert box."

3) "This is popup box three."

Good luck!