From 951b02fc9b3f73f3eb2e69a23daf0fb08aac3be7 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 18 Feb 2023 10:03:07 -0700 Subject: [PATCH 1/2] =?UTF-8?q?RepOC=20alinear=20indicador=20/=20barra=20d?= =?UTF-8?q?e=20b=C3=BAsqueda?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/RepOC.aspx | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 8a3b2fb41..25098cc6c 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -274,18 +274,16 @@ -
-
-
+
- +
-
+
" style="display: inline-block; width: 200px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> From 32561f3953584e359b4fbb2bc5df7167be23c6b9 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 18 Feb 2023 12:00:19 -0700 Subject: [PATCH 2/2] Indicador Resumen, Comp Productores agrupar por PS, + Abonado en CxP Productores CAMBIOS EN BD (Ventas): - PA_Citrus_IndicadoresGet --- General/RepIndicadorResumen.aspx | 19 +++++++---- General/RepIndicadorResumen.aspx.vb | 50 ++++++++++++----------------- 2 files changed, 32 insertions(+), 37 deletions(-) diff --git a/General/RepIndicadorResumen.aspx b/General/RepIndicadorResumen.aspx index 316e9e246..d3e7ed58d 100644 --- a/General/RepIndicadorResumen.aspx +++ b/General/RepIndicadorResumen.aspx @@ -179,16 +179,20 @@
+ AutoGenerateColumns="False" AllowPaging="False"> - + - - - + <%--TODO: Esto se puede meter en el stored procedured, pero me da cosa moverle :S--%> + + + <%--TODO: Esto puede tronar si el valor es DBNull --%> + <%# If(Convert.ToDecimal(Eval("Cantidad")) = 0, 0.ToString("C"), (Convert.ToDecimal(Eval("SubTotal")) / Convert.ToInt32(Eval("Cantidad"))).ToString("C")) %> + + + <%----%> -
@@ -342,7 +346,8 @@ AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + +
diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb index fa27177ea..46b34244a 100644 --- a/General/RepIndicadorResumen.aspx.vb +++ b/General/RepIndicadorResumen.aspx.vb @@ -32,7 +32,6 @@ Partial Class General_RepIndicadorResumen Dim ObjVentas As New ClsVentas Dim ObjCompras As New ClsCompras - Dim ObjMovtos As New ClsMovimientos Dim ObjCitrus As New ClsCGame Dim Grupo As Integer = 28 'Clasificación - PS @@ -41,9 +40,14 @@ Partial Class General_RepIndicadorResumen GvVxP.DataSource = ObjVentas.DtResultados End If + If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, + UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then + GvCompProductores.DataSource = ObjCompras.DtResultados.FiltraParametros("", "Cantidad DESC") + End If + If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then 'Compras Productores - GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial ASC") + 'GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial ASC") 'CxP Productores GvCxP192.DataSource = ObjCitrus.DTSetResultados.Tables(1).FiltraParametros("", "CveMoneda,Saldo DESC") 'CxP NO productores @@ -55,6 +59,7 @@ Partial Class General_RepIndicadorResumen End If ObjVentas.Dispose() + ObjCompras.Dispose() ObjCitrus.Dispose() GvVxP.DataBind() @@ -167,28 +172,11 @@ Partial Class General_RepIndicadorResumen End Sub Dim CompProductoresTotales As Decimal() = New Decimal(5 - 1) {} Protected Sub GvCompProductores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompProductores.RowDataBound - 'Esto tambien se podría meter en el Stored Procedure If e.Row.RowType = DataControlRowType.DataRow Then - CompProductoresTotales(0) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Cantidad"), 0)) - CompProductoresTotales(1) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "SubTotal"), 0)) - CompProductoresTotales(2) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "PUPromedioKG"), 0)) - CompProductoresTotales(3) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Saldo"), 0)) - CompProductoresTotales(4) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Abonado"), 0)) - ElseIf e.Row.RowType = DataControlRowType.Footer Then - 'Movemos el pie a la primera fila de la tabla - Dim footerRow As GridViewRow = e.Row - GvCompProductores.Controls(0).Controls.Remove(footerRow) - GvCompProductores.Controls(0).Controls.AddAt(1, footerRow) - 'Ahora se registran los datos - e.Row.Cells(0).Text = "Totales" - e.Row.Cells(1).Text = CompProductoresTotales(0).ToString("N") - e.Row.Cells(2).Text = CompProductoresTotales(1).ToString("C") - e.Row.Cells(3).Text = (CompProductoresTotales(2) / GvCompProductores.Rows.Count).ToString("C") 'Promedio - e.Row.Cells(4).Text = CompProductoresTotales(3).ToString("C") - e.Row.Cells(5).Text = CompProductoresTotales(4).ToString("C") - For i As Integer = 1 To e.Row.Cells.Count - 1 - e.Row.Cells(i).CssClass = "margenbound" - Next + If e.Row.DBCampo("Orden") = "00ND" Then + e.Row.CssClass = "Totales" + e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Moneda") + End If End If End Sub Protected Sub GvComprasAcreed_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompAcreed.RowDataBound @@ -257,13 +245,15 @@ Partial Class General_RepIndicadorResumen DtCompProductores.Columns.Add("UnidadC") DtCompProductores.Columns.Add("UnidadI") For Each Dr As DataRow In GvCompProductores.DataSource.Rows - Dim Row = DtCompProductores.NewRow() - Row("Texto") = Dr("RazonSocial").ToString - Row("Cantidad") = Dr("Cantidad").ToString.FormatoNumero - Row("Importe") = Dr("SubTotal").ToString.FormatoNumero - Row("UnidadC") = "Kg" - Row("UnidadI") = "MXN" - DtCompProductores.Rows.Add(Row) + If Not Dr("Orden").ToString = "00ND" Then + Dim Row = DtCompProductores.NewRow() + Row("Texto") = Dr("GPO").ToString + Row("Cantidad") = Dr("Cantidad").ToString.FormatoNumero + Row("Importe") = Dr("SubTotal").ToString.FormatoNumero + Row("UnidadC") = "Kg" + Row("UnidadI") = "MXN" + DtCompProductores.Rows.Add(Row) + End If Next Dim comp_productores = From s In DtCompProductores.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Cantidad = s("Cantidad").ToString().ToDouble(), .Importe = s("Importe").ToString().ToDouble(), .UnidadC = s("UnidadC").ToString(), .UnidadI = s("UnidadI").ToString()} Dim group_comp_productores = comp_productores.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {