From d71d891906f0a64307e8e05efff0cdbbda65e3a4 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 11 Dec 2019 18:54:13 -0700
Subject: [PATCH] Agregando nueva vista de reporte RepEntradasUsadosClientes

---
 Acumuladores/RepEntradasUsadosClientes.aspx   | 51 +++++++++++++------
 .../RepEntradasUsadosClientes.aspx.vb         | 48 ++++++++++++++++-
 2 files changed, 82 insertions(+), 17 deletions(-)

diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx
index 3a55af4e0..686750825 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx
@@ -1,32 +1,42 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEntradasUsadosClientes.aspx.vb" Inherits="Acumuladores_RepEntradasUsadosClientes" %>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
 </asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+<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 ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+<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">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary"  />
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
                         <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
                         <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
                     <div class="titlefiltros caption">
                         <div class="col-md-1 truncate v-center" style="text-align: right!important">Almacen:</div>
-                            <div class="col-md-2 v-center">
-                                <asp:ListBox ID="DdlAlmacen"  CssClass="form-control  input-sm select2me" DataTextField="Almacen" DataValueField="CveAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
-                            </div>     
+                        <div class="col-md-2 v-center">
+                            <asp:ListBox ID="DdlAlmacen" CssClass="form-control  input-sm select2me" DataTextField="Almacen" DataValueField="CveAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
+                        </div>
                         <div class="row v-center">
                             <div class="col-md-1 truncate" style="text-align: right!important">Fecha Inicio:</div>
                             <div class="col-md-1 v-center">
@@ -50,16 +60,27 @@
                                 <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="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
-                                                  
+
                         </div>
                     </div>
                 </div>
-               
+
             </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+        <ContentTemplate>
+            <asp:GridView runat="server" ID="GvDatos" data-sort="true" AutoGenerateColumns="False"  EmptyDataText="No se encontraron datos con los filtros seleccionados" ToolTip="Listado de Movimientos" DataKeyNames="Codigo,Codigo_Clientes,Cantidad" CssClass="Widthall table table-striped table-hover ScrollAD" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText="Tipo" DataField="Codigo"/>
+                    <asp:BoundField HeaderText="Clientes/Grupos" DataField="Codigo_Clientes"/>
+                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad"/>
+                </Columns>
+            </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
-    <asp:GridView runat="server" id="GvDatos"></asp:GridView>
 </asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>
 
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index 29d60c703..b6b98737d 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -1,9 +1,20 @@
 Imports Extensiones
+Imports System.Data
 Imports System
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Acumuladores_RepEntradasUsadosClientes
     Inherits ClsPaginas
 
+    Private Property DatosEntradasUsadosClientes() As DataTable
+        Get
+            Return CType(ViewState("DatosEntradasUsados"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DatosEntradasUsados") = value
+        End Set
+    End Property
+
     Private Sub Acumuladores_EntradasUsados_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
@@ -38,11 +49,44 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
         Dim Acum As New ClsAcumuladores
 
         If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            GvDatos.datasource = Acum.DtResultados
+            GvDatos.DataSource = Acum.DtResultados
+            DatosEntradasUsadosClientes = Acum.DtResultados
         End If
 
         Acum.Dispose()
-        GvDatos.databind
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("EsHeader").ToString = "-1" Then
+                e.Row.CssClass = "SubTotales2"
+            End If
+
+        End If
+    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) - 1)
+
+        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 = DatosEntradasUsadosClientes}
+
+        ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsadosClientes, params, "prueba", "PDF")
 
     End Sub
+
 End Class