AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- mejora en colores para estatus de cirugías

Browse Source
This commit is contained in:
rrene
2024-10-13 20:04:23 -07:00
parent cff6ec5b87
commit 94100af37d
3 changed files with 10 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ashx/CargaEventos.ashx
View File

@@ -78,19 +78,21 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.CveOS = dr("CveOS").ToString.ToEntero cevent.CveOS = dr("CveOS").ToString.ToEntero
cevent.allDay = False cevent.allDay = False
If dr("EstatusOSGral").ToString.Contiene("Levantamiento") Then If dr("EstatusOSGral").ToString.Contiene("Levantamiento") Then
cevent.backgroundColor = "#3598dc" cevent.backgroundColor = "#5C9BD1"
ElseIf dr("EstatusOSGral").ToString.Contiene("Surtido") Then ElseIf dr("EstatusOSGral").ToString.Contiene("Surtido") Then
cevent.backgroundColor = "#002699" cevent.backgroundColor = "#002699"
ElseIf dr("EstatusOSGral").ToString.Contiene("Asignado") Then ElseIf dr("EstatusOSGral").ToString.Contiene("Asignado") Then
cevent.backgroundColor = "#8E44AD" cevent.backgroundColor = "#8E44AD"
ElseIf dr("EstatusOSGral").ToString.Contiene("Finalizado") Then ElseIf dr("EstatusOSGral").ToString.Contiene("Finalizado") Then
cevent.backgroundColor = "#26C281" cevent.backgroundColor = "#36D7B7"
ElseIf dr("EstatusOSGral").ToString.Contiene("Facturado") Then ElseIf dr("EstatusOSGral").ToString.Contiene("Facturado") Then
cevent.backgroundColor = "#4B77BE" cevent.backgroundColor = "#3598dc"
ElseIf dr("EstatusOSGral").ToString.Contiene("Cobrado") Then ElseIf dr("EstatusOSGral").ToString.Contiene("Cobrado") Then
cevent.backgroundColor = "#29b4b6" cevent.backgroundColor = "#26C281"
ElseIf dr("EstatusOSGral").ToString.Contiene("Cancelado") Then ElseIf dr("EstatusOSGral").ToString.Contiene("Cancelado") Then
cevent.backgroundColor = "#e43a45" cevent.backgroundColor = "#e43a45"
Else
cevent.backgroundColor = ""
End If End If
events.Add(cevent) events.Add(cevent)
Next Next

8
OS/RepServiciosMedicos.aspx
View File

@@ -193,7 +193,7 @@
<div class="modal-body"> <div class="modal-body">
<div class="row" id="divColores" style="color:white; width:200px;"> <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 Levantamiento
</div> </div>
<div class="col-md-12" style="background-color:#002699"> <div class="col-md-12" style="background-color:#002699">
@@ -202,13 +202,13 @@
<div class="col-md-12" style="background-color:#8E44AD"> <div class="col-md-12" style="background-color:#8E44AD">
Asignado Asignado
</div> </div>
<div class="col-md-12" style="background-color:#26C281"> <div class="col-md-12" style="background-color:#36D7B7">
Finalizado Finalizado
</div> </div>
<div class="col-md-12" style="background-color:#4B77BE"> <div class="col-md-12" style="background-color:#3598dc">
Facturado Facturado
</div> </div>
<div class="col-md-12" style="background-color:#29b4b6"> <div class="col-md-12" style="background-color:#26C281">
Cobrado Cobrado
</div> </div>
<div class="col-md-12" style="background-color:#e43a45"> <div class="col-md-12" style="background-color:#e43a45">

40
OS/RepServiciosMedicos.aspx.vb
View File

@@ -10,7 +10,6 @@ Partial Class OS_RepServiciosMedicos
Inherits ClsPaginas Inherits ClsPaginas
#Region "PROPIEDADES" #Region "PROPIEDADES"
Private Property DtDatos As DataTable Private Property DtDatos As DataTable
Get Get
DtDatos = DirectCast(ViewState("DtDatos"), DataTable) DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
@@ -20,34 +19,6 @@ Partial Class OS_RepServiciosMedicos
ViewState("DtDatos") = value ViewState("DtDatos") = value
End Set End Set
End Property 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 Private Property DT_OSSubProyectos As DataTable
Get Get
@@ -304,17 +275,6 @@ Partial Class OS_RepServiciosMedicos
DdlTecnicoAsignar.Visible = True DdlTecnicoAsignar.Visible = True
DdlTecnicoAsignar.Items.Insert(0, New ListItem("-", "-1")) 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 End Sub
#Region "CARGAS" #Region "CARGAS"