From 94100af37dbf4880187513513553bd976983473d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 13 Oct 2024 20:04:23 -0700
Subject: [PATCH] =?UTF-8?q?-=20mejora=20en=20colores=20para=20estatus=20de?=
 =?UTF-8?q?=20cirug=C3=ADas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ashx/CargaEventos.ashx         | 10 +++++----
 OS/RepServiciosMedicos.aspx    |  8 +++----
 OS/RepServiciosMedicos.aspx.vb | 40 ----------------------------------
 3 files changed, 10 insertions(+), 48 deletions(-)

diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx
index 835024ff1..a3a9383b2 100644
--- a/Ashx/CargaEventos.ashx
+++ b/Ashx/CargaEventos.ashx
@@ -78,19 +78,21 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                     cevent.CveOS = dr("CveOS").ToString.ToEntero
                                     cevent.allDay = False
                                     If dr("EstatusOSGral").ToString.Contiene("Levantamiento") Then
-                                        cevent.backgroundColor = "#3598dc"
+                                        cevent.backgroundColor = "#5C9BD1"
                                     ElseIf dr("EstatusOSGral").ToString.Contiene("Surtido") Then
                                         cevent.backgroundColor = "#002699"
                                     ElseIf dr("EstatusOSGral").ToString.Contiene("Asignado") Then
                                         cevent.backgroundColor = "#8E44AD"
                                     ElseIf dr("EstatusOSGral").ToString.Contiene("Finalizado") Then
-                                        cevent.backgroundColor = "#26C281"
+                                        cevent.backgroundColor = "#36D7B7"
                                     ElseIf dr("EstatusOSGral").ToString.Contiene("Facturado") Then
-                                        cevent.backgroundColor = "#4B77BE"
+                                        cevent.backgroundColor = "#3598dc"
                                     ElseIf dr("EstatusOSGral").ToString.Contiene("Cobrado") Then
-                                        cevent.backgroundColor = "#29b4b6"
+                                        cevent.backgroundColor = "#26C281"
                                     ElseIf dr("EstatusOSGral").ToString.Contiene("Cancelado") Then
                                         cevent.backgroundColor = "#e43a45"
+                                    Else
+                                        cevent.backgroundColor = ""
                                     End If
                                     events.Add(cevent)
                                 Next
diff --git a/OS/RepServiciosMedicos.aspx b/OS/RepServiciosMedicos.aspx
index 29d05c90f..8bfce4831 100644
--- a/OS/RepServiciosMedicos.aspx
+++ b/OS/RepServiciosMedicos.aspx
@@ -193,7 +193,7 @@
 
                     <div class="modal-body">
                           <div class="row" id="divColores" style="color:white; width:200px;">
-                                <div class="col-md-12" style="background-color:#3598dc; ">
+                                <div class="col-md-12" style="background-color:#5C9BD1; ">
                                         Levantamiento
                                 </div>
                                 <div class="col-md-12" style="background-color:#002699">
@@ -202,13 +202,13 @@
                                 <div class="col-md-12" style="background-color:#8E44AD">
                                       Asignado
                                 </div>
-                                <div class="col-md-12" style="background-color:#26C281">
+                                <div class="col-md-12" style="background-color:#36D7B7">
                                     Finalizado
                                 </div>
-                               <div class="col-md-12" style="background-color:#4B77BE">
+                               <div class="col-md-12" style="background-color:#3598dc">
                                       Facturado
                                 </div>
-                                 <div class="col-md-12" style="background-color:#29b4b6">
+                                 <div class="col-md-12" style="background-color:#26C281">
                                        Cobrado
                                  </div>
                                  <div class="col-md-12" style="background-color:#e43a45">
diff --git a/OS/RepServiciosMedicos.aspx.vb b/OS/RepServiciosMedicos.aspx.vb
index fbd4ad598..47a90bc58 100644
--- a/OS/RepServiciosMedicos.aspx.vb
+++ b/OS/RepServiciosMedicos.aspx.vb
@@ -10,7 +10,6 @@ Partial Class OS_RepServiciosMedicos
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
-
     Private Property DtDatos As DataTable
         Get
             DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
@@ -20,34 +19,6 @@ Partial Class OS_RepServiciosMedicos
             ViewState("DtDatos") = value
         End Set
     End Property
-    Private Property Agrupador As String
-        Get
-            Return ViewState("Agrupador").ToString
-        End Get
-
-        Set(value As String)
-            ViewState("Agrupador") = value
-        End Set
-    End Property
-    Private Property TCEspecifico As Double
-        Get
-            Return ViewState("TCEspecifico").ToString.ToDouble
-        End Get
-
-        Set(value As Double)
-            ViewState("TCEspecifico") = value
-        End Set
-    End Property
-    Private Property TipoCambio As Integer
-        Get
-            Return ViewState("TipoCambio").ToString.ToEntero
-        End Get
-
-        Set(value As Integer)
-            ViewState("TipoCambio") = value
-        End Set
-    End Property
-
 
     Private Property DT_OSSubProyectos As DataTable
         Get
@@ -304,17 +275,6 @@ Partial Class OS_RepServiciosMedicos
         DdlTecnicoAsignar.Visible = True
         DdlTecnicoAsignar.Items.Insert(0, New ListItem("-", "-1"))
 
-        'Dim ObjUsuarios As New ClsSisUsuarios
-        'If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
-        '    If UsuarioActual.CveRol = 1 Then
-        '        DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
-        '    Else
-        '        DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0 and CveUsuario <>  100")
-        '    End If
-
-        'End If
-        'ObjUsuarios.Dispose()
-
     End Sub
 
 #Region "CARGAS"