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

VyA addContrato valida unidad

Browse Source
This commit is contained in:
rakcsle
2024-09-02 09:27:38 -07:00
parent a6176df862
commit 59ccd7e281
12 changed files with 3519 additions and 3077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Ashx/CargaEventos.ashx
View File

@@ -554,7 +554,44 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
Dim cevent As CalendarEvent = New CalendarEvent()
cevent.id = dr("CveContrato").ToString.ToEntero
cevent.title = If(dr("CodigoAF").ToString.Trim.Length > 0, $"#{dr("CodigoAF").ToString}-{dr("DescripcionContrato").ToString}", $"-{dr("DescripcionContrato").ToString}")
cevent.CveTipoAF = dr("CveTipoAF").ToString.ToEntero
cevent.title = $"-{dr("DescripcionContrato").ToString}"
If usuarioActual_.CveEmpresa = 188 AndAlso dr("CveTipoAF").ToString.Trim.Length > 0 Then
Dim TipoAfAbrebiado As String = ""
Select Case cevent.CveTipoAF
Case 181
TipoAfAbrebiado = "Bus"
Exit Select
'Case 183
' TipoAfAbrebiado = ""
' Exit Select
Case 184
TipoAfAbrebiado = "Spr"
Exit Select
'Case 185
' TipoAfAbrebiado = "Uti"
' Exit Select
Case 191
TipoAfAbrebiado = "Van"
Exit Select
Case 192
TipoAfAbrebiado = "Sed"
Exit Select
Case Else
Exit Select
End Select
cevent.title = $"-{TipoAfAbrebiado}#{dr("CodigoAF").ToString}-{dr("DescripcionContrato").ToString}"
'cevent.colorfont = "blue"
Else
cevent.title = $"#{dr("CodigoAF").ToString}-{dr("DescripcionContrato").ToString}"
End If
cevent.description = dr("DescripcionContrato").ToString
cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime)
cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime))
@@ -570,7 +607,7 @@ 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.CveTipoAF = dr("CveTipoAF").ToString.ToEntero
cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString
cevent.NumeroContrato = dr("NumeroContrato").ToString
cevent.Observaciones = dr("Observaciones").ToString