- mejoras, propuesta de julián, SMS

Ventas/CatPS.aspx.vb

@@ -3,6 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
+Imports GemBox.Spreadsheet
 
 Partial Class CatPS
     Inherits ClsPaginas
@@ -54,7 +55,7 @@ Partial Class CatPS
     End Sub
 
     Public Sub CargaClasificaciones()
-        Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (UsoClasificacion = {0} OR {0} = -1)", DdlTipoClasificacion.SelectedValue.ToEntero))
+        Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (UsoClasificacion = {0} OR {0} = -1)", DdlTipoClasificacion.SelectedValue))
         Ddlclasificacion.DataBind()
         Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
@@ -125,9 +126,22 @@ Partial Class CatPS
         GvDatos.Columns(15).Visible = ChkCompuesto.Checked
         GvDatos.Columns(16).Visible = ChkRSCO.Checked
 
+        If ChkAplicaVenta.Checked OrElse
+                ChkProductosServiciosSAT.Checked OrElse
+                ChkAplicaVenta.Checked OrElse
+                ChkClasificacion2.Checked OrElse
+                ChkMarca.Checked OrElse
+                ChkVentaMinima.Checked OrElse
+                ChkCodigoBarras.Checked OrElse
+                ChkCompuesto.Checked OrElse
+                ChkRSCO.Checked Then
+            LBExcelPersonalizado.Visible = True
+        End If
+
         CargaDatos()
         OrdenaDatos()
         UPDatos.Update()
+        UppExcelPers.Update()
     End Sub
 #End Region
 
@@ -253,7 +267,7 @@ Partial Class CatPS
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
-        Dim lista = New List(Of CrystalParametro)
+        Dim lista As New List(Of CrystalParametro)
         lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
         lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario))
         lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString))
@@ -275,8 +289,6 @@ Partial Class CatPS
         End If
 
 
-
-
     End Sub
 
     Protected Sub LBExcelPersonalizado_Click(Sender As Object, e As EventArgs) Handles LBExcelPersonalizado.Click
@@ -334,7 +346,7 @@ Partial Class CatPS
 
         GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New GemBox.Spreadsheet.ExcelFile()
-        Dim worksheet = workbook.Worksheets.Add("Productos")
+        Dim worksheet As ExcelWorksheet = workbook.Worksheets.Add("Productos")
         Dim DtExcel As New DataTable
         DtExcel.Columns.Add("CodigoProducto", GetType(String))
         DtExcel.Columns.Add("CodigoProductoAdicional", GetType(String))
@@ -347,8 +359,8 @@ Partial Class CatPS
                     .StartColumn = 0
                 })
 
-        Dim columnCount = worksheet.CalculateMaxUsedColumns()
-        For i = 0 To columnCount
+        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
         workbook.Save(Response, $"CargaProductos.xlsx", GemBox.Spreadsheet.SaveOptions.XlsxDefault)
@@ -370,7 +382,7 @@ Partial Class CatPS
 
     Private Sub CargaArchivoPSAdicional(Ruta As String, FileName As String, Tipo As String)
         Dim dt As New DataTable
-        Dim ErrorArchivo = False
+        Dim ErrorArchivo As Boolean = False
         Dim ErrorExcel As Boolean = False
 
         dt = ReadExcelFile(Ruta + FileName, True, 0).FiltraParametros("CodigoProducto <> ''")