E172 Indicador Resumen agrupar productos por clasificación

SE MODIFICÓ PA_Vtas_GetRepPS en SIG_Resp_MLR
- Nuevo grupo 28: Clasificación - PS

General/RepIndicadorResumen.aspx.vb

@@ -50,10 +50,11 @@ Partial Class General_RepIndicadorResumen
         Dim ObjCompras As New ClsCompras
         Dim ObjMovtos As New ClsMovimientos
         Dim ObjCitrus As New ClsCGame
+        Dim Grupo As Integer = 28 'Clasificación - PS
 
         If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1,
-                                              -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing", TipoCambio:=1) Then
+                                              -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing", TipoCambio:=1) Then
-            GvVxP.DataSource = ObjVentas.DtResultados.FiltraParametros("", "CveMoneda,SubTotal DESC")
+            GvVxP.DataSource = ObjVentas.DtResultados
         End If
 
         If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then
@@ -88,8 +89,8 @@ Partial Class General_RepIndicadorResumen
         'Mostrar gráficos y totales en portlets solo si hay datos en su respectiva tabla
         If GvVxP.Rows.Count > 0 Then
             UPGraficaVxP.Visible = True
-            PLVxPTot.InnerHtml = "<span style=""font-weight:800"">" + "Cantidad: " + "</span>" + String.Format("{0:n} Kg", CType(GvVxP.DataSource, DataTable).SUM("Cantidad", "Orden IS NOT NULL")) _
+            PLVxPTot.InnerHtml = "<span style=""font-weight:800"">" + "Cantidad: " + "</span>" + String.Format("{0:n} Kg", CType(GvVxP.DataSource, DataTable).SUM("Cantidad", "CodigoPS <> ''")) _
-                               + "<span style=""font-weight:800; margin-left:1em"">" + "Total: " + "</span>" + String.Format("{0:c} MXN", CType(GvVxP.DataSource, DataTable).SUM("SubTotalMN", "Orden IS NOT NULL"))
+                               + "<span style=""font-weight:800; margin-left:1em"">" + "Total: " + "</span>" + String.Format("{0:c} MXN", CType(GvVxP.DataSource, DataTable).SUM("SubTotalMN", "CodigoPS <> ''"))
         Else
             UPGraficaVxP.Visible = False
             PLVxPTot.InnerHtml = Nothing
@@ -159,6 +160,10 @@ Partial Class General_RepIndicadorResumen
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("Orden") = "" Then
                 e.Row.CssClass = "Totales"
+            Else
+                If e.Row.DBCampo("CodigoPS") = "" Then
+                    e.Row.CssClass = "SubTotales"
+                End If
             End If
         End If
     End Sub
@@ -253,7 +258,7 @@ Partial Class General_RepIndicadorResumen
         DtVxP.Columns.Add("Unidad")
         'RowColorIndex = 0
         For Each Dr As DataRow In CType(GvVxP.DataSource, DataTable).FiltraParametros("", "SubTotalMN DESC").Rows
-            If Not Dr("Orden").ToString = "" Then
+            If Not Dr("CodigoPS").ToString = "" Then
                 Dim Row = DtVxP.NewRow()
                 Row("Texto") = Dr("GPO").ToString
                 Row("Valor") = Dr("SubTotalMN").ToString.FormatoNumero