
Error la variable no exite 'cuenta'
Publicado por Juan Carlos (11 intervenciones) el 01/06/2007 16:49:58
SAludos Amigos de la Web del programador:
Yo estoy iniciando en esto de la programacion, o almenos conozo por lo menos como hacer las tablas y diseño de forms..
ahora bien el caso es que me han dando un sistema, el cual contine un proces para importar datos a las tablas del sistemas..
El proceso lo detallo a continuacion
1. Se modifica un archivo de excel de acuerdo a la tabla donde se exportaran de excel a VFP
2. Se colocan los campos asi como debe tenerlos las tablas (NCTADE, honorarios, saltot, cobrar..
3. Se guardad como archivo de VFP en una carpeta llamada export\cargas
4. Ahora bien se abri el sistemas y se ingresa con un usuario.
5. en el menu se elije cargas y luego actualizacion de saldos.
6. se da clic y al hacer esto muestra el mensaje
La variable no se encuentra 'cuenta'
7. Como soy nuevo envio a ustedes el codigo del boton para que me digan como puedo corregir el problema..
Nota:
-Los datos se exportar de la tabla saldos.dbf a la tabla aval.dbf.
-Ahora bien tambien aqui les dejo el cogido ya que yo soy nuevo en estoy y estoy a prendiendo.. hacedme el favor de ayudarme..
- Cabe decir que en todos los demas botones las cargas me funcionan solo en este no me funciona.
-Importante este sistema lo ha hecho otra persona como repito estoy a prendiendomelo..
- Toda informacion es confidencial y si deseas comunicarte con migo usa el msn [email protected] si permaneces conectado de 8 a 5 hora de el salvador..
CODIGO BOTON CARGAR SALDOS
Objeto: Image4
Procedimiento: Init
Codigo:
USE F:\Export\cargas\SALDOS IN 17 SHARED
Objeto: Image4
Procedimiento: Click
Codigo:
IF MESSAGEBOX("Está Seguro de Actualizar los Saldos?",4+ 32 + 256,"PREGUNTA")= 6
THISFORM.Cmenu2.Image5.Enabled = .F.
SELECT 17
SET ORDER TO cuenta
go top
******
SELECT 17
COUNT TO nsaldo
index on nctade to 1
go top
do while !eof()
tnctade=nctade
tsaltot=saltot
thonorarios=honorarios
tcobrar=cobrar
******
sele aval
seek tnctade
if found()
replace saltot with tsaltot
replace honorarios with thonorarios
replace cobrar with tcobrar
endif
sele 17
skip
ENDDO
MESSAGEBOX([¡SALDOS ACTUALIZADOS!],0+16+0,"AVISO")
thisform.cmenu3.tsaldos.Value=nsaldo
ENDIF
Saludos.
Juan Carlos Ramos
Yo estoy iniciando en esto de la programacion, o almenos conozo por lo menos como hacer las tablas y diseño de forms..
ahora bien el caso es que me han dando un sistema, el cual contine un proces para importar datos a las tablas del sistemas..
El proceso lo detallo a continuacion
1. Se modifica un archivo de excel de acuerdo a la tabla donde se exportaran de excel a VFP
2. Se colocan los campos asi como debe tenerlos las tablas (NCTADE, honorarios, saltot, cobrar..
3. Se guardad como archivo de VFP en una carpeta llamada export\cargas
4. Ahora bien se abri el sistemas y se ingresa con un usuario.
5. en el menu se elije cargas y luego actualizacion de saldos.
6. se da clic y al hacer esto muestra el mensaje
La variable no se encuentra 'cuenta'
7. Como soy nuevo envio a ustedes el codigo del boton para que me digan como puedo corregir el problema..
Nota:
-Los datos se exportar de la tabla saldos.dbf a la tabla aval.dbf.
-Ahora bien tambien aqui les dejo el cogido ya que yo soy nuevo en estoy y estoy a prendiendo.. hacedme el favor de ayudarme..
- Cabe decir que en todos los demas botones las cargas me funcionan solo en este no me funciona.
-Importante este sistema lo ha hecho otra persona como repito estoy a prendiendomelo..
- Toda informacion es confidencial y si deseas comunicarte con migo usa el msn [email protected] si permaneces conectado de 8 a 5 hora de el salvador..
CODIGO BOTON CARGAR SALDOS
Objeto: Image4
Procedimiento: Init
Codigo:
USE F:\Export\cargas\SALDOS IN 17 SHARED
Objeto: Image4
Procedimiento: Click
Codigo:
IF MESSAGEBOX("Está Seguro de Actualizar los Saldos?",4+ 32 + 256,"PREGUNTA")= 6
THISFORM.Cmenu2.Image5.Enabled = .F.
SELECT 17
SET ORDER TO cuenta
go top
******
SELECT 17
COUNT TO nsaldo
index on nctade to 1
go top
do while !eof()
tnctade=nctade
tsaltot=saltot
thonorarios=honorarios
tcobrar=cobrar
******
sele aval
seek tnctade
if found()
replace saltot with tsaltot
replace honorarios with thonorarios
replace cobrar with tcobrar
endif
sele 17
skip
ENDDO
MESSAGEBOX([¡SALDOS ACTUALIZADOS!],0+16+0,"AVISO")
thisform.cmenu3.tsaldos.Value=nsaldo
ENDIF
Saludos.
Juan Carlos Ramos
Valora esta pregunta


0