-- mejoras visuales en

RH/RepAusentismoLaboral.aspx.vb

@@ -64,9 +64,8 @@ Partial Class RH_RepAusentismoLaboral
         Dim FechaInicio As Date = Date.Now.AddDays(-30)
         Dim FechaFin As Date = Date.Now
 
-        Try
 
-            FechaInicio = Date.Parse(txtInicio.Text)
+        FechaInicio = Date.Parse(txtInicio.Text)
             FechaFin = Date.Parse(txtFin.Text)
 
             If DdlProyecto.SelectedIndex <> 0 Then
@@ -88,9 +87,7 @@ Partial Class RH_RepAusentismoLaboral
             GVRegDatos.DataSource = dTable
             GVRegDatos.DataBind()
 
-        Catch ex As Exception
-            Dim exe As String = ex.Message
-        End Try
+
         rh.Dispose()
         UpDatos.Update()
 
@@ -106,25 +103,28 @@ Partial Class RH_RepAusentismoLaboral
         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("AUSENTISMO").Trim
-                Dim porcentaje As Double = Convert.ToDouble(sPorcentaje)
+                Dim porcentaje As Decimal = e.Row.DBCampo("AUSENTISMO").ToDecimal
 
                 e.Row.FCLabel("lblAusentismo").CssClass = "label label-danger"
                 e.Row.FCLabel("lblAusentismo").Font.Bold = True
                 e.Row.FCLabel("lblAusentismo").Attributes.Add("dir", "rtl")
 
-                e.Row.FCLabel("lblAusentismo").Text = sPorcentaje & "%"
+                e.Row.FCLabel("lblAusentismo").Text = porcentaje.RoundSQL & "%"
 
                 If porcentaje <= 15.0 Then
                     e.Row.FCLabel("lblAusentismo").CssClass = "label label-success"
                 ElseIf (porcentaje > 15.0 And porcentaje <= 30.0) Then
                     e.Row.FCLabel("lblAusentismo").CssClass = "label label-warning"
                 End If
-
-
-
-
             End If
+            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"
+                End If
+            End If
+
         End If