Use Dates.Utl
Use IntelliDateMx.pkg

Class vdbDateForm Is A dbForm
  Procedure Construct_Object
    Forward Send Construct_Object

    Set Prompt_Button_Mode   To PB_PromptOn
    Set Form_Datatype Item 0 To Mask_Date_Window
    Send vDefine_IntelliSense_Date_Mixin

    On_Key kPrompt Send Prompt
  End_Procedure // Construct_Object


  Import_Class_Protocol vIntelliSense_Date_Mixin

  // **WvA: Augmented to store the current date-value before any changes are made
  Procedure Entering returns Integer
    Local Integer iRetVal
    Local Date    dOriginal
    Forward Get Msg_Entering To iRetVal
    If (iRetVal = 0) Begin
      Send vDoStoreOriginalDate
    End
    Procedure_Return iRetVal
  End_Procedure // Entering

  //**WvA: This procedure is augmented to see if the user entered a 1 or 2 digit
  //        value with the intention to only change the day-part of the current date.
  Procedure Next
    Send vIntelliSenseDate
    Forward Send Next
  End_Procedure // Next

   //****************************************************************************
   // $Module type: PROCEDURE
   // $Module name: Prompt
   // $Author     : VINCENT
   // Created     : 05/21/99 @ 10:41
   //
   // Description
   //    This method will popup the calendar and enables the user to select a
   //    date.
   //
   // $Rev History
   //    05/21/99 VINCENT Module header created
   //****************************************************************************
   Procedure Prompt
      Send Request_Popup_Calendar
   End_Procedure // Prompt

End_Class // vdbDateForm