diff --git a/Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc b/Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc index e2fb28945..5e314ec69 100644 --- a/Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc +++ b/Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc @@ -51,25 +51,37 @@ - 2.51027cm + 1.78756cm - 2.396cm + 1.7468cm - 1.01424cm + 1.87995cm - 2.3007cm + 1.75936cm - 0.96542cm + 1.99234cm - 2.21367cm + 0.7279cm - 0.90371cm + 2.03612cm + + + 0.67438cm + + + 1.94909cm + + + 0.5862cm + + + 1.38875cm @@ -112,6 +124,114 @@ + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + =IIF(Fields!GPO.Value="", "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Bonificacion.Value + + + + + + + Bonificacion + + + =IIF(Fields!GPO.Value="", "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Costo.Value + + + + + + + Costo + + + =IIF(Fields!GPO.Value="", "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -328,6 +448,42 @@ + + + + true + true + + + + + =Fields!Rentabilidad.Value + + + + + + + Rentabilidad + + + =IIF(Fields!GPO.Value="", "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -373,6 +529,123 @@ + + + 0.46771cm + + + true + true + + + + + Descuento + + + + + + + Textbox25 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Bonificacion + + + + + + + Textbox20 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Costo + + + + + + + Textbox17 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + 0.46771cm @@ -607,6 +880,45 @@ + + + 0.46771cm + + + true + true + + + + + % Rent. + + + + + + + Textbox21 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + @@ -614,7 +926,7 @@ - 7.28314cm + 3.0587cm true @@ -725,7 +1037,7 @@ Textbox1 1.01452cm - 6.93622cm + 5.03122cm 1.73771cm 5.11444cm 2 @@ -763,7 +1075,7 @@ Textbox1 1.85236cm - 7.25372cm + 5.34872cm 0.58236cm 2.59949cm 3 @@ -800,7 +1112,7 @@ Textbox1 1.85236cm - 10.04757cm + 8.14257cm 0.58236cm 1.68559cm 4 @@ -814,11 +1126,86 @@ 2pt + + true + true + + + + + = "RENTABILIDAD" + HTML + + + + + + + Textbox1 + 1.01452cm + 10.71594cm + 1.73771cm + 5.11444cm + 5 + + + SeaGreen + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Rentabilidad.Value + HTML + + + + + + + Textbox1 + 1.85236cm + 12.93844cm + 0.58236cm + 2.59949cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + 1.667in @@ -170,8 +172,9 @@ -
-
+
+
+
@@ -183,6 +186,18 @@
+ +
+
+
+
+
+
+
+
+
+

@@ -194,12 +209,16 @@ + + + + @@ -215,8 +234,20 @@
-
+
+ + +
+ + + +
+
+ + +
+
@@ -232,7 +263,7 @@ diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index 8719b0036..b4d764d2a 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -136,6 +136,12 @@ Partial Class Ventas_RepVentasUtilidadPadre LblNeto.Text = Neto.ToString("N2") LblPorNeto.Text = PorNeto.ToString("N2") End If + + LblNombreRentabilidad.Text = "Rentabilidad" + DivClaseRentabilidad.Attributes.Add("class", "dashboard-stat dashboard-stat-v2 green") + LblRentabilidadIndicador.Attributes.Add("data-original-title", "Rentabilidad") + LblRentabilidad.Text = DtDatos.Rows(0)("Rentabilidad").ToString.ToDouble.ToString("N2") + End If ObjVentas.Dispose() @@ -161,26 +167,52 @@ Partial Class Ventas_RepVentasUtilidadPadre LblTituloGrafica.Text = $"Agrupado por: {Agrupador}" RegistraScript("$('#DivModalGrafica').modal('show')") - Dim Dt As New DataTable() - Dt.Columns.Add("gpo") - Dt.Columns.Add("utilidad") - Dt.Columns.Add("perdida") - For Each Dr As DataRow In DtDatos.Rows - If Dr("GPO").ToString <> "" Then - Dim Row As DataRow = Nothing - Row = Dt.NewRow() - Row("gpo") = Dr("GPO").ToString - Row("utilidad") = Dr("Utilidad").ToString.FormatoNumero - Row("perdida") = Dr("Perdida").ToString.FormatoNumero - Dt.Rows.Add(Row) - End If - Next + CargaGrafica() + + End Sub + + Private Sub CargaGrafica() + If DdlVer.SelectedValue.ToEntero = 1 Then + Dim Dt As New DataTable() + Dt.Columns.Add("gpo") + Dt.Columns.Add("neto") + For Each Dr As DataRow In DtDatos.Rows + If Dr("GPO").ToString <> "" Then + Dim Row As DataRow = Nothing + Row = Dt.NewRow() + Row("gpo") = Dr("GPO").ToString + Row("neto") = Dr("Neto").ToString.FormatoNumero + Dt.Rows.Add(Row) + End If + Next + + Dim query = From s In Dt.AsEnumerable() Select New With {.gpo = s("gpo").ToString(), .neto = s("neto").ToString().ToDouble()} + Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query) + RegistraScript($"CargaGraficaBarrasNeto({json})", "22") + ElseIf DdlVer.SelectedValue.ToEntero = 2 Then + Dim Dt2 As New DataTable() + Dt2.Columns.Add("gpo") + Dt2.Columns.Add("rentabilidad") + For Each Dr As DataRow In DtDatos.Rows + If Dr("GPO").ToString <> "" Then + Dim Row As DataRow = Nothing + Row = Dt2.NewRow() + Row("gpo") = Dr("GPO").ToString + Row("rentabilidad") = Dr("Rentabilidad").ToString.FormatoNumero + Dt2.Rows.Add(Row) + End If + Next + + Dim query2 = From s In Dt2.AsEnumerable() Select New With {.gpo = s("gpo").ToString(), .rentabilidad = s("rentabilidad").ToString().ToDouble()} + Dim json2 As String = Newtonsoft.Json.JsonConvert.SerializeObject(query2) + RegistraScript($"CargaGraficaBarrasRentabilidad({json2})", "23") + End If - Dim query = From s In Dt.AsEnumerable() Select New With {.gpo = s("gpo").ToString(), .utilidad = s("utilidad").ToString().ToDouble(), .perdida = s("perdida").ToString().ToDouble} - Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query) - RegistraScript($"CargaGraficaCompracion({json})", "22") UPModalProd.Update() End Sub + Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaGrafica() + End Sub #End Region @@ -197,7 +229,12 @@ Partial Class Ventas_RepVentasUtilidadPadre e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion")) e.Row.Cells(0).Text = "" & e.Row.Cells(0).Text & "" + Else + e.Row.Cells(9).BackColor = Drawing.Color.LightGray End If + + + End If End Sub @@ -234,6 +271,7 @@ Partial Class Ventas_RepVentasUtilidadPadre params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) params.Add(New ReportParameter("Neto", LblNeto.Text)) params.Add(New ReportParameter("PorNeto", $"{LblPorNeto.Text}%")) + params.Add(New ReportParameter("Rentabilidad", $"{LblRentabilidad.Text}%")) If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) @@ -248,4 +286,5 @@ Partial Class Ventas_RepVentasUtilidadPadre + End Class