FoxPro/Visual FoxPro - error con el append balnk(en red)

 
Vista:

error con el append balnk(en red)

Publicado por jose (10 intervenciones) el 22/12/2003 16:36:04
Hola mi problema es el siguiente_:
Ya puedo utilizar mi sistema en red pero al momento que encuentra un append blank me genera el siguiente error ,no se puede crear la instancia cursor,
respuesta = 0
*validar es condicion de que se llenaron los campos obligados
* if (validar = 6)

respuesta = messagebox ('Los datos seran dados de altas..esta seguro?',1 + 64,'Confirmar..')

if (respuesta = 1)
close tables
open database 'G:\datos.dbc'
SET REPROCESS TO 10
*----
SET EXCLUSIVE OFF
SET REPROCESS TO 10
USE g:\clientes && Abrir tabla compartida
flock('clientes')

IF FLOCK('clientes')

append blank
replace id_cliente with val(thisform.text1.value)
replace nomb with thisform.text3.value
replace apellido with thisform.text2.value
replace dni with thisform.text4.value
replace telefono with thisform.text7.value
replace direccion with thisform.edit3.value
replace tel_legal with thisform.text8.value
replace direccion_legal with thisform.edit5.value

UNLOCK
ELSE && Mensaje de salida
WAIT "Otro usuario está utilizando el archivo." WINDOW NOWAIT
ENDIF
*-----
por favor ayuda cuanto antes , gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:error con el append balnk(en red)

Publicado por Raul (30 intervenciones) el 22/12/2003 19:03:10
Creo que cuando abres la BD no especificas si la abres en modo exclusivo o compartido; verifica en la ayuda del VFP el comando:

OPEN DATABASE.

Espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:error con el append balnk(en red)

Publicado por wences (57 intervenciones) el 31/12/2003 09:49:38
Usa en el programa principal set exclusive off , para no tener que marcar cada vez si es o no en exclusivo ...

Prueba de esta otra forma

select latabla
append blank
rlock()
if rlock()

de esta forma bloqueas a nivel de registro no de tabla y tendras menos problemas

Espero te sirva...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar