From 7d794e1e1d8de0a01a806bcb28c2238a05a9bd64 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Jan 2021 10:50:41 -0700 Subject: [PATCH] -- estatus de cotizacion --- Ventas/RepCotizacionesxFacturar.aspx | 5 ++++- Ventas/RepCotizacionesxFacturar.aspx.vb | 10 +++++++++- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/Ventas/RepCotizacionesxFacturar.aspx b/Ventas/RepCotizacionesxFacturar.aspx index 0d45cd200..f475fb070 100644 --- a/Ventas/RepCotizacionesxFacturar.aspx +++ b/Ventas/RepCotizacionesxFacturar.aspx @@ -171,7 +171,10 @@
- + +
+ +
<%--
diff --git a/Ventas/RepCotizacionesxFacturar.aspx.vb b/Ventas/RepCotizacionesxFacturar.aspx.vb index 8f4a49951..34059ca2e 100644 --- a/Ventas/RepCotizacionesxFacturar.aspx.vb +++ b/Ventas/RepCotizacionesxFacturar.aspx.vb @@ -74,7 +74,7 @@ Partial Class RepCotizacionesxFacturar Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString - If ObjVentas.GetRepCotizacionesSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjVentas.GetRepCotizacionesSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveEstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados GvDatos.DataBind() @@ -139,6 +139,14 @@ Partial Class RepCotizacionesxFacturar DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyectos.DataBind() 'DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) + + 'DdlEstatusFactura.DataSource = GlobalDTEstatusFactura().FiltraParametros("TipoDocto = 'Cot'") + 'DdlEstatusFactura.DataBind() + DdlEstatusFactura.Items.Add(New ListItem("Registrada", "2")) + DdlEstatusFactura.Items.Add(New ListItem("Supervisada", "8")) + DdlEstatusFactura.Items.Add(New ListItem("Cancelada", "10")) + DdlEstatusFactura.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub #End Region