Error al utilizar SKIP
euronv
SKIP
"otras lineas de código"
SKIP -1
Jorge Bernardo Morales Hernandez
De esa manera aunque le de la veces que quiera al botón y sea el último registro, le enviará al final del cursor / tabla.
Euro Nava
Hola Jorge aplique tu sugerencia pero el error persiste L
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
Ariel Octavio D'Alfeo
Patricio Muñoz
Antonio Meza
Select tablaNombre
IF EOF()
Go Bottom
ELSE
SKIP
ENDIF
saludos
El martes, 28 de noviembre de 2017, 13:05:35 (UTC-6), euronv escribió:
Euro Nava
Gracias Ariel tu sugerencia fue acertada!!!
Gracias amigos por responder a mi SOS ja ja ja
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Ariel Octavio D'Alfeo
Enviado el: martes, 28 de noviembre de 2017 03:52 p.m.
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Re: Error al utilizar SKIP
Yo tenia el mismo problema. Lo solucione asi:
IF RECCOUNT()>0
SKIP 1
IF EOF()
SKIP-1
ENDIF
ENDIF
El 28 de noviembre de 2017, 16:48, Euro Nava <eur...@gmail.com> escribió:
Hola Jorge aplique tu sugerencia pero el error persiste L
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jorge Bernardo Morales Hernandez
Enviado el: martes, 28 de noviembre de 2017 03:22 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: Error al utilizar SKIP
Yo te sugeriría:
Skip
If Eof()
Go Bottom
EndIf
De esa manera aunque le de la veces que quiera al botón y sea el último registro, le enviará al final del cursor / tabla.
El martes, 28 de noviembre de 2017, 13:05:35 (UTC-6), euronv escribió:
Hola amigos, estoy utilizando SKIP y SKIP -1 para navegar entre registros dentro de un cursor, en ambos casos valido EOF() y BOF() según el caso antes de ejecutar el SKIP, con SKIP -1 al llegar al primer registro el avance se detiene como lo tengo previsto, pero en el caso del SKIP al llegar al ultimo registro continua avanzando al pulsar nuevamente clic y arroja el error de "registro fuera de intervalo", el código en cuestión es este:
IF NOT EOF()
SKIP
"otras lineas de código"
ELSE
SKIP -1
ENDIF
Agradezco la asistencia que puedan brindarme
Saludos
Ariel Octavio D'Alfeo
Alexander Marquéz
Alexander Marquéz
Carlos Miguel FARIAS
Fidel Charny
Si la tabla está indexada, el número de registro puede ser distinto del orden en que aparecen los registros.
Si hay registros marcados para borrar y SET DELETED ON, Reccount() dará un valor mayor a la cantidad de registros accesibles, porque devuelve la totalidad de registros de la tabla.
Volviendo al tema, si el puntero está en un registro, preguntar si es EOF() resulta inútil.
En cambio, al seleccionar una tabla o cursor, la consulta tiene sentido.
Uso esta función (por comodidad) para saber el número de registros no borrados (y evitar que se mueva el puntero de registro)
PROCEDURE get_Reccount
*!* ---------------------------------
*!* Cuenta los registros no borrados
*!* de una tabla o cursor
*!* ---------------------------------
LPARAMETERS tcCursor
TRY
LOCAL lnRecords,loex as Exception
LOCAL ARRAY laCnt(1)
lnRecords = 0
SELECT CNT(*) ;
FROM (m.tcCursor) ;
WHERE !DELETED() ;
INTO ARRAY laCnt
IF _tally > 0
lnRecords = laCnt[1,1]
ENDIF
CATCH TO loex
loex.UserValue = PROGRAM()
ShowError(loex)
FINALLY
ENDTRY
RETURN m.lnRecords
ENDPROC
mapner
Martín E. Lezama
En esos casos yo tengo en mis forms dos propiedades, a las que acudo.
ThisForm.primerregistro = 0
ThisForm.ultimoregistro = 0
Cuando entro a la tabla y posiciono el índice, hago un GO TOP y le pongo el número de registro en el que está parado a la propiedad ThisForm.primerregistro. Y con GO BOTTOM hago lo mismo con la propiedad ThisForm.ultimoregistro.
Una vez que tengo esas dos propiedades con los valores correctos, hago que los botones desplazadores se habiliten o inhabiliten de acuerdo a dónde estoy parado en la tabla.
Un ejemplo, supongamos que yo tengo 32 registros en la tabla de clientes. Lo tengo ordenado por razón social. Supongamos que el primer registro en ese orden es el 15 y el último registro, el 12.
ThisForm.primerregistro = 15
ThisForm.ultimoregistro = 12
Yo tengo cuatro botones de desplazamiento, que son:
Primer registro
Registro anterior
Registro siguiente
Último registro
Entonces, cuando mi tabla esté parada en el registro 15, los botones Primer registro y Registro anterior van a estar deshabilitados. Y cuando mi tabla esté parada en el registro 12, Registro siguiente y Último registro se deshabilitan. En cambio, cuando estoy en cualquier otro registro, todos los botones están prendidos.
Obviamente, en tablas que tengo más de un índice y en donde permito al usuario cambiar el índice activo, una vez que lo cambian vuelvo a averiguar cuál es el primer registro de ese índice, cuál el último y regenero las dos propiedades.