como migrar de codigo dbase a otro ¿? clipper u otro ?

[mainau]

Buenas tardes , a ver si me dejo de dar cabezazos,, bien el problema es el siguiente :

Tengo un cliente con una aplicacion hecha en dbase compilado y necesita que funcione en red, e intentado ir leyendo la aplicación (tiene los fuentes) y cambiar las llamadas a bases exclusivas y cuando son a varias ponerlas en shared pero no confio ni un poquito y ademas cada vez que empieza a cargar cualquier modulo me indica que necesita exclusividad total que yo queria pasarla a delphi pero no tengo tiempo suficiente y necesitaria alguna pocion magica para que el puñetero programa funcionara o mejor dicho soportara que lo llamaran desde varios ordenadores pero de distintos modulos por lo menos asi podrian meter los datos y medio funcionar hasta yo tener terminado la aplicacion que lo sustituya .

Si se os ocurre algo , lo que sea , contadmelo seré todo oidos , un abrazo juan.

gracias.

[marcoszorrilla]

En Clipper te pongo un ejemplo:

FUNCTION ABREFICH(nModo)
IF nModo == 1
DbUseArea(.T.,,cCamino+cFichero,cAlias,.T.)
ELSE
DbUseArea(.T.,,cCamino+cFichero,cAlias,.F.)
IF NETERR()
lPacked:=.F.
ELSE
lPacked:=.T.
END
END
RETURN(nil)


Un Saludo.

[marcoszorrilla]

Otro ejemplo para hacer un bloqueo:

WHILE !PRIXGEN->(EOF())
nValor:=(++nCon)*100/nUltimo
IF nValor < 2
nValor:=2
END
GAUGE(nValor)


WHILE !PRIXGEN->(RLOCK())
END

PRIXGEN->NUEVOPREC:=0
PRIXGEN->MRGFUTURO:=0
PRIXGEN->(DbUnLock())
PRIXGEN->(DbSkip())
END

Un Saludo.

[marcoszorrilla]

Estoy consultando un viejo libro de Dbase IV y te recomiendo busques ayuda sobre las funciones:

Flock()
LkSys()
Lock()
RLock()
Set Lock
UnLock
Set Exclusive
Use

Un Saludo.