FiveTech Software tech support forums

Hola, resolviste tu problema?

Hola

Ya lei todo y si es todo un caso para la araña

ya pudiste encontrar la respuesta

Saluditos

jose_murugosa wrote:

Patricio Avalos Aguirre wrote:Jose

El problema esta que abres la bases de datos en READONLY

Code: Select all  Expand view

    IF !AbroDbf( .T., "DBFCDX", "BANCOS", "BANCOS", "i_ban")
        MsgInfo("No fué posible verificar cuenta" + CRLF + "Base de datos no disponible")
        RETURN .F.
    ENDIF
 

si vez el parametro readonly es nil..

Code: Select all  Expand view

FUNCTION AbroDbf( lNew, cDriver, cNom_dbf, cAlias, uOrden, lShared, lReadOnly )
    LOCAL intentos:=0, Result:=.F.

    IF cDriver=NIL
        cDriver="DBFCDX"
    ENDIF
    IF cAlias=NIL
        cAlias=cNom_dbf
    ENDIF
    IF lReadOnly=NIL
        lReadOnly=.T.
    ENDIF
 

Patricio,
Gracias, había hecho una modificación en esta rutina y al hacerlo cambién por .t. sin darme cuenta.

Gracias!!

Gracias por vuestro interés, si efectivamente fue resuelto gracias a Patricio, es que había modificado la rutina y no me había dado cuenta que cuando no se definía el valor lReadOnly asumía .t. cuando en realidad debía asumir .f., por lo cual la base se abría en solo lectura y por eso daba el error.

IF lReadOnly=NIL
lReadOnly=.T. //aquí debía ser .f.
ENDIF

Gracias Nuevamente por su interés!!!!!!!