FoxPro/Visual FoxPro - Grabar datos en red en VFP9

**Si aun no has encontrado una solución esto te puede servir para que no se repita los numero generados automaticamente al grabar en dos maquinas al mismo tiempo

**Autoincrementar numeros de tablas

FUNCTION NuevoID(tcAlias)

  LOCAL lcAlias, lnId, lnAreaAnt, lcReprAnt

  lnId = 0

  lnAreaAnt = SELECT()

  lcReprAnt = SET('REPROCESS')

  SET REPROCESS TO AUTOMATIC

  lcAlias = UPPER(ALLTRIM(tcAlias))

  IF NOT USED("Ids")

    USE Ids IN 0

  ENDIF

  SELECT Ids

  IF SEEK(lcAlias, "Ids", "cTabla")

    IF RLOCK()

      REPLACE Ids.nId WITH Ids.nId + 1 IN Ids

      lnID = Ids.nId

      UNLOCK

    ENDIF

  ENDIF

  SELECT (lnAreaAnt)

  SET REPROCESS TO lcReprAnt

  RETURN lnID

ENDFUNC

*!*	Cada vez que necesitemos un nuevo número consecutivo de una tabla, invocamos la función pasando el nombre de la tabla o su alias como parámetro:

*!*	lnNuevoId = NuevoId("Facturas")

*!*	El valor retornado por la función NuevoId() es del tipo Entero. Si por ejemplo el código de cliente de nuestra tabla Clientes es del tipo caracter de 4 y justificado con 0s (ceros) a la izquierda, transformamos el número retornado de la siguiente manera:

*!*	lcCodCli = TRANSFORM(NuevoId("Clientes"), "@L 9999")