From 32ef9142e1f0af6eed68b517499ac65133ea1296 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 29 Mar 2025 16:44:23 -0700 Subject: [PATCH 1/3] --Cambios en los tipos de venta --- App_Code/ClsVentas.vb | 16 +++ Ventas/RepVentas.aspx.vb | 12 +- Ventas/RepVentasDetalle.aspx.vb | 22 +++- Ventas/Ventas.aspx | 150 ++++++++++++----------- Ventas/Ventas.aspx.vb | 203 +++++++++++++++++++++++--------- 5 files changed, 278 insertions(+), 125 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c663c819a..a4af209d8 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6091,6 +6091,22 @@ Public Class ClsVentas Return Retorno End Function + Public Function GetAutorizacion(CveAutorizacion As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_AutorizacionGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error la autorización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesGet") diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index eb0c42851..f2495b84c 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -202,8 +202,11 @@ Partial Class Ventas_RepVentas DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14")) DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20")) DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21")) - DdlGrupo.Items.Insert(13, New ListItem("Giro", "22")) + DdlGrupo.Items.Insert(13, New ListItem("Giro", "22")) + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "23")) + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlGrupo.Items.Insert(13, New ListItem("Tipo Venta", "24")) DdlGrupo.DataBind() DdlGrupo.SelectedValueExist("3") @@ -222,6 +225,7 @@ Partial Class Ventas_RepVentas DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' AND TipoDocto = 'Egs' ") DdlTipoVenta.DataBind() + DdlTipoVenta.Items.Insert(0, New ListItem("Sin Asignar", "-2")) DdlTipoVenta.Items.Insert(0, New ListItem("Todos", "-1")) End If @@ -314,11 +318,15 @@ Partial Class Ventas_RepVentas FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha) Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked + Dim CveTipoVenta As Integer = -1 + If DivTipoVenta.Visible Then + CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero() + End If If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable, - EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero()) Then + EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, CveTipoVenta:=CveTipoVenta) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados Else diff --git a/Ventas/RepVentasDetalle.aspx.vb b/Ventas/RepVentasDetalle.aspx.vb index 1d7735992..ed2f94f20 100644 --- a/Ventas/RepVentasDetalle.aspx.vb +++ b/Ventas/RepVentasDetalle.aspx.vb @@ -5,6 +5,7 @@ Imports System.Data Imports Extensiones Imports Microsoft.Reporting.WebForms Imports System.Net.Http +Imports DocumentFormat.OpenXml.Office2010.PowerPoint Partial Class RepVentasDetalle Inherits ClsPaginas @@ -326,6 +327,7 @@ Partial Class RepVentasDetalle DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' AND TipoDocto = 'Egs'") DdlTipoVenta.DataBind() + DdlTipoVenta.Items.Insert(0, New ListItem("Sin Asignar", "-2")) DdlTipoVenta.Items.Insert(0, New ListItem("Todos", "-1")) End If @@ -461,6 +463,11 @@ Partial Class RepVentasDetalle ChkLecturaAdmin.Checked = Not ModalidadContable CveProyecto = DdlProyecto.SelectedValue.ToEntero + Dim CveTipoVenta As Integer = -1 + If DivTipoVenta.Visible Then + CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero() + End If + Dim ObjVentas As New ClsVentas() 'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero If ObjVentas.GetRepVentasDetalle(DdlGrupo.SelectedValue.ToEntero, Anio.ToEntero, Mes.ToEntero, AnioMes, Fecha, CveCliente, @@ -468,7 +475,7 @@ Partial Class RepVentasDetalle CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec, CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=Not ChkLecturaAdmin.Checked, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), - ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero()) Then + ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, CveTipoVenta:=CveTipoVenta) Then DtVentas = AddRows(ObjVentas.DtResultados) ImgImprimir.Enabled = True GvDatos.DataSource = AddRows(ObjVentas.DtResultados) @@ -536,6 +543,7 @@ Partial Class RepVentasDetalle ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS GvDatos.Columns(9).Visible = ChkIEPS.Checked ChkKilometraje.Visible = UsuarioActual.Empresa.Funcionalidad(558) = "1" 'empresa llantera + ChkTipoVenta.Visible = UsuarioActual.Empresa.Funcionalidad(531) = "1" 'empresa acumuladores End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound @@ -668,6 +676,11 @@ Partial Class RepVentasDetalle ChkEstatusFactura.Checked = True ChkCliente.Checked = True + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + ChkSucursal.Checked = False + ChkTipoVenta.Checked = True + End If + End Sub Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs) @@ -781,6 +794,8 @@ Partial Class RepVentasDetalle If ChkDescargarXML.Checked Then ListPersonalizada.Add("XML") + If ChkTipoVenta.Checked Then ListPersonalizada.Add("TipoVenta") + If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then 'Alert("Personalizacion guardada") End If @@ -841,6 +856,7 @@ Partial Class RepVentasDetalle ChkDescargarPDF.Checked = False ChkDescargarXML.Checked = False + ChkTipoVenta.Checked = False Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c) For Each personalizacion As String In Personalizaciones @@ -980,6 +996,9 @@ Partial Class RepVentasDetalle Case "PDF" ChkDescargarPDF.Checked = True Exit Select + Case "TipoVenta" + ChkTipoVenta.Checked = True + Exit Select Case Else Exit Select End Select @@ -988,6 +1007,7 @@ Partial Class RepVentasDetalle Personaliza() Else PersonalizaDefault() + Personaliza() End If UPPersonalizar.Update() diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 7f4359172..b76727f61 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -417,9 +417,9 @@
  • Verificar Existencias
    • -
  • - Envio De Correo -
    • +
  • + Envio De Correo +
    • @@ -654,7 +654,7 @@ - + @@ -995,6 +995,11 @@ + + Tipo Venta:  + + + @@ -1345,7 +1350,7 @@
    - + @@ -7357,7 +7362,14 @@

    Aplicar NC

    - +
    +
    + Tipo Venta: +
    +
    + +
    +
    Concepto: @@ -8847,6 +8859,11 @@
    +
    + + + +
    @@ -9016,7 +9033,7 @@ -
    +

    Tipo de Venta @@ -9114,11 +9131,11 @@
    -      +     
    -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"> +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info">
    @@ -9137,18 +9154,18 @@ - + - - - - - + + + + +
    @@ -9311,8 +9328,9 @@ - -   + + +   @@ -9326,63 +9344,63 @@

    - - + +