nueva consulta de pagos no bancarios

Ventas/Clientes.aspx.vb

@@ -1388,6 +1388,7 @@ Partial Class Clientes
                 'CargaMetodosPago33()
                 'CargaFormaPago33()
                 'CargaComboCFDI()
+                CargarPagosNoBancarios()
 
                 If UsuarioActual.TienePermisoProceso(279) Then
                     LnkPorcentajeMarcas.Visible = True
@@ -10150,5 +10151,14 @@ Partial Class Clientes
     Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaEstados(DdlSATPais.SelectedValue)
     End Sub
+
+    Private Sub CargarPagosNoBancarios()
+        Dim ObjBancos As New ClsBancos
+        If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
+            GvPagosNoBancarios.DataSource = ObjBancos.DtResultados
+            GvPagosNoBancarios.DataBind()
+        End If
+        ObjBancos.Dispose()
+    End Sub
 End Class