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

VyA asignar uno o dos choferes

Browse Source
This commit is contained in:
rakcsle
2024-07-30 10:07:02 -07:00
parent 12d31c5e3c
commit 9dcc6683aa
7 changed files with 210 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ashx/CargaEventos.ashx
View File

@@ -560,10 +560,18 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.Moneda = dr("Moneda").ToString
cevent.NumChoferes = dr("NumChoferes").ToString.ToEntero
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 = "#bc9b1b"
End If
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