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

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

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>

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)

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>

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)
+    {
+
+    }
+}

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,7 +294,7 @@
                         </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>

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"))

Ventas/RepProductosServiciosDetalle.aspx

@@ -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 CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                            </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" />

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