Modo de apertura de indices en V.Foxpro6

05/08/2004 - 18:50 por Hecpok | Informe spam
Hola amigos

Soy novato en Vfox6. Vengo del mundo de clipper. Me gustaria saber como debo
abrir correctamente una tabla con su respectivo indice, pero en ambiente
multiusuario.
Hasta aqui, en mi primer sistema fox, simplemente he colocado :

select 1
use sueldos alias sueldos
set index to tag sueld_rut
select sueldos
- etc

pero al igual que en clipper, hay que tener cuidado con abrir el archivo
indice, sobretodo cuando se agregan registros. Me gustaria pedirles su
opinion, para ver si puedo ocupar la misma rutina, en foxpro, y si no
sirven, saber como podria adaptarlas.

Muchas gracias
HECTOR
Santiago de Chile

Rutinas :

FUNCTION BLOQREG && BLOQUEA REGISTROS
PARA INTENTOS
IF RLOCK()
RETURN .T.
ENDIF
FOR NRO=INTENTOS TO 0 STEP -0.5
IF RLOCK()
RETURN .T.
ENDIF
INKEY(.5)
NEXT NRO
RETURN(.F.)

FUNCTION BLOQARC && BLOQUEA ARCHIVOS
PARA INTENTOS
IF FLOCK()
RETURN .T.
ENDIF
FOR NRO=INTENTOS TO 0 STEP -0.5
IF FLOCK()
RETURN .T.
ENDIF
INKEY(.5)
NEXT NRO
RETURN(.F.)

FUNCTION AGREGAR && CREA NUEVO REGISTRO
PARA INTENTOS
APPEND BLANK
IF !NETERR()
RETURN(.T.)
ENDIF
FOR NRO=INTENTOS TO 0 STEP -0.5
IF !NETERR()
RETURN(.T.)
ENDIF
INKEY(.3)
NEXT NRO
RETURN(.F.)
 

Leer las respuestas

#1 Diego Rodriguez
06/08/2004 - 13:42 | Informe spam
Error, en Fox no necesitás abrir los índices... una gran ventaja, no ?


Hecpok wrote:
Hola amigos

Soy novato en Vfox6. Vengo del mundo de clipper. Me gustaria saber como debo
abrir correctamente una tabla con su respectivo indice, pero en ambiente
multiusuario.
Hasta aqui, en mi primer sistema fox, simplemente he colocado :

select 1
use sueldos alias sueldos
set index to tag sueld_rut
select sueldos
- etc

pero al igual que en clipper, hay que tener cuidado con abrir el archivo
indice, sobretodo cuando se agregan registros. Me gustaria pedirles su
opinion, para ver si puedo ocupar la misma rutina, en foxpro, y si no
sirven, saber como podria adaptarlas.

Muchas gracias
HECTOR
Santiago de Chile

Rutinas :

FUNCTION BLOQREG && BLOQUEA REGISTROS
PARA INTENTOS
IF RLOCK()
RETURN .T.
ENDIF
FOR NRO=INTENTOS TO 0 STEP -0.5
IF RLOCK()
RETURN .T.
ENDIF
INKEY(.5)
NEXT NRO
RETURN(.F.)

FUNCTION BLOQARC && BLOQUEA ARCHIVOS
PARA INTENTOS
IF FLOCK()
RETURN .T.
ENDIF
FOR NRO=INTENTOS TO 0 STEP -0.5
IF FLOCK()
RETURN .T.
ENDIF
INKEY(.5)
NEXT NRO
RETURN(.F.)

FUNCTION AGREGAR && CREA NUEVO REGISTRO
PARA INTENTOS
APPEND BLANK
IF !NETERR()
RETURN(.T.)
ENDIF
FOR NRO=INTENTOS TO 0 STEP -0.5
IF !NETERR()
RETURN(.T.)
ENDIF
INKEY(.3)
NEXT NRO
RETURN(.F.)


Preguntas similares