-- parametros adicionales

2022-02-08 21:16:36 -07:00
parent 35c4d4876e
commit 0e9dedeedf
3 changed files with 36 additions and 18 deletions
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1612,7 +1612,7 @@ Public Class ClsVentas
                                              Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1,
                                             Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1,
                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                             Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+                                             Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_GetRepPS")

@@ -1646,6 +1646,7 @@ Public Class ClsVentas
            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2

        End With

@@ -1665,7 +1666,7 @@ Public Class ClsVentas
                                             Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
                                             Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1,
                                             Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                             Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+                                             Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_GetRepPSDetalle")

@@ -1703,6 +1704,7 @@ Public Class ClsVentas
            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
        End With

        Try
@@ -4792,7 +4794,7 @@ Public Class ClsVentas
        End Try
        Return retorno
    End Function
-    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer) As Boolean
+    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer, CveEmpresa As Integer) As Boolean
        Dim retorno As Boolean = False
        DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure)
        With SqlAdapter.SelectCommand.Parameters
@@ -4803,6 +4805,7 @@ Public Class ClsVentas
            .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte
            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
            .Add("@CveClasificacionSup", SqlDbType.Int).Value = CveClasificacionSup
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
        End With
        Try
            SqlAdapter.Fill(Data)
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -350,7 +350,12 @@
                        <div class="col-md-2">
                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>
-                               
+                         <label class="col-md-1 truncate" id="divClasif2texto" runat="server" visible="false">Clasificación 2:</label>
+                        <div class="col-md-2" id="divClasif2" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlClasificacion2" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>   
                    </div>
                </div>
            </div>
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -62,14 +62,7 @@ Partial Class Ventas_RepProductosServicios
            CargarMarcas()
            SetValues()

-            If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then
-                DvLitraje.Visible = True
-                'garantia
-                divgarantia1.Visible = True
-                divgarantia2.Visible = True
-                divdistribuidor1.Visible = True
-                divdistribuidor2.Visible = True
-            End If
+

        End If
    End Sub
@@ -96,7 +89,8 @@ Partial Class Ventas_RepProductosServicios
        DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
        DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
        DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
-        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
+        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
+        DdlGrupo.Items.Insert(18, New ListItem("Marca", "24"))
        DdlGrupo.DataBind()
        DdlGrupo.SelectedValueExist("8")

@@ -172,7 +166,25 @@ Partial Class Ventas_RepProductosServicios

        'Cargo Clasificaciones
        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
-        DdlClasificacion.DataBind()
+        DdlClasificacion.DataBind()
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            DvLitraje.Visible = True
+            'garantia
+            divgarantia1.Visible = True
+            divgarantia2.Visible = True
+            divdistribuidor1.Visible = True
+            divdistribuidor2.Visible = True
+
+            DdlClasificacion2.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
+            DdlClasificacion2.DataBind()
+            divClasif2texto.Visible = True
+            divClasif2.Visible = True
+
+            DdlGrupo.Items.Add(New ListItem("Clasificacion2", "25"))
+
+        End If
+


        'CargaSubProyectos
@@ -288,7 +300,7 @@ Partial Class Ventas_RepProductosServicios
                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                              CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra,
                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
-                                              CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then
+                                              CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            DtVentas = ObjVentas.DtResultados
        Else
@@ -368,9 +380,7 @@ Partial Class Ventas_RepProductosServicios
            FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1")
            FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1")

-            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}
-                                        &FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}
-                                        &TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}",
+            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}",
                                                e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),