nueva consulta de pagos no bancarios

Compras/Proveedores.aspx.vb

@@ -511,7 +511,7 @@ Partial Class Compras_Proveedores
                     'CargaColectivas()
                     'CargaSaldosBeneficiarios()
                     CargaUsuariosPortal()
-
+                    CargarPagosNoBancarios()
                     CargaFiltroMonedas()
                     MostrarFiltro()
 
@@ -6269,6 +6269,15 @@ Partial Class Compras_Proveedores
         End If
 
     End Sub
+
+    Private Sub CargarPagosNoBancarios()
+        Dim ObjBancos As New ClsBancos
+        If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
+            GvPagosNoBancarios.DataSource = ObjBancos.DtResultados
+            GvPagosNoBancarios.DataBind()
+        End If
+        ObjBancos.Dispose()
+    End Sub
 End Class