UX List control selections as xbasic arguments - Need example

[mikeallenbrown]

I'm looking for an example on how to use selections made from a list as xbasic arguments. The user will make several selections in my list and then press a button. The button will then write some data to SQL using the selections made from the list as arguments.

Looked on Alpha's YouTube channel but haven't found a video that fits.

Thanks in advance!

[lgrupido]

Re: UX List control selections as xbasic arguments - Need example

If that button happens to be the submit button, then all of the controls will be in e.datasubmitted.fieldname (use the dialogvalidate or afterdialoguevalidate event.

That is probably what you want to use, because you can reset the dialogue when you are done.

Otherwise, open up an xbasic function and put the default prototype in, it will show you all the ways to interact with the controls.

[Davidk]

Re: UX List control selections as xbasic arguments - Need example

You can get the basics of this done in 5 lines of code.

http://www.youtube.com/watch?v=vrckkQ3YpH4

After you make your List selections, you say you click a button. On that button...

var lObj = {dialog.Object}.getControl('list');
var listData = JSON.stringify(lObj.selectionData);
{grid.Object}.ajaxCallback('G','{Grid.RowNumber}:all','listSelectedData','','__listData='+listData,{deviceOfflineFunction: function() {   }});

Grab the List object, convert the selected data rows to JSON, pass it through in an ajax callback.

The ajax callback...

function listSelectedData as c (e as p)
'listSelectedData = "javascript commands to be executed in the Browser."

dim listData as p

listData = JSON_parse(e.__listData)

end function

Grab the __listData variable, parse the JSON to dot variable.

Once the data is in a dot variable you can loop through it setting your SQL args. Shout if you're unsure on that part.

[mikeallenbrown]

Re: UX List control selections as xbasic arguments - Need example

Thank you both ... I'll take a look at all of this next week.

[mikeallenbrown]

Re: UX List control selections as xbasic arguments - Need example

Grab the __listData variable, parse the JSON to dot variable.

Once the data is in a dot variable you can loop through it setting your SQL args. Shout if you're unsure on that part.

Yeah ... this part I'm so too sure on. Below is the script I use to "auto sign" one form. It takes the signature in 'contacts' and inserts it into the current form (IDT_POC in this case) the user is working on. You see two UPDATes because at the time I created this script I couldn't figure out how to combine them both into one...lol.

Anyways, now when a user clicks on this button (with your code above) it'll be performing the same function as my script BUT with all of the names selected in the list. Each name is an separate form.

Was that too convoluted of a description?

function AutoSign1 as c (e as p)

dim cn as sql::connection
cn.Open("::Name::SQL") 'saved connection string
dim args as sql::arguments

args.set("arg1",(session.__protected__fullname))
args.set("arg2",val(e._currentRowDataNew.ID))
args.set("arg3",now())

cn.Open("::Name::sql")        

cn.Execute("UPDATE IDT_POC SET IDT_POC.Hospice_Phys_Sig = (SELECT contact.Staff_Signature) FROM contact WHERE contact.CombinedName = :arg1 AND IDT_POC.ID = :arg2",args)

cn.Execute("UPDATE IDT_POC SET Date_Time_Signed1 = :arg3 WHERE IDT_POC.ID = :arg2",args)

cn.close()

e._set.Dirty_Flag1.value = "1"

AutoSign1="alert('The form has been signed and saved.');"

end function

[mikeallenbrown]

Re: UX List control selections as xbasic arguments - Need example

Watching the JSON videos now from the current pre-release. I see how I can parse my list data and see the different rows of data (code below). Still unsure how to setup a loop using the list data.

function Physician_AutoSign as c (e as p)

'listSelectedData = "javascript commands to be executed in the Browser."

dim listData as p
dim msg as c
dim js as c

listData = JSON_parse(e.__listData)
msg = "Name is: " + listData[2].PatientName
js = "alert('"+ js_escape(msg) + "');"
Physician_AutoSign = js

end function

[mikeallenbrown]

Re: UX List control selections as xbasic arguments - Need example

*Bump*

This last part I haven't been able to figure out

[lgrupido]

Re: UX List control selections as xbasic arguments - Need example

Maybe I'm missing something, but ... What about:

I = 1
totalrecords = "total number of list items"

(note: I don't know how to get the total records off the top of my head, but there must be a method for it.)

otherwise checking eval_valid(listData[I].PatientName) should work.

while I < totalrecords

do something with listData[I].PatientName

I = I + 1

end while