Show data from SQL query on UX using xbasic

[natephillips7]

Hello!

I am querying sql data using xbasic because I cant get the query to work in the normal components (alpha doesn't seem to like some of the syntax)

I got the query working using xbasic, and I'm getting the data I want from it, which is a varying sized list of pricing data that changes from product to product.

The issue I'm having is taking this varying sized list of data and putting it onto the UX for the user to view. I have a half working xbasic function that tries to populate an empty repeating section with the rows from the data, but I am only getting the first row of data and nothing after it, and when I click on a new product it doesn't update with the new products data, it still has the data from the old product.

Is there an easier way to do this? I just have a JSON with data and I want to show that data in rows on the users screen, but each product may have a different number of rows and I'm not sure what the easiest way to do this is.

Here is where it is at currently. I have broken it a little with some recent changes by taking out some of the repeating section modifying functions. I'm wondering if theres an easier way to show this data than using and manipulating a repeating section? I see this dialog object setListColumnsAndPopulate but I haven't had success with it yet.

function updateListPrices as C (e as P)[INDENT]debug(1)
dim jsToReturn as C = ""

'Loop through all data and set it to each row
if e.dataSubmitted.id != "" then[/INDENT][INDENT=2]dim data as P = json_parse(SQL_getListPrices(convert_type(e.dataSubmitted.id, "N")))
dim index as N = 1
FOR EACH listprice IN data[/INDENT][INDENT=3]if (variable_exists("data[index].price")) then[/INDENT][INDENT=4]dim price as N = round(convert_type(data[index].price, "N"), 2)[/INDENT][INDENT=3]else[/INDENT][INDENT=4]dim price as C = "Error"[/INDENT][INDENT=3]end if

if (variable_exists("data[index].unit")) then[/INDENT][INDENT=4]dim unit as C = convert_type(data[index].unit, "C")[/INDENT][INDENT=3]else[/INDENT][INDENT=4]dim unit as C = "Error"[/INDENT][INDENT=3]end if

jsToReturn = jsToReturn + "{dialog.object}.setValue('price:" + index + "',\"" + convert_type(price, "C") + "\");"

jsToReturn = jsToReturn + "{dialog.object}.setValue('unit:" + index + "',\"" + unit + "\");"

index = index + 1[/INDENT][INDENT=2]NEXT[/INDENT][INDENT]else[/INDENT][INDENT=2]'clear all rows
jsToReturn = jsToReturn + "{dialog.object}.setValue('price:" + 1 + "','');"[/INDENT][INDENT]end if

updateListPrices = jsToReturn[/INDENT]
 end function

Here is the data I am trying to put into rows

{      {
       "price": "3.50",
       "unit": "each",
       "effective_date":"1/20/2021
     },
    {
      "price": "48.70",
      "unit": "case",
      "effective_date":"1/21/2021
    },
 }

If someone could point me in the right direction that would help me out a lot. I seem to be running in circles now. Should I just build an html table and set the innerHTML of a div to that data?

[Steve Workings]

Can you use a List control? In most cases, it's advisable unless you have a reason not to. And the syntax, once you have a model, is easy to repeat. Here's a model (insert standard complaint here about this board not keeping code formatting)

function populate_LIST1 as c (e as p)
dim cn as sql::Connection
dim args as sql::Arguments
dim rs as sql::ResultSet
dim js as c = ""
' (set args here as needed )

sql = <<%a%
SELECT
etc. etc. etc.
%a%
cn.open("::name::myconnection")
cn.execute(sql, args)

rs = cn.ResultSet
json = rs.ToJSONObjectSyntax()
json = crlf_to_comma(json)
json = strip_trailing_char(json, ",")
json = "[" + json + "]"

js = <<%a%
var listObj = {dialog.object}.getControl('LIST1');
var _d = *json*;
listObj.populate(_d);
%a%
js = stritran(js, "*json*", json)

populate_LIST1 = js
cn.FreeResult()
cn.close()

end function

[madtowng]

Hi Nate,

The quick answer (I think) is you didn't dim the data pointer the way you intended .
dim data as P = json_parse(SQL_getListPrices(convert_type(e.dataSubmitted.id, "N"))) should be dim data[0] as P = json_parse(SQL_getListPrices(convert_type(e.dataSubmitted.id, "N"))).

Hope this helps.

Gregg

[natephillips7]

Thanks Steve!

I got something working using that example, I'm still playing with formatting. The issue I'm currently having is the data successfully shows up in the list in the working preview, but when I publish it to the a5webroot folder and test it there nothing comes through. I'll have to keep trouble shooting. Might just be a server issue. I just keep running into issues with the behavior of the working preview not matching the published apps behavior.

Thanks for your help!

[natephillips7]

Thanks madtown I'll try that out with my old code and see if that fixes it, I liked the repeating sections look a lot better, and it worked when I published the app. Not sure why the list component method isn't working when published.