excel gembox

App_Code/modExtensiones.vb

@@ -68,6 +68,53 @@ Namespace Extensiones
 #End Region
 
 
+        Public Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
+            GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+            Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath)
+
+            Dim unnamed As Integer = 0
+            Dim cols As Integer
+            Dim columns As String()
+            Dim curRow As Integer = 0
+            Dim curCol As Integer = 0
+            Dim dataTable As DataTable = New DataTable()
+            Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0)
+
+            For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+
+                If firstRowHasHeaders Then
+
+                    If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
+                        dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
+                    Else
+                        dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
+                    End If
+
+                    curRow = 1
+                Else
+                    dataTable.Columns.Add("Column " & (cols + 1))
+                End If
+            Next
+
+            While curRow < worksheet.Rows.Count
+                columns = New String(cols - 1) {}
+
+                For curCol = 0 To cols - 1
+
+                    If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
+                        columns(curCol) = ""
+                    Else
+                        columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
+                    End If
+                Next
+
+                dataTable.Rows.Add(columns)
+                curRow += 1
+            End While
+
+            Return dataTable
+        End Function
+
         Public Function CadenaConexion() As String
             Dim BaseDatos As String = "Ventas"
             'If Not IsNothing(System.Web.HttpContext.Current) AndAlso Not IsNothing(System.Web.HttpContext.Current.Session) Then

OC/OC.aspx.vb

@@ -6110,52 +6110,6 @@ Partial Class OC
         End If
     End Sub
 
-    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
-
-        Dim unnamed As Integer = 0
-        Dim cols As Integer
-        Dim columns As String()
-        Dim curRow As Integer = 0
-        Dim curCol As Integer = 0
-        Dim dataTable As DataTable = New DataTable()
-        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
-
-        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
-
-            If firstRowHasHeaders Then
-
-                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
-                Else
-                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
-                End If
-
-                curRow = 1
-            Else
-                dataTable.Columns.Add("Column " & (cols + 1))
-            End If
-        Next
-
-        While curRow < worksheet.Rows.Count
-            columns = New String(cols - 1) {}
-
-            For curCol = 0 To cols - 1
-
-                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
-                    columns(curCol) = ""
-                Else
-                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
-                End If
-            Next
-
-            dataTable.Rows.Add(columns)
-            curRow += 1
-        End While
-
-        Return dataTable
-    End Function
 
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
 

Ventas/Ventas.aspx.vb

@@ -19451,31 +19451,11 @@ Partial Class Ventas
     Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcelVentas.Click
         DescargarFormato()
     End Sub
-    Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+    Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String, FileUrl As String)
         Dim dt As New DataTable
-        'Dim Conexion As Odbc.OdbcConnection = Nothing
         Dim ErrorArchivo = False
         Dim n As Integer = 0
-        dt = ReadExcelFile(Ruta + FileName, True)
+        dt = ReadExcelFile(FileUrl, True)
-        'Try
-        '    Select Case Tipo
-        '        Case "EXCEL"
-        '            Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
-        '            Conexion.Open()
-        '            Dim cmd = Conexion.CreateCommand()
-        '            cmd.CommandType = CommandType.Text
-        '            cmd.CommandText = "Select * FROM [Hoja1$] WHERE Cantidad >=1"
-        '            Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
-        '            DataAdapter.Fill(dt)
-        '        Case Else
-        '            Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
-        '            Exit Sub
-        '    End Select
-        'Catch ex As Exception
-        '    ErrorArchivo = True
-        '    OnError("Ocurrio un Error al leer el archivo <br/>" & ex.Message, ex)
-        'End Try
-        'Conexion.Close()
         If Not ErrorArchivo Then
             If Not dt.Columns(0).ColumnName = "Cantidad" Then
                 Alert("El nombre de la primera columna debe ser 'Cantidad'.Favor de corregirlo", TipoMensaje.MsgError)
@@ -19676,7 +19656,7 @@ Partial Class Ventas
             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"), "EXCEL", "CSV")
-            CargarArchivo(Directorio, file.filename, Tipo)
+            CargarArchivo(Directorio, file.filename, Tipo, file.FileUrl)
         Else
             Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
         End If
@@ -25447,52 +25427,6 @@ Partial Class Ventas
         CargaEventoBitacora()
     End Sub
 
-    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
-        GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath)
-
-        Dim unnamed As Integer = 0
-        Dim cols As Integer
-        Dim columns As String()
-        Dim curRow As Integer = 0
-        Dim curCol As Integer = 0
-        Dim dataTable As DataTable = New DataTable()
-        Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0)
-
-        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
-
-            If firstRowHasHeaders Then
-
-                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
-                Else
-                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
-                End If
-
-                curRow = 1
-            Else
-                dataTable.Columns.Add("Column " & (cols + 1))
-            End If
-        Next
-
-        While curRow < worksheet.Rows.Count
-            columns = New String(cols - 1) {}
-
-            For curCol = 0 To cols - 1
-
-                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
-                    columns(curCol) = ""
-                Else
-                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
-                End If
-            Next
-
-            dataTable.Rows.Add(columns)
-            curRow += 1
-        End While
-
-        Return dataTable
-    End Function
 
 
 End Class