Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

2020-01-03 12:04:46 -07:00
parent 14545bdcad 8df4a3fc73
commit a4ac42c852
9 changed files with 134 additions and 52 deletions
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1469,7 +1469,7 @@ Public Class ClsVentas
                                             FechaI As Date, FechaF As Date, Mes As Integer, FechaIEjec As Date, FechaFEjec As Date, MesEjec As Integer, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                             CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1,
                                              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) As Boolean
+                                                    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) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_GetRepPSDetalle")

@@ -1500,6 +1500,7 @@ Public Class ClsVentas
            .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
        End With

        Try
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -146,7 +146,12 @@
                        </div>
                        <label class="col-md-1 truncate">Tránsito?:</label>
                        <div class="col-md-1">
-                            <asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />
+                            <asp:DropDownList ID="DdlIncluyeTransitorios" CssClass="select2me" runat="server" AppendDataBoundItems="true"  Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
+                                <asp:ListItem Text="No" Value="0" Selected="True"></asp:ListItem>
+                                <asp:ListItem Text="Si (Origen)" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Si (Destino)" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                            <%--<asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />--%>
                        </div>
                    </div>
                </div>
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -128,7 +128,7 @@ Partial Class Inventarios_KardexAlmacen
        Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)

-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                dt = ObjMovimientos.DtResultados
                Dim ListaBorrar As New List(Of DataColumn)
--- a/Ventas/RepConciliacionSat.aspx
+++ b/Ventas/RepConciliacionSat.aspx
@@ -0,0 +1,15 @@
+<%@ Page Language="C#" AutoEventWireup="true" CodeFile="RepConciliacionSat.aspx.cs" Inherits="Ventas_RepConciliacionSat" %>
+
+<!DOCTYPE html>
+
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head runat="server">
+    <title></title>
+</head>
+<body>
+    <form id="form1" runat="server">
+        <div>
+        </div>
+    </form>
+</body>
+</html>
--- a/Ventas/RepConciliacionSat.aspx.cs
+++ b/Ventas/RepConciliacionSat.aspx.cs
@@ -0,0 +1,14 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+
+public partial class Ventas_RepConciliacionSat :  System.Web.UI.Page
+{
+    protected void Page_Load(object sender, EventArgs e)
+    {
+
+    }
+}
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -5,6 +5,14 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
    <style>
+        
+        table > tbody > .SubTotales ,table > tbody > .SubTotales:hover,table > tbody >  .SubTotales:nth-of-type(odd) {
+            background: #CCCCCC !important;
+        } 
+        table > tbody > .SubTotalesB ,table > tbody > .SubTotalesB:hover,table > tbody >  .SubTotalesB:nth-of-type(odd) {
+            background: #DDD !important;
+        }
+
        .SegundoNivel, .SegundoNivel:hover {
            background-color: rgba(172, 195, 222, 0.65) !important;
        }
@@ -202,7 +210,7 @@
                        </div>
                        <label class="col-md-1 truncate">Vendedor:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:100%">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -216,7 +224,7 @@
                        </div>
                        <label runat="server" id="LblSubProyectoEjecucion" class="col-md-1 truncate">SubProyecto Ejecución:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:100%">
+                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -260,13 +268,13 @@
                        </div>
                        <label class="col-md-1 truncate">Categoría:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" style="width:100%">
+                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
                        <label class="col-md-1 truncate">Clasificación:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" 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:DropDownList ID="DdlClasificacion" 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>
@@ -286,11 +294,11 @@
                        </div>
                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
                        <div runat="server" id="DivMarca" class="col-md-2" visible="false">
-                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" style="width:100%" Height="22px"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%" Height="22px"></asp:DropDownList>
                        </div>

-                        <label runat="server" id="LblLitraje" title="Mostrar Litraje" data-toggle="tooltip" data-placement="top" class="col-md-1"  >Litraje:</label>
-                        <div runat="server" id="Div1" class="col-md-2"  >
+                        <label runat="server" id="LblLitraje" title="Mostrar Litraje" data-toggle="tooltip" data-placement="top" class="col-md-1">Litraje:</label>
+                        <div runat="server" id="Div1" class="col-md-2">
                            <asp:CheckBox runat="server" ID="ChkLitraje" CssClass="mkcheck" />
                        </div>

--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -85,6 +85,7 @@ Partial Class Ventas_RepProductosServicios
        DdlGrupo.Items.Insert(14, New ListItem("Fecha Ejec.", "18"))
        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.DataBind()
        DdlGrupo.SelectedValueExist("8")

@@ -303,6 +304,25 @@ Partial Class Ventas_RepProductosServicios
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim Css As String = "Texto"
+            Dim CveClasificacionDetalle As String = "-1"
+            Dim cveMarca As String = DdlMarcaPSDes.SelectedValue
+            If DdlGrupo.SelectedValue.ToEntero = 22 Then
+                Dim tipo As Integer = If(e.Row.DBCampo("CveClasificacionDetalle").ToEntero() > 0, 4, If(e.Row.DBCampo("CveMarca").ToEntero() > 0, 3, If(e.Row.DBCampo("CveClasificacion").ToEntero() > 0, 2, 1)))
+                Select Case tipo
+                    Case 4
+                        CveClasificacionDetalle = e.Row.DBCampo("CveClasificacionDetalle").ToString() ' String.Format("{0}&CveClasificacionDetalle={1}&CveMarca={2}", squery, e.Row.DBCampo("CveClasificacionDetalle").ToEntero(), e.Row.DBCampo("CveMarca").ToEntero())
+                        cveMarca = e.Row.DBCampo("CveMarca").ToString()
+                    Case 3
+                        'squery = String.Format("{0}&CveMarca{1}", squery, e.Row.DBCampo("CveMarca").ToEntero())
+                        cveMarca = e.Row.DBCampo("CveMarca").ToString()
+                        e.Row.CssClass = "SubTotalesB"
+                    Case 2
+                        e.Row.CssClass = "SubTotales"
+                    Case 1
+                        e.Row.CssClass = "Totales"
+                End Select
+
+            Else
                    If e.Row.DBCampo("Orden") = "" Then
                    e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
                    e.Row.Cells(0).Width = Unit.Pixel(200)
@@ -317,6 +337,7 @@ Partial Class Ventas_RepProductosServicios
                ElseIf DdlGrupo.SelectedValue.Contiene("20", "21") And Not e.Row.DBCampo("CvePS").ToEntero > 0 Then
                    e.Row.CssClass = "SubTotales"
                End If
+            End If

            ' PARA LIGA
            Dim FechaI, FechaF, FechaIEjec, FechaFEjec As String
@@ -325,11 +346,11 @@ 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}",
+            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}",
                                                                                    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"),
-                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), DdlMarcaPSDes.SelectedValue, DdlMarcaPSDes)
+                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle)


            e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a target=""_blank"" Class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.DBCampo("Gpo"))
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -45,7 +45,7 @@
    </style>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
-<%--    <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+    <%--    <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
        <ContentTemplate>
            <div class="btn-group pull-right btn-separete">
                <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-fit-height btnopaco" />
@@ -80,7 +80,7 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
                <div class="portlet-title portlet-filterT smalltitle">
@@ -150,7 +150,7 @@
                            <label class="col-md-1 ">Grupo:</label>
                            <div class="col-md-2">
                                <asp:DropDownList ID="DdlGrupo" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-<%--                                    <asp:ListItem Text="Proyecto" Value="1"></asp:ListItem>
+                                    <%--                                    <asp:ListItem Text="Proyecto" Value="1"></asp:ListItem>
                                    <asp:ListItem Text="SubProyectos" Value="2"></asp:ListItem>
                                    <asp:ListItem Text="Categoría" Value="3"></asp:ListItem>
                                    <asp:ListItem Text="Clasificación" Value="4"></asp:ListItem>
@@ -191,12 +191,11 @@
                        </div>
                        <label class="col-md-1 ">Cliente:</label>
                        <div class="col-md-2">
-                             <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
-                            </ADS:Dropdownlost>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                        </div>
                        <label class="col-md-1 truncate">Vendedor:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:100%">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -210,7 +209,7 @@
                        </div>
                        <label runat="server" id="LblSubProyectoEjecucion" class="col-md-1 truncate">SubProyecto Ejecución:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:100%">
+                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -254,13 +253,13 @@
                        </div>
                        <label class="col-md-1 truncate">Categoría:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" style="width:100%">
+                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
                        <label class="col-md-1 truncate">Clasificación:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" 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:DropDownList ID="DdlClasificacion" 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>
@@ -276,11 +275,17 @@
                        </div>
                        <label title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Proveedor:</label>
                        <div class="col-md-2">
-                             <ADS:DropDownLost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me"  Width="100%" CssStyle="width: 100%;"></ADS:DropDownLost>
+                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
                        </div>
                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
                        <div runat="server" id="DivMarca" class="col-md-2" visible="false">
-                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" style="width:100%" Height="22px"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%" Height="22px"></asp:DropDownList>
+                        </div>
+                        <asp:Label ID="lblDdlTipoPSDes" Visible="false" CssClass="col-md-1" runat="server" Text="Tipo:"></asp:Label>
+                        <div class="col-md-2" id="DivDdlTipo" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlTipoPSDes" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Enabled="true">
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
                        </div>
                    </div>
                </div>
@@ -306,7 +311,7 @@
                    <asp:BoundField HeaderText="Desc" DataField="Descuento" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RFC" DataField="RFC"  ItemStyle-Width="5%"  visible="false" />
+                    <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
                </Columns>
                <RowStyle CssClass="Texto" />
                <HeaderStyle CssClass="Titulos" />
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -235,6 +235,17 @@ Partial Class Ventas_RepProductosServiciosDetalle
        DdlClienteClasificacion.DataBind()
        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))

+
+
+        If UsuarioActual.CveEmpresa.Contiene(141) Then
+            DivDdlTipo.Visible = True
+            lblDdlTipoPSDes.Visible = True
+        End If
+        DdlTipoPSDes.Items.Clear()
+        DdlTipoPSDes.DataSource = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa)
+        DdlTipoPSDes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlTipoPSDes.DataBind()
+
        CargaGrupo()
        CargaTipoCentroCosto()
        CreaDataTableColor()
@@ -250,6 +261,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
        Dim CveProveedorCompra As Integer = -1
        Dim CveVendedor As Integer
        Dim CveMarca As Integer = -1
+        Dim CveClasificacionDetalle As Integer = -1
        GPO = If(Request("Grupo") IsNot Nothing AndAlso Request("Grupo").ToEntero() > 0, Request("Grupo").ToEntero(), -1).ToString

        CveProyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString
@@ -283,6 +295,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing AndAlso Request("CveClienteClasificacion").ToEntero() > 0, Request("CveClienteClasificacion").ToEntero(), -1).ToString
        CveProveedorCompra = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra").ToEntero() > 0, Request("CveProveedorCompra").ToEntero(), -1).ToString.ToEntero
        CveMarca = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca").ToEntero() > 0, Request("CveMarca").ToEntero(), -1).ToString.ToEntero
+        CveClasificacionDetalle = If(Request("CveClasificacionDetalle") IsNot Nothing AndAlso Request("CveClasificacionDetalle").ToEntero() > 0, Request("CveClasificacionDetalle").ToEntero(), -1).ToString.ToEntero

        If Fecha <> "-1" Then
            txtFechaI.Text = Fecha
@@ -366,7 +379,7 @@ Partial Class Ventas_RepProductosServiciosDetalle

        CargaProvedores(CveProveedorCompra)
        'If CveProveedorCompra.ToEntero > 0 Then DdlProveedor.SelectedValue = CveProveedorCompra
-
+        DdlTipoPSDes.SelectedValueExist(CveClasificacionDetalle)
        CargaDatos(CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CvePS, Mes, MesEjec, CveCliente, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatus, GPO.ToEntero, TipoDocto, CveMarca)
        CargarMarcas(CveMarca)
    End Sub
@@ -395,7 +408,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                              DdlPS.SelectedValue.ToEntero, FechaI, FechaF, -1, FechaIEjec, FechaFEjec, -1, CveCliente,
                                              DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
                                              UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda,
-                                                     TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero) Then
+                                                     TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero()) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            TmpDT = ObjVentas.DtResultados
        Else