FUNCTION FieldExist() PARAMETER tcField LOCAL llExist llExist=.F. IF FSIZE(tcField)>0 llExist=.T. ENDIF RETURN llExist