Compilacion anterior driver:
Linked RDDs
===========
DBF
DBFDBT
DBFNTX
DBFCDX
ADS
Compilacion nueva:
Linked RDDs
===========
ADS
ADT
ADSCDX
ADSNTX
DBF
DBFFPT
DBFBLOB
DBFNTX
DBFCDX
Código Usado al inicio:
- Code: Select all Expand view
RDDREGISTER ( "ADS", 1 )
RDDSETDEFAULT( "ADS" )
SET FILETYPE TO CDX
cr_modo:=AdsConnect(ud)
IF cr_modo
SET SERVER REMOTE
cr_conx:="Cs"
ELSE
SET SERVER LOCAL
cr_conx:="Di"
ENDIF
Codigo para abrir las bases locales y remotas:
- Code: Select all Expand view
//----------------------------------------------------------------------
// FUNCIONES DE RED //
//----------------------------------------------------------------------
FUNCTION abrir_dbf(base)
LOCAL ali:="GR"+c_taba(), cind:=""
IF cr_modo .AND. LEFT(UPPER(base),3)!="GRP"
SET SERVER REMOTE
ELSE
SET SERVER LOCAL
ENDIF
USE (base) ALIAS (ali) NEW SHARED
IF NETERR()
MSGALERT("ERROR BASE: "+base+" OCUPADA POR OTRO USUARIO!!","ATENCION!!")
DO WHILE .T.
USE (base) ALIAS (ali) NEW SHARED
IF NETERR()
MSGALERT("ERROR BASE: "+base+" OCUPADA POR OTRO USUARIO!!","ATENCION!!")
ELSE
EXIT
ENDIF
ENDDO
ENDIF
IF FILE(cind+base+".CDX")
SET INDEX TO (cind+base+".CDX")
ENDIF
DBSELECTAR (ali)
GO TOP
RETURN(ali)
ALGUNA AYUDA POR FAVOR !!
GRACIAS,
SALUDOS,