Foro de programacion

Hola Chicos:
tengo un grave problema al iniciar el programa que cree con vfp6. al programa lo puedo abrir normalmente con el ejeccutable que cree, pero cuando quiero hacer un ABM al guardar los cambios me aparece una leyenda que dice: "no se puede actualizar el objeto cursor", esto no sucede si al programa lo abro desde vfp6. esta es la forma en que lo inicio desde el .prg

SET SAFE OFF
_SCREEN.VISIBLE =.f.
CLEAR EVENT
CLOSE ALL
CLEAR PROGRAM
RELEASE ALL
DO FORM PRINCIPAL
**********abre base de datos de altas de efecto bienes muebles*******
CLOSE DATABASE
USE altasdeefectos
INDEX ON codalta TO codalta
CLOSE DATABASE
******************************abre base de datos de usuario y pasword*************
CLOSE DATABASE
USE IDUSUARIO
INDEX ON pasw TO pasw
INDEX ON USUARIO TO USUARIO
CLOSE DATABASE
*************************abre base de datos de altas vestuarios y equipos*************
CLOSE DATABASE
use altasdeefectovesteqinstr
index on codaltaves to codaltaves
CLOSE DATABASE
************************abre base de datos de baje de bienes muebles*************
CLOSE DATABASE
USE bajadeefecto
INDEX ON codbaja TO codbaja
CLOSE DATABASE
**********************abre base de datos de baja vetuarios y equipos*****************
close database
use bajadeefectovesteqinstr
index on codbajaves to codbajaves
close database
*************abre base de datos de banda intrumental*********
CLOSE DATABASE
USE BANDAINSTRUMENTAL
INDEX ON codbdainst TO codbdainst
CLOSE DATABASE
********************abre base de datos banda muebl************
CLOSE DATABASE
USE BANDAMUEBLE
INDEX ON codbdamueb TO codbdamueb
CLOSE DATABASE
*******abre base de datos de banda vestuarios y equipos******
CLOSE DATABASE
USE bandavestuarioyequipo
INDEX ON codbdavest TO codbdavest
CLOSE DATABASE
****abre la base de datos de secdestmuebles=cacazmte17muebles**
CLOSE DATABASE
USE sedestinomueble
INDEX ON codsdemue TO codsdemue
CLOSE DATABASE
*************abre la base de datos de secdestvestyeq=cacazmte17vestyeq***
CLOSE DATABASE
USE secdestinovestuarioyequipo
INDEX ON codsdevest TO codsdevest
CLOSE DATABASE
**************abre base de datos de comando y servicios muebles****
CLOSE DATABASE
USE comandoyserviciomueble
INDEX ON codcdomueb TO codcdomueb
CLOSE DATABASE
*****************abre base de datos comando y servicios vestyeq***
CLOSE DATABASE
USE comandoserviciovestuarioyequipo
INDEX ON codcdovest TO codcdovest
CLOSE DATABASE
****************abre base de datos de caimtea muebles***********
CLOSE DATABASE
USE CAIMTEAMUEBLE
INDEX ON CODIMAMUEB TO CODIMAMUEB
CLOSE DATABASE
******************abre base de datos de caimtea muebles*********
CLOSE DATABASE
USE caimteavestuarioyequipo
INDEX ON codimavest TO codimavest
CLOSE DATABASE
**************abre la base de datos de caimteb muebles**********
CLOSE DATABASE
USE CAIMTEBMUEBLE
INDEX ON CODIMBMUEB TO CODIMBMUEB
CLOSE DATABASE
**************abre la base de datos de caimteb vestyeq**********
CLOSE DATABASE
USE caimtebvestuarioyequipo
INDEX ON codimbvest TO codimbvest
CLOSE DATABASE
***************able la base de datos del deposito cental**************
CLOSE DATABASE
USE depositocentral
INDEX ON CODDEP TO CODDEP
CLOSE DATABASE
*************abre base de datos de orden de entrega***********
CLOSE DATABASE
USE ordendeentrega
INDEX ON nroordent TO nroordent
CLOSE DATABASE
***************abre base de datos de orden de reciba***********
CLOSE DATABASE
USE ORDENDERECIBA
INDEX ON nroreciba TO nroreciba
CLOSE DATABASE

USE IDUSUARIO INDEX pasw.IDX IN 19 ALIAS COD
USE depositocentral INDEX CODDEP.IDX IN 1 ALIAS DEPOSITO
USE bandamueble IN 6 ALIAS BANDAMUEB
use caimtebmueble in 11 alias muebb
USE comandoyserviciomueble IN 13 ALIAS CDOMUEB
USE sedestinomueble IN 15 ALIAS DESTMUEB
USE caimteamueble IN 9 ALIAS CAIAMUEB
use bandainstrumental in 7 alias instr
use bandavestuarioyequipo in 8 alias bdavesteq
use caimteavestuarioyequipo in 10 alias caimteavesteq
use caimtebvestuarioyequipo in 12 alias caimtebvesteq
use comandoserviciovestuarioyequipo in 14 alias cdoservesteq
use secdestinovestuarioyequipo in 16 alias secdestvesteq
USE altasdeefectos INDEX codalta.IDX IN 2 ALIAS DEPOSITOALTA
USE altasdeefectovesteqinstr INDEX codaltaves.IDX IN 3 ALIASaltavestyeqeinst
USE bajadeefecto INDEX codbaja.IDX IN 4 ALIAS BAJAEFECTO
USE bajadeefectovesteqinstr INDEX codbajaves.IDX IN 5 ALIAS bajavestyeqeinst
USE ordendeentrega INDEX nroordent.IDX IN 17 ALIAS ORDENT
USE ORDENDERECIBA INDEX nroreciba.IDX IN 18 ALIAS ORDREC
READ EVENTS
QUIT

que es un ABM?

todo eso es tu ejecutable?

no entiendo para que redundas tanto lo que haces :/

hay varias cosas que a mi parecer deberías borrar , pero esto nada tiene que ver con lo que mencionas.

el error que mencionas no te da un numero? así podría tratar de comprender mejor tu ida.

como sugerencia, quita todos tus CLOSE DATABASE, al final siempre te quedara abierto, el QUIT para que lo tienes? que te queda abierto?, QUIT cierra toda la aplicación y por lo tanto el READ EVENTS al final no leerá nada, INDEX ON crea el indice físicamente, por lo tanto, con una vez que lo hagas el indice queda creado, en su lugar, si lo que quieres es ordenar los registros hazlo asi


USE altasdeefectos ORDER codalta IN 0

si te da error es porque en lugar de usar TAG estas usando TO ,pero la idea es que una vez usando INDEX ON micampo TAG nombre_indice ya esta "Físicamente" creado, por lo tanto podrás usar el ORDER


espero que me respondas que es ABM para poderte ayudar


salu2

¿Qué es un ABM?

El colega se refiere a

A (Altas a una Base de Datos o Tabla)
B (Bajas )
M (Modificaciones)

Dicho de otra manera tiene un formulario que le permite actualizar datos sobre una Base de Datos o Tabla.

jajaja, entonces creo que dije una burrada :/ , posiblemente el error este en formulario "principal" (no habia visto el DO FORM antes xDD), podemos usar el depurador de visual fox para saber exactamente que esta pasando, yo estoy casi seguro que error esta en el formulario