-usados

Acumuladores/EntradasUsadosResumenRep.aspx

@@ -0,0 +1,104 @@
+<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="EntradasUsadosResumenRep.aspx.vb" Inherits="Acumuladores_RepEntradasUsados" %>
+
+<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="E" runat="Server">
+    Reporte de Usados
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnImprimir" OnClick="BtnImprimir_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-file-pdf-o'></i>Imprimir"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="BtnImprimir" />
+        </Triggers>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <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">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" OnClick="BtnConsultar_Click" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            <label class="col-md-1 ">Almacén:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList Class="select2me" Width="200px" ID="DdlAlmacenes" data-metodo="getcliente" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssStyle="width: 100%;"></asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 ">Fecha Inicial:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <label class="col-md-1 ">Fecha Final:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body">
+                </div>
+            </div>
+            <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <asp:GridView ID="GvAcum" Width="100%" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover ScrollAD "
+                        ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False"
+                        ShowFooter="False" DataKeyNames="CvePSCargo,Codigo,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual">
+                        <Columns>
+                            <asp:BoundField DataField="Codigo" HeaderText="Grupo" ReadOnly="true" />
+                            <asp:BoundField DataField="Inicial" HeaderText="Inicial" ReadOnly="true" />
+                            <asp:BoundField DataField="E_Almacen" HeaderText="E.Alm" ReadOnly="true" />
+                            <asp:BoundField DataField="E_Pub" HeaderText="E.Alm" ReadOnly="true" />
+                            <asp:BoundField DataField="E_Traspaso" HeaderText="E.Tras" ReadOnly="true" />
+                            <asp:BoundField DataField="E_Compra" HeaderText="E.Compra" ReadOnly="true" />
+                            <asp:BoundField DataField="E_Otros" HeaderText="Otros" ReadOnly="true" />
+                            <asp:BoundField DataField="S_Almacen" HeaderText="E.Alm" ReadOnly="true" />
+                            <asp:BoundField DataField="S_Traspaso" HeaderText="S.Tras" ReadOnly="true" />
+                            <asp:BoundField DataField="S_Otros" HeaderText="Otros" ReadOnly="true" />
+                            <asp:BoundField DataField="Exist_Actual" HeaderText="Exist. Actual" ReadOnly="true" />
+                        </Columns>
+                    </asp:GridView>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+
+

Acumuladores/EntradasUsadosResumenRep.aspx.vb

@@ -0,0 +1,66 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Acumuladores_RepEntradasUsados
+    Inherits ClsPaginas
+
+    Private DiasSemana(7) As String
+    Private Meses(12) As String
+
+    Private Property DatosEntradasUsados() As DataTable
+        Get
+            Return CType(ViewState("DatosEntradasUsados"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DatosEntradasUsados") = value
+        End Set
+    End Property
+
+    Protected Sub Page_Load() Handles Me.Load
+        If Not IsPostBack Then
+            txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1))
+            txtFechaF.Text = Today
+            CargarDatos()
+        End If
+    End Sub
+
+    Protected Sub CargarDatos()
+        DdlAlmacenes.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
+        DdlAlmacenes.DataBind()
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        Dim ObjAcum As New ClsAcumuladores
+
+        If ObjAcum.EntradasUsadosGet(DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then
+            GvAcum.DataSource = ObjAcum.DtResultados
+            DatosEntradasUsados = ObjAcum.DtResultados
+
+        End If
+        ObjAcum.Dispose()
+        GvAcum.DataBind()
+
+    End Sub
+
+    Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
+
+
+        Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
+        Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today))
+
+        Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Month(Today), Mes, Year(Today))
+
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Direccion", "asdfasdfasdf"))
+        params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
+        params.Add(New ReportParameter("FechaInicial", txtFechaI.Text))
+        params.Add(New ReportParameter("FechaFinal", txtFechaF.Text))
+
+        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados}
+
+        ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados2.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "prueba", "PDF")
+
+    End Sub
+End Class

App_Code/ClsAcumuladores.vb

@@ -243,12 +243,37 @@ Public Class ClsAcumuladores
         End Try
 
         Return Retorno
-    End Function
+    End Function
-
+
+    Public Function EntradasUsadosGet(CveAlmacen As Integer, FechaInicial As Date, FechaFinal As Date) As Boolean
+        Dim retorno As Boolean = False
+
+        SqlDataAdapter("PA_Acum_EntradasUsadosResumenRep")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@FechaInicial", SqlDbType.Date).Value = FechaInicial
+            .Add("@FechaFinal", SqlDbType.Date).Value = FechaFinal
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+
+            OnError("Ocurrió un error al traerse el reporte de usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+        End Try
+
+        Return retorno
+
+    End Function
+
+
 #End Region
-
+
 #Region " TIPOS DEFECTO "
-
+
     Public Function TiposDefectoGet(CveTipoDefecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable

App_Code/ClsModulos.vb

@@ -429,7 +429,7 @@ Public Class ClsModulos
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose ( que se dispone como Boolean).
-        ConexionClose()
+        'ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsPaginas.vb

@@ -4581,7 +4581,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034)
             PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035)
             PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
-            PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543)
+            'PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543)
+            PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032)
 
 
             'Antes de aquí.

Inventarios/KardexAlmacenHorizontal.aspx

@@ -113,7 +113,6 @@
                             <label class="col-md-1 truncate" style="width:120px">Producto:</label>
                             <div class="col-md-1">
                                 <asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me">
-                                    <asp:ListItem Text="Todos" Value="1" />
                                     <asp:ListItem Text="Con existencia" Value="2" />
                                     <asp:ListItem Text="Sin existencia" Value="3" />
                                 </asp:DropDownList>