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