Indice de rotacion de personal, colorear agrupaciones

RH/CatPersonalRequerido.aspx.vb

@@ -99,6 +99,7 @@ Partial Class RH_CatPersonalRequerido
     End Sub
 
     Private Sub CargaDepartamento()
+        DdlDepartamento.Items.Clear()
         DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlDepartamento.DataBind()
     End Sub

RH/RepIndiceRotacionPersonal.aspx

@@ -105,7 +105,8 @@
 
          <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GVRegDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="margin-top: -10px; text-align: center;" GridLines="None">
+            <asp:GridView ID="GVRegDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"  DataKeyNames="SubProyecto"
+               CssClass="table table-striped table-advance table-hover Widthall ScrollAD"   Style="margin-top: -2px; text-align: center;" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText ="Proyecto" DataField="proyecto" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText ="Subproyecto" DataField="Subproyecto" ItemStyle-HorizontalAlign="Left" />

RH/RepIndiceRotacionPersonal.aspx.vb

@@ -108,7 +108,8 @@ Partial Class Ventas_RepIndiceRotacionPersonal
     Protected Sub GVRegDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVRegDatos.RowDataBound
 
 
-        If e.Row.RowType = DataControlRowType.DataRow Then
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
             If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
 
                 Dim sPorcentaje As String = e.Row.DBCampo("IRP").Trim
@@ -124,12 +125,15 @@ Partial Class Ventas_RepIndiceRotacionPersonal
                     e.Row.FCLabel("LblIrp").CssClass = "label label-success"
                 ElseIf (porcentaje > 15.0 And porcentaje <= 30.0) Then
                     e.Row.FCLabel("LblIrp").CssClass = "label label-warning"
-                End If
-
-
-
-
-            End If
+                End If
+
+            End If
+
+            If e.Row.DataKey("SubProyecto").ToString.Trim = "" Then
+                e.Row.CssClass = "SubTotales"
+                ' e.Row.Attributes.Add("class", "SubTotales")
+            End If
+
         End If