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

Waldo · 2007-08-06

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!

Luc_VanDyck · 2007-08-06

Excellent tip! It's almost an MVT (Most Valuable Trick) ;-)

DenSter · 2007-08-07

Brilliant!!

Marije_Brummel · 2007-08-07

In the past I remember using the Monthly Calendar (7609) form for this.

It is a brilliant matrixform to pick dates and available in almost every navision database.

Just add an OK button on it and return the selected date when pushed.

Waldo · 2007-08-08

Indeed, but do you know which granule is needed for this form?

Anyway, for the OK button: this will give you the selected date:

"Period Start" + DATE2DWY(CurrForm.Matrix.MatrixRec."Period Start",1) - 1

ara3n · 2007-08-08

The granules are

3,360 Sales & Receivables - Calendars

tompynation · 2008-10-23

How do you guys do this with the Monthly Calendar control?

I added this in the MakeDateText trigger of CodeUnit 1.
lfrmDatePicker is now a variable of Form "Monthy Calendar".

IF DateText IN THEN BEGIN
// lfrmDatePicker.SetCurrDate(TODAY);
lfrmDatePicker.LOOKUPMODE(TRUE);
IF lfrmDatePicker.RUNMODAL = ACTION::LookupOK THEN BEGIN

END;
END;

How do you add the return value to the OK button?
The pushaction of my button is LookupOK

But where do you add the line: "Period Start" + DATE2DWY(CurrForm.Matrix.MatrixRec."Period Start",1) - 1
Is this the RunCommand?

Cause i cannot get it to work the return the selected date

tompynation · 2008-10-23

allright, got it working

lgp · 2012-04-27

Hi - I am trying out the Date Picker in NAV2009R2. After selecting a date with the Date Picker, if I go directly to the next date field and type '?', I get an error: "The form has been run. Use the function CLEAR(Form)". Has this been reported, and is there a fix? Thanks...

ara3n · 2012-04-27

you need to add the following line.

clear(lfrmDatePicker.) ; //new line.
lfrmDatePicker.SetCurrDate(TODAY);

lgp · 2012-04-27

Thanks!

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

Comments

Categories