diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index ea0fb4252..52c328df4 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1472,38 +1472,9 @@ Partial Class Bancos_IE
                 e.Row.Cells(4).Width = Unit.Pixel(100)
             End If
 
-            'If e.Row.DBCampo("TipoDocto") = "Egsc" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
-            '    e.Row.CssClass = "Totales TextCenter"
-            '    e.Row.Cells(1).Text = "Egreso Por Comprobar"
-            'End If
-
-            'If e.Row.DBCampo("TipoDocto") = "Ant" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
-            '    e.Row.CssClass = "Totales TextCenter"
-            '    e.Row.Cells(1).Text = "Anticipos"
-            'End If
-
             If e.Row.DBCampo("TipoDocto") = "NC" AndAlso e.Row.DataKey("CveCompra").ToString.ToEntero > 0 Then
                 e.Row.FCCheckBox("Chk").InputAttributes.Add("data-saldo", e.Row.DataKey("Saldo"))
             End If
-
-            'If e.Row.DBCampo("TipoDocto") = "DEV" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
-            '    e.Row.CssClass = "Totales TextCenter"
-            '    e.Row.Cells(0).Text = "Devolución"
-            'End If
-
-            'If e.Row.DBCampo("CveProveedor") = "" Then
-            '    e.Row.BackColor = Drawing.Color.LightGray
-            'End If
-
-            'If UsuarioActual.TienePermisoProceso(273) Then
-            '    If CType(sender, GridView).ID = "GvA" And e.Row.DBCampo("CveCompra").ToEntero > 0 And e.Row.DBCampo("TipoDocto") = "NC" Then
-            '        Dim Parametros = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
-            '        e.Row.FCHyperLink("HLDevolverDinero").Visible = True
-            '        e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinC&P={Parametros}"
-            '    End If
-            'End If
-
-
         End If
     End Sub
 
@@ -1562,15 +1533,18 @@ Partial Class Bancos_IE
 
 #Region "   CARGA PERSONAL   "
     Protected Sub CargaDDLPersonal()
-        Dim ObjPersonal As New ClsRH
-        If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-            If ObjPersonal.DtResultados.Rows.Count > 0 Then
-                DdlPersonal.DataSource = ObjPersonal.DtResultados
-                DdlPersonal.DataBind()
-                DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1"))
-            End If
-        End If
-        ObjPersonal.Dispose()
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlPersonal.DataBind()
+        DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1"))
+        'Dim ObjPersonal As New ClsRH
+        'If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+        '    If ObjPersonal.DtResultados.Rows.Count > 0 Then
+        '        DdlPersonal.DataSource = ObjPersonal.DtResultados
+        '        DdlPersonal.DataBind()
+        '        DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1"))
+        '    End If
+        'End If
+        'ObjPersonal.Dispose()
     End Sub
 
     Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs)