Alpha Software Mobile Development Tools:   Alpha Anywhere    |   Alpha TransForm subscribe to our YouTube Channel  Follow Us on LinkedIn  Follow Us on Twitter  Follow Us on Facebook

Announcement

Collapse

The Alpha Software Forum Participation Guidelines

The Alpha Software Forum is a free forum created for Alpha Software Developer Community to ask for help, exchange ideas, and share solutions. Alpha Software strives to create an environment where all members of the community can feel safe to participate. In order to ensure the Alpha Software Forum is a place where all feel welcome, forum participants are expected to behave as follows:
  • Be professional in your conduct
  • Be kind to others
  • Be constructive when giving feedback
  • Be open to new ideas and suggestions
  • Stay on topic


Be sure all comments and threads you post are respectful. Posts that contain any of the following content will be considered a violation of your agreement as a member of the Alpha Software Forum Community and will be moderated:
  • Spam.
  • Vulgar language.
  • Quotes from private conversations without permission, including pricing and other sales related discussions.
  • Personal attacks, insults, or subtle put-downs.
  • Harassment, bullying, threatening, mocking, shaming, or deriding anyone.
  • Sexist, racist, homophobic, transphobic, ableist, or otherwise discriminatory jokes and language.
  • Sexually explicit or violent material, links, or language.
  • Pirated, hacked, or copyright-infringing material.
  • Encouraging of others to engage in the above behaviors.


If a thread or post is found to contain any of the content outlined above, a moderator may choose to take one of the following actions:
  • Remove the Post or Thread - the content is removed from the forum.
  • Place the User in Moderation - all posts and new threads must be approved by a moderator before they are posted.
  • Temporarily Ban the User - user is banned from forum for a period of time.
  • Permanently Ban the User - user is permanently banned from the forum.


Moderators may also rename posts and threads if they are too generic or do not property reflect the content.

Moderators may move threads if they have been posted in the incorrect forum.

Threads/Posts questioning specific moderator decisions or actions (such as "why was a user banned?") are not allowed and will be removed.

The owners of Alpha Software Corporation (Forum Owner) reserve the right to remove, edit, move, or close any thread for any reason; or ban any forum member without notice, reason, or explanation.

Community members are encouraged to click the "Report Post" icon in the lower left of a given post if they feel the post is in violation of the rules. This will alert the Moderators to take a look.

Alpha Software Corporation may amend the guidelines from time to time and may also vary the procedures it sets out where appropriate in a particular case. Your agreement to comply with the guidelines will be deemed agreement to any changes to it.



Bonus TIPS for Successful Posting

Try a Search First
It is highly recommended that a Search be done on your topic before posting, as many questions have been answered in prior posts. As with any search engine, the shorter the search term, the more "hits" will be returned, but the more specific the search term is, the greater the relevance of those "hits". Searching for "table" might well return every message on the board while "tablesum" would greatly restrict the number of messages returned.

When you do post
First, make sure you are posting your question in the correct forum. For example, if you post an issue regarding Desktop applications on the Mobile & Browser Applications board , not only will your question not be seen by the appropriate audience, it may also be removed or relocated.

The more detail you provide about your problem or question, the more likely someone is to understand your request and be able to help. A sample database with a minimum of records (and its support files, zipped together) will make it much easier to diagnose issues with your application. Screen shots of error messages are especially helpful.

When explaining how to reproduce your problem, please be as detailed as possible. Describe every step, click-by-click and keypress-by-keypress. Otherwise when others try to duplicate your problem, they may do something slightly different and end up with different results.

A note about attachments
You may only attach one file to each message. Attachment file size is limited to 2MB. If you need to include several files, you may do so by zipping them into a single archive.

If you forgot to attach your files to your post, please do NOT create a new thread. Instead, reply to your original message and attach the file there.

When attaching screen shots, it is best to attach an image file (.BMP, .JPG, .GIF, .PNG, etc.) or a zip file of several images, as opposed to a Word document containing the screen shots. Because Word documents are prone to viruses, many message board users will not open your Word file, therefore limiting their ability to help you.

Similarly, if you are uploading a zipped archive, you should simply create a .ZIP file and not a self-extracting .EXE as many users will not run your EXE file.
See more
See less

xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

    I currently have this as my xbasic function:

    function xb1 as c (e as p)

    'this is a sample Xbasic function to handle an Ajax callback. It is used to demonstrate
    'how the server-side canAjaxCallback event is used to authorize all Ajax callbacks.
    dim js as c
    dim msg as c
    msg = "Ajax callback at: " + now()
    js = "$('div1').innerHTML = '" + js_escape(msg) + "';"
    xb1 = js
    end function


    function xbLogin as c (e as p)
    'this is the Xbasic function that handles login. When the user clicks the 'login' button
    'this function is called. If the user has supplied valid credentials and can be logged into the
    'Alpha Anywhere security framework, a JWT is created and sent back to the client where it is stored in
    'localStorage.
    'The JWT is sent back to the server on all subsequent Ajax callbacks. If the user's session has expired
    'and the user is therefore no longer logged in, the JWT is decoded and the user is automatically logged
    'in to the Alpha Anywhere security framework using the username/password in the decoded JWT.


    dim jsOut as c
    dim logMessages as c = ""
    dim username as c
    dim password as c
    username = e.datasubmitted.username
    password = e.datasubmitted.password
    'try to login programmatically using
    dim pResult as p
    pResult = a5ws_Login_User(userName,password)
    if pResult.error then
    'if login fails, display an error message in the 'LOGIN_ERRORS' placeholder.
    logMessages = "console.log('Login FAILED.');" + crlf()
    dim js as c
    dim message as c = "Login failed."
    if e.tmpl.embeddedMode = .t. then
    message = message + crlf() + "Login not supported in Working Preview mode."
    else
    message = pResult.error_text
    end if
    message = stritran(message,crlf(),"<br>")
    message = "<span style="color:red;">" + message + "</span>"

    js = "var ele = {dialog.object}.getPointer('LOGIN_ERRORS'); ele.innerHTML = '"+js_escape(message)+"';"
    jsOut = logMessages + js + "alert('Login failed. Please login again.'); {dialog.object}.panelSetActive('PANEL_LOGIN');"
    xbLogin = jsOUt
    exit function
    end if

    'If you get here, login has succeeded.

    'generate a JWT
    dim options.algorithm as c = "HS512" 'specify the encryption algorithm for the JWT. See www.documention.alphasoftware.com for info
    dim options.expiresin as n = 60000 'token is set to expire after 1,000 minutes
    dim optionsjson as c = json_generate(options)
    delete obj
    dim obj as p
    obj.userName = userName
    obj.password = password
    dim json as c
    json = json_generate(obj)
    dim token as c = extension::JSON::JWTSign(json,"shhhh!",optionsjson)




    'Create the Javascript response to send to the client. The Javascript must:
    'set focus to the application Panel (PANEL_APPLICATION)
    'stores the JWT in localStorage
    'store the JWT in the UX state object so that the JWT is submitted to the server on every Ajax callback
    'NOTE: e._state.token gets translated into Javascript to set the token value in the UX state object.

    ''logMessages = "console.log('New token:"+js_escape(token)+" generated for user: "+js_escape(userName)+"');" + crlf()
    ''jsOut= logMessages + "{dialog.object}.panelSetActive('PANEL_APPLICATION');"
    ''jsOut = jsOut + "localStorage.setItem('" + e.tmpl.guid + "','" + js_escape(token) + "');"
    ''jsOut = jsOUt + "var ele = {dialog.object}.getPointer('LOGIN_ERRORS'); ele.innerHTML = '';"

    'jsOut = jsOut + "completePersistLogin('" + e.tmpl.guid + "','" + js_escape(token) + "','" + userName + "');"

    jsOut = "completePersistLogin();"
    xbLogin = jsOut
    e._state.token = token
    e._state.userName = userName
    e._state.guid = e.tmpl.guid



    end function




    function xbLogout as c (e as p)

    'log the user out of the Alpha Anywhere security framework
    A5WS_LogoutUser()

    dim jsOut as c
    'Create the Javascript response to send to the client. The Javascript must:
    'return focus to the login panel
    'delete the token from localStorage
    'delete the token from the UX state object so that it does not get sent to server on subsequent Ajax callbacks

    jsOut = "{dialog.object}.panelSetActive('PANEL_LOGIN');" + crlf()+\
    "var key = '" + e.tmpl.guid + "';" + crlf()+\
    "localStorage.setItem(key,''); " + crlf()+\
    "delete {dialog.object}.stateInfo['token'];"
    xbLogout = jsOut


    end function


    And I have this as my javascript function:


    function completePersistLogin(){



    //function completePersistLogin(guid,token,userName){
    //e._state.token = token
    //e._state.userName = userName
    //e._state.guid = e.tmpl.guid




    debugger;

    var guid = {dialog.object}.stateInfo['guid'];
    var userName = {dialog.object}.stateInfo['userName'];
    var token = {dialog.object}.stateInfo['token'];
    var friendlyname = {dialog.object}.stateInfo['friendlyName']

    {dialog.object}.panelSetActive('PANEL_APPLICATION');
    localStorage.setItem(guid,token);
    localStorage.setItem('userName',userName);


    //child
    var cObj = {dialog.Object}.getChildObject('SNAP_MOBILE');
    var cEle = cObj.getPointer('logged_in_as');
    cEle.innerHTML = userName;

    var ele = {dialog.object}.getPointer('LOGIN_ERRORS');
    ele.innerHTML = '';

    }



    I have a SQL table called 'usersregistered'. I want to open that table, grab a field called first_name, and turn that into a state variable that can be used in the app. I started writing the code for this, and came up with this so far:


    dim cn as sql::Connection
    dim args as SQL::Arguments
    args.set("whatuser", e.datasubmitted.username)
    flag = cn.open("::Name::snap-sql")

    dim sqlCommand as c

    sqlCommand = "Select first_name from usersregistered where username = :whatuser"

    flag = cn.execute(sqlCommands,args)

    friendlyname



    But that is as far as I got. I'm not exactly sure what to do after this. The end goal is that in the Javascript, I've got this line:

    cEle.innerHTML = userName, which puts an email address in a field in my app called 'logged_in_as'. I basically want to change that out so that it displays a first name instead of an email address. So a friendlyname used in conjunction with persistent login. Any ideas around how to complete this would be much appreciated. Thanks.

    #2
    Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

    So to summarize, I am writing some code that would grab some info from an SQL table, and create a state variable out of it. Would something like this be close:

    dim cn as sql::Connection
    dim args as SQL::Arguments
    args.set("whatuser", username)
    flag = cn.open("::Name::snap-sql")

    dim sqlCommand as c

    sqlCommand = "Select first_name from usersregistered where username = :whatuser"

    flag = cn.execute(sqlCommands,args)

    if flag then
    dim rs as sql::resultset
    rs = cn.resultset
    flag = rs.nextRow() 'check to see if there are any records in the resultset
    session.first_name = rs.data("first_name")
    end if

    Comment


      #3
      Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

      I didn't look through your code on the first post. Looking at the second post you're creating a SESSION variable. If that's what you're really after then yes, that's close. You have some syntax errors but I'm presuming you already know that.

      State vars: Set one can be as simple as ....

      Code:
      e._state.myvar1 = "value1"
      Mike Brown - Contact Me
      Programmatic Technologies, LLC
      Programmatic-Technologies.com
      Independent Developer & Consultant​​

      Comment


        #4
        Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

        Ok, thanks. So if I use your code:

        e._state.myvar1 = "value1"


        would myvar1 just be whatever name I want? "e._state.friendlyname" as an example.

        And then = "value1", would this be somehow pointed to the result of the sql select?


        Like this below?

        dim cn as sql::Connection
        dim args as SQL::Arguments
        args.set("whatuser", username)
        flag = cn.open("::Name::snap-sql")

        dim sqlCommand as c

        sqlCommand = "Select first_name from usersregistered where username = :whatuser"

        flag = cn.execute(sqlCommand,args)

        if flag then
        dim rs as sql::resultset
        rs = cn.resultset
        flag = rs.nextRow() 'check to see if there are any records in the resultset
        e._state.friendlyname = "rs.data("first_name")

        end if

        Comment


          #5
          Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

          That looks correct to me....give it a shot. Just get rid of the double quotes before rs.
          Mike Brown - Contact Me
          Programmatic Technologies, LLC
          Programmatic-Technologies.com
          Independent Developer & Consultant​​

          Comment


            #6
            Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

            Ok, I've got it mostly working, with just one small hiccup. I've got parent/child UX components, here is what I have:

            snap_mobile_login (parent UX)

            xbasic functions:

            Dim cn as sql::connection
            dim args as SQL::Arguments
            flag = cn.open("::Name::snap-sql")
            dim sqlCommand as c
            sqlCommand = "Select * from usersregistered where username = :whatuser"
            args.set("whatuser", username)
            flag = cn.execute(sqlCommand,args)
            dim rs as sql::ResultSet
            rs = cn.ResultSet
            rs.nextRow()
            e._state.friendlyname=rs.data("first_name")


            javascript functions:

            var friendlyname = {dialog.object}.stateInfo['friendlyname'];
            localStorage.setItem('friendlyname',friendlyname);

            //child
            var cObj = {dialog.Object}.getChildObject('SNAP_MOBILE');
            var cEle = cObj.getPointer('logged_in_as');
            cEle.innerHTML = friendlyname;

            var ele = {dialog.object}.getPointer('LOGIN_ERRORS');
            ele.innerHTML = '';




            So all of that works great, and my 'friendlyname' displays correctly in the child UX. But the issue is that when I hit the refresh button, it defaults back to the username. No problem I thought, I just need to adjust the render complete code on the child side, which was this:


            var pObj = {dialog.Object}.getParentObject();
            if(pObj){
            var userName = pObj.stateInfo['userName'];
            var ele = {dialog.Object}.getPointer('logged_in_as');
            ele.innerHTML = userName;
            }



            I thought I could just change it to this:


            var pObj = {dialog.Object}.getParentObject();
            if(pObj){
            var friendlyname = pObj.stateInfo['friendlyname'];
            var ele = {dialog.Object}.getPointer('logged_in_as');
            ele.innerHTML = friendlyname;
            }


            But when I do that, I end up getting 'undefined' instead of my friendlyname after I refresh the browser. So am I missing a step somewhere that makes sure that state variable carries through to the child UX? It's almost like it no longer knows about it being a state variable.

            Comment


              #7
              Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

              And I can see what happens in the Chrome browser development console. I have a friendlyname value localstorage when I get to the child UX, but as soon as I hit refresh, the value changes to undefined.

              Comment


                #8
                Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

                Why not just use an argument in your child component? When the parent loads the child you populate the child's argument at that time.
                Mike Brown - Contact Me
                Programmatic Technologies, LLC
                Programmatic-Technologies.com
                Independent Developer & Consultant​​

                Comment


                  #9
                  Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

                  Hey Mike, how would you go about something like that?

                  Comment


                    #10
                    Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

                    Open the child component and click on 'Menu' that's beside the Mobile checkbox. Click Arguments. Click Insert New Argument. Call it something like whatName or whatUserName. It's up to you. Leave the get arg value from as set value at run-time. save, publish, close the child component. Open the parent component and open the method you use to open the child component. In that method (presuming it's 'Open UX component') click on argument bindings. You should see that argument you just created. You should also see that it needs a value. You can populate that argument from a control in your parent, from a session var, from a list, etc. You can also populate it via a JS function. The JS function is probably what you want. There is a help link called 'more information' that describes that process.
                    Mike Brown - Contact Me
                    Programmatic Technologies, LLC
                    Programmatic-Technologies.com
                    Independent Developer & Consultant​​

                    Comment


                      #11
                      Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

                      Go to Alpha's YouTube channel: https://www.youtube.com/user/AlphaSoftwareInc/videos

                      When you get there search for argument. There are a bunch of videos there that I think may help you out.
                      Mike Brown - Contact Me
                      Programmatic Technologies, LLC
                      Programmatic-Technologies.com
                      Independent Developer & Consultant​​

                      Comment


                        #12
                        Re: xbasic to grab customer name from SQL table and create a state variable to be used in UX mobile app

                        Thanks, I looked at the argument videos, but ended up getting my code above worked out (sort of). I can refresh the browser, and it will successfully run this:

                        onrendercomplete

                        var pObj = {dialog.Object}.getParentObject();
                        if(pObj){
                        var friendlyname = pObj.stateInfo['friendlyname'];
                        var ele = {dialog.Object}.getPointer('logged_in_as');
                        ele.innerHTML = friendlyname;
                        }

                        Which maintains my friendlyname.

                        But in the phonegap app, I try to simulate the same thing by closing and reopening the app, but it does not work and changes to a friendlyname of "undefined". Wondering where I could put the code above so that it runs when I close and reopen the app.

                        Or maybe the arguments mentioned above are the better way to go? I'll have to research that more I guess.

                        Comment

                        Working...
                        X