Uniformes y RepAnexoCatalogoVertical(parametros)

2020-08-11 08:58:52 -07:00
parent 774a1e151c
commit eca126a861
10 changed files with 1228 additions and 1300 deletions
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -5105,7 +5105,7 @@ Partial Class RH_Personal

            Dim ObjInv As New ClsInventarios

-            If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1) Then
+            If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=True) Then
                GvUniformesResguardo.DataSource = ObjInv.DtResultados
                UniformesInfo = ObjInv.DtResultados
            Else