FiveTech Support Forums

#include "credicom.ch"

STATIC nServer

/*-------------------------------------------------------------------------------------------------*/

FUNCTION Conectar()
   LOCAL lConectado  := FALSE
   LOCAL hArchivoIni := NIL
   LOCAL cError      := ""
   LOCAL cServidor   := ""
   LOCAL nServidor   := 0
   LOCAL bConectar   := {|| lConectado := AdsConnect60( cServidor, nServidor, "EmpresaUser", "EmpresaPassword@", NIL , @hConexion ) }
   LOCAL bAbrir      := {|| lConectado := Conectar_AbrirTablas() }

   hArchivoIni := HB_ReadIni( Lower( ".\EMPRESA.INI" ) )

   IF HB_IsNil( hArchivoIni )
      MsgStop( "No se pudo leer el archivo de configuración EMPRESA.INI, contacte al desarrollador del programa." )
      RETURN lConectado
   ELSE
      TRY
         nConexion := Val( hArchivoIni[ "DATOS", "Tipo" ] )
      CATCH
         nConexion := 0
      END
      DO CASE
      CASE nConexion==1
         nServidor := ADS_LOCAL_SERVER
         cServidor := hArchivoIni[ "DATOS", "Conexion1" ]
      CASE nConexion==2
         nServidor := ADS_REMOTE_SERVER
         cServidor := hArchivoIni[ "DATOS", "Conexion2" ]
      CASE nConexion==3
         nServidor := ADS_AIS_SERVER
         cServidor := hArchivoIni[ "DATOS", "Conexion3" ]
      OTHERWISE
         MsgStop( "El archivo de conexión esta corrupto, contacte al desarrollador del programa." )
         RETURN lConectado
      ENDCASE
   ENDIF

   IF !Empty( cServidor )
      MsgRun( "Conectando con el servidor de datos, espere un momento.", "EMPRESA", bConectar )
      IF !lConectado
         AdsGetLastError( @cError )
         MsgStop( "No se ha podido realizar la conexión al servidor de datos: " + FINL + cError + FINL + cServidor )
      ELSE
         oSesion:cPC_Servidor := RTrim( cServidor )
         MsgRun( "Abriendo tablas de datos, espere un momento", "EMPRESA", bAbrir )
      ENDIF
   ELSE
      MsgStop( "El archivo de conexión esta corrupto, contacte al desarrollador del programa." )
   ENDIF

RETURN lConectado

/*-------------------------------------------------------------------------------------------------*/

FUNCTION Conectar_AbrirTablas()
   LOCAL lTablasAbiertas := TRUE
   LOCAL oError

   TRY
      Conectar_AbrirTabla( "CONTROL",          "CTRL" )
      ...
      Conectar_AbrirTabla( "EMPLEADOS",       "CEMP" )
      ...
      DBSelectArea( 0 )

   CATCH oError
      lTablasAbiertas := FALSE
      ShowError( oError )
   END

RETURN lTablasAbiertas

/*-------------------------------------------------------------------------------------------------*/

PROCEDURE Conectar_AbrirTabla( cTabla, cAlias )

   USE ( cTabla ) NEW ALIAS ( cAlias ) SHARED

   IF nServer == ADS_AIS_SERVER
      AdsCacheRecords( 100 )
      SysRefresh()
      CursorWait()
   ENDIF

RETURN