diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 541ccc1fc..87304968c 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2803,11 +2803,10 @@
-
-
- - - +
+
+
+
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