cambios en el dropdown de ajustes

Ventas/PV.aspx.vb

@@ -4973,16 +4973,6 @@ Partial Class PV
         UpAjuste.Update()
     End Sub
 
-    Private Sub CargaClienteAjuste()
-        DdlClientes.Items.Clear()
-
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-        DdlClientes.DataBind()
-        UpAjuste.Update()
-    End Sub
-
     Private Sub CargaBCIAjuste()
         Dim ObjGral As New ClsGenerales
         If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
@@ -5026,8 +5016,8 @@ Partial Class PV
 
         CreaDTmpDTAjustes()
         CreaDTmpDTRecepcionUsados()
-        CargaClienteAjuste()
         CargaBCIAjuste()
+        DdlClientes.setEsWebService(True)
         DivChkAjuste.Visible = True
     End Sub
 
@@ -5760,7 +5750,7 @@ Partial Class PV
             Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
             Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
             Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-            params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedItem.Text))
+            params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
             params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
             params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
         End If