+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
new file mode 100644
index 000000000..117257ef5
--- /dev/null
+++ b/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
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 423775dc4..630292659 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/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
diff --git a/App_Code/ClsModulos.vb b/App_Code/ClsModulos.vb
index a26983a44..3c47376f4 100644
--- a/App_Code/ClsModulos.vb
+++ b/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
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 71f7c993a..0550ccc34 100644
--- a/App_Code/ClsPaginas.vb
+++ b/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í.
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 3b705d02a..df303871d 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -113,7 +113,6 @@