Calendar & Calculator Popup

[Mike Thomson]

This simple solution will allow you to get a calendar popup or calculator when in a browse layout (or infact in any form window) , by simply pressing F11 or F12

See Attached image for example

Instructions:

STEP1 - Create a new function (via Code Tab) called Define_Hotkeys() with the following code

 
function Define_Hotkeys as C ()
 IF a_user.key.value = "{F11}" THEN
  sDate=popup.calendar ("Enter Date",dtoc(date()))
  a_user.key.handled = .T. 
  IF a_user.key.event = "down" THEN
   sys_send_keys(sDate)
     END IF 
 else IF a_user.key.value = "{F12}" THEN
  sNum=popup.calculator ("Enter Date",dtoc(date()))
     a_user.key.handled = .T. 
  IF a_user.key.event = "down" THEN
   sys_send_keys(sNum)
     END IF 
 '**** Take This section Out if you do not want to siable control-D (Delete Shortcut) *****
 else IF a_user.key.value = "{^d}" THEN
  '**** Ignore Control D ****
     a_user.key.handled = .T. 
 '**** End of Section to Take out for Control D ****
 END IF
end function

STEP 2 - For each form that you wish to assign the new hotkeys to , goto Forms/Events/Onkey and add the following line of code

Define_Hotkeys()

That's it - you now have popup calendar and calculator
F11 = Calendar
F12 = Calculator

Please Note: There is also a piece of code in the function which disables the use opf CTRL-D - which I find is a nuisance in Browses because it tries to delet the parent record, when mostly you just want to delete the current line in the browse. If you require CTRL-D to work as before , just uncomment the lines as noted in the function.

Regards

Mike Thomson
Alpha One Software

[Esio Trot]

Re: Calendar & Calculator Popup

I have used Mike's function in my application, and it works fine. I do have a query though in the following bit of code:

else IF a_user.key.value = "{F12}" THEN
  sNum=popup.calculator ("Enter Date",dtoc(date()))
     a_user.key.handled = .T.

This bit of code is for the pop-up calculator. What is the significance (if anything) of the ("Enter Date",dtoc(date()) bit in the calculator section?

[Tom Cone Jr]

Re: Calendar & Calculator Popup

I think it's a typo, perhaps copied and pasted from the F11 section of the code. There's no point in passing the string value of the current system date to the calculator object. Suggest changing the line as follows:

snum = popup.calculator(0)

[DaveM]

Re: Calendar & Calculator Popup

What calculator does it pop up?

I obviously missed a lot the 5 or so times i read this thread?

Maybe I should try it and see?

Dave

PS I tried it an it works great

[John Keogh]

Re: Calendar & Calculator Popup

Hello Mike

That bit of code was just what I have been looking for.

I was messing around with anther one I found on the board but could'nt get it to work every time, yours is magnificent.

Thanks

John

[MoGrace]

Re: Calendar & Calculator Popup

These two functions were working for me so I am thinking I copied over a working script at some point. But in re-copying here I noticed that popup.calendar() returns a character string and must be converted to use in a date field:

IF a_user.key.value = "{F11}" THEN
sDate=CTOD(popup.calendar ("Enter Date",dtoc(date())) )
a_user.key.handled = .T.
IF a_user.key.event = "down" THEN
sys_send_keys(sDate)
END IF
...

But in playing with this script, I saw that the first version used the same hotkey - wouldn't it be possible to verify the type of field that was calling the function so the same Hotkey would work depending on what the field type is? I tried topparent.GetActiveObjParent() to get a pointer and ptr.type_get() to test for "D" or "N", but am unsure how to write it depending on whether the container is a Form or Embedded Browse. So far it isn't working, but I may be having another problem that is unrelated. Like just generally poor syntax skills...

[John Keogh]

Re: Calendar & Calculator Popup

Hello

I am very unskilled when it comes to code. I just pasted exactly as I received it and it worked. Sorry I can't help.

Regards

John

[MikeC]

Re: Calendar & Calculator Popup

Robin,
I haven't tested this but it should work to see if you are in a form or a browse....

if topparent.Class() = "form" 
    'do something here
  elseif  topparent.Class() = "browse"
    'do something else here
end if

[MoGrace]

Re: Calendar & Calculator Popup

Thanks Mike, I forgot about the Class method. Using Browse1.class() should identify an embedded browse on the form I see in the help. I haven't tested the CTOD() wrapper for the popup call yet but it could still be used to convert Sdate for another date type variable for sys_send_keys() to use. I better look that function up first too...duh I am having brain overload here, sys_send_keys takes a character argument. No wonder my modifications don't work!

[MoGrace]

It Worked!

This works in either a Date or Numeric field to popup either the Calendar or Calculator, and ignores Character fields.

FUNCTION F11_HotKey AS C (checked as D = {})
 IF .not. (a_user.key.event = "down") THEN
  exit function
 END IF
 IF .not. (a_user.key.value = "{F11}") THEN
  exit function
 END IF
 ''Hot Key to pop up Calendar or Calculator
 traceln("F11 Calendar/Calculator Hotkey")
 dim frm as p
 dim fld as p
 dim frm_name as c
 dim fld_name as c
 dim fld_type as c
 dim vdate as c
 dim vnumb as c
 frm_name = A_FORM_CURRENT
 traceln("Form name: "+frm_name)
 'I also tried these
 'frm_name = a5.active()
 'frm_name = a5.getactiveobjparent()
 frm = obj(frm_name)
 frm.restrict_change = .f.
 frm.allow_change(.t.)
 fld_name = frm.active_drilldown()
 traceln("Field name: "+fld_name)
 fld = obj(fld_name)
 fld_type = fld.type()
 traceln("Field Type: "+fld_type)
 'Note: Sys_send_keys takes a C argument but returns a N value
 'Field type is tested to use in either Date or Numeric field
 'to determine which popup method to use and to ignore C fields
 SELECT
  CASE fld_type = "C"
   traceln("F11 Hot Key: Ignored")
   EXIT FUNCTION
  CASE fld_type = "D"
    IF checkd = {} THEN
	checkd = date()
    END IF
   IF a_user.key.value="{F11}" THEN
    vdate = popup.calendar("Select Date",dtoc(checkd))
    a_user.key.handled=.t.
    IF a_user.key.event = "down" THEN
     sys_send_keys(vdate)
    END IF
   END IF
  CASE fld_type = "N"
   IF a_user.key.value="{F11}" THEN
    vnumb = popup.calculator(0)
    a_user.key.handled=.t.
    IF a_user.key.event = "down" THEN
     sys_send_keys(vnumb)
    END IF
   END IF
 END SELECT
END FUNCTION

[MJC]

Re: It Worked!

Great bit of code but there is a missing "e" in "checkd" in the

vdate = popup.calendar("Select Date",dtoc(checkd))

It should be
vdate = popup.calendar("Select Date",dtoc(checked))

[MoGrace]

Re: Calendar & Calculator Popup

Hmm, at some point I must have fixed it because it works for me. The best use I have found is in a browse or embedded browse in a form because you can't define a calendar type or calculator type to the field. Thanks for pointing out the typo!