Buen dia---
Ocurre en equipos locales y tambien en redes ( terminal server o unidad compartida)
russimicro wrote:IF !lUsaTab(cPatLoc+"\",FilePag,'TEM',{},.F.,NIL,"DBFCDX")
MYMEN("Error grave. No fue posible abrir archivo : "+FilePag )
RETURN
ENDIF
SELECT TEM
TEM->( DBGOTOP() ) // hay casos como este... después de una apertura y del mismo select reporta tabla cerrada
IF FILE( PathPag+cNomTab ) // SIEMPRE SERAN DBF'S
cDriVer := "DBFCDX" // PARAMETRO DE LA FUNCION
DBUSEAREA(.T.,cDriVer,cPatTab+cNomTab,cAliTab,lShared,lReaOnl)
IF ( cDriVer == "DBFCDX" .OR. cDriVer == "ADS" ) .AND. !EMPTY(cPatTab)
cNomArc := ALLTRIM(SUBS(cNomTab,1,8))+'.CDX'
IF FILE(cPatTab+cNomArc)
IF SELECT (cAliTab) <> 0
SELECT (cAliTab) // POR SI LA TABLA TIENE INDIXE Y NO SE ABRIO
(cAliTab)->( DBSETORDER(1) )
ENDIF
ENDIF
ENDIF
// YA EN LA LOGICA LO CAMBIO SEGUN NECESIDAD : (cAliTab)->( DBSETORDER(X) )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 35 guests