From b1607bcd45814fdcab1dac67ae6c4ab99fc14c9b Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 20 Jan 2020 13:13:14 -0700
Subject: [PATCH] =?UTF-8?q?agregando=20impresi=C3=B3n=20con=20el=20concept?=
 =?UTF-8?q?o=2042=20para=20los=20movimientos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/PopUpVerFactura.aspx.vb | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 4bb00633a..558e711df 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2891,7 +2891,35 @@ Partial Class PopUpVerFactura
                         End If
 
                     End If
-                End If
+                End If
+
+            Case 42 'ENTRADAS USADOS
+
+                Dim ObjAcum As New ClsAcumuladores
+                Dim DatosEntradasUsados As New DataTable
+                Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen))
+                If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then
+                    DatosEntradasUsados = ObjAcum.DtResultados
+
+                End If
+                ObjAcum.Dispose()
+
+                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, Day(Today), Mes, Year(Today))
+
+                Dim params As New List(Of ReportParameter)
+
+                params.Add(New ReportParameter("Direccion", "dirección"))
+                params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
+                params.Add(New ReportParameter("FechaInicial", Fecha))
+                params.Add(New ReportParameter("FechaFinal", Today.ToString))
+                params.Add(New ReportParameter("Sucursal", "Sucursal"))
+
+                Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados}
+
+                ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "Reporte entrada usados", "PDF")
 
         End Select