diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx index 686750825..b11a035ad 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -71,11 +71,11 @@ - + - + diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index b6b98737d..10dc9695e 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -50,7 +50,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then GvDatos.DataSource = Acum.DtResultados - DatosEntradasUsadosClientes = Acum.DtResultados + DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") End If Acum.Dispose() @@ -78,7 +78,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Direccion", "asdfasdfasdf")) + params.Add(New ReportParameter("Direccion", "Tamaulipas Esq. con Guadalupe Victoria")) params.Add(New ReportParameter("FechaConFormato", FechaConFormato)) params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text)) params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text)) diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 44eda61c6..005ba0817 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -75,11 +75,13 @@ Partial Class Ventas_ActualizarPrecios Public Sub CargaPreciosLista() - DdlPrecioLista.ITEMS.CLEAR + DdlPrecioLista.ITEMS.Clear Dim ObjVta As New ClsVentas + Dim primerItem As String = "" If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy() DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy() + primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista") End If ObjVta.Dispose() @@ -87,6 +89,10 @@ Partial Class Ventas_ActualizarPrecios DdlPrecioLista.DataBind() DdlPrecioListaCarga.DataBind() + If (DdlPrecioLista.Items.Count = 1) Then + DdlPrecioLista.Items.FindByValue(primerItem).Selected = True + End If + DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1")) If UsuarioActual.CveEmpresa.Contiene(1, 140) Then DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))