Contabilidad/RegPoliza.aspx.vb

@@ -1759,7 +1759,7 @@ Partial Class RegPoliza
     End Sub
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
         Dim dt As New DataTable
-        Dim Conexion As Odbc.OdbcConnection = Nothing
+        'Dim Conexion As Odbc.OdbcConnection = Nothing
         Dim ErrorArchivo = False
         Dim n As Integer = 0
         Try
@@ -1772,7 +1772,7 @@ Partial Class RegPoliza
                     'cmd.CommandText = "Select * FROM [Hoja1$]"
                     'Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
                     'DataAdapter.Fill(dt)
-                    dt = Extensiones.ModExtensiones.ReadExcelFile(String.Format("{0}{1}", Ruta, FileName), True)
+                    dt = Extensiones.ModExtensiones.ReadExcelFile(String.Format("{1}", Ruta, FileName), True)
                 Case Else
                     Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
                     Exit Sub
@@ -1781,7 +1781,7 @@ Partial Class RegPoliza
             ErrorArchivo = True
             OnError("Ocurrio un Error al leer el archivo <br/>" & ex.Message, ex)
         End Try
-        Conexion.Close()
+        'Conexion.Close()
         If Not ErrorArchivo Then
             If Not dt.Columns(0).ColumnName = "Referencia" Then
                 Alert("El nombre de la primera columna debe ser 'Referencia'.Favor de corregirlo", TipoMensaje.MsgError)
@@ -1881,7 +1881,7 @@ Partial Class RegPoliza
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
             Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV")
-            CargarArchivo(Directorio, file.filename, Tipo)
+            CargarArchivo(Directorio, file.FileUrl, Tipo)
         Else
             Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
         End If