--Sincronizar cambios con productivo 11/02/2025

Ventas/RepVentas.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Imports System.Xml
+Imports GemBox.Spreadsheet
 
 Partial Class Ventas_RepVentas
     Inherits ClsPaginas
@@ -110,6 +111,16 @@ Partial Class Ventas_RepVentas
                 Opcion = "-1"
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.TienePermisoProceso(386) Then
+                LiSabana.Visible = True
+
+                DdlProveedores.setEsWebService(True)
+                DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+                DdlProveedores.SelectedText = "Todos"
+                DdlProveedores.SelectedValue = "-1"
+
+            End If
+
             If UsuarioActual.CveEmpresa = 72 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1614, 1517) Then
                 liRepHP.Visible = True
             End If
@@ -242,7 +253,10 @@ Partial Class Ventas_RepVentas
         DdlTipoRelacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
         txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
-        txtFechaF.Text = NowADS().ToShortDateString
+        txtFechaF.Text = NowADS().ToShortDateString
+
+        TxtFechaISabana.Text = NowADS().FirstDayOfMonth.ToShortDateString
+        TxtFechaFSabana.Text = NowADS().ToShortDateString
 
     End Sub
 
@@ -1101,4 +1115,52 @@ Partial Class Ventas_RepVentas
 
     End Sub
 
+
+    Protected Sub BtnGenerarSabana_Click(sender As Object, e As EventArgs)
+        Dim DtExcel As DataTable = Nothing
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetSabanaE189(UsuarioActual.CveEmpresa, TxtFechaISabana.Text.ToDate(), TxtFechaFSabana.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), TxtCodI.Text.Trim(), TxtCodF.Text.Trim()) Then
+            DtExcel = ObjVentas.DtResultados.Copy()
+        End If
+        ObjVentas.Dispose()
+
+        If DtExcel IsNot Nothing Then
+
+            'DtExcel.Columns("Codigo").ColumnName = "Código"
+            'DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
+            'DtExcel.Columns("NumeroParte").ColumnName = "Número de parte"
+
+            'If UsuarioActual.Empresa.Funcionalidad(578) = "1" Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '
+            '    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            '        DtExcel.Columns("Número de parte").ColumnName = "Código CPK"
+            '    End If
+            'Else
+            '    DtExcel.Columns.Remove("Número de parte")
+            'End If
+
+            DtExcel.TableName = "Sabana"
+
+            SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+            Dim FileExcel As New ExcelFile()
+
+            Dim worksheet As ExcelWorksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+            worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+                {
+                    .ColumnHeaders = True,
+                    .StartRow = 0,
+                    .StartColumn = 0
+                })
+            worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
+            worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
+
+            Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
+            For i As Integer = 0 To columnCount
+                worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+            Next
+
+            FileExcel.Save(Response, "Sabana.xlsx", SaveOptions.XlsxDefault)
+
+        End If
+    End Sub
 End Class