Semi-automatic Date Picker on every Date field - in 3 steps

I know I know .. Probably all of you already implemented it, but for those who didn't … here's how :)

Probably everybody knows the functionality when putting a question mark ('?') into a text field, that the standard text functionality pops up?

 

Well, I've got an easy-to-create variant of this for dates.

 

What do you have to do?

1. Download the Date Time Picker from Mibuso: http://www.mibuso.com/dlinfo.asp?FileID=563 (thanks Woody)

2. Import it in your database (obviously you don't need the sample form)

3. Add this code to codeunit 1 in trigger "MakeDateText" (create a local variable of the type "form" for your Date Picker":

 

IF DateText IN ['?',' '] THEN BEGIN

  lfrmDatePicker.SetCurrDate(TODAY);

  lfrmDatePicker.LOOKUPMODE(TRUE);

  IF lfrmDatePicker.RUNMODAL = ACTION::LookupOK THEN BEGIN

    DateText := FORMAT(lfrmDatePicker.GetCurrDate);

  END;

END;

 

It might be that you have to restart your client.

 

Now just put a ' ' or a '?' into a date field and there is your date picker.

 

Enjoy!

Comment List
Related
Recommended