-
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 0f23ec3c5..31eba5f72 100644
--- a/Ventas/PV.aspx.vb
+++ b/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