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()
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