Clipper/FiveWin - ESCRIBIR DO AL MISMO TIEMPO EN UNA DBF

Hola amigos:
Tengo un programa que va cargando registros en una base de datos en un pc, el mismo programa en red en otro pc en otra base de datos igual pero con otro nombre, cada x tiempo cada una vuelca el contenido en otra general y en un momento puede coincidir que las dos esta volcando registros al mismo tiempo en la general, yo tengo la precaucion de bloquear despues del append blank, y una ves añadidos los registros desbloquear, ¿podria dar problemas?
Gracias

El unico problema puede ser que no abras el mismo indice y que los indices esten creados de manera diferente. De restro no creo que tengas problemas

Saludos

LEANDRO ALFONSO

Si utilizas bien el bloqueo y el desbloqueo, no deberías tener problemas.

Otra alternativa que tienes es usar el FLOCK() o el USE ... EXCLUSIVE para el archivo que pretendes actualizar, de ésta manera mientras se hace un proceso de actualización desde una PC, no te permitirá actualizarlo desde otra pc.

Gracias por contestar:
cada pc tiene un fichero particular1.dbf y particular2.dbf donde se cargan las compras, pero a la hora de emitir el tiquek, cada uno de los ficheros descarga sobre el general.dbf, lo pongo asi:

select 1
use particular1 &&desde el pc1 desde el dos particular2.dbf
wa=a
select 2
use general
append blank
do bloqueo
replace a with wa
unlock
*******
procedure bloqueo
bloquea el registro
return
*******

supongo que asi estara bien ¿no?

Gracias

Antonio:

En principio creo que no debes tener problema con el código, peroooo........ puede ser que tengas un "hoyo" en tu código, a que me refiero ?

Que va a suceder si el PROCEDURE Bloqueo no puede bloquear el registro agregado ?, cómo lo vas a saber ?, que vas a hacer en caso de no poder bloquear el registro ?

Creo que lo más indicado es que en lugar de PROCEDURE uses una FUNCTION
que te devuelva el resultado de si se pudo bloquear el registro o no y como resultado será el camino a seguir.

El Duro

Antonio:
Es verdad lo que plantea El Duro, puede ser que tu APPEND BLANK no se pueda ejecutar y en ese caso tu proceso fallaría.
Otra, si el APPEND BLANK funciona correctamente, no es necesario que bloquees el registro porque al APPEND BLANK ya lo retiene.

Yo usaría algo más o menos así:

IF ALTA_REG(10)
... cargo campos del registro..
else
Mensaje("NO SE PUEDE AGREGAR EL REGISTRO..")
Endif

Function ALTA_REG(nSegundos)
*---------------------------------------------
Local EstaOK:=.F.
DO WHILE .T.
DBAPPEND()
IF !NETERR() // Si no hay error en el APPEND BLANK
EstaOK:=.T.
EXIT // Salgo con .T.
Endif
DO WHILE nSegundos > 0 // Sigo intentando nSegundos
DBAPPEND()
IF !NETERR() // Si no hay error en el APPEND BLANK
EstaOK:=.T.
EXIT // Salgo con .T.
Endif
INKEY(.5) // Espera 1/2 segundo p/volver a intentar
nSegundos -= .5
ENDDO
ENDDO
Return EstaOK

Otra cosa, antes de hacer el unlock, ejecuta un DBcommit(), para forzar a qu ela info se grabe en la tabla.

Gracias a todos por contestar y aclararme con tanto detalle.
gracias de nuevo.