From e075b69f059481f9ea198ddbf443329fc3277f3f Mon Sep 17 00:00:00 2001 From: JPerez Date: Wed, 2 Jul 2025 12:53:04 -0700 Subject: [PATCH] --Cambios en metas de vendedores --- Ventas/CatMetasVendedores.aspx | 94 ++++++++++++++++--------------- Ventas/CatMetasVendedores.aspx.vb | 93 ++++++++++++++++++++++-------- 2 files changed, 120 insertions(+), 67 deletions(-) diff --git a/Ventas/CatMetasVendedores.aspx b/Ventas/CatMetasVendedores.aspx index f4a31b5c6..a449a738d 100644 --- a/Ventas/CatMetasVendedores.aspx +++ b/Ventas/CatMetasVendedores.aspx @@ -33,13 +33,13 @@
- -
+ +
- -
+ +
@@ -54,8 +54,8 @@
- -
+ +
@@ -70,7 +70,7 @@ - + @@ -162,48 +162,54 @@ Metas Vendedores
-
- - - -
-
- -
- - - - +
+
Vendedor
+
+
- -
-
- - - +
+
Marca
+
+ +
+
Mes y Año
+
+
+ + + + +
+ + +
-
- - - +
+
Clasificación Superior
+
+ +
-
- - - +
+ +
+ +
-
- - - - -
-
- - - - +
+
Cantidad meta
+
+ + + +
+
Importe meta
+
+ + + +
diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index b63444e01..33e5dc539 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -33,16 +33,31 @@ Partial Class CatMetasVendedores Private Sub CargaDatos() Dim Mes As Integer = -1, Anio As Integer = -1 - If Not String.IsNullOrEmpty(txtMesAnio.Text) Then - Dim FechaRef As DateTime = txtMesAnio.Text.ToDate() - Mes = FechaRef.Month - Anio = FechaRef.Year + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + If Not String.IsNullOrEmpty(txtMesAnio.Text) Then + Dim FechaRef As DateTime = txtMesAnio.Text.ToDate() + Mes = FechaRef.Month + Anio = FechaRef.Year + End If + Else + GvDatos.Columns(1).Visible = False + GvDatos.Columns(2).Visible = False + GvDatos.Columns(3).Visible = False + GvDatos.Columns(4).Visible = False + + DivLblSucursal.Visible = False + DivSucursal.Visible = False + DivLblMes.Visible = False + DivMes.Visible = False + DivLblMarca.Visible = False + DivMarca.Visible = False End If Dim ObjVentas As New ClsVentas - If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero(), Mes:=Mes, Anio:=Anio) Then - GvDatos.DataSource = ObjVentas.DtResultados - DtDatos = ObjVentas.DtResultados + If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero(), Mes:=Mes, Anio:=Anio) Then + DtDatos = ObjVentas.DtResultados.Copy() + GvDatos.DataSource = DtDatos End If ObjVentas.Dispose() GvDatos.DataBind() @@ -64,7 +79,13 @@ Partial Class CatMetasVendedores End Sub - Private Sub CargaDatosModal() + Private Sub CargaDatosModal() + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + Div1.Visible = True + Div2.Visible = True + Div3.Visible = True + End If + DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedores.DataBind() DdlVendedores.Items.Insert(0, New ListItem("Seleccionar", "-1")) @@ -93,29 +114,50 @@ Partial Class CatMetasVendedores Protected Sub BtnAgregarMetaVendedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaVendedor.Click - If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 AndAlso DdlClasificacionSup.SelectedValue.ToEntero > 0 Then + Dim CveVendedor As Integer = DdlVendedores.SelectedValue.ToEntero() + Dim Fecha As Date = MinFecha + Dim CveMarca As Integer = -1 + Dim CveClasificacionSuperior As Integer = -1 + Dim CveClasificacion As Integer = -1 - Dim ObjVentas As New ClsVentas + + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + + If Not (DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 AndAlso DdlClasificacionSup.SelectedValue.ToEntero > 0) Then + Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, "))) + Exit Sub + End If + Fecha = TxtFechaI.Text.ToDate() + CveClasificacionSuperior = DdlClasificacionSup.SelectedValue.ToEntero + CveClasificacion = DdlClasificacion.SelectedValue.ToEntero + CveMarca = DdlMarca.SelectedValue.ToEntero + + Else + If Not (DdlVendedores.SelectedValue.ToEntero > 0) Then + Alert("Falta Seleccionar el vendedor") + Exit Sub + End If + End If + + Using ObjVentas As New ClsVentas If BtnAgregarMetaVendedor.Text = "Agregar" Then - If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, - TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjVentas.AddMetasVendedores(CveVendedor, Fecha, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, CveClasificacion, CveClasificacionSuperior, UsuarioActual.CveEmpresa) Then Alert("Se agregó la meta al vendedor") Else Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError) End If ElseIf BtnAgregarMetaVendedor.Text = "Actualizar" Then - If ObjVentas.UpdateMetasVendedores(CveMetaVendedor, DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, - TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, - DdlClasificacionSup.SelectedValue.ToEntero) Then + If ObjVentas.UpdateMetasVendedores(CveMetaVendedor, CveVendedor, Fecha.ToString("dd/MM/yyyy"), CveMarca, TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, CveClasificacion, CveClasificacionSuperior) Then Alert("Se actualizó la información de la meta del vendedor") Else Alert("No se pudo actualizar la meta del vendedor", TipoMensaje.MsgError) End If - End If - Else - Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, "))) - End If + End If + End Using + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) + ResetDatosSeleccionadosModal() CargaDatos() UpDatos.Update() @@ -135,12 +177,17 @@ Partial Class CatMetasVendedores Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) CveMetaVendedor = GvRow.DataKey("CveMeta").ToEntero DdlVendedores.SelectedValue = GvRow.DataKey("CveVendedor") - TxtFechaI.Text = GvRow.DataKey("MesAño") - DdlClasificacionSup.SelectedValueExist(GvRow.DataKey("CveClasificacionSup")) - DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + + TxtFechaI.Text = GvRow.DataKey("MesAño") + + DdlClasificacionSup.SelectedValueExist(GvRow.DataKey("CveClasificacionSup")) + DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) + + DdlMarcas.SelectedValue = GvRow.DataKey("CveMarca") + End If - DdlMarcas.SelectedValue = GvRow.DataKey("CveMarca") TxtMetaCantidad.Text = GvRow.DataKey("MetaCantidad") TxtMetaImporte.Text = GvRow.DataKey("MetaImporte") UpModalTiposD.Update()