*-- 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