From be06878319a8eeae7b82da5129d3a1fc9a972342 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 1 Dec 2023 13:01:38 -0700 Subject: [PATCH] =?UTF-8?q?-=20mejoras,=20propuesta=20de=20juli=C3=A1n,=20?= =?UTF-8?q?SMS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/CatPS.aspx | 29 +++++++++++++++-------------- Ventas/CatPS.aspx.vb | 28 ++++++++++++++++++++-------- Ventas/ProductosServicios.aspx.vb | 18 +++++++++--------- 3 files changed, 44 insertions(+), 31 deletions(-) diff --git a/Ventas/CatPS.aspx b/Ventas/CatPS.aspx index 8477021f0..3caa794c2 100644 --- a/Ventas/CatPS.aspx +++ b/Ventas/CatPS.aspx @@ -84,21 +84,16 @@ - +
  • Nuevo Producto/Servicio -
    • - - - +
  • Personalizar -
    • - - +
  • Exportar productos sin SAT @@ -111,14 +106,20 @@
  • Exporta Excel
    • - -
  • - Excel Personalizado -
    • + + +
  • + Excel Personalizado +
    • +     + + + +
  • Cargar Productos Adicionales
    • - + <%--onclick="AbrirVentana('/Ventas/ProductosServicios.aspx', 700, 400, 'N', 'PS')"--%>     @@ -214,7 +215,7 @@ - + <%-- --%> diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb index 9117583ba..918a08987 100644 --- a/Ventas/CatPS.aspx.vb +++ b/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 <> ''") diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index cef31ed3f..ef22ae7ed 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1038,7 +1038,7 @@ Partial Class ProductosyServicios ChkSeccion.Checked = ObjProductosServicios.AplicaSeccion TxtTiempoCaducidad.Text = ObjProductosServicios.DtResultados.Rows(0)("TiempoCaducidad").ToString() - DivTiempoCaducidad.Visible = ChkCaducidad.Checked + HabilitaAplicaCaducidadTiempo() If ObjProductosServicios.AplicaSeccion Then CargaGvSeccionAlmacen() @@ -1436,7 +1436,7 @@ Partial Class ProductosyServicios If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero Dim TiempoCaducidad As Integer = -1 - If ChkCaducidad.Checked Then + If ChkCaducidad.Checked AndAlso DivTiempoCaducidad.Visible Then If TxtTiempoCaducidad.Text.Length > 0 AndAlso IsNumeric(TxtTiempoCaducidad.Text) Then TiempoCaducidad = TxtTiempoCaducidad.Text.ToEntero() Else @@ -1444,13 +1444,9 @@ Partial Class ProductosyServicios Exit Sub End If End If - - If TxtFechaVigenciaRSCO.Text = "" Then TxtFechaVigenciaRSCO.Text = "01/01/1900" End If - - If CvePS = -1 Then Dim PSS As String = TxtPS.Text.Trim.Replace("|", "") If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper @@ -3054,9 +3050,13 @@ Partial Class ProductosyServicios End Function Protected Sub ChkCaducidad_CheckedChanged(sender As Object, e As EventArgs) - Dim Activar As Boolean = ChkCaducidad.Checked - DivTiempoCaducidad.Visible = Activar - RfvTxtTiempoCaducidad.Enabled = Activar + HabilitaAplicaCaducidadTiempo() + End Sub + Private Sub HabilitaAplicaCaducidadTiempo() + If UsuarioActual.CveEmpresa.Contiene(119, 158) Then + DivTiempoCaducidad.Visible = ChkCaducidad.Checked + RfvTxtTiempoCaducidad.Enabled = ChkCaducidad.Checked + End If End Sub Private Function GuardarProductoEnFranquicia(ObjPS As ClsProductosServicios, PSS As String, CveMetodoInv As Integer, EsPaquete As Integer, Agregar As Boolean) As Boolean