Imports System.Data
Imports System.Data.OleDb
Module Access
    Function ReadDataBase() As Boolean
        Cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + SSPath
        Dim conexion As OleDbConnection = New OleDbConnection(Cadena)
        Dim datadap As OleDbDataAdapter
        tablaClientes = New DataTable()
        tablasParaMovimientos = New DataSet()
        Try
            conexion.Open()
            datadap = New OleDbDataAdapter("select S_CLAVE as Equivalencia, S_NOMBRE as Nombre_Completo, S_RFC as RFC, S_CURP as CURP, S_IFE as IFE, S_DOMICILIO_FISCAL AS Domicilio_Fiscal, S_DIRECCION_PARTICULAR as Domicilio_Particular, S_CIUDAD as Ciudad, S_CODIGO_POSTAL as Codigo_Postal, S_FECHA_NACIMIENTO as Fecha_Nacimiento, S_LADA & S_TELEFONO as Telefono, S_LADA & S_TELEFONO_1 as Celular, S_REPRESENTANTE as Representante from SOCIOS", conexion)
            datadap.Fill(tablaClientes)
            datadap = New OleDbDataAdapter("select B.S_Clave as Equivalencia, B.PQ_CONTRATO as num_contrato, (A.CO_IMPORTE + A.CO_INTERES_NORMAL + A.CO_INTERES_MORATORIO + A.CO_OTROS + A.CO_IVA) AS mon_movimiento, A.CO_RECIBO as num_movimiento, '1' as cod_operacion, A.CO_BANCO AS cod_inst_mon,'1' as cod_grupo, A.CO_FECHA_COBRO AS fec_mov,'A-' + CStr(A.CO_RECIBO) as num_movimiento_unico from Cobros A, Prestamo B where A.PQ_CLAVE = B.PQ_CLAVE", conexion)
            datadap.Fill(tablasParaMovimientos.Tables.Add("Cobros"))
            datadap = New OleDbDataAdapter("select B.S_Clave as Equivalencia, B.PQ_CONTRATO as num_contrato, (B.PQ_IMPORTE + B.PQ_OTROS + B.PQ_IVA) AS mon_movimiento, A.CO_RECIBO as num_movimiento, '1' as cod_operacion, A.CO_BANCO AS cod_inst_mon,'1' as cod_grupo, B.PQ_FECHA_OPERACION AS fec_mov,'D-' + CStr(A.CO_RECIBO) as num_movimiento_unico from Cobros A, Prestamo B where A.PQ_CLAVE = B.PQ_CLAVE", conexion)
            datadap.Fill(tablasParaMovimientos.Tables.Add("Prestamo"))
            'datadap = New OleDbDataAdapter("select A.S_Clave as Equivalencia, B.PQ_CONTRATO as num_contrato, (A.I_IMPORTE + A.I_INTERES) AS mon_movimiento, B.CO_RECIBO as num_movimiento, '1' as cod_operacion, B.CO_BANCO AS cod_inst_mon,'1' as cod_grupo, A.I_FECHA_OPERACION AS fec_mov,'P-' + CStr(B.CO_RECIBO) as num_movimiento_unico from Inverson A, Cobro B where A.I_PQ_CLAVE = B.PQ_CLAVE", conexion)
            'datadap.Fill(tablasParaMovimientos.Tables.Add("Inverson"))
            Return True
        Catch ex As Exception
            SendeMail("[InterfaceSFI] Lo sentimos ocurrió un error al intentar leer la información de la base de datos de Access", ex.Message.ToString(), True)
            Return False
        Finally
            conexion.Close()
        End Try
    End Function
End Module