List xbasic Custom data source type with javascript function

[fcastillo]

I can't get to work the javascript callback to assign a value. What could be wrong? the variable e.__javascriptFunctionResults is always empty
Captura.JPG

and the codes are:

JAVASCRIPT

function COMMENTSJS() {
return 'explodedSlice=3';
}

XBASIC

function COMMENTS as c (e as p)
dim postselected as c

dim e.__javascriptFunctionResults as c = default "1"
if e.__javascriptFunctionResults <> "" then
postselected = word(e.__javascriptFunctionResults,2,"=")
end if

dim Response as p
dim Request as p
Request.Host = "https://jsonplaceholder.typicode.com/"
Request.Page = "posts/"+postselected+"/comments"
Request.Header = "Content-Type: application/json"
Response = http_fetch(Request)

dim resultPointer as P
resultPointer = json_parse(Response.body)

if a5_eval_valid(Response.body) then
if json_enumerate(Response.body)
dim imprimir2[0] as P
FOR EACH row IN resultPointer
imprimir2[].id = row.id
imprimir2[..].name = row.name
imprimir2[..].email = row.email
imprimir2[..].body = row.body
NEXT
dim jsonVar as C
jsonVar = json_generate(imprimir2)
COMMENTS = jsonVar

else

dim imprimir2[0] as P
imprimir2[].id = "id"
imprimir2[..].name = "name "+postselected+" resultado"
imprimir2[..].email = "email"
imprimir2[..].body = "body"
dim jsonVar as C
jsonVar = json_generate(imprimir2)
COMMENTS = jsonVar

end if
else
COMMENTS = "console.log('error');"

end if
end function

[lgrupido]

Re: List xbasic Custom data source type with javascript function

What are you trying to do here? I believe you can use an xbasic function OR a javascript function to populate a list, but not both.

[Davidk]

Re: List xbasic Custom data source type with javascript function

Francisco is working with a List Custom Data source which allows for an Xbasic function (returns data for the List Control) and a Javascript function which passes data into the Xbasic function.

Francisco... I believe the Javascript function is not firing... I'm looking into this.

As well, I believe you're doing a bit too much work in your Xbasic function. The Response.body is already a Javascript array of objects. You don't need to do any more than this...

comments = Response.body

And, just as an aside... don't use caps for function names. Use camelCase or CamelCaps... e.g. Comments... commentsJS

[fcastillo]

Re: List xbasic Custom data source type with javascript function

Francisco is working with a List Custom Data source which allows for an Xbasic function (returns data for the List Control) and a Javascript function which passes data into the Xbasic function.

Francisco... I believe the Javascript function is not firing... I'm looking into this.

As well, I believe you're doing a bit too much work in your Xbasic function. The Response.body is already a Javascript array of objects. You don't need to do any more than this...

comments = Response.body

And, just as an aside... don't use caps for function names. Use camelCase or CamelCaps... e.g. Comments... commentsJS

You are right, thank you for the advice! if you find why the JS is not firing, please let me know

[fcastillo]

Re: List xbasic Custom data source type with javascript function

Found the problem! The javascript value only is available when refreshing the list, so all I had to do is on the parent list do not allow null selection, and onselect refreshing the list, here is my code

JAVASCRIPT

function CommentsJS() {
var selected = {dialog.Object}.listGetValue('LST_POST','id');
console.log(selected);
return selected;
}

XBASIC


function Comments as c (e as p)
dim postselected as c
dim e.__javascriptFunctionResults as c = default "1"
postselected = e.__javascriptFunctionResults

dim Response as p
dim Request as p
Request.Host = "https://jsonplaceholder.typicode.com/"
Request.Page = "posts/"+postselected+"/comments"
Request.Header = "Content-Type: application/json"
Response = http_fetch(Request)

dim resultPointer as P
resultPointer = json_parse(Response.body)

if a5_eval_valid(Response.body) then
if json_enumerate(Response.body)
Comments = Response.body

else

dim imprimir2[0] as P
imprimir2[].id = "id"
imprimir2[..].name = "name "+postselected+" resultado"
imprimir2[..].email = "email"
imprimir2[..].body = "body"
dim jsonVar as C
jsonVar = json_generate(imprimir2)
Comments = jsonVar

end if
else
Comments = "console.log('error');"

end if
end function

[Davidk]

Re: List xbasic Custom data source type with javascript function

I feel the problem is still that the Javascript function should be running When the List Control is run... at any time.

You didn't mention that you're in a Parent/Child List setup... that's important information and should be detailed in a posting. Knowing this, and how you're using the parent list value to get data from the web service, you do not need to use a List Custom Data Javascript function at all.

The parent List Control value is available in Xbasic... in e.dataSubmitted.

Clear the List Control Custom Javascript function name.

In XBasic you can comment out all that code for e.__javascriptFunctionResults.

Turn on the Child List Property "Delay render till explicit refresh".

In Xbasic add this...

dim postSelected as c
postSelected = e.dataSubmitted.LST_POST

Note I'm using camelCase for postSelected... so change postSelected in your http call (or not... up to you).

[Davidk]

Re: List xbasic Custom data source type with javascript function

The List Control Custom Data source, Javascript function is operating correctly. The function only runs on an Ajax Callback... and a List refresh is an Ajax Callback.