Valid Method
Object:orderentry.txtDeliver_By
Expand/Collapse source code of procedure txtDeliver_By.Valid Source Code
*-- The deliver by date must be today or later
IF this.Value < DATE()
  =MessageBox(TODAYORLATER_LOC, ;
              MB_ICONEXCLAMATION, ;
              TASTRADE_LOC)
  this.Value = DATE()
  this.Refresh()
  RETURN .F.
ENDIF