5 Buscador en promociones, por articulo, por fecha, por cliente por sucursal, vendedor, usuario ingresó,

App_Code/ClsVentas.vb

@@ -2482,7 +2482,8 @@ Public Class ClsVentas
 
 #Region "   PROMOCIONES   "
     Public Function GetPromociones(CvePromocion As Integer, Fecha As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer,
-                                   CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean
+                                   CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1, Optional CvePS As Integer = -1) As Boolean
+
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesGet")
 
@@ -2496,6 +2497,7 @@ Public Class ClsVentas
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
         End With
 
         Try

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -115,9 +115,10 @@ Partial Class Compras_RepProductosServiciosDetalle
         txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
         txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
 
-        If CveCultivo.ToEntero() > 0 AndAlso FechaI = "-1" AndAlso Anio = "-1" AndAlso Mes = "-1" AndAlso AnioMes = "-1" Then
+        If CveCultivo.Length > 0 AndAlso FechaI = "-1" AndAlso Anio = "-1" AndAlso Mes = "-1" AndAlso AnioMes = "-1" Then
             txtFechaI.Text = "01/01/1900"
         End If
+
         If Fecha <> "-1" Then
             txtFechaI.Text = Fecha
             txtFechaF.Text = Fecha

Ventas/CatPromociones.aspx

@@ -28,25 +28,61 @@
                     <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
                         <div class="tools">
                             <asp:Button Text="Consultar" ID="BtnConsultar" CssClass="btn btn-primary" OnClick="BtnConsultar_Click" runat="server" />
-                        </div>
+                            <a href="javascript:;" class="expand"></a>
+                        </div>                        
                         <div class="titlefiltros  caption ">
+
                             <div class="row" style="padding-top: 10px;">
-                                <label class="col-md-1 truncate">Sucursal:</label>
+
-                                <div class="col-md-2 ">
+                                <div class="col-md-1">
-                                   <%-- <asp:DropDownList ID="DdlSucursal" runat="server" CssClass="select2me" DataTextField="Sucursal" DataValueField="CveSucursal" Width="200px" ValidationGroup="GrpGuardar"></asp:DropDownList>--%>
+                                    <asp:Label runat="server" ID="LblSubProyecto" class="truncate"></asp:Label>:
+                                </div>                                
+                                <div class="col-md-2 ">                                   
                                      <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                 </div>
-                                <label class="col-md-1 truncate">Estatus:</label>
+
-                                <div class="col-md-2">
+                                <asp:Label runat="server" ID="Label1" class="col-md-1 truncate">Cliente:</asp:Label>
-                                    <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                <div class="col-md-2 ">
-                                        <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                      <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:100%;">
-                                        <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
+                                       </ADS:Dropdownlost>
-                                        <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
-                                    </asp:DropDownList>
                                 </div>
+
+                                <asp:Label runat="server" ID="Label2" class="col-md-1 truncate">Vendedor:</asp:Label>
+                                <div class="col-md-2 ">
+                                    <asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>     
+                                </div>                                
+
                             </div>
+
                         </div>
                     </div>
+                    <div class="portlet-body" style="display: none">
+
+                        <div class="row">
+                            <label class="col-md-1 truncate">Estatus:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
+                                    <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                              <asp:Label runat="server" ID="Label3" class="col-md-1 truncate">Marca:</asp:Label>
+                              <div class="col-md-2 ">
+                                  <asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
+                              </div>
+                            
+
+                            <asp:Label runat="server" ID="Label4" class="col-md-1 truncate">Producto:</asp:Label>
+                            <div class="col-md-2">
+                                <ADS:Dropdownlost runat="server" Enabled="true" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS"  />
+                            </div>
+
+
+                        </div>
+                    </div>
+
                 </div>
             </asp:Panel>
         </ContentTemplate>
@@ -69,6 +105,10 @@
                             <asp:HyperLink runat="server" ID="HLPromocion" Text='<%# Eval("Promocion").ToString %>' NavigateUrl ='<%# Eval("CvePromocion", "/Ventas/Promociones.aspx?CvePromocion={0}") %>' CssClass="Texto"></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:BoundField DataField="NombreComercial" HeaderText="Cliente"  />
+                    <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" />
+                    <asp:BoundField DataField="Marca" HeaderText="Marca"  />
+                    
                     <asp:BoundField DataField="FechaInicio" DataFormatString="{0:d}" HeaderText="F. Inicio" ItemStyle-Width="80px" />
                     <asp:BoundField DataField="FechaFin" DataFormatString="{0:d}" HeaderText="F. Fin" ItemStyle-Width="80px" />
                     <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="125px" />

Ventas/CatPromociones.aspx.vb

@@ -22,21 +22,57 @@ Partial Class Ventas_CatPromociones
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
+            InicializaControles()
-            'ImgAddPromocion.Attributes.Add("OnClick", "window.location = '/Ventas/Promociones.aspx'")
-            'CARGA SUCURSALES
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-
             CargaDatos()
         End If
     End Sub
 
+    Private Sub InicializaControles()
+
+
+
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
+
+        GvDatos.Columns(6).HeaderText = LblSubProyecto.Text
+
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClientes.setEsWebService(True)
+
+        'CARGA PS
+        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        DdlPS.IncluyeTodos = True
+        If Not DdlPS.UsaWebService AndAlso CType(DdlPS.DataSource, DataTable) Is Nothing Then
+            DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            DdlPS.DataBind()
+        End If
+
+    End Sub
+
     Private Sub CargaDatos()
 
+
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetPromociones(-1, MinFecha, -1, -1, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, CveUsuario:=UsuarioActual.CveUsuario) Then
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+        Dim CvePS As Integer = If(DdlPS.SelectedValue.ToEntero > 0, DdlPS.SelectedValue.ToEntero, -1)
+
+
+        If ObjVentas.GetPromociones(-1, MinFecha, DdlVendedor.SelectedValue.ToEntero, CveCliente, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, CveUsuario:=UsuarioActual.CveUsuario,
+                                    CveMarca:=DdlMarca.SelectedValue.ToEntero, CvePS:=CvePS) Then
             DtDatos = ObjVentas.DtResultados
         Else
             DtDatos = Nothing