Nueva vista

Inventarios/ReconstruirCostos.aspx

@@ -0,0 +1,92 @@
+<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ReconstruirCostos.aspx.vb" Inherits="Inventario_ReconstruirCostos" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    <asp:Literal ID="LtlTitulo" runat="server" Text="Reconstruir Costos"></asp:Literal>&nbsp;<asp:Literal ID="LtlReconstruir" runat="server"></asp:Literal>
+</asp:Content>
+
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+   <%-- <li>
+        <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+    </li>--%>
+</asp:Content>
+
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                           <%--Filtros--%>
+                            <label class="col-md-1 truncate" style="width: 100px;">Clasificacion:</label>
+                            <div class="col-md-2">
+                                 <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
+                                    <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1 truncate" style="width: 100px;">Marca:</label>
+                            <div class="col-md-2">
+                                 <asp:DropDownList ID="DdlMarca" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Marca" DataValueField="CveMarca" Width="100%">
+                                    <asp:ListItem Selected="True" Text="Seleccione la Marca (Todas)" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                   </div>
+                 </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <div class="row">
+        <div class="col-md-12" align="right">
+            <asp:Label ID="LbFiltrar" Text="Filtrar" runat="server" />
+            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvProdcutos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvProdcutos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+        </div>
+    </div>
+
+    <asp:UpdatePanel ID="UpGvProductos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div style="height:650px; overflow-y: scroll;" >
+                <asp:GridView ID="GvProdcutos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; font-size: medium;" GridLines="None">
+                    <Columns>
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                            <HeaderTemplate>
+                            </HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:CheckBox ID="ChkProducto" runat="server"/>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+
+                        <asp:BoundField DataField="PS" NullDisplayText="N/A" ItemStyle-Width="30%" HeaderText="Producto" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField NullDisplayText="N/A" ItemStyle-Width="60%" ItemStyle-HorizontalAlign="Center" />
+                    </Columns>
+                    <RowStyle Font-Size="Smaller" />
+                    <HeaderStyle CssClass="Titulos" />
+                </asp:GridView>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
+</asp:Content>
+
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+</asp:Content>
+

Inventarios/ReconstruirCostos.aspx.vb

@@ -0,0 +1,64 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data
+Partial Class Inventario_ReconstruirCostos
+    Inherits ClsPaginas
+
+    Private Property FacturasCheckadas As Integer
+        Get
+            Return ViewState("FacturasCheckadas").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("FacturasCheckadas") = value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaClasificaciones()
+            CargaMarcas()
+        End If
+    End Sub
+    Private Sub CargaClasificaciones()
+
+        If UsuarioActual.Empresa.UsaAC Then
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        Else
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+        End If
+        DdlClasificacion.DataBind()
+    End Sub
+
+    Private Sub CargaMarcas()
+
+        Dim ObjPS As New ClsProductosServicios
+
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+            DdlMarca.DataBind()
+
+        End If
+        ObjPS.Dispose()
+    End Sub
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+
+
+        Dim ObjPS As New ClsProductosServicios
+        ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero)
+        If ObjPS.DtResultados.Rows.Count > 0 Then
+            GvProdcutos.DataSource = ObjPS.DtResultados
+            GvProdcutos.DataBind()
+            UpGvProductos.Update()
+        End If
+        ObjPS.Dispose()
+    End Sub
+
+
+
+End Class