>@ 3,29 GET staff.number ;
> SIZE 1.000,13.167 ;
> VALID valstaf() error errmess
>
>READ valid valme()
>
>procedure valstaf
>ret = .t.
>getno = _CUROBJ
>if ";"$staff.number
> errmess="Person's # may not contain semi-colon(;)"
> ret = .f.
>endif
>return ret
>
>procedure valme
>ret = .t.
>if "" = trim(staff.number) .and. fromhere <> 2
> errmess="Person's # may not be blank"
> ret=.f.
> wait window errmess nowait
> _CUROBJ = getno
>else
> ret = .t.
> if (""= trim(staff.number) .or. isnew) .and. fromhere = 2
> delete
> endif
>endif
>return ret
Might it have something to do with that RETURN .F.? I know that would hold it
in place if it were a field-level valid, so that might be the case here too...
