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

fechas vencimientos

Browse Source
This commit is contained in:
rrene
2022-07-24 19:01:48 -07:00
parent 55fda3dc4e
commit 73a6f862fb
1 changed files with 2 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Inicio.aspx.vb
View File

@@ -336,10 +336,8 @@ Partial Class Inicio
Private Sub MuestraPsProximosAVencer() Private Sub MuestraPsProximosAVencer()
Dim ObjInventarios = New ClsInventarios Dim ObjInventarios = New ClsInventarios
If ObjInventarios.GetProductosCaducidad(-1, Now, Now.AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then If ObjInventarios.GetProductosCaducidad(-1, MinFecha, Now.AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then
If ObjInventarios.DtResultados.Rows.Count > 0 Then If ObjInventarios.DtResultados.Rows.Count > 0 Then
GvModalPSPorCaducar.DataSource = ObjInventarios.DtResultados GvModalPSPorCaducar.DataSource = ObjInventarios.DtResultados
@@ -352,20 +350,16 @@ Partial Class Inicio
GvModalPSPorCaducar.DataSource = Nothing GvModalPSPorCaducar.DataSource = Nothing
End If End If
ObjInventarios.Dispose() ObjInventarios.Dispose()
GvModalPSPorCaducar.DataBind() GvModalPSPorCaducar.DataBind()
End Sub End Sub
Private Sub MuestraRSCOProximosAVencer() Private Sub MuestraRSCOProximosAVencer()
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ObjInventarios.RepCompuestosVigencia(-1, -1, Now, Now.AddDays(30), 1, UsuarioActual.CveEmpresa, True) Then If ObjInventarios.RepCompuestosVigencia(-1, -1, MinFecha, Now.AddDays(30), 1, UsuarioActual.CveEmpresa, True) Then
If ObjInventarios.DtResultados.Rows.Count > 0 Then If ObjInventarios.DtResultados.Rows.Count > 0 Then
GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados
@@ -383,9 +377,6 @@ Partial Class Inicio
End Sub End Sub
Private Sub CargaSubProyectos() Private Sub CargaSubProyectos()
DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubproyectos.DataBind() DdlSubproyectos.DataBind()