Yo pude hacerlo, pero en mi caso, cada paquete tiene identificación individual, así se puede saber cuáles ingresan o egresan, estos se comparan con los inventariados.
Bendiciones.
Carlos Alfaro
Lo encontré hace rato en portalfox.
Algunas veces en las aplicaciones multiusuario se requiere limpiar o modificar ciertas tablas (dbf) en tiempo de ejecución.}
El problema es como determinar si esta tabla esta siendo ocupada por algún usuario en otra estación en ese momento???...
ya que para realizar estas operaciones es necesario tomar en forma exclusiva estos archivos. Aqui les entrego una función muy
sencilla y para determinar si el archivo esta siendo utilizado o no. Ojala les sirva !!! Saludos
*********************************************************************
* FUNCION : Determinar si una tabla esta en uso
* PARAMETROS : Nombre Archivo (expresion caracter)
* Ej1: "x:tablastabla1.dbf"
* Ej2: "tabla1.dbf"
* VALORES DEVUELTOS : 0 = El archivo no esta en uso
* 1 = El archivo esta en uso
* 2 = ERROR
* AUTOR : romovi
*********************************************************************
Parameters cArchivo
Store 0 to ValRet
SetTalk = Set("Talk")
Set Talk Off
IF TYPE("cArchivo")#"C"
Wait wind "Parametro mal definido"
ValRet = 2
ELSE
IF !FILE(cArchivo)
Wait wind "El archivo indicado no existe!!!"
ValRet = 2
ENDIF
ENDIF
IF ValRet=0
idFile = fopen(cArchivo,12)
=fclose(idFile)
ValRet = Iif(idFile<>-1,0,1)
ENDIF
SET TALK &SetTalk
Return ValRet


