-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

OS/OrdenesServicios.aspx.vb

@@ -903,14 +903,15 @@ Partial Class OS_OrdenesServicios
         ObjMateriales.Dispose()
     End Sub
     Private Sub CargaMateriales()
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then GvMateriales.Columns(2).Visible = True
         Dim objOS As New ClsOS
-
         If objOS.GetDetalleMateriales(-1, CveOS) Then
             GvMateriales.DataSource = objOS.DtResultados
         End If
         objOS.Dispose()
         GvMateriales.DataBind()
 
+
         If (GvMateriales.Rows.Count > 0) Then
             GvMateriales.UseAccessibleHeader = True
             GvMateriales.HeaderRow.TableSection = TableRowSection.TableHeader
@@ -3576,4 +3577,12 @@ Partial Class OS_OrdenesServicios
 
         Archivo = Nothing
     End Sub
+
+    Protected Sub GvMateriales_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CantidadRemision").ToDecimal > 0 Then
+                e.Row.CssClass = "bg-green-turquoise bg-font-green-turquoise"
+            End If
+        End If
+    End Sub
 End Class