Pregunta:
¿ORDEN1 corresponde a un ordenamiento por el campo MARK que
corresponde al NOMBRE de la persona?
Parece que tienes dos archivos de marcas diferentes: el primero que se
abre con "use MARCAS" al principio y el que tiene la ruta completa de
documents&settings........
Te recomiendo:
** se supone que ORDEN1 se generó así:
** use addbs(M.cPath)+"MARCAS.dbf" exclusive
** index on upper(MARK) tag ORDEN1
local M.cPath, M.cNom
M.cPath = ""c:\documents and settings\abraham\mis documentos\visual
foxpro projects\"
use addbs(M.cPath)+"MARCAS.dbf" shared order ORDEN1
M.cNom = upper(alltrim(ThisForm.nModelo.Value))
+space(len(MARCAS.MARK)),len(MARCAS.MARK))
if seek(M.cNom)
=MessageBox("EL NOMBRE YA EXISTE"+chr(13)+, 0+16, ">>>>>>>ERROR")
return 0
endif
ThisForm.Command1.Enabled = .f.
insert into MARCAS (mark) VALUES (M.cNom)
wait wind ">>>>>>>EL NOMBRE HA SIDO GUARDADO<<<<<<<" timeout 5 && 1
ThisForm.Release