IF !thisform.txtNewPassword.Enabled
IF MESSAGEBOX(NOPSWDENTERED_LOC, ;
MB_ICONQUESTION + MB_YESNO, ;
TASTRADE_LOC) = IDNO
=TABLEREVERT()
RELEASE thisform
ELSE
thisform.txtOldPassword.Value = ""
thisform.txtOldPassword.SetFocus()
ENDIF
RETURN .F.
ENDIF
IF EMPTY(thisform.txtNewPassword.Value)
=MESSAGEBOX(PASSWORDEMPTY_LOC, ;
MB_ICONEXCLAMATION, ;
TASTRADE_LOC)
thisform.txtNewPassword.SetFocus()
RETURN .F.
ENDIF
IF thisform.txtConfirm.Value <> ;
thisform.txtNewPassword.Value
=MESSAGEBOX(PSWDNOTCNFRM_LOC, ;
MB_ICONEXCLAMATION ,;
TASTRADE_LOC)
thisform.txtConfirm.Value = ""
thisform.txtConfirm.SetFocus()
RETURN .F.
ENDIF