diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4ebbbfb54..f64850f30 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4988,7 +4988,7 @@ Public Class ClsPaginas ObjUsuario.Dispose() Return Retorno End Function - Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing) + Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing, Optional VisualizacionReporte As Integer = -1) Select Case UsuarioActual.Empresa.Tipo_CentroCosto Case 1 @@ -5001,6 +5001,14 @@ Public Class ClsPaginas If LblProyecto IsNot Nothing Then LblProyecto.Visible = False If divProyecto IsNot Nothing Then divProyecto.Visible = False If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" + If VisualizacionReporte = 1 Then + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then + If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = True + If LblProyecto IsNot Nothing Then LblProyecto.Visible = True + If divProyecto IsNot Nothing Then divProyecto.Visible = True + If LblProyecto IsNot Nothing Then LblProyecto.Text = UsuarioActual.Empresa.Funcionalidad(307) + End If + End If Case 3 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If LblProyecto IsNot Nothing Then LblProyecto.Visible = False @@ -10672,8 +10680,8 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/RepCotizaciones.aspx".ToUpper(), 430) PaginaDict.Add("/Ventas/RepCotizacionesDetalle.aspx".ToUpper(), 430) PaginaDict.Add("/Ventas/RepVentasPV.aspx".ToUpper(), 9) - PaginaDict.Add("/Ventas/RepVentaDetalle.aspx".ToUpper(), 9) - PaginaDict.Add("/Ventas/RepVentaDetalle.aspx?Menu=1".ToUpper(), 785) + PaginaDict.Add("/Ventas/RepVentasDetalle.aspx".ToUpper(), 9) + PaginaDict.Add("/Ventas/RepVentasDetalle.aspx?Menu=1".ToUpper(), 785) PaginaDict.Add("/Ventas/CatClasificaciones.aspx".ToUpper(), 12) PaginaDict.Add("/Ventas/CatClasificaciones2.aspx".ToUpper(), 396) PaginaDict.Add("/Ventas/CatClasificacionesDetalle.aspx".ToUpper(), 12) @@ -10931,3 +10939,4 @@ Public Class ClsPaginas #End Region End Class + diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index c2c3b08bd..0eea249dd 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -174,43 +174,14 @@ --%> -
F. I. Captura
-
-
- - - - - - - - - - -
-
-
F. F. Captura:
-
-
- - - - - - - - - - -
-
+
Moneda:
-
Tipo de Proveedor:
+
Tipo de Prov:
@@ -219,14 +190,18 @@
- -
-
Capturó:
-
- +
Tipo Docto:
+
+ + + + +
+
+
Responsable:
@@ -239,17 +214,45 @@ --%> -
-
Tipo Docto:
-
- - - - - - - -
+
+
+
+
Capturó:
+
+ + + +
+
F. I. Captura
+
+
+ + + + + + + + + + +
+
+
F. F. Captura:
+
+
+ + + + + + + + + + +
+
diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 9e5844ce5..6c08d50d5 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -68,7 +68,9 @@ Partial Class Compras_RepCompras DdlGrupo.Items.Insert(6, New ListItem("Tipo Documento", "6")) DdlGrupo.Items.Insert(7, New ListItem("Clasificación Prov.", "7")) DdlGrupo.Items.Insert(8, New ListItem("Responsable", "8")) - DdlGrupo.Items.Insert(9, New ListItem("Remesa", "10")) + DdlGrupo.Items.Insert(9, New ListItem("Remesa", "10")) + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "13")) + DdlGrupo.DataBind() DdlGrupo.SelectedValueExist("3") End Sub @@ -77,7 +79,7 @@ Partial Class Compras_RepCompras txtFechaI.Text = $"01/01/{NowADS().Year}" 'Carga Tipo Centro de Costo - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) 'CargaProveedores DdlProveedores.setEsWebService(True) diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index df26c2813..4765f5ede 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -217,37 +217,8 @@ --%> -
F. I. Captura
-
-
- - - - - - - - - - -
-
-
F. F. Captura:
-
-
- - - - - - - - - - -
-
-
Tipo de Proveedor:
+ +
Tipo Prov.:
@@ -256,14 +227,19 @@
- -
-
Capturó:
-
- +
Tipo Docto:
+
+ + + + +
+
+
+
Responsable:
@@ -277,16 +253,45 @@ --%>
-
Tipo Docto:
-
- + +
+
+
Capturó:
+
+ - - - -
+
F. I. Captura
+
+
+ + + + + + + + + + +
+
+
F. F. Captura:
+
+
+ + + + + + + + + + +
+
diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 669e79f5a..c6be3b353 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -114,14 +114,8 @@ Partial Class Compras_RepComprasDetalle If IfNull(Request("TipoCambio"), "1").ToString <> "1" Then RblTipoCambio.SelectedValue = IfNull(Request("TipoCambio"), "1").ToString - End If - - - 'txtFechaI.Text = If(Anio <> "-1", String.Format("01/01/{0}", Anio), txtFechaI.Text) - 'txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text) - 'txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 2).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text) - - + End If + If Fecha <> "-1" Then txtFechaI.Text = Fecha txtFechaF.Text = Fecha @@ -130,7 +124,6 @@ Partial Class Compras_RepComprasDetalle If FechaF <> "-1" Then txtFechaF.Text = FechaF End If - If FechaCaptura <> "-1" Then TxtFechaICaptura.Text = FechaCaptura TxtFechaFCaptura.Text = FechaCaptura @@ -145,6 +138,8 @@ Partial Class Compras_RepComprasDetalle DdlProyecto.SelectedValueExist(CveProyecto) + If CveProyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") + 'CARGA LISTBOXs DdlSubProyecto.SelectedValuesIfExistM(SubProyecto) DdlTipoGasto.SelectedValuesIfExistM(TipoGasto) @@ -189,7 +184,7 @@ Partial Class Compras_RepComprasDetalle Private Sub CargaCombos() 'Carga Tipo Centro de Costo - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) 'Carga Tipo de Gasto DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb index c663aa5a3..4c09f6965 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/Compras/RepProductosServicios.aspx.vb @@ -114,7 +114,7 @@ Partial Class Compras_RepProductosServicios CargaGrupo() 'Carga Tipo Centro de Costo - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then lblCultivo.Visible = True @@ -123,36 +123,7 @@ Partial Class Compras_RepProductosServicios lblCultivo.Visible = False DivCultivo.Visible = False DdlSubProyecto.AutoPostBack = False - End If - - - 'CARGA COSTOS - If UsuarioActual.CveEmpresa = 66 Then - - Dim NumItems As Integer = DdlGrupo.Items.Count - - 'COSTOS PROYECTO - DdlGrupo.Items.Insert(NumItems, New ListItem("Costos", "13")) - RowCostos.Visible = True - - 'Carga Familias - DdlFamilia.DataSource = GlobalDTFamilias(66) - DdlFamilia.DataBind() - - 'Carga SubFamilias - DdlSubFamilia.DataSource = GlobalDTSubFamilias(66) - DdlSubFamilia.DataBind() - - 'COSTOS AF - DdlGrupo.Items.Insert(NumItems + 1, New ListItem("Costos por Activo Fijo", "14")) - - 'Carga AF - 'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - 'DdlAF.DataBind() - - End If - RowActivoFijo.Visible = True 'Carga Fechas @@ -175,6 +146,7 @@ Partial Class Compras_RepProductosServicios DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10")) DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11")) DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12")) + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "1")) 'Agrega el grupo si es una empresa Agricola If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then @@ -330,7 +302,7 @@ Partial Class Compras_RepProductosServicios #Region " SELECTED INDEX CHANGED" Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") End Sub Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged diff --git a/Compras/RepProductosServiciosDetalle.aspx b/Compras/RepProductosServiciosDetalle.aspx index 1107a2db1..1869066d7 100644 --- a/Compras/RepProductosServiciosDetalle.aspx +++ b/Compras/RepProductosServiciosDetalle.aspx @@ -261,19 +261,19 @@ - - + - - + - - + + + + diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index b15d64676..9c3f6065f 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/Compras/RepProductosServiciosDetalle.aspx.vb @@ -130,7 +130,8 @@ Partial Class Compras_RepProductosServiciosDetalle End If End If DdlProyecto.SelectedValueExist(Proyecto) - 'CARGA LISTBOXs + 'CARGA + If Proyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") DdlSubProyecto.SelectedValuesIfExistM(SubProyecto) DdlTipoGasto.SelectedValuesIfExistM(TipoGasto) DdlCategoria.SelectedValuesIfExistM(Categoria) @@ -181,7 +182,7 @@ Partial Class Compras_RepProductosServiciosDetalle Private Sub SetValues() 'Carga Tipo Centro de Costo - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) 'Carga Tipos de Gasto DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) @@ -233,33 +234,6 @@ Partial Class Compras_RepProductosServiciosDetalle 'Carga Grupos CargaGrupo() - - 'CARGA COSTOS - If UsuarioActual.CveEmpresa = 66 Then - - Dim NumItems As Integer = DdlGrupo.Items.Count - - 'COSTOS PROYECTO - DdlGrupo.Items.Insert(NumItems, New ListItem("Costos", "13")) - RowCostos.Visible = True - - 'Carga Familias - DdlFamilia.DataSource = GlobalDTFamilias(66) - DdlFamilia.DataBind() - - 'Carga SubFamilias - DdlSubFamilia.DataSource = GlobalDTSubFamilias(66) - DdlSubFamilia.DataBind() - - 'COSTOS AF - DdlGrupo.Items.Insert(NumItems + 1, New ListItem("Costos por Activo Fijo", "14")) - - 'Carga AF - 'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - 'DdlAF.DataBind() - - End If - RowActivoFijo.Visible = True 'Carga Fechas @@ -365,7 +339,7 @@ Partial Class Compras_RepProductosServiciosDetalle #Region "SELECT INDEX CHANGED" Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") End Sub Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged CargaCultivo() diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx index e86eb0617..8146e30e8 100644 --- a/Ventas/RepProductosServicios.aspx +++ b/Ventas/RepProductosServicios.aspx @@ -196,7 +196,7 @@
Proyecto:
- +
SubProyecto:
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 381395413..0d55213e5 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -161,7 +161,7 @@ Partial Class Ventas_RepProductosServicios DdlClienteClasificacion.DataBind() DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing) CargaGrupo() @@ -396,7 +396,7 @@ Partial Class Ventas_RepProductosServicios End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") End Sub 'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx index 45c299c7d..cc9d37022 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx +++ b/Ventas/RepProductosServiciosDetalle.aspx @@ -198,11 +198,11 @@
Proyecto:
- +
SubProyecto:
- +
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 4338b5057..fc20b38e6 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -191,7 +191,7 @@ Partial Class Ventas_RepProductosServiciosDetalle DdlTipoPSDes.DataBind() CargaGrupo() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing) TCEspecifico = 0 @@ -210,9 +210,6 @@ Partial Class Ventas_RepProductosServiciosDetalle Private Sub CargaSucursales(CveCliente As Integer, CveClienteSucursal As Integer) DdlClienteSucursal.Items.Clear() - - - If CveCliente > 0 Then Dim ObjCliente As New ClsClientes @@ -224,19 +221,12 @@ Partial Class Ventas_RepProductosServiciosDetalle End If End If ObjCliente.Dispose() - DdlClienteSucursal.DataBind() - End If - - DdlClienteSucursal.Items.Insert(0, New ListItem("Todas", "-1")) DdlClienteSucursal.Items.Insert(1, New ListItem("Sin Sucursal", "0")) - DdlClienteSucursal.SelectedValueExist(CveClienteSucursal) - - End Sub Private Sub CargaParametrosDetalle() @@ -248,7 +238,6 @@ Partial Class Ventas_RepProductosServiciosDetalle Dim CveClasificacionDetalle As Integer = -1 Dim CveClienteSucursal As Integer = -1 - GPO = If(Request("Grupo") IsNot Nothing AndAlso Request("Grupo").ToEntero() > 0, Request("Grupo").ToEntero(), -1).ToString CveProyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString @@ -335,17 +324,13 @@ Partial Class Ventas_RepProductosServiciosDetalle Else txtFechaF.Text = FechaFRef.ToString("dd/MM/yyyy") End If - End If - Else - If FechaI = "-1" Then txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text) Else txtFechaI.Text = FechaI End If - FechaFtemporal = $"01/{AnioMes.Substring(5, 1).PadLeft(2, "0"c)}/{AnioMes.Substring(0, 4)}" If FechaF = "-1" Then @@ -360,10 +345,7 @@ Partial Class Ventas_RepProductosServiciosDetalle txtFechaF.Text = FechaFRef.ToString("dd/MM/yyyy") End If End If - - End If - End If txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text) @@ -408,6 +390,7 @@ Partial Class Ventas_RepProductosServiciosDetalle CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToEntero DdlProyecto.SelectedValueExist(CveProyecto) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") DdlSubProyecto.SelectedValueExist(CveSubProyecto) DdlCategoria.SelectedValueExist(CveCategoria) DdlClasificacion.SelectedValueExist(CveClasificacion) @@ -621,7 +604,7 @@ Partial Class Ventas_RepProductosServiciosDetalle End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos") End Sub diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index f56c656e7..bffd19571 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -215,7 +215,7 @@
Proyecto:
- +
SubProyecto:
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 12053f771..68fe58c67 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -179,6 +179,8 @@ Partial Class Ventas_RepVentas DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20")) DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21")) DdlGrupo.Items.Insert(13, New ListItem("Giro", "22")) + If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "23")) + DdlGrupo.DataBind() DdlGrupo.SelectedValueExist("3") End Sub @@ -191,9 +193,9 @@ Partial Class Ventas_RepVentas Private Sub CargaCombos() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) - - 'CargaClientes + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1) + + 'CargaClientes Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) If EsWS Then DdlClientes.setEsWebService(True) @@ -389,7 +391,7 @@ Partial Class Ventas_RepVentas End If Dim CveSubProyecto As String = "-1", CveProyecto As String = "-1" - If DdlGrupo.SelectedValue.ToEntero = 19 Then + If DdlGrupo.SelectedValue.ToEntero.Contiene(19) Then CveSubProyecto = e.Row.DBCampo("CveCentroCosto") CveProyecto = e.Row.DBCampo("CveCentroCostoProyecto") Else @@ -486,7 +488,7 @@ Partial Class Ventas_RepVentas 'LIGA A DETALLE - Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}" + Dim Liga As String = $"/Ventas/RepVentasDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}" e.Row.FCLiteral("LtlGrupo").Text = "" & e.Row.FCLiteral("LtlGrupo").Text & "" diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentasDetalle.aspx similarity index 98% rename from Ventas/RepVentaDetalle.aspx rename to Ventas/RepVentasDetalle.aspx index 9129c8dd3..8317229e6 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentasDetalle.aspx @@ -1,90 +1,90 @@ -<%@ Page Title="Reporte de Ventas - Detalle" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentaDetalle.aspx.vb" Inherits="RepVentaDetalle" EnableEventValidation="false" %> - - - - - - - - - - -
  • - PDF -
    • -
  • - Excel -
    • -
  • - Excel -
    • -
  • - Excel Personalizado -
    • -
  • - <%-- Personalizar Columnas--%> - Personalizar Columnas -
    • -
  • - Descarga PDFs -
    • -
  • - Descargar XML -
    • -
  • - Ver Grafica -
    • -     - - - - - - - - -     -     - - +<%@ Page Title="Reporte de Ventas - Detalle" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentasDetalle.aspx.vb" Inherits="RepVentasDetalle" EnableEventValidation="false" %> + + + + + + + + + + +
  • + PDF +
    • +
  • + Excel +
    • +
  • + Excel +
    • +
  • + Excel Personalizado +
    • +
  • + <%-- Personalizar Columnas--%> + Personalizar Columnas +
    • +
  • + Descarga PDFs +
    • +
  • + Descargar XML +
    • +
  • + Ver Grafica +
    • +     + + + + + + + + +     +     + + <%--
    @@ -95,35 +95,35 @@
    - --%> - - - Reporte de Ventas - Detalle - - - - - - -
    -
    -
    - - -
    -
    -
    - -
    - - - - - - - - - + --%> + + + Reporte de Ventas - Detalle + + + + + + +
    +
    +
    + + +
    +
    +
    + +
    + + + + + + + + + <%-- @@ -133,48 +133,48 @@ - --%> -
    - -
    + --%> +
    + +
    Fecha Inicio: - -
    -
    -
    - - - - -
    - - - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Fecha Fin: - -
    -
    -
    - - - - -
    - - - - - - -
    - -
    - + +
    +
    +
    + + + + +
    + + + + + + +
    + +
    + <%-- @@ -193,750 +193,750 @@ - --%> - -
    -
    -
    -
    - +
    + -
    - - - - - - - <%-- 0--%> - - - - - - - <%-- 1--%> - - - - - - - <%-- 2--%> - - - - - - <%-- 3--%> - - - - - - <%-- 4--%> - - - - - - <%-- 5--%> - - - - - - <%-- 6--%> - - - - - - <%-- 7--%> - - - - - - <%-- 8--%> - - - - - - <%-- 9--%> - - - - - - <%-- 10--%> - - - - - - <%-- 11--%> - - - - - - <%-- 12--%> - - - - - - <%-- 13--%> - - - - - - <%-- 14--%> - - - - - - <%-- 15--%> - - - - - - <%-- 16--%> - - - - - - <%-- 17--%> - - - - - - <%-- 18--%> - - - - - - <%-- 19--%> - - - - - - <%-- 20--%> - - - - - - <%-- 21--%> - - - - - - <%-- 22--%> - - - - - - <%-- 23--%> - - - - - - <%-- 24--%> - - - - - - <%-- 25--%> - - - - - - <%-- 26--%> - - - - - - <%-- 27--%> - - - - - - <%-- 28--%> - - - - - - <%-- 29--%> - - - - - - <%-- 30--%> - - - - - - <%-- 31--%> - - - - - - <%-- 32--%> - - - - - - <%-- 33--%> - - - - - - - <%-- 34--%> - - - - - - <%-- 35--%> - - - - - - - - - <%-- 36--%> - - - - - - <%-- 37--%> - - - - - - <%-- 38--%> - - - - - - <%-- 39--%> - - - - - - <%-- 40--%> - - - - - - <%-- 41--%> - - - - - - <%-- 42--%> - - - - - - <%-- 43--%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + --%> +
    + +
    + + + +
    + +
    +
    + + + + + + + + + + +
    +
    + +
    +
    + + + + + + + + + + +
    +
    +
    +
    + +
    + + + +
    + +
    + +
    + + +
    + + + + + +
    + + +
    + + + + + +
    + +
    +
    + +
    + +
    + +
    + + + + + +
    + +
    + + +
    + + Servicio Domicilio: +
    + + Todos + Si + No + +
    + Factura Global: +
    + + Todos + Solo Globales + Sin Globales + +
    + +
    +
    +
    +     +     + + + + + <%-- 0--%> + + + + + + + <%-- 1--%> + + + + + + + <%-- 2--%> + + + + + + <%-- 3--%> + + + + + + <%-- 4--%> + + + + + + <%-- 5--%> + + + + + + <%-- 6--%> + + + + + + <%-- 7--%> + + + + + + <%-- 8--%> + + + + + + <%-- 9--%> + + + + + + <%-- 10--%> + + + + + + <%-- 11--%> + + + + + + <%-- 12--%> + + + + + + <%-- 13--%> + + + + + + <%-- 14--%> + + + + + + <%-- 15--%> + + + + + + <%-- 16--%> + + + + + + <%-- 17--%> + + + + + + <%-- 18--%> + + + + + + <%-- 19--%> + + + + + + <%-- 20--%> + + + + + + <%-- 21--%> + + + + + + <%-- 22--%> + + + + + + <%-- 23--%> + + + + + + <%-- 24--%> + + + + + + <%-- 25--%> + + + + + + <%-- 26--%> + + + + + + <%-- 27--%> + + + + + + <%-- 28--%> + + + + + + <%-- 29--%> + + + + + + <%-- 30--%> + + + + + + <%-- 31--%> + + + + + + <%-- 32--%> + + + + + + <%-- 33--%> + + + + + + + <%-- 34--%> + + + + + + <%-- 35--%> + + + + + + + + + <%-- 36--%> + + + + + + <%-- 37--%> + + + + + + <%-- 38--%> + + + + + + <%-- 39--%> + + + + + + <%-- 40--%> + + + + + + <%-- 41--%> + + + + + + <%-- 42--%> + + + + + + <%-- 43--%> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + + + + + + - + + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentasDetalle.aspx.vb similarity index 99% rename from Ventas/RepVentaDetalle.aspx.vb rename to Ventas/RepVentasDetalle.aspx.vb index 41430dc83..e17983fda 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentasDetalle.aspx.vb @@ -6,7 +6,7 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Imports System.Net.Http -Partial Class RepVentaDetalle +Partial Class RepVentasDetalle Inherits ClsPaginas #Region "P R O P I E D A D E S" Private Property CveProyecto As Integer @@ -1209,7 +1209,7 @@ Partial Class RepVentaDetalle Vendedor = If(DdlVendedor.GetSelectedText = "", "", $" Vendedor: {DdlVendedor.GetSelectedText}") CveUsuario = If(DdlUsuario.SelectedValue = "-1", "", $" Usuario: {DdlUsuario.SelectedItem.Text}") CveEstatusFactura = If(DdlEstatus.GetSelectedText = "", "", $" Estatus: {DdlEstatus.GetSelectedText}") - CondicionesPago = If(DdlCondicionesPago.selectedValue = "-1", "", String.Format(" Condiciones Pago: {0}", DdlCondicionesPago.SelectedItem.Text)) + CondicionesPago = If(DdlCondicionesPago.SelectedValue = "-1", "", String.Format(" Condiciones Pago: {0}", DdlCondicionesPago.SelectedItem.Text)) Dim RutaFormato As String = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta)