Passing dialog date to grid

[EricN]

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

[Pat Bremkamp]

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")

[EricN]

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

[EricN]

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?

[Pat Bremkamp]

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"

[EricN]

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