error con el append blank(en red)vfp6
Publicado por jose (10 intervenciones) el 22/12/2003 16:39:12
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
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


0