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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2024-02-09 16:29:55 -07:00
parent b9785f5bfa 22cbf5a523
commit cd581efce2
15 changed files with 791 additions and 253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Ashx/CargaEventos.ashx
View File

@@ -457,8 +457,6 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
For Each dr As DataRow In ObjContratos.DtResultados.Rows
Dim cevent As CalendarEvent = New CalendarEvent()
Dim estatus As Integer = dr("EstatusContrato").ToString.ToEntero
cevent.id = dr("CveContrato").ToString.ToEntero
cevent.title = dr("DescripcionContrato").ToString
cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime)
@@ -471,15 +469,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.Pesos = dr("ImporteMax").ToString.ToDecimal
cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal
cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero
cevent.backgroundColor = dr("BackgroundColor").ToString
Select Case estatus
Case 1
cevent.backgroundColor = "#00A56A"
Case 2
cevent.backgroundColor = "#2B4FD6"
Case 3
cevent.backgroundColor = "#EE602E"
End Select