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

Cambios GlobalDTSubPoryecto

Browse Source 
Cambio GlobalDTUsuario
This commit is contained in:
rrene
2024-08-01 05:49:07 -07:00
parent 1c14bceea9 8f105dab17
commit b037969a74
30 changed files with 3675 additions and 1988 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Ashx/CargaEventos.ashx
View File

@@ -552,13 +552,28 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal
cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero
cevent.CveTipoAF = dr("CveTipoAF").ToString.ToEntero
cevent.backgroundColor = dr("BackgroundColor").ToString
cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString
cevent.NumeroContrato = dr("NumeroContrato").ToString
cevent.Observaciones = dr("Observaciones").ToString
cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
cevent.CveMoneda = dr("CveMoneda").ToString.ToEntero
cevent.Moneda = dr("Moneda").ToString
cevent.NumChoferes = dr("NumChoferes").ToString.ToEntero
cevent.CveVentaRemision = dr("CveVentaRemision").ToString.ToEntero
cevent.RemisionSerieFolio = dr("RemisionSerieFolio").ToString
cevent.RemisionSaldo = dr("RemisionSaldo").ToString.ToDecimal
cevent.TipoEstatus = dr("TipoEstatus").ToString.ToEntero
cevent.backgroundColor = dr("backgroundColor").ToString
Dim BGC_Atencion As String = "#bc9b1b"
If cevent.TipoEstatus <> 4 AndAlso cevent.TipoEstatus <> 3 Then
If dr("CveChofer").ToString.ToEntero <= 0 Or (dr("CveChofer2").ToString.ToEntero <= 0 And cevent.NumChoferes = 2) Or dr("CveAF").ToString.ToEntero <= 0 Then
cevent.backgroundColor = BGC_Atencion
End If
End If
If Not cevent.recurrenciatipo > 0 Then