From 4850ef01d1374f441f017163d2ea90f540b5bbbc Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 2 Mar 2022 22:14:48 -0700 Subject: [PATCH] =?UTF-8?q?-*=20se=20optimiz=C3=B3=20la=20carga=20de=20cli?= =?UTF-8?q?entes?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- RH/Personal.aspx.vb | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 15d228cca..67eebc46d 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -2370,18 +2370,18 @@ Partial Class RH_Personal Private Sub CargaCombosBuzon() - Dim ObjClientes As New ClsClientes - If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - DdlClienteBuzon.DataSource = ObjClientes.DtResultados - DdlClienteBuzon.DataSource = ObjClientes.DtResultados - DdlClienteBuzon.DataSource = ObjClientes.DtResultados - Else - DdlClienteBuzon.DataSource = Nothing - DdlClienteBuzon.DataSource = Nothing - DdlClienteBuzon.DataSource = Nothing - End If - ObjClientes.Dispose() - DdlClienteBuzon.DataBind() + 'Dim ObjClientes As New ClsClientes + 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados + ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados + ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados + 'Else + ' DdlClienteBuzon.DataSource = Nothing + ' DdlClienteBuzon.DataSource = Nothing + ' DdlClienteBuzon.DataSource = Nothing + 'End If + 'ObjClientes.Dispose() + 'DdlClienteBuzon.DataBind() Dim objRH As New ClsRH