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

8
OS/RepServiciosMedicos.aspx
View File

@@ -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">

40
OS/RepServiciosMedicos.aspx.vb
View File

@@ -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"