nueva consulta de pagos no bancarios

RH/Personal.aspx.vb

@@ -1509,7 +1509,8 @@ Partial Class RH_Personal
 
                 'Carga Conceptos de Nómina
                 CarcaConceptosNomina()
-
+                'Carga Pagos no Bancarios
+                CargarPagosNoBancarios()
                 'Carga Resguardos
                 Dim ObjResguardos As New ClsAF
                 If ObjResguardos.GetActivosFijosResguardos(-1, -1, CvePersonal, -1) Then
@@ -6338,4 +6339,13 @@ Partial Class RH_Personal
 
 
     End Sub
+
+    Private Sub CargarPagosNoBancarios()
+        Dim ObjBancos As New ClsBancos
+        If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
+            GvPagosNoBancarios.DataSource = ObjBancos.DtResultados
+            GvPagosNoBancarios.DataBind()
+        End If
+        ObjBancos.Dispose()
+    End Sub
 End Class