Grid Checkbox Help

[mikeallenbrown]

I need to pass the primary key (ID) for each checked row to my xbasic function (This checkbox is alpha generated from the grid properties Has Checkbox Select Column). Then loop through them to perform some SQL updates. Below is what I have thus far. The tooltips for an ajax callback don't say how to do this. {grid.RowNumber} apparently is only for the selected row. How do I pass all of the checked rows?? I'm thinking there needs to be some JS that precedes the ajax callback but I don't know what that would be....also, how do I write the argument for this? I don't think args.set("arg2",val(e._currentRowDataNew.ID)) would be correct.

Thank you.

Button that runs ajax callback...

{grid.Object}.ajaxCallback('G',{grid.RowNumber},'Autosign','','');

xbasic function...

'The below script auto signs form
function AutoSign as c (e as p)

'check to see if any rows are checked. If none warn user.
dim count as n
count = val(e.checkboxRows.countChecked)
if count = 0 then 
	AutoSign = "alert('You didn't check any rows.');"
	exit function
end if

'we have checked rows so continue.
dim cn as sql::connection
cn.Open("::Name::SQL") 'saved connection string
dim args as sql::arguments
dim rs as sql::ResultSet
dim result as l
dim i as n

for i = 1 to count
	args.set("arg1",(session.__protected__fullname))
	args.set("arg2",val(e._currentRowDataNew.ID))
	args.set("arg3",now()) 
	
	cn.Execute("UPDATE Physician_Certification_Form SET Physician_Certification_Form.HospicePhysSignature = (SELECT contact.Staff_Signature) FROM contact WHERE contact.CombinedName=:arg1 AND Physician_Certification_Form.ID = :arg2",args)
	
	cn.Execute("UPDATE Physician_Certification_Form SET HospicePhySig_Time = :arg3 WHERE Physician_Certification_Form.ID = :arg2",args)
next i

cn.FreeResult()
cn.close()

AutoSign = "{grid.Object}.refresh();alert('The forms has been signed.');"

end function

[TheSmitchell]

Re: Grid Checkbox Help

Do the M48 videos cover what you need?

http://www.ajaxvideotutorials.com/V1...enNewGrid1.swf
http://www.ajaxvideotutorials.com/V1...enNewGrid2.swf
http://www.ajaxvideotutorials.com/V1...enNewGrid3.swf

[mikeallenbrown]

Re: Grid Checkbox Help

I'll take a look, thanks.

[mikeallenbrown]

Re: Grid Checkbox Help

I've watched the videos but it didn't explain it completely for me. Below is my updated xBasic function. I still unsure how to extract the value and use it as an argument.

'The below script auto signs form
function AutoSign as c (e as p)

'check to see if any rows are checked. If none warn user.
dim count as n
count = val(e.checkboxRows.countChecked)
if count = 0 then 
	AutoSign = "alert('You did not check any rows.');"
	exit function
end if

'we have checked rows so continue.
dim cn as sql::connection
cn.Open("::Name::SQL") 'saved connection string
dim args as sql::arguments
dim rs as sql::ResultSet
dim result as l
dim i as n

args.set("arg1",(session.__protected__fullname))
args.set("arg3",now()) 
debug(1)

for i = 1 to count
	args.set("arg2",[COLOR="#FF0000"][B]?????????????[/B][/COLOR]) 'This arg should be equal to the primary key (ID) of a checked row
	
	cn.Execute("UPDATE Physician_Certification_Form SET Physician_Certification_Form.HospicePhysSignature = (SELECT contact.Staff_Signature) FROM contact WHERE contact.CombinedName=:arg1 AND Physician_Certification_Form.ID = :arg2",args)
	cn.Execute("UPDATE Physician_Certification_Form SET HospicePhySig_Time = :arg3 WHERE Physician_Certification_Form.ID = :arg2",args)
next i

cn.FreeResult()
cn.close()

AutoSign = "{grid.Object}.refresh();alert('The forms has been signed.');"

end function

[GGandhi]

Re: Grid Checkbox Help

dim args as sql::Arguments
	args.XML = e.checkboxFilterArgumentXML
	
	dim count as n
	count = args.Count
	dim i as n
	dim txt as c = ""
	
	for i = 1 to count
		txt = txt + args[i].data + " "
		next i
		
	a2 = "alert('" + txt + "');"

mike if you write this code separately not mixed with what you have and run on a grid it should give you the id which is the primary key for this grid. you may be able to further enhance it to fit our need.

[GGandhi]

Re: Grid Checkbox Help

args.set("arg1",(session.__protected__fullname))
args.set("arg3",now()) 

' modified by gandhi
[COLOR="#FF0000"]args.XML = e.checkboxFilterArgumentXML
dim count as n
count = args.count[/COLOR]
for i = 1 to count
	args.set("arg2",[COLOR="#FF0000"][/COLOR][COLOR="#FF0000"]args[i].data[/COLOR]) 'This arg should be equal to the primary key (ID) of a checked row

modified your code see if it works.

[mikeallenbrown]

Re: Grid Checkbox Help

I'll try this first thing tomorrow, Gandhi. Thank you. I see the similarities between your code and the first video. The entire XML thing through me off. Didn't realize that would be part of the solution.

[mikeallenbrown]

Re: Grid Checkbox Help

This worked great, Gandhi! Thanks!

I do wonder though...how is it that the xBasic function "knows" that I want the ID field from that checked row?

[GGandhi]

Re: Grid Checkbox Help

args[I].data is the primary key. that is being parsed out of XML, being that is the filter. look in checkbox videos you will be able to see how that happens.

check out a video by Selwyn where he totals a field from checkboxes.