From fc939e0998c1c8a65527b022ffd1419cda5857ba Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 31 Jan 2020 14:02:32 -0700 Subject: [PATCH 1/3] desaparecen opciones del tipo promocion al seleccionar una promocion para toda una clasificacion --- Ventas/Promociones.aspx | 2 +- Ventas/Promociones.aspx.vb | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 4a4d6b944..fac769ab1 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -234,7 +234,7 @@
- +
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 1d9f1a6b6..fdf49d14f 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -127,6 +127,8 @@ Partial Class Ventas_Promociones #Region " PS " Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) ChangeDdlProducto() + DdlTipoPromocion.Items.FindByValue("1").Enabled = False + DdlTipoPromocion.Items.FindByValue("3").Enabled = False End Sub Private Sub ChangeDdlProducto() If UsuarioActual.Empresa.Funcionalidad(105) = "" Then @@ -137,6 +139,10 @@ Partial Class Ventas_Promociones DdlPS.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue) End If End Sub + Protected Sub DdlPS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange + DdlTipoPromocion.Items.FindByValue("1").Enabled = True + DdlTipoPromocion.Items.FindByValue("3").Enabled = True + End Sub #End Region From eb28a271e6a09b7dd8975ccbd1269a4edc2e6971 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 31 Jan 2020 18:50:19 -0700 Subject: [PATCH 2/3] BANDERA DE ESTATUS DE ALMACEN EN REP CXP DETALLE --- Compras/RepCxPDetalle.aspx | 8 ++++++++ Compras/RepCxPDetalle.aspx.vb | 27 +++++++++++++++++++++++++-- 2 files changed, 33 insertions(+), 2 deletions(-) diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index ffe97d3fc..43593a36d 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -10,6 +10,9 @@ white-space: nowrap; overflow: hidden; } + .tooltip-inner { + max-width: 350px !important; + } @@ -315,6 +318,11 @@ + + + + + diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index bad04658b..8dab1f576 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -315,7 +315,9 @@ Partial Class RepCxPDetalle DdlTipoProveedor.SelectedValueExist(CveTipoProveedor) Dim Comprobaciones = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero - DdlComprobacion.SelectedValueExist(Comprobaciones) + DdlComprobacion.SelectedValueExist(Comprobaciones) + + GvDatos.Columns(9).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0) End Sub @@ -489,7 +491,28 @@ Partial Class RepCxPDetalle e.Row.FCHyperLink("HplFolio").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25)) End If Else - e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")) + e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")) + + If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then + Dim Str As New StringBuilder + Str.AppendFormat("Importe Almacen: ${0} ({1}%)
", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje")) + If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%)
", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje")) + If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%)
", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje")) + Str.AppendFormat(" Importes SIN IVA") + + e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString) + Select Case e.Row.DBCampo("EstatusInventario").ToEntero + Case 1 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red + Case 2 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange + Case 3 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green + End Select + End If End If End If From 53d988789304c73bc85c2ca464412c8ef6c3c845 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 31 Jan 2020 18:50:58 -0700 Subject: [PATCH 3/3] =?UTF-8?q?PORCENTAJE=20DE=20COMISIONES=20POR=20VENDED?= =?UTF-8?q?OR=20EN=20CADA=20MES/A=C3=91O?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 68 ++++++ Ventas/RepComisiones.aspx | 451 ++++++++++++++++++++--------------- Ventas/RepComisiones.aspx.vb | 114 ++++++--- 3 files changed, 407 insertions(+), 226 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 9a0fd3c83..b47df49b8 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4256,6 +4256,74 @@ Public Class ClsVentas #End Region + +#Region "P O R C E N T A J E - C O M I S I O N E S" + Public Function AddCierreComisionVendedor(CveVendedor As Integer, Mes As Integer, Anio As Integer, PorcentajeComision As Decimal) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CierreComisionVendedoresAdd", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@PorcentajeComision", SqlDbType.Money).Value = PorcentajeComision + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar cierre de comisión al vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetCierreComisionVendedor(CveVendedor As Integer, Mes As Integer, Anio As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CierreComisionVendedoresGet", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar cierre de comisión al vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateCierreComisionVendedor(CveVendedor As Integer, Mes As Integer, Anio As Integer, PorcentajeComision As Decimal) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CierreComisionVendedoresUpdate", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@PorcentajeComision", SqlDbType.Money).Value = PorcentajeComision + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el cierre de comisión del vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + #Region "IDisposable Support" diff --git a/Ventas/RepComisiones.aspx b/Ventas/RepComisiones.aspx index e59ff7aad..2b5127d5f 100644 --- a/Ventas/RepComisiones.aspx +++ b/Ventas/RepComisiones.aspx @@ -1,197 +1,256 @@ -<%@ Page Title="SIG | Reporte de Comisiones" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComisiones.aspx.vb" Inherits="Ventas_RepComisiones" %> - - - - - - - - -
  • - Generar -
    • -     - - - -     -
  • - Ajuste comisiones -
    • -     - - Comisiones Vendedores - - - - - - - - - - -
    -
    -
    - -
    -
    -
    - -
    - - - -
    - -
    - - - -
    - -
    -
    - - - - -
    - - - - - - -
    - -
    -
    - - - - -
    - - - - - - -
    -
    -
    - -
    -
    -     -     - -
    -
    -

    Importes expresados en moneda nacional

    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - <%----%> - - <%----%> - - - +<%@ Page Title="SIG | Reporte de Comisiones" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComisiones.aspx.vb" Inherits="Ventas_RepComisiones" %> + + + + + + + + +
  • + Generar +
    • +     + + + +     +
  • + Ajuste comisiones +
    • +
  • + Porcentaje comisiones +
    • +     + + Comisiones Vendedores + + + + + + + + +
    +
    +
    + +
    +
    +
    + +
    + + + +
    + +
    + + + +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    +
    + + + + +
    + + + + + + +
    +
    +
    + +
    +
    +     +     +
    +
    +

    Importes expresados en moneda nacional

    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + <%----%> + + <%----%> + + + <%-- - --%> - - - - - - - - - -
    -
    -
    -
    - - - - - -
    -
    - - - - - - - - - - - - - - -     - - + --%> + + + + +     +     +     +     +
    +
    +
    +
    + + + + + +
    +
    + + + + + + + + + + +     + + diff --git a/Ventas/RepComisiones.aspx.vb b/Ventas/RepComisiones.aspx.vb index a936e0805..6edfa8fbd 100644 --- a/Ventas/RepComisiones.aspx.vb +++ b/Ventas/RepComisiones.aspx.vb @@ -18,26 +18,30 @@ Partial Class Ventas_RepComisiones InicializaValores() End If - End Sub - - + End Sub + #Region " INICIALIZA VALORES " - + Private Sub InicializaValores() txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + TxtAnio.Text = Now.Year.ToString() + DdlMes.SelectedValueExist(Now.Month) + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() DdlVendedorAjuste.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedorAjuste.DataBind() - End Sub + DdlVendedorPorcentaje.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DdlVendedorPorcentaje.DataBind() + End Sub + #End Region - - + #Region " CARGA DATOS " Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() @@ -69,10 +73,9 @@ Partial Class Ventas_RepComisiones BtnPagar.Visible = False ImgExcel.Visible = False End If - End Sub + End Sub #End Region - - + #Region " GV DATOS " Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -90,11 +93,10 @@ Partial Class Ventas_RepComisiones e.Row.FCHyperLink("HLVendedor").NavigateUrl = String.Format("/Ventas/RepComisionesDetalle.aspx?CveVendedor={0}&FI={1}&FF={2}&CveSubProyecto={3}", CveVendedorURL, If(txtFechaI.Text.Trim() = "", "-1", txtFechaI.Text.Trim()), If(txtFechaF.Text.Trim() = "", "-1", txtFechaF.Text.Trim()), DdlSubProyecto.SelectedValue.ToEntero) End If - End Sub - + End Sub + #End Region - - + #Region " PAGAR COMISIONES " Protected Sub BtnPagar_Click(sender As Object, e As EventArgs) If Not GvDatos.Rows.Count > 0 Then @@ -153,10 +155,9 @@ Partial Class Ventas_RepComisiones ObjComisiones.Dispose() - End Sub + End Sub #End Region - - + #Region " AJUSTE " Protected Sub DdlVendedorAjuste_SelectedIndexChanged(sender As Object, e As EventArgs) Dim ObjComisiones As New ClsEsquemasComisiones @@ -194,22 +195,75 @@ Partial Class Ventas_RepComisiones UPDatos.Update() End If - End Sub + End Sub #End Region - - - - - - - - + #Region " EXCEL " Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click GvDatos.ExportToExcel("ReporteComisiones_" & Now.ToShortDateString) - End Sub + End Sub #End Region - - - + + Protected Sub BtnGuardarPorcentajeComision_Click(sender As Object, e As EventArgs) + Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() + Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() + Dim Anio As Integer = TxtAnio.Text.ToEntero() + + Dim Porcentaje As Decimal = TxtPorcentajeComision.Text.ToDecimal() / 100 + + Dim RowCierre As DataRow = Nothing + Dim ObjVentas As New ClsVentas + Try + If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + RowCierre = ObjVentas.DtResultados.Rows(0) + End If + + If RowCierre IsNot Nothing Then + If ObjVentas.UpdateCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then + Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) + End If + Else + If ObjVentas.AddCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then + Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) + End If + End If + Catch ex As Exception + OnError("Ocurrió un error al asginar el porcentaje de la comisión", ex) + End Try + + ObjVentas.Dispose() + + UpPorcentajeComisiones.Update() + End Sub + Protected Sub DdlVendedorPorcentaje_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaPorcentajeComisiones() + End Sub + Protected Sub DdlMes_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaPorcentajeComisiones() + End Sub + Protected Sub CargaPorcentajeComisiones() + Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() + Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() + Dim Anio As Integer = TxtAnio.Text.ToEntero() + + Dim RowCierre As DataRow = Nothing + + Dim ObjVentas As New ClsVentas + If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + RowCierre = ObjVentas.DtResultados.Rows(0) + End If + ObjVentas.Dispose() + + If RowCierre IsNot Nothing Then + TxtPorcentajeComision.Text = (RowCierre("PorcentajeComision").ToString().ToDecimal() * 100).FormatoNumero(0) + Else + TxtPorcentajeComision.Text = "0" + End If + + UpPorcentajeComisiones.Update() + End Sub End Class