time entry seconds

[Ronald Anusiewicz]

I've attached a screen shot of a working example of what you want. I have a table with two fields with a browse formatted with time in 24 hour format. I created a UX component bound to that table and formatted to show the time in 24 hour format. I call the UX component in a script using action scripting. I did this using AA build 2999 which is a pretty old build. The entries in the browse were made by pressing the New Entry button, using the date picker and the drop down time picker and then pressing the save button.

[madtowng]

This attachment is a proof of concept project.
There is no particular style, but it has the basic funcitonality.
As I was putting it together, it became apparent that grids, not UX's, can be put on
a regular form. timetest.zip

[datacaster]

Ron,
If you don’t mind could you please share what you did like Dave did? This is great learning material as I never venture over to the web side of things in Alpha 5.

Thanks Dave for your data. Thanks everyone!

[datacaster]

I meant Alpha Anyywhere V12

[Ted Giles]

Paul, given that the entries are from another document, faffing around pressing buttons to bring up dates and times might get annoying if the information is in front of you.
The attached is uber simples!
Note the Date entry option, [in the flyover of the Date field] which is much, much quicker than opening the Calendar and finding a date.
It's probably easier to maintain if not as pretty as the others.

Ted

timetest.zip

[Tom Cone Jr]

MadTowing: I'd be interested in learning how to use your UX control in a desktop app. Can you point me to some examples or reference materials? Thanks. -- tom

[Ted Giles]

Tom,
Create a Grid in the windows section an add it into a Supercontrol on the Form.
Is that what you meant?

[martinwcole]

not sure I understand your goal, but this is my solution
dim global ntime as n
ntime=toseconds(time())
this gives you the number of seconds past midnight
from that you can determine the time, and do an if
if ntime = 2500
do something
elseif ntime= 5315
do something else
end if

[madtowng]

For Tom Cone Jr, and anyone else that is interested.
While you can't open a UX from a desktop form, you can open a grid from the desktop form, and the from the grid, you can open a UX.
In my test case, I set the on-click action for the first field of the grid to open the UX. I didn't do much more because it was just a proof of
concept type thing and I'm really just at the point where making up controls, tables, and data is testnig the limit of my creativity right now
as I try to get other things done as well, but if that information is provided, I'm certainly willing to push further.

[Ronald Anusiewicz]

Attached is a working example of using a UX component on the desktop. This was developed using the current stable build of Alpha Anywhere, Build 7564. I could have used a different Build except nowhere in this post did anyone stipulate which Build they were using. Likewise, it is assumed that we are working with DBF tables and not SQL tables.

I have a single form, a single browse and a single UX component. The form has the named browse on it. The single button calls a script from the code tab. The script was created using Action Scripting and loads the Web Component on to the desktop.

The Web Component allows for edits, adding a new entry and deletes. It has both a date and time picker, the time picker in 24 hour and seconds. As we are working with DBF files, one has to write their own xbasic code to manipulate the data, placing this xbasic code in the Server-side afterDialogValidate event.

Regarding Deletes, I opted to add a logical field to the table Called hide. A deleted record will be T and an active record will be F. The form, Browse and UX have a Filter, “Hide=.F.” The Primary Key is a numeric auto-increment field called “PK”. The xbasic code honors the field rules using the argument .t. in the t.enter_begine(.t.) function.

The UX when opened may fill most of the screen. It can be resized and is configured to remember it’s size and location.

This is just a proof of concept exercise which could use a little more polish. The list doesn’t resort after a new entry has been added. Maybe someone can show us how to do that.

Server-side afterDialogValidate code

dim vn_pk as N
vn_pk = convert_type(e.datasubmitted.PK,"N")

if e.datasubmitted.HIDE = "true" then
'hide current record
dim t as P
t = table.open("datetime")
t.order("PK","PK=" + vn_pk)
t.change_begin(.t.)
t.hide = e.datasubmitted.HIDE
t.change_end()
t.close()
END
end if

'convert submitted character object to date value
dim vd_date as d
vd_date = convert_type(e.datasubmitted.DATE, "D")
dim vt_time as t
vt_time = ctot(e.datasubmitted.TIME)

if vn_pk = 0 then
'new record
dim t as P
t = table.open("datetime")
'honor field rules
t.enter_begin(.t.)
t.date = vd_date
t.time = vt_time
t.enter_end(.t.)
t.close()
else
'edit current record
dim t as P
t = table.open("datetime")
t.order("PK","PK=" + vn_pk)
t.change_begin(.t.)
t.date = vd_date
t.time = vt_time
t.change_end()
t.close()
end if[FONT=Times New Roman][/FONT]

[datacaster]

Thanks Ron!!! When I get home tonight I will have to check this out. Thanks you for providing this. This post has had a lot of discussion with lots of thoughts and code. It is great for learning when your up in your years in age! Thanks again for your help and detailed info on code!

[Tom Cone Jr]

Thanks, Ron. Much to study and learn from.

Q - this is running without web app server being deployed, right?

Q - I assume the folder "datetime.webprojects" must be a sub-folder of the ADB workspace, right? Is this by default, or did you move it there from elsewhere?

-- tom

[datacaster]

Thanks, Ron. Much to study and learn from.

Q - this is running without web app server being deployed, right?

Q - I assume the folder "datetime.webprojects" must be a sub-folder of the ADB workspace, right? Is this by default, or did you move it there from elsewhere?

-- tom

Hi Tom,
It runs without the application server and it is best to just leave the UX component where it is in the webproject folder. There you can open the project and add any controls or remove the unwanted ones. The changes will be reflected when you run the form and click the button that calls the script.

[datacaster]

[QUOTE=Ronald Anusiewicz;n931284]Attached is a working example of using a UX component on the desktop. This was developed using the current stable build of Alpha Anywhere, Build 7564. I could have used a different Build except nowhere in this post did anyone stipulate which Build they were using. Likewise, it is assumed that we are working with DBF tables and not SQL tables.

I have a single form, a single browse and a single UX component. The form has the named browse on it. The single button calls a script from the code tab. The script was created using Action Scripting and loads the Web Component on to the desktop.

The Web Component allows for edits, adding a new entry and deletes. It has both a date and time picker, the time picker in 24 hour and seconds. As we are working with DBF files, one has to write their own xbasic code to manipulate the data, placing this xbasic code in the Server-side afterDialogValidate event.

Regarding Deletes, I opted to add a logical field to the table Called hide. A deleted record will be T and an active record will be F. The form, Browse and UX have a Filter, “Hide=.F.” The Primary Key is a numeric auto-increment field called “PK”. The xbasic code honors the field rules using the argument .t. in the t.enter_begine(.t.) function.

The UX when opened may fill most of the screen. It can be resized and is configured to remember it’s size and location.

[FONT=Times New Roman]This is just a proof of concept exercise which could use a little more polish. The list doesn’t resort after a new entry has been added. Maybe someone can show us how to do that.



Hi Ron,
Not sure what you mean that it doesn't resort. Are you saying sort by date, record or something else?
Nice going on putting that together. I played with it and made some changes to see what happens, etc.....
Thanks for taking the time to do this and show everyone !!!!!!

[datacaster]

[QUOTE=datacaster;n931294]

Attached is a working example of using a UX component on the desktop. This was developed using the current stable build of Alpha Anywhere, Build 7564. I could have used a different Build except nowhere in this post did anyone stipulate which Build they were using. Likewise, it is assumed that we are working with DBF tables and not SQL tables.

I have a single form, a single browse and a single UX component. The form has the named browse on it. The single button calls a script from the code tab. The script was created using Action Scripting and loads the Web Component on to the desktop.

The Web Component allows for edits, adding a new entry and deletes. It has both a date and time picker, the time picker in 24 hour and seconds. As we are working with DBF files, one has to write their own xbasic code to manipulate the data, placing this xbasic code in the Server-side afterDialogValidate event.

Regarding Deletes, I opted to add a logical field to the table Called hide. A deleted record will be T and an active record will be F. The form, Browse and UX have a Filter, “Hide=.F.” The Primary Key is a numeric auto-increment field called “PK”. The xbasic code honors the field rules using the argument .t. in the t.enter_begine(.t.) function.

The UX when opened may fill most of the screen. It can be resized and is configured to remember it’s size and location.

[FONT=Times New Roman]This is just a proof of concept exercise which could use a little more polish. The list doesn’t resort after a new entry has been added. Maybe someone can show us how to do that.

Hi Ron,
Not sure what you mean that it doesn't resort. Are you saying sort by date, record or something else?
Nice going on putting that together. I played with it and made some changes to see what happens, etc.....
Thanks for taking the time to do this and show everyone !!!!!!