-

Compras/eFacturas.aspx.vb

@@ -688,9 +688,10 @@ Partial Class Compras_eFacturas
                 GvD.DataSource = Nothing
             End If
         End If
+        ObjDatos.Dispose()
         LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0"))
         LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
-        ObjDatos.Dispose()
+
 
         If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
             GvPagos.DataSource = DtPagos
@@ -1252,16 +1253,10 @@ Partial Class Compras_eFacturas
         If txtFechaF.Text = "" Then FechaF = "-1"
         Dim Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1")
         Dim Proveedor = If(TxtProveedor.Text.Trim.Length > 0, String.Format("%{0}%", TxtProveedor.Text.Trim.ToUpper.Replace(" ", "%")), "-1")
+        Dim dt As DataTable = Nothing
 
         If ObjDatos.GetFacturas(-1, Folio, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, "-1", Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa) Then
 
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-            Dim dt As DataTable
-
-
-
             If Tab.ActiveTabIndex = 0 Then
                 dt = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'")
             Else
@@ -1269,6 +1264,15 @@ Partial Class Compras_eFacturas
             End If
 
 
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+        ObjDatos.Dispose()
+
+        If DT IsNot Nothing Then
+
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1283,8 +1287,6 @@ Partial Class Compras_eFacturas
             End If
 
             ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
-        Else
-            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
 
     End Sub

OC/OC.aspx.vb

@@ -1337,14 +1337,14 @@ Partial Class OC
                         ChkCotizacion.Visible = True
                         DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
                         If DdlProveedores.SelectedValue.ToEntero > 0 Then
-                            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
+                            DdlProveedores.SelectedText = GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
                         Else
                             DdlProveedores.SelectedText = "-"
                         End If
 
                         If objOC.CveProveedorSucursal.ToEntero > 0 Then
                             DivProveedorSucursal.Visible = True
-                            DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(objOC.CveProveedor, UsuarioActual.CveEmpresa)
+                            DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(objOC.CveProveedor, CveEmpresaActual)
                             DdlProveedorSucursal.DataBind()
                             DdlProveedorSucursal.SelectedValueExist(objOC.CveProveedorSucursal.ToString)
                         End If

Ventas/Clientes.aspx.vb

@@ -1894,22 +1894,22 @@ Partial Class Clientes
 
     Protected Sub BtnVerMasBancos_Click(sender As Object, e As EventArgs)
         If BtnVerMasBancos.Text = "Ver Más" Then
-            CargaBancos(-1)
+            CargaBancos(1000000)
             BtnVerMasBancos.Text = "Ver Menos"
         Else
-            CargaBancos(11)
+            CargaBancos(51)
             BtnVerMasBancos.Text = "Ver Más"
         End If
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "B A N C O S"
-    'CuentasxCobrar Activas (Pagos Recibidos)
+    'CuentasxCobrar Activas (Pagos Recibidos)
-    Private Sub CargaBancos(Optional SelectTop As Integer = 11, Optional CveClienteSucursal As Integer = -1)
+    Private Sub CargaBancos(Optional SelectTop As Integer = 51, Optional CveClienteSucursal As Integer = -1)
         Dim ObjMovtos As New ClsMovimientos()
         'CxC Activas
-        If ObjMovtos.GetClienteAbonos(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
+        If ObjMovtos.GetClienteAbonos(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
             GvBancos.DataSource = ObjMovtos.DtResultados
             DTCobrosRealizados = ObjMovtos.DtResultados
             DTCobrosRealizados.Rows.Remove(DTCobrosRealizados.Rows(0))