*** Buscar dados lFilled = Thisform.oCA.CursorFill(.T.) IF !lFilled AERROR(aMensErro) MESSAGEBOX(STR(aMensErro[1])+CHR(13)+aMensErro[2]) ENDIF