Generate Json just like a5_GetCalendarEventDataJSON

[WindForce]

Hi
I need to execute a query with some grouping/calculations then feed a calendar control in a ux. I need to transform my resultset to the same type of json that is output by a5_GetCalendarEventDataJSON . Is there some built-in function for that, or will i have to suffer and manually build the string?

Thanks
Jaime

[mixter]

Re: Generate Json just like a5_GetCalendarEventDataJSON

I think you should be able to run a5_GetCalendarEventDataJSON function on the server and return resultant data using AJAX callback

i.e. run the a5_GetCalendarEventDataJSON function on the server side using XBasic, do any additional formatting of the JSON string (if required) and then return the output in JavaScript string returned to the browser.

And if you need to roll your own JSON result set, there are several other JSON functions in alpha that you can dig up

e.g. SQL ResultSet ToJSONObjectSyntax Function

C Result = <SQL::ResultSet>.rsToJSON

[WindForce]

Re: Generate Json just like a5_GetCalendarEventDataJSON

rsToJSON seems like what i am looking for. Will it generate a JSon string similar (ie similar format) to the one generated by a5_GetCalendarEventDataJSON?

[mixter]

Re: Generate Json just like a5_GetCalendarEventDataJSON

I haven't used the GetCalendarEventDataJSON function so I can't compare.

I have used rs.ToJSONObjectSyntax() which returns JSON data, but you may need to format the JSON depending on where you are using it

Here's a bit of code where I used JSON to populate a list control.

I got the "stritran" line from one of Selwyn's videos, where additional string transform of the JSON data occurs to make it "list-control-friendly"

i.e. this line from the code below
json2 = "[" + stritran(alltrim(json),crlf(),"," + crlf()) + "]"

function serverside_29a1d0d2ca924489881d8929ff6c9262 as c (e as p)

	dim cn2 as sql::Connection

	cn2.Open("::name::TES_TEST")	

	dim strSQL2 as C

	strSQL2="SELECT iTimeSheetID, iEmpID, dDateWorked, iDaySheet, tEmpName FROM dbo.tblTimesheet WHERE iDaySheet = " + 	e._state.daysheet + " ORDER BY tEmpName"

	cn2.Execute(strSQL2)

	rs2=cn2.ResultSet

	dim json as C
	dim json2 as C

	json = rs2.ToJSONObjectSyntax()

	json2 = "[" + stritran(alltrim(json),crlf(),"," + crlf()) + "]"

	dim txtOutput as C

	txtOutput = "var listObj = {dialog.object}.getControl('menuList');" + crlf(1)
	txtOutput = txtOutput + "var _d = " + json2 + crlf(1)
	
	txtOutput = txtOutput + "listObj.populate(_d);"

	serverside_29a1d0d2ca924489881d8929ff6c9262 = txtOutput

end function

[mixter]

Re: Generate Json just like a5_GetCalendarEventDataJSON

Also see

https://www.youtube.com/user/AlphaSo...rch?query=JSON

[Tbrondolo]

Re: Generate Json just like a5_GetCalendarEventDataJSON

Hi

So last night I'm trying to use the custom method on the data source to populate a list control. Depending on the user the lists populates from one of two sql proceses. According to the comments it's suppose to populate from either a CR-LF list or an array of JSON objects. I tried using the rs.To String method and the rs.ToJson (both types). On the string method it was not reading the field headers and the JSON was just a mess of data. I gave up about 1am my time and then found your post this morning...just in time solution. I was able to take the two lines below and have the callback return the Json2 result and it now works fine.

json = rs2.ToJSONObjectSyntax()
json2 = "[" + stritran(alltrim(json),crlf(),"," + crlf()) + "]"


Michael...Thank you for the post.

Tom

[WindForce]

Re: Generate Json just like a5_GetCalendarEventDataJSON

That's exactly what i was thinking yesterday. My problem may not have been solved, but i knew this post from Michael will prove very helpful sooner or later...:-)