AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Nuevos parametos

Browse Source
This commit is contained in:
Hector Javier Rodriguez Flores
2021-09-29 00:08:50 -07:00
parent 50b59323e2
commit a241020dc7
2 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsGenerales.vb
View File

@@ -2527,7 +2527,7 @@ Public Class ClsGenerales
CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1, 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 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 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 Dim Retorno As Boolean = False
DataAdapter("PA_Gral_HistorialBitacoraGet") DataAdapter("PA_Gral_HistorialBitacoraGet")
@@ -2554,6 +2554,8 @@ Public Class ClsGenerales
.Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora
.Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
.Add("@Fecha", SqlDbType.Date).Value = Fecha
End With End With
'SqlTypes.SqlDateTime.Null 'SqlTypes.SqlDateTime.Null

4
App_Code/ClsInventarios.vb
View File

@@ -131,8 +131,6 @@ Public Class ClsInventarios
Public Property ResponsableCarga As String Public Property ResponsableCarga As String
Public Property ResponsableRecibio As String Public Property ResponsableRecibio As String
Public Property Modulo As String Public Property Modulo As String
Public Property ConAplicacion As Boolean
@@ -2309,8 +2307,6 @@ Public Class ClsInventarios
FechaI = dr("FechaInicio").ToString FechaI = dr("FechaInicio").ToString
FechaF = dr("FechaFin").ToString FechaF = dr("FechaFin").ToString
Estatus = dr("Estatus").ToString Estatus = dr("Estatus").ToString
ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString)
Retorno = True Retorno = True
End If End If