Tambien pasa con DbCommit().
Cuando aplicacion y basedatos estan locales no hay problemas.
Lo raro es que con la version Oct. 2002 de FWH no pasa esto.
Si alguien me puede ayudar, le agradezco de antemano.
Saludos
Gonzalo
Gonzalo,
Que build de FWH 2.7 estás usando ? De qué mes ?
Que RDD estás usando ?
Antonio :
Lo baje de fivetechsoft.com/software/fwh el 6 de Junio de 2006.
Uso CDX
Gonzalo,
Puedes descargar Harbour/xharbour de estos foros. Hay un build más reciente:
Antonio:
Trato de bajar el build de June 28 2006 :
Harbour for Borland:
http://hyperupload.com/download/026ece0 ... r.EXE.html
pero, no esta disponible la pagina.
Se puede bajar de otro sitio?
Gracias
Gonzalo
Gonzalo,
Vuelve a intentarlo por favor. Aquà aparece como disponible.
Function RecLock(nSeconds)
*--------------------------
/* Attempt to RLOCK() with optional retry
RecLock( <nSeconds> ) --> lSuccess
*/
local lforever
DEFAULT nSeconds TO 0
if rlock()
return .t. // LOCKED
endif
nSeconds *= 1.00
lForever := (nSeconds == 0)
DO WHILE (lforever .OR. nSeconds > 0) .AND. LASTKEY() # VK_ESCAPE
MsgAlert(PADC( [Registro tomado por otro usuario : Esperando ] +;
LTRIM(STR(nSeconds,5,1))+[ segundos],81)+CRLF+PADC([<Esc> Termina (No actualiza reg) ], 85) )
IF RLOCK()
RETURN .T. // LOCKED
ENDIF
INKEY(.5) // wait 1/2 SECOND
nSeconds -= .5
enddo
RETURN .F. // NOT LOCKED
// end Function reclock()Noo, me equivoque, sigo con el problema.
Baje el ultimo build de harbour y sigue el error.
Cuando acceso al programa en un disco remoto sucede el error, sin embargo el mismo ejecutable en forma local funciona perfecto.
La basedato la tengo en un PC con Win98 y acceso desde otro PC con XP
Saludos,
Gonzalo
Gonzalo,
Las funciones de "terminal" de Harbour han sido modificadas ultimamente, de ahà que un determinado build de Harbour/xHarbour pueda estar dándote esos problemas.
En principio en una aplicación Windows no debes usar ni LastKey() ni Inkey() (ambas funciones pertenecen a los módulos "terminal" de Harbour/xHarbour).
Nuestro consejo es que modifiques esa función para que no use esas dos funciones. En vez de Inkey() puedes usar SysWait( nSecs ) y LastKey() podrias eliminarla completamente.
Antonio:
Ahora estoy usando directamente RLock() sin pasar por la funcion RECLOCK().
Definitivamente el problema se da cuando la base esta en Win98 y se accesa desde XP. Probe con 2 PC's con XP y no se da el error. Tambien probe teniendo la base en XP y accese desde Win 98 y tampoco se da el error.
Y para estar seguro accese desde un segundo PC c/XP a una base en Win98 y tambien se dio el error.
Saludos
Gonzalo
Sera la unica solucion cambiar los datos a PC con WinXP ??
Gonzalo,
Nosotros podemos facilitarte un build de Harbour más actualizado, pero necesitarás recompilar todos los PRGs tanto de FWH como de tu aplicación.
EnvÃanos un email y te lo proporcionamos.
Antonio Linares wrote:Gonzalo,
Nosotros podemos facilitarte un build de Harbour más actualizado, pero necesitarás recompilar todos los PRGs tanto de FWH como de tu aplicación.
EnvÃanos un email y te lo proporcionamos.
Armando,
No, no usamos un batch. Usamos un make bastante complejo ya que construye FW para cinco compiladores distintos.
En unos dias publicaremos el build de Agosto con todos los nuevos cambios y los builds más recientes de Harbour y xHarbour, que no quisimos publicarlos en Julio porque no estaban totalmente estables.
Antonio Linares wrote:Armando,
No, no usamos un batch. Usamos un make bastante complejo ya que construye FW para cinco compiladores distintos.
En unos dias publicaremos el build de Agosto con todos los nuevos cambios y los builds más recientes de Harbour y xHarbour, que no quisimos publicarlos en Julio porque no estaban totalmente estables.
