-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

OS/RepServiciosMedicos.aspx.vb

@@ -609,12 +609,16 @@ Partial Class OS_RepServiciosMedicos
                 Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión
                 If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido
                 If tCve > 0 Then
-                    Dim objv As New ClsVentas
+                    'Dim objv As New ClsVentas
                     Dim dttps As New DataTable
-                    If objv.GetVentaDetalle(tCve) Then
-                        dttps = objv.DtResultados
+
+                    If ObjOS.GetDetalleMateriales(-1, CveOsConsultar) Then
+                        dttps = ObjOS.DtResultados
                     End If
-                    objv.Dispose()
+                    'If objv.GetVentaDetalle(tCve) Then
+                    '    dttps = objv.DtResultados
+                    'End If
+                    'objv.Dispose()
                     GvPS.DataSource = dttps
                     GvPS.DataBind()
                 End If
@@ -723,4 +727,14 @@ Partial Class OS_RepServiciosMedicos
         ObjOS.Dispose()
 
     End Sub
+
+
+
+    Protected Sub GvPS_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