How to Place Button on Bottom of GRID

[MichaelCarroll]

Hello,

I am trying to find out how to put a button on the bottom of a grid, then have it loop through the rows and write the data to a table based on if the row has a checkmark.

Thanks

Michael Carroll

[Selwyn Rabins]

Re: How to Place Button on Bottom of GRID

Hello,

I am trying to find out how to put a button on the bottom of a grid, then have it loop through the rows and write the data to a table based on if the row has a checkmark.

Thanks

Michael Carroll

You will have to put the button in a freeform area below the grid.

the button html will looks something like this

<button onclick="docallback()">MyButton</button>



docallback() will be a Javascript function that you write in the Javascript Function Declarations section of the Grid.

It will do an ajax callback.


To get you started, put use action scripting to put the button in the Grid row (you will see the button for each row in your grid). Then use action scripting to define an 'user defined ajax callback'.

Right click on the action after you have defined it, and copy the javascript.

[Bob Moore]

Re: How to Place Button on Bottom of GRID

This video should help to get you started:

http://www.screencast.com/t/NzI1NTIwN2E

[Selwyn Rabins]

Re: How to Place Button on Bottom of GRID

This video should help to get you started:

http://www.screencast.com/t/NzI1NTIwN2E

Great Video Bob. Thanks.

It is worth noting that the 'e' object that is passed into the Xbasic function that executes on the server has in it a list of all of the rows that were checked.

For example, this will be in 'e'
if you clicked on 3 rows.

checkboxRows.countChecked = 3
checkboxRows.rows[] = 3
checkboxRows.rows[] = 4
checkboxRows.rows[] = 5
checkedRows.key1[] = 00000004
checkedRows.key2[] = 00000005
checkedRows.key3[] = 00000006



you can see:
e.checkboxRows.countChecked is 3

e.checkboxRows.rows is an array with an entry for each 3 that was submitted

e.checkboxRows.keys[] is an array with the primary key of eaach row that was submitted.

[WayneH]

Re: How to Place Button on Bottom of GRID

Nice video.... stopped me in my tracks when I saw the cool integration to box.net

Are you able to get the files in box.net to only show records related to the row you are on? Or does it simply show you all the files in your box?

Very nice

[Bob Moore]

Re: How to Place Button on Bottom of GRID

I suppose you could but that is not what I have in mind. It will be the logged in users files.

[mmaisterrena]

Re: How to Place Button on Bottom of GRID

Very helpful video Bob

Alpha team: could all this copy-paste stuff be reduced if you included an action javascript button on the javascript declaration window?, just an idea because it does gets a little cofussing

[MichaelCarroll]

Re: How to Place Button on Bottom of GRID

Thanks Bob and Selwyn,

Ok I was able to duplicate what Bob did. Now I am on to parsing the selected items in the table and writing them to a SQL database. However I am running into a problem. Every time I go to save my code I get the following error and it truncates the code. Error: "Extra characters at the end of expression."

I am trying to save the code in the "Xbasic Function declarations section" of properties.

Here is the code:

function xb_AjaxCB as c (e as p)
'xb_AjaxCB = "alert('Ajax Callback Fired')"
'Need variable with parent link
'Loop thorugh variable and pass data to SQL statement
dim js as C
dim i as N
dim selectedcount as C
'dim myrole as C
dim myroleid as N
dim mystaffid as N

'get selected number of rows
selectedcount=checkboxRows.countChecked
for i=1 to selectedcount
	myroleid=eval("e.checkedRows.key"+i+"[1]")
	mystaffid="1" ' hard coded for now

Dim Roles_Id_Roles as N
Dim Co_Staff_Id_Staff as N

'Insert a new record into a remote SQL database.
'DIM a connection variable
DIM cn as SQL::Connection
dim flagResult as l 
flagResult = cn.open("::Name::FS1MySQL")
if flagResult = .f. then 
	"alert('Could not connect to database. Error reported was: " + crlf() + cn.CallResult.text')"
	end 
end if

cn.PortableSQLEnabled = .t.

'Dim a SQL arguments object, create arguments and set their values
DIM args as sql::arguments

args.add("Roles_Id_Roles",myroleid)
args.add("Co_Staff_Id_Staff",mystaffid)

dim sqlInsertStatement as c 
sqlInsertStatement = <<%txt%
INSERT INTO co_staff_has_roles  (Roles_Id_Roles, Co_Staff_Id_Staff) 
VALUES (:Roles_Id_Roles, :Co_Staff_Id_Staff)
%txt%

dim flag as l 
flag = cn.Execute(sqlInsertStatement,args)
if flag = .f. then 
	"Alert('Record was not inserted. Error reported was: ' + crlf(2) + cn.CallResult.text)"
else
	if cn.AffectedRows() = 1 then 
		"Alert('Record was created.')"
	else
		"Alert('Record was not inserted.')"
	end if 
end if 

	
'Table has an auto-increment field. Get the value that was assigned to this field and store it in
'a variable.	
dim LastIdentityValue as C
if cn.AffectedRows() = 1 then 
	LastIdentityValue = cn.LastInsertedIdentity()
end if 
'Now, close the connection 
cn.close()

Next

js="alert('Selected Records Processed')"
xb_AjaxCB=js

end function

When I click the Ok button I get the error message and if I open it up again I get the following code.

function xb_AjaxCB as c (e as p)
'xb_AjaxCB = "alert('Ajax Callback Fired')"
'Need variable with parent link
'Loop thorugh variable and pass data to SQL statement
dim js as C
dim i as N
dim selectedcount as C
'dim myrole as C
dim myroleid as N
dim mystaffid as N

'get selected number of rows
selectedcount=checkboxRows.countChecked
for i=1 to selectedcount
	myroleid=eval("e.checkedRows.key"+i+"[1]")
	mystaffid="1" ' hard coded for now
	
Roles_Id_Roles, Co_Staff_Id_Staff



Next
js="alert('Selected Records Processed')"
xb_AjaxCB=js

end function

Thanks again for everyones help.

Michael Carroll

[Stan Mathews]

Re: How to Place Button on Bottom of GRID

Looks like the line

"alert('Could not connect to database. Error reported was: " + crlf() + cn.CallResult.text')"

should be

"alert('Could not connect to database. Error reported was: " + crlf() + cn.CallResult.text+"')"

[MichaelCarroll]

Re: How to Place Button on Bottom of GRID

Stan,

Did not work. So for good measure I took out all alerts and still get the same message. Here is my amended code:

function xb_AjaxCB as c (e as p)
'Need variable with parent link
'Loop thorugh variable and pass data to SQL statement
dim js as C
dim i as N
dim selectedcount as C
'dim myrole as C
dim myroleid as N
dim mystaffid as N
'get selected number of rows
selectedcount=checkboxRows.countChecked
for i=1 to selectedcount
	myroleid=eval("e.checkedRows.key"+i+"[1]")
	mystaffid="1" ' hard coded for now
Dim Roles_Id_Roles as N
Dim Co_Staff_Id_Staff as N
'Insert a new record into a remote SQL database.
'DIM a connection variable
DIM cn as SQL::Connection
cn.open("::Name::FS1MySQL")
cn.PortableSQLEnabled = .t.
'Dim a SQL arguments object, create arguments and set their values
DIM args as sql::arguments
args.add("Roles_Id_Roles",myroleid)
args.add("Co_Staff_Id_Staff",mystaffid)
dim sqlInsertStatement as c 
sqlInsertStatement = <<%txt%
INSERT INTO co_staff_has_roles  (Roles_Id_Roles, Co_Staff_Id_Staff) 
VALUES (:Roles_Id_Roles, :Co_Staff_Id_Staff)
%txt%
cn.Execute(sqlInsertStatement,args)
cn.close()
Next
js="alert('Selected Records Processed')"
xb_AjaxCB=js
end function

[Stan Mathews]

Re: How to Place Button on Bottom of GRID

Not that I have a clue what's going on but this looks strange

myroleid=eval("e.checkedRows.key"+i+"[1]")

could it possibly supposed to have a period before [1] ?

myroleid=eval("e.checkedRows.key"+i+".[1]")

as in array syntax?

[Peter.Greulich]

Re: How to Place Button on Bottom of GRID

I haven't studied your code, but looking at Stan's suggestion I notice that you seem to be mixing JavaScript w. xbasic. You can't put a crlf() xbasic function in a JS alert function.

[MichaelCarroll]

Re: How to Place Button on Bottom of GRID

Not that I have a clue what's going on but this looks strange

myroleid=eval("e.checkedRows.key"+i+"[1]")

could it possibly supposed to have a period before [1] ?

myroleid=eval("e.checkedRows.key"+i+".[1]")

as in array syntax?

Makes no difference.

Thanks though.

[MichaelCarroll]

Re: How to Place Button on Bottom of GRID

I haven't studied your code, but looking at Stan's suggestion I notice that you seem to be mixing JavaScript w. xbasic. You can't put a crlf() xbasic function in a JS alert function.

Peter, I dropped all alerts from the code and still get the error.

From what I understand this is where you can use both xbasic and java.

Interesting, If I comment out everything between Funtion xb_AjaxCB c (e as p) and end function I still get the error.

If I go back to just firing off the alert then I can save it.

Michael

[Selwyn Rabins]

Re: How to Place Button on Bottom of GRID

Not that I have a clue what's going on but this looks strange

myroleid=eval("e.checkedRows.key"+i+"[1]")

could it possibly supposed to have a period before [1] ?

myroleid=eval("e.checkedRows.key"+i+".[1]")

as in array syntax?

this is correct.

myroleid = eval("e.checkedRows.key"+i+"[1]")

when 'i' is 1 for example, then it evaluates to:

myroleid = eval("e.checkedRows.key1[1]")

which is correct.