Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Actualizacion de datos en tabla

22/04/2006 - 03:48 por Lancelot | Informe spam
Ayuda Hacer una pregunta
Saludos, tengo un problema con una actualizacion a una tabla con el dato
de una fecha que se almacena en un una un campo de otro formulario, el
codigo que estoy utlizando es un for y un if y un skip 1 dentro de esto el
codigo para utilizar un replace con lo que tengo en el formulario , pero
me genera un error que se ha llegado al final de los registros y detiene
el aplicativo, y cuando le oprimo cancel cierra la aplicacion




PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Alex Feldstein
22/04/2006 - 04:07 | Informe spam
On Fri, 21 Apr 2006 18:48:16 -0700, "Lancelot"
wrote:

Saludos, tengo un problema con una actualizacion a una tabla con el dato
de una fecha que se almacena en un una un campo de otro formulario, el
codigo que estoy utlizando es un for y un if y un skip 1 dentro de esto el
codigo para utilizar un replace con lo que tengo en el formulario , pero
me genera un error que se ha llegado al final de los registros y detiene
el aplicativo, y cuando le oprimo cancel cierra la aplicacion




Es mas facil explicar dando un ejemplo del codigo.
Aparentemente estas pasando de EOF. Para evitarlo antes de hacer SKIP
revisa EOF()



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net
Respuesta Responder a este mensaje
#2 Luis María Guayán
22/04/2006 - 04:59 | Informe spam
Mejor que utilices un SCAN ... ENDSCAN

Y aun mas eficiente un UPDATE MiTabla SET Campo = ldFecha WHERE MiCondicion


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos



"Lancelot" escribió en el mensaje
news:
Saludos, tengo un problema con una actualizacion a una tabla con el dato
de una fecha que se almacena en un una un campo de otro formulario, el
codigo que estoy utlizando es un for y un if y un skip 1 dentro de esto el
codigo para utilizar un replace con lo que tengo en el formulario , pero
me genera un error que se ha llegado al final de los registros y detiene
el aplicativo, y cuando le oprimo cancel cierra la aplicacion




PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
Respuesta Responder a este mensaje
#3 Lancelot
22/04/2006 - 23:40 | Informe spam
gracias por su colaboracion, pero este es el codigo que estoy tratando de
implementar en el un formulario

SET EXCLUSIVE ON
SET SAFETY OFF
*CLOSE TABLES all
IF EMPTY(THISFORM.text1.VALUE)
WAIT WINDOW "No ha ingesado la fecha real;
del archivo que esta procesando!!!!!!"
RETURN
ENDIF
*******************************************************
USE
If !Used('\\pcb-003490\CONTROL\DATA\DAT1')
Use \\pcb-003490\CONTROL\DATA\DAT1 In 0 Alias DAT1
ENDIF
Select DAT1

*!* GO top
*!* FOR i=0 TO RECCOUNT( )-1
*!* If empty(fechafile) then
*!*
*!* replace ALL dat1.fechafile WITH thisform.text1.Value
*!* SKIP 1
*!* ELSE
*!* SKIP 1
*!* ENDIF
*!* SKIP 1
*!* endfor

go top
IF dat1.fechafile = null then
replace ALL dat1.fechafile WITH thisform.text1.Value
endif
thisform.Refresh
wait window "Tabla Dat1 Actualizada"
USE
If !Used('\\pcb-003490\CONTROL\DATA\err1')
Use \\pcb-003490\CONTROL\DATA\err1 In 0 Alias err1
ENDIF
Select err1


GO top
* FOR i=0 TO RECCOUNT( )-1
* If empty(fechafile) then
IF err1.fechafile = null then
replace ALL err1.fechafile WITH (m.fecha_file)
*!* SKIP 1
*!* ELSE
*!* SKIP 1
ENDIF
*!*
*!* SKIP 1
*!* endfor

thisform.Refresh
wait window "Tabla err1 Actualizada"

wait window "Proceso de Actualizacion de Fechas Finalizado" AT 25,70 time
3

* CLOSE TABLES all
SET SAFETY ON



gracias por su colaboracion y paciencia

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
Respuesta Responder a este mensaje
#4 Lancelot
22/04/2006 - 23:43 | Informe spam
este es el codigo que estoy tratnado de implemtar pero no se que pasa o en
donde tengo el error

SET EXCLUSIVE ON
SET SAFETY OFF
*CLOSE TABLES all
IF EMPTY(THISFORM.text1.VALUE)
WAIT WINDOW "No ha ingesado la fecha real;
del archivo que esta procesando!!!!!!"
RETURN
ENDIF
*******************************************************
USE
If !Used('\\pcb-003490\CONTROL\DATA\DAT1')
Use \\pcb-003490\CONTROL\DATA\DAT1 In 0 Alias DAT1
ENDIF
Select DAT1

*!* GO top
*!* FOR i=0 TO RECCOUNT( )-1
*!* If empty(fechafile) then
*!*
*!* replace ALL dat1.fechafile WITH thisform.text1.Value
*!* SKIP 1
*!* ELSE
*!* SKIP 1
*!* ENDIF
*!* SKIP 1
*!* endfor

go top
IF dat1.fechafile = null then
replace ALL dat1.fechafile WITH thisform.text1.Value
endif
thisform.Refresh
wait window "Tabla Dat1 Actualizada"
USE
If !Used('\\pcb-003490\CONTROL\DATA\err1')
Use \\pcb-003490\CONTROL\DATA\err1 In 0 Alias err1
ENDIF
Select err1


GO top
* FOR i=0 TO RECCOUNT( )-1
* If empty(fechafile) then
IF err1.fechafile = null then
replace ALL err1.fechafile WITH (m.fecha_file)
*!* SKIP 1
*!* ELSE
*!* SKIP 1
ENDIF
*!*
*!* SKIP 1
*!* endfor

thisform.Refresh
wait window "Tabla err1 Actualizada"

wait window "Proceso de Actualizacion de Fechas Finalizado" AT 25,70 time
3

* CLOSE TABLES all
SET SAFETY ON




muchas gracias por su colaboracion

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
Respuesta Responder a este mensaje
#5 Luis María Guayán
23/04/2006 - 00:30 | Informe spam
Mira bien tu código, haces un

REPLACE ALL en cada ciclo y eso esta mal


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Lancelot" escribió en el mensaje
news:etEa%
este es el codigo que estoy tratnado de implemtar pero no se que pasa o en
donde tengo el error

SET EXCLUSIVE ON
SET SAFETY OFF
*CLOSE TABLES all
IF EMPTY(THISFORM.text1.VALUE)
WAIT WINDOW "No ha ingesado la fecha real;
del archivo que esta procesando!!!!!!"
RETURN
ENDIF
*******************************************************
USE
If !Used('\\pcb-003490\CONTROL\DATA\DAT1')
Use \\pcb-003490\CONTROL\DATA\DAT1 In 0 Alias DAT1
ENDIF
Select DAT1

*!* GO top
*!* FOR i=0 TO RECCOUNT( )-1
*!* If empty(fechafile) then
*!*
*!* replace ALL dat1.fechafile WITH thisform.text1.Value
*!* SKIP 1
*!* ELSE
*!* SKIP 1
*!* ENDIF
*!* SKIP 1
*!* endfor

go top
IF dat1.fechafile = null then
replace ALL dat1.fechafile WITH thisform.text1.Value
endif
thisform.Refresh
wait window "Tabla Dat1 Actualizada"
USE
If !Used('\\pcb-003490\CONTROL\DATA\err1')
Use \\pcb-003490\CONTROL\DATA\err1 In 0 Alias err1
ENDIF
Select err1


GO top
* FOR i=0 TO RECCOUNT( )-1
* If empty(fechafile) then
IF err1.fechafile = null then
replace ALL err1.fechafile WITH (m.fecha_file)
*!* SKIP 1
*!* ELSE
*!* SKIP 1
ENDIF
*!*
*!* SKIP 1
*!* endfor

thisform.Refresh
wait window "Tabla err1 Actualizada"

wait window "Proceso de Actualizacion de Fechas Finalizado" AT 25,70 time
3

* CLOSE TABLES all
SET SAFETY ON




muchas gracias por su colaboracion


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida