From a241020dc75ff2828fd71f66a8af03f5b572bd0d Mon Sep 17 00:00:00 2001
From: Hector Javier Rodriguez Flores <hecttor201@gmail.com>
Date: Wed, 29 Sep 2021 00:08:50 -0700
Subject: [PATCH] Nuevos parametos

---
 App_Code/ClsGenerales.vb   | 4 +++-
 App_Code/ClsInventarios.vb | 4 ----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 0c36234e9..a84761df1 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2527,7 +2527,7 @@ Public Class ClsGenerales
                                          CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
                                          Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1,
                                          Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1,
-                                         Optional FechaInicio As String = "", Optional FechaFin As String = "") As Boolean
+                                         Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_HistorialBitacoraGet")
 
@@ -2554,6 +2554,8 @@ Public Class ClsGenerales
             .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora
             .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+
 
         End With
         'SqlTypes.SqlDateTime.Null
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 6cfd8a54b..03880cf97 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -131,8 +131,6 @@ Public Class ClsInventarios
     Public Property ResponsableCarga As String
     Public Property ResponsableRecibio As String
     Public Property Modulo As String
-    Public Property ConAplicacion As Boolean
-
 
 
 
@@ -2309,8 +2307,6 @@ Public Class ClsInventarios
                 FechaI = dr("FechaInicio").ToString
                 FechaF = dr("FechaFin").ToString
                 Estatus = dr("Estatus").ToString
-                ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString)
-
                 Retorno = True
             End If