New Grid Events

[eboughey1]

Are there any tutorials at all for the Events section of grids so I can understand by seeing it in action? (ie: e.rv, e.rtc, pagevariables as p, e as p, etc.

I'm really having problems understanding how i would incorporate info from my dialog into the grid events. For instance, I am using a lookup feature. It looks for the dealer in another table and updates name, address, city, state, zip, etc. If it doesn't find it, the user enters that info and when they press enter, the dealer table that was used for the lookup is updated. below is how i did the code in the dialog. There are several tables that would require the same thing.

ix  = tbl.query_create("N","Dealername = "+quote(alltrim(CurrentForm.Controls.Dealername.value)))
recs = ix.records_get()

if recs = 0 then
        tbl.enter_begin()
 	     	tbl.dealername =  alltrim(CurrentForm.Controls.dealername.value)
 	 		tbl.address =  alltrim(CurrentForm.Controls.Address.value)
		 	tbl.Csz =  alltrim(CurrentForm.Controls.CSZ.value)
            tbl.phone =  alltrim(CurrentForm.Controls.phone.value)
            CurrentForm.Controls.dlrid = tbl.Dlrid
		tbl.enter_end()
            
	else 
	 	        CurrentForm.Controls.dlrid = tbl.Dlrid
				tbl.close()
end if

I'm working in the 'afterupdaterecords' for the above.

[eboughey1]

Re: New Grid Events

I really would like to get my head around the events section in a grid.

Can someone please guide me in the right direction? Something that gives you some examples of how to use the events?

[Bill Griffin]

Re: New Grid Events

Elena,

I have not seen anything regarding grid event, other than the minimal help and comments that are in the event section of the grid.

From what you describe above, it seems like this can all be done with no coding.

Is you goal to add/edit/delete records from/to a dealer table?

[Lance Gurd]

Re: New Grid Events

Elena,

Here is a link to a video which is pretty helpful with the new grid events

[eboughey1]

Re: New Grid Events

From what you describe above, it seems like this can all be done with no coding.

Is you goal to add/edit/delete records from/to a dealer table?

That would be great without coding but the main table I'm using is called workorder.dbf and the lookup is coming from dealer.dbf.

The goal is to do a table lookup and update workorder.dbf with Dealer name and dealer number. If that dealer does NOT exist in dealer.dbf, the person does the edit combo and enters all the pertinent info on the web form and then it would be added to the dealer table AFTER the submit button is pressed.

That's why I'm thinking I need to do some programming in the 'afterupdaterecords' event.

[NoeticCC]

Re: New Grid Events

Sounds like you just need to make the dealer id a mandatory field.

Then use a lookup (grid style) that is based on the dealers table and that allows adding new records.


Job done - unless I am missing something which has been known to happen...

[eboughey1]

Re: New Grid Events

I was trying to stay away from using another grid component for the lookup but i may have to if i can't figure out how to use the code i have in the events section.

[filteredshot]

Re: New Grid Events

Hey there. I ran into some similar problems this evening while trying out v10 for the first time. I got it working by doing the following:

In a Dialog component you used code in your after validate that looked something like:

tbl.fieldname = alltrim(CurrentForm.Controls.fieldname.value)

When using a grid in place of a dialog component you will want to structure your code a little differently. First off, there is no after validate. Your code goes in the "AfterInsertRecord" event. It would be structured like the following:

tbl.fieldname = alltrim(e.DataSubmitted.fieldname)

You basically use "e.datasubmitted" in place of "currentforms.controls" (without the ".value" on the end as well)

session variables are also set a little differently here.

Instead of:

session.myvariable = "something"

you would need to enter

e.rv.session.myvariable = "something"


Hopefully these small observations can help you on your road to figuring out the new event sections.

[Andiyanto Bun]

Re: New Grid Events

yes, you are correct that after validate event is replaced by after insert record event, but i have problem with report printing, usually i used after validate event on dialog component and i usually using Genies to create the code, below is one of my dialog after validate event that created by genies.
any idea, how to translate it if i use grid on after insert record event?

regards,
Andy


dim args as sql::arguments
dim dDRTGL as d
dim dSPTGL as d
dDRTGL=CurrentForm.Controls.DRTGL
dSPTGL=CurrentForm.Controls.SPTGL
args.set("ArgDRTGL",dDRTGL)
args.set("ArgSPTGL",dSPTGL)
dim filename as c
dim libfolder as c
libfolder = a5_removetrailingbackslash(Request.ApplicationRoot) + chr(92)
if Jenis="1" then
reportname = "Rpt_LISTPJLBYTGL@" + libfolder + "its.alb"
end if
if Jenis="2" then
reportname = "Rpt_LISTPJLBYTGLND@" + libfolder + "its.alb"
end if
filename = session.session_folder + "RptLISTPJL.pdf"
filename = report.saveas(reportname,"pdf","","",filename,.f.,null_value(),args)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "RptLISTPJL.pdf?" + time("hms3")
end if
skipreport: