Refresh Method
Object:orderentry.txtDeliver_By
Expand/Collapse source code of procedure txtDeliver_By.Refresh Source Code
textbox::Refresh()
IF !("HISTORY" $ UPPER(thisform.Name))
  IF "3" $ GETFLDSTATE(-1) OR "4" $ GETFLDSTATE(-1)
    thisform.lAllowEdits = .T.
  ELSE
    thisform.lAllowEdits = this.Value > DATE()
    thisform.lAllowDelete = thisform.lAllowEdits
  ENDIF
ENDIF
OrdTextBox::Refresh()