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