AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-* se optimizó la carga de clientes

Browse Source
This commit is contained in:
rrene
2022-03-02 22:14:48 -07:00
parent ce7ed15e9d
commit 4850ef01d1
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
RH/Personal.aspx.vb
View File

@@ -2370,18 +2370,18 @@ Partial Class RH_Personal
Private Sub CargaCombosBuzon() Private Sub CargaCombosBuzon()
Dim ObjClientes As New ClsClientes 'Dim ObjClientes As New ClsClientes
If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then '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 ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados
DdlClienteBuzon.DataSource = ObjClientes.DtResultados ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados
Else 'Else
DdlClienteBuzon.DataSource = Nothing ' DdlClienteBuzon.DataSource = Nothing
DdlClienteBuzon.DataSource = Nothing ' DdlClienteBuzon.DataSource = Nothing
DdlClienteBuzon.DataSource = Nothing ' DdlClienteBuzon.DataSource = Nothing
End If 'End If
ObjClientes.Dispose() 'ObjClientes.Dispose()
DdlClienteBuzon.DataBind() 'DdlClienteBuzon.DataBind()
Dim objRH As New ClsRH Dim objRH As New ClsRH