-- cambios en globalDT

Inicio.aspx.vb

@@ -1506,26 +1506,14 @@ Partial Class Inicio
 
     Private Sub IniializaDdlsOpcionesAgenda()
         'CLIENTES
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlClientesWS.setEsWebService(True)
-        Else
-            DdlClientesWS.setEsWebService(False)
-            CargaClientes()
-        End If
 
+        DdlClientesWS.setEsWebService(True)
 
         'PROVEEDORES
-        If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
-            DdlProveedor.setEsWebService(True)
-            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
-            DdlProveedor.SelectedText = "Todos"
-            DdlProveedor.SelectedValue = "-1"
-        Else
-            DdlProveedor.setEsWebService(False)
-            DdlProveedor.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-            DdlProveedor.ddl.DataBind()
-            DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        End If
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
+        DdlProveedor.SelectedValue = "-1"
 
         DdlProveedor.ddl.AutoPostBack = False
         DdlClientesWS.ddl.AutoPostBack = False
@@ -1579,8 +1567,6 @@ Partial Class Inicio
     Private Sub CargaClientes()
         If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlClientesWS.ddl.Items.Clear()
-            DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-            DdlClientesWS.DataBind()
             DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
     End Sub