From 200233f7b50e111a79129f3f9ccafe7dbb8268c1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 2 Jan 2020 16:10:51 -0700 Subject: [PATCH 1/3] =?UTF-8?q?se=20agreg=C3=B3=20titulo=20a=20la=20p?= =?UTF-8?q?=C3=A1gina?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Acumuladores/RepEntradasUsadosClientes.aspx | 1 + 1 file changed, 1 insertion(+) diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx index 572aa285d..36a2fb0f6 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -5,6 +5,7 @@ + Reporte Entradas Usados Clientes From 37709395c4c5c3b527b3adb3e49bab2e8da1d63a Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 2 Jan 2020 18:26:30 -0700 Subject: [PATCH 2/3] cambios en formatos de usados y agregando nuevo filtro de busqueda a repCortes --- Acumuladores/EntradasUsadosResumenRep.aspx | 22 +++++++++---------- Acumuladores/EntradasUsadosResumenRep.aspx.vb | 5 +++-- App_Code/ClsPuntoVenta.vb | 3 ++- Bancos/RepCortes.aspx | 5 +++++ Bancos/RepCortes.aspx.vb | 5 ++++- 5 files changed, 25 insertions(+), 15 deletions(-) diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx index 9399901c2..b840b5165 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx +++ b/Acumuladores/EntradasUsadosResumenRep.aspx @@ -80,17 +80,17 @@ ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" DataKeyNames="CvePSCargo,Codigo,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual"> - - - - - - - - - - - + + + + + + + + + + + diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb index 8e8489b85..1aa15ed02 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb +++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb @@ -53,14 +53,15 @@ Partial Class Acumuladores_RepEntradasUsados Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Direccion", "asdfasdfasdf")) + params.Add(New ReportParameter("Direccion", "dirección")) params.Add(New ReportParameter("FechaConFormato", FechaConFormato)) params.Add(New ReportParameter("FechaInicial", txtFechaI.Text)) params.Add(New ReportParameter("FechaFinal", txtFechaF.Text)) + params.Add(New ReportParameter("Sucursal", "Sucursal")) Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados} - ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados2.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "prueba", "PDF") + ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "Reporte entrada usados", "PDF") End Sub End Class diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index 48b57e6ab..6a0112680 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -243,13 +243,14 @@ Public Class ClsPuntoVenta Return Retorno End Function - Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean + Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ReporteCortesGet") SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa SqlAdapter.SelectCommand.Parameters.Add("@FechaInicio", SqlDbType.Date).Value = FechaI SqlAdapter.SelectCommand.Parameters.Add("@FechaFin", SqlDbType.Date).Value = FechaF + SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto Try SqlAdapter.Fill(Data) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 7794916f9..cb73fe891 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -112,6 +112,11 @@ +
+ + + +
<%--
> diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index e04b47980..937679e51 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -61,6 +61,9 @@ Partial Class Bancos_RepCortes txtFechaVI.Text = Now.ToShortDateString txtFechaVF.Text = Now.ToShortDateString Me.Form.DefaultButton = BtnConsultar.UniqueID + DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + DdlSubProyectos.DataBind() + DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) End If End Sub @@ -70,7 +73,7 @@ Partial Class Bancos_RepCortes Dim ObjPuntoVenta As New ClsPuntoVenta Dim FechaI As Date = If(txtFechaVI.Text <> "", txtFechaVI.Text.ToDate, MinFecha) Dim FechaF As Date = If(txtFechaVF.Text <> "", txtFechaVF.Text.ToDate, MaxFecha) - If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF) Then + If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjPuntoVenta.DtResultados GvDatos.DataBind() UPDatos.Update() From b7abe00c842efc48d000e551d1e4dfc367cf334f Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 2 Jan 2020 19:02:37 -0700 Subject: [PATCH 3/3] agregando sumatoria al final del grid --- Bancos/RepCortes.aspx | 12 +++++++----- Bancos/RepCortes.aspx.vb | 4 +++- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index cb73fe891..116d4501f 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -78,6 +78,13 @@

+
+ SubProyecto +
+
+ + +
F.I.:
@@ -112,11 +119,6 @@
-
- - - -
<%--
> diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 937679e51..95c0d7ad0 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -85,7 +85,9 @@ Partial Class Bancos_RepCortes #Region "G V - D A T O S " Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - + If e.Row.DBCampo("CveCorte").ToString = "" Then + e.Row.CssClass = "SubTotales2" + End If End If End Sub