-- mejoras visuales en

RH/RepIndiceRotacionPersonal.aspx.vb

@@ -76,11 +76,10 @@ Partial Class Ventas_RepIndiceRotacionPersonal
         Dim CveTurno As Integer = -1
 
         Dim FechaInicio As Date = Date.Now.AddDays(-30)
-        Dim FechaFin As Date = Date.Now
-
-        Try
-
-            FechaInicio = Date.Parse(txtInicio.Text)
+        Dim FechaFin As Date = Date.Now
+
+
+        FechaInicio = Date.Parse(txtInicio.Text)
             FechaFin = Date.Parse(txtFin.Text)
 
             If DdlProyecto.SelectedIndex <> 0 Then
@@ -100,16 +99,9 @@ Partial Class Ventas_RepIndiceRotacionPersonal
             End If
             DTGvDatos = dTable
             GVRegDatos.DataSource = dTable
-            GVRegDatos.DataBind()
-
-
-
-
-
-        Catch ex As Exception
-            Dim exe As String = ex.Message
-        End Try
-
+            GVRegDatos.DataBind()
+
+
         rh.Dispose()
         UpDatos.Update()
 
@@ -124,28 +116,32 @@ Partial Class Ventas_RepIndiceRotacionPersonal
 
         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
-                Dim porcentaje As Double = Convert.ToDouble(sPorcentaje)
+            If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
+
+                Dim porcentaje As Decimal = e.Row.DBCampo("IRP").ToDecimal
 
                 e.Row.FCLabel("LblIrp").CssClass = "label label-danger"
                 e.Row.FCLabel("LblIrp").Font.Bold = True
                 e.Row.FCLabel("lblIrp").Attributes.Add("dir", "rtl")
-
-                e.Row.FCLabel("LblIrp").Text = sPorcentaje & "%"
+                e.Row.FCLabel("LblIrp").Text = porcentaje.ToString("0.00") & "%"
 
                 If porcentaje <= 15.0 Then
                     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
 
-            If e.Row.DataKey("SubProyecto").ToString.Trim = "" Then
-                e.Row.CssClass = "SubTotales"
-                ' e.Row.Attributes.Add("class", "SubTotales")
+            If e.Row.DBCampo("SubProyecto").ToString.Trim = "" Then
+                e.Row.CssClass = "SubTotales2"
+            Else
+                If e.Row.DBCampo("Turno").ToString.Trim = "" Then
+                    e.Row.CssClass = "SubTotales"
+                Else
+                    If e.Row.DBCampo("Turno").ToString.Trim = "" Then
+                        e.Row.CssClass = "SubTotales3"
+                    End If
+                End If
             End If
 
         End If