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

Passing dialog date to grid

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

  • Passing dialog date to grid

    Apologies if asked before but could not locate exact answer.

    NewUser Dialog after validate

    tbl=table.open("[pathalias.adb_path]\users")
    tbl.enter_begin(.T.)
    tbl.Userid = alltrim(Userid)
    tbl.Ulink = ulink
    tbl.Password = Password
    tbl.Secquest = SecQues
    tbl.Secanswer = SecAns
    'tbl.Passentdate = time("PassEnt")
    'tbl.Passexpdate = time("PassExp")
    tbl.Passentdate = date(PassEnt)
    tbl.Passexpdate = date(PassExp)
    tbl.User_type = groups
    tbl.Email = Email
    tbl.enter_end(.T.)
    tbl.close()

    All fields transfer correctly except PassEnt or PassExp. Both are dates.
    In my grid and database, I get weird characters or nothing at all.
    Changed database table structure type from Character to Time to Date. This didn't help.

    Have tried everything I could think of. Have looked in the help.

    Thanks
    Eric

    Alpha Five Websites
    longlivepuppies.com
    socialservicenetwork.com
    -------------------------------------------------
    socialservicenetwork.org

  • #2
    Re: Passing dialog date to grid

    If the dialog field is a textbox using date format, then the date in the dialog is a character field. Question is, in the table, what is the type of the field? Usually, it would be a date type.

    So, to save, you want to convert from character type to date type using either ctod() or convert_type( ,"D")
    Pat Bremkamp
    MindKicks Consulting

    Comment


    • #3
      Re: Passing dialog date to grid

      Hello Pat,
      It is a textbox.
      Field type in database set to date
      Tried tbl.Passentdate = ctod(PassEnt)

      I get a blank value in my grid.

      I just tired
      tbl.Passentdate = convert_type(PassEnt,D)
      I get this error
      Errors in: event.AfterValidate code:
      Variable "D" not found.

      I also tried
      tbl.Passentdate = convert_type(PassEnt,"D")
      and get a blank value

      Thanks
      Eric

      Alpha Five Websites
      longlivepuppies.com
      socialservicenetwork.com
      -------------------------------------------------
      socialservicenetwork.org

      Comment


      • #4
        Re: Passing dialog date to grid

        When I don't filter in my redirect for Employers, the date is correctly populated in my user database. When I DO filter, the date fields are blank. I have tried many different variations of filter and the result is the same.

        after validate

        If currentform.controls.groups = "Employer"
        CurrentForm.RedirectTarget ="Employer_Register.a5w?Employer_Register_filter=Userid=:userid="+quote(CurrentForm.controls.userid.value)
        else if currentform.Controls.groups ="Job Seeker"
        response.redirect("Jobs_List.a5w")
        end if

        Employer_Register.a5w is page containing Employer_Register grid
        Employer_Register is grid
        Userid=:userid is the filter on my grid
        quote(CurrentForm.controls.userid.value) is the value in userid field from my dialog

        Please what am I doing wrong?
        Eric

        Alpha Five Websites
        longlivepuppies.com
        socialservicenetwork.com
        -------------------------------------------------
        socialservicenetwork.org

        Comment


        • #5
          Re: Passing dialog date to grid

          Eric,

          You are doing a few things differently than I would:

          First, you are using both Currentform.RedirectTarget= and Response.Redirect(). You should only use Currentform.RedirectTarget= in a component script. Response.Redirect() is for use on a page.

          Second, you are setting the filter to
          Employer_Register_filter=Userid=:userid="+quote(CurrentForm.controls.userid.value)

          :userid is an argument that you would define in the grid. The only reason to do that is to put the filter in the grid (not in the url). So you need to pick a method. Either put the filter in the url, which would be
          "Employer_Register.a5w?Employer_Register_filter=Userid="+quote(CurrentForm.controls.userid.value)

          or define the value of a variable in the url and set the filter in the grid. In that case, it might be
          "Employer_Register.a5w?Userid=CurrentForm.controls.userid.value"
          Pat Bremkamp
          MindKicks Consulting

          Comment


          • #6
            Re: Passing dialog date to grid

            Thank you for helping me out here. I hope to receive a little more direction to get over this hump.

            NewUser dialog

            VALIDATE
            request.variables.ulink=userid
            a5ws_save_user_values(CurrentForm,request)

            AFTERVALIDATE
            a5ws_get_user_values(CurrentForm,request)

            dim userid as C
            dim ulink as C
            dim groups as C
            dim PassEnt as c
            dim PassExp as c
            dim tbl as P
            '=================== Open user table and populate fields
            tbl=table.open("[pathalias.adb_path]\users")
            tbl.enter_begin(.T.)
            tbl.Userid = alltrim(Userid)
            tbl.Ulink = ulink
            tbl.Password = Password
            tbl.Secquest = SecQues
            tbl.Secanswer = SecAns
            tbl.Passentdate = ctod(PassEnt)
            tbl.Passexpdate = ctod(PassExp)
            tbl.User_type = groups
            tbl.Email = Email
            tbl.enter_end(.T.)
            '=================== Set Session Variables
            session.__Protected__Userid = tbl.Userid
            session.ulink = tbl.Ulink
            tbl.close()

            save_to_file(currentform.controls.groups, "c:\11groups.txt")
            save_to_file(currentform.Controls.userid, "c:\11userid.txt")
            save_to_file(currentform.Controls.guid, "c:\11guid.txt")
            save_to_file(currentform.Controls.ulink, "c:\11ulink.txt")

            If currentform.controls.groups = "5f8c48b1911041fc8bee4cb8fee6310d"
            '''''This is the employer field 5f8c48b1911041fc8bee4cb8fee6310d
            CurrentForm.RedirectTarget ="Employer_Register.a5w?Userid=CurrentForm.controls.userid.value"
            else if currentform.Controls.groups ="88c05dceff4949a18625cfdcfca0b135"
            '''''This is the job seeker field 88c05dceff4949a18625cfdcfca0b135
            CurrentForm.RedirectTarget ="Employer_Register.a5w?Userid=CurrentForm.controls.userid.value"
            end if

            ACTIVATE
            queslist = a5ws_get_security_ques(request)
            pagelist = a5ws_get_page_list(request)

            'create grouplist filter
            grouplist = a5ws_get_groups(request,.t.)
            'remove 'Administrator' from groups list
            grouplist = filter_string(grouplist,"Administrators",crlf(),.T.)
            'grouplist = filter_string_multi(grouplist,"Job Seekers",crlf(),.T.)

            I'm having 1 problem.
            -- All fields in the users table are being populated EXCEPT the dates.

            When I change it to this
            tbl.Passentdate = ctodt(PassEnt)
            tbl.Passexpdate = ctodt(PassExp)

            I get this 00/00/0000 12:00:00 in my users table
            Last edited by EricN; 01-17-2008, 05:18 PM.
            Eric

            Alpha Five Websites
            longlivepuppies.com
            socialservicenetwork.com
            -------------------------------------------------
            socialservicenetwork.org

            Comment

            Working...
            X